ROLPA [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: ROLPA)}}
====== ROLPA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_BSONL|MACROS BSONL]]

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ANTIC867|ANTIC867]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:DRUM852|DRUM852]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:OLMTA85|OLMTA85]], [[george:source:OLMTB867|OLMTB867]], [[george:source:OLMTE85|OLMTE85]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:SQOPEN867|SQOPEN867]]

<code - 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
</code>