XQ74 ;SEA/MJM - Phantom Jump processor ; ;4/26/91 3:18 PM
Source file <XQ74.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
LEGAL | ;See if this a legal option for this user
|
|
SET | ;Save the "XQ" stack in XQMM("OLD")
|
|
SETJ | ;Set up the variables for a jump
|
|
CONVERT | ;Convert option names to their internal #'s an add -1 for return
|
|
MESS1 | ||
ERR | ;Error message for locks, out-of-order, etc.
|
|
RESET | ;Reset ^XUTL to what it was before we started
|
|
OUT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(19 - [#19] | LEGAL+6, ERR+2, RESET+1 |
^VA(200 - [#200] | LEGAL+3 |
^XUTL("XQ" | LEGAL+1, SET+1, RESET+1*, RESET+3*, RESET+4* |
^XUTL("XQO" | LEGAL+1, LEGAL+2, LEGAL+3, LEGAL+4, LEGAL+5, SETJ+1, RESET+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIC | CONVERT+1*, CONVERT+4! |
DIC(0 | CONVERT+1* |
DUZ | LEGAL+3, LEGAL+5 |
U | XQ74+5, LEGAL+3, LEGAL+5, LEGAL+6, SET+1, SET+2, SETJ+1, SETJ+2, ERR+2, RESET+2 , RESET+3, RESET+4 |
X | XQ74+6*, CONVERT+2*, CONVERT+4!, MESS1 |
XQA | SETJ+3!, OUT! |
XQD | OUT! |
>> XQDIC | XQ74+5, LEGAL+1*, LEGAL+2*, LEGAL+4*, SET+2, SETJ+1, RESET+1*, RESET+2* |
XQI | LEGAL+5*, SET+1*, SETJ+3!, CONVERT+2*, CONVERT+4!, RESET+4*, OUT! |
XQJ | CONVERT+4!, RESET+4*, OUT! |
XQK | SETJ+3!, RESET+4*, OUT! |
>> XQMM("J" | XQ74+2!, XQ74+3, XQ74+5!, XQ74+7*, OUT! |
>> XQMM("OLD" | SET+1*, RESET+1, RESET+3, RESET+4, OUT! |
>> XQMMF | SETJ+2* |
XQMMK | XQ74+5*, XQ74+6, LEGAL+1, LEGAL+2, LEGAL+4, LEGAL+5, LEGAL+6, SETJ+1, SETJ+3!, CONVERT+3* , ERR+1 |
XQMMS | XQ74+6*, XQ74+8! |
XQMMSAV | SET+2*, RESET+1, RESET+2, OUT! |
XQMMX | XQ74+5*, XQ74+7, XQ74+8!, CONVERT+2, CONVERT+3* |
XQMMY | CONVERT+1*, CONVERT+2*, CONVERT+3, CONVERT+4! |
XQNO | ERR+2, OUT! |
XQNO1 | ERR+2, OUT! |
>> XQPSM | LEGAL+1*, LEGAL+2*, LEGAL+3*, LEGAL+4, LEGAL+5*, SET+2, RESET+2* |
XQRBJ | OUT! |
XQST | OUT! |
>> XQSV | XQ74+5* |
XQUD | LEGAL+5*, SETJ+3! |
>> XQY | XQ74+5, SET+2, SETJ+1*, ERR+1*, ERR+2, RESET+1*, RESET+2* |
>> XQY0 | XQ74+5, SET+2, SETJ+1*, SETJ+2, RESET+1*, RESET+2* |
XQZ | OUT! |
Y | CONVERT+2, CONVERT+4! |