DIFG4A ;SFISC/DG(OHPRD)-CONDITIONALS ; [ 08/21/91 5:15 PM ]
Source file <DIFG4A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETVAL | ; Save field numbers and values
|
|
CHECK | ; Check for existence of higher level conds, if exist quit this level
; and continue processing |
|
START | ;
|
|
COND | ; Execute conditions
|
|
X1 | ||
SETY | ; Sets Y to value of "D" node or value from execution of "C" node
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | START+4, COND+2, COND+3, SETY+1, SETY+2 |
^DIC - [#1] | SETY+4 |
^UTILITY("DIFGFLD" | START+5*, START+11!, GETVAL+1*, COND+4 |
^UTILITY("DIFGX" | GETVAL+1 |
Name | Line Occurrences |
---|---|
CHECK | START+1 |
COND | START+7 |
GETVAL | START+3 |
SETY | COND+2 |
X1 | START+2 |
Name | Field # of Occurrence |
---|---|
^( | GETVAL+1, COND+2, COND+3 |
^("C" | SETY+1 |
^("D" | SETY+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CHECK+2~* |
CNUM | COND+1~, COND+2*, COND+3, SETY+1, SETY+2 |
DIC | START+4~* |
DIC(0 | START+4* |
>> DIFG | START+2, CHECK+2 |
>> DIFG("CONDSET" | START+9* |
>> DIFG("UNRESOLVED" | START+2* |
>> DIFGCOND( | CHECK+2 |
>> DIFGDIC | START+3, START+4, COND+2, COND+3, SETY+1, SETY+2, SETY+4 |
>> DIFGDIC( | START+3 |
DIFGDIGT | START+3*, START+11!, GETVAL+1 |
DIFGDRCT | START+3*, START+11! |
>> DIFGER | START+10* |
>> DIFGI | START+3* |
>> DIFGNUMF( | START+3, GETVAL+1 |
>> DIFGSAVE( | START+2 |
DIFGSTP | START+2!, CHECK+2* |
>> DIFGY | START+10 |
FLD | COND+1~, COND+3*, COND+4 |
NUM | COND+1~, COND+2*, COND+3 |
OP | COND+1~, COND+3*, COND+5 |
ORDR | COND+1~, COND+2* |
STP | COND+1~, COND+2!, COND+4*, COND+6* |
>> TYPE | COND+2*, SETY+1, SETY+2 |
U | START+4, START+10, COND+2, COND+3 |
VAL | COND+1~, COND+3* |
>> X | START+4*, START+5 |
Y | START+4, START+6!, START+8*, START+9, START+10, COND+2, SETY+2*, SETY+3!, SETY+4! |
Y(0 | START+4 |