ROLPA

(GIN Macro)

Used in: ACCESS867, ANTIC867, ASSIGN860, DRUM852, IPCOPENA83, IPCOPENB83, NETOFLNE867, OLMTA85, OLMTB867, OLMTE85, ONLINCL864, ONLINEC867, SQOPEN867

ROLPA.mac.txt

 22FL ...[??? ROLPA SECT FILE FGN 4 DOC  
 23YG    [   
 24D6    #MAC  ROLPA 
 24FH ...#UNS   FDRMT
 24GY ...(   
 24J* ...#STR %A 
 24KQ ...      LDX   2  FX2  
 24M7 ...#STR %A 
 24NJ ...#SKI
 24P^ ...      FPCACA   2,FX2
 24RB ...)   
 24SR ...#UNS   FDRMT
 24W8 ...#SKI
 24XQ          FPCACA   2,FX2
 25CB          ADN   2  ACTRING  
 25X2    #SKI  K6ALLGEO>199-199  
 26BL          BRN      MROLPAE  
 26W=    MROLPAA 
 27*W    #SKI  K6ALLGEO>199-199  
 27TG    (   
 28*6          LDX   1  2
 28SQ          SBN   1  ACTRING  
 29#B          LDCH  1  ATYPE(1) 
 29S2          SBN   1  AOLPT/64 
 2=?L          BZE   1  MROLPAE  
 2=R=    MROLPAD 
 2?=W          GEOERR   1,ROLPA  
 2?QG    MROLPAE 
 2#=6    )   
 2#PQ          LDX   2  FPTR(2)  
 2*9B          BCT   6  MROLPAA  
 2*P2          LDX   1  FX2  
 2B8L          LDX   6  BPTR(1)  
 2BN=          TXU   2  ACTRING+BPTR(1)  
 2C7W          BCS      MROLPAB  
 2CMG          LDX   1  FX1  
 2D76          LDX   2  FX2  
 2DLQ          BRN      MROLPAC  
 2F6B    MROLPAB 
 2FL2          LDX   2  BPTR(2)  
 2G5L          LDX   1  ACTRING+BPTR(1)  
 2GK=          RERING   1,2  
 2H4W          LDX   1  6
 2HJG    #SKI  K6ALLGEO>199-199  
 2J46    (   
 2JHQ          LDCH  0  ATYPE(1) 
 2K3B          SBN   0  AOLPT/64 
 2KH2          BNZ   0  MROLPAD  
 2L2L    )   
 2LG=          LDX   2  ACTRING+FPTR(1)  
 2L^W          SBN   2  ACTRING  
 2MFG          LDX   2  BPTR(2)  
 2M^6          CHAIN    1,2  
 2NDQ    MROLPAC 
 2NYB    #NOR