HP3000-L Archives

May 2005, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
john pitman <[log in to unmask]>
Reply To:
john pitman <[log in to unmask]>
Date:
Wed, 18 May 2005 10:36:01 +1000
Content-Type:
text/plain
Parts/Attachments:
text/plain (66 lines)
This sounds like bringing back the long lost Cobol statements

COME-FROM <label>.

And


IF <condition> THEN    MAYBE  <action>.

jp


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Olav Kappert
Sent: Wednesday, 18 May 2005 10:22 AM
To: [log in to unmask]
Subject: [HP3000-L] OT: Evolution, Question 2

More than a decade and a half ago, I wrote a program which had a piece
of code in it that essentially
stated, only GOD should mess with this section of code and if you do,
then it will take a miracle for the
system NOT to crash.  Well this section of code used the GETPRIV to move
a section of code into the
linear B queue to execute before returning back to USERMODE.

Olav.

Jeff Kell wrote:

>Bruce Toback wrote:
>
>
>>On May 17, 2005, at 9:55 AM, Wirt Atmar wrote:
>>
>>
>>
>>>No where in anyone's long printouts of massive amounts of code in this
>>>group does anyone put in a line saying "poof, a miracle occurs here, a
>>>miracle beyond our understanding."
>>>
>>>
>>Oh, yes they do, almost verbatim. I'll have to send you my MPE/iX
>>network server code, which uses software interrupts.
>>
>>
>
>Our legacy student system maintenance program used by the Records Office
>for transcript corrections/incomplete grade posting/etc has a section
>called "The-Almighty-Holy-Total-Roller"  :-)
>
>Jeff
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2