TOPCA [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: TOPCA)}}
====== TOPCA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS2JSR|MACROS2JSR]]

**Used in:** [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CIMOP867|CIMOP867]], [[george:source:CPOBJ6|CPOBJ6]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DRSTART6|DRSTART6]], [[george:source:EDSTART860|EDSTART860]], [[george:source:FHLIST867|FHLIST867]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:LPOBJ6|LPOBJ6]], [[george:source:LPTWO7|LPTWO7]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:MTSTART864|MTSTART864]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:OLMTD65|OLMTD65]], [[george:source:OLMTE85|OLMTE85]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SIMULPTR60|SIMULPTR60]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]], [[george:source:VIPBPERI864|VIPBPERI864]]

<code - TOPCA.mac.txt>
 2PD2    #MAC  TOPCA                        [JSRAYNER
 2PXL          LDN   1  %A   
 2QC=          LDX   2  FX2  
 2QWW          SMO      APETADDR(2)  
 2RBG          LDN   2  ALINK1   
 2RW6          MOVE  1  2
 2S*Q          LDN   1  3
 2STB          SBN   2  ALINK1-ACC3  
 2T*2          MOVE  1  5
 2TSL    #SKIP          G3   
 2W#=          SBN   2  ACC3 
 2WRW    #SKIP          G4   
 2X?G    (   
 2XR6          ADN   2  HLOCK1-ACC3  
 2Y=Q          SMO      FX2  
 2YQB          LDN   1  HLOCK1   
 2^=2          MOVE  1  HLOCKLEN*HLOCKN  
 2^PL          STOZ     0(1)                [ "CLEAR"
 329=          STOZ     HLOCKLEN(1)  
 32NW          SBN   2  HLOCK1   
 338G    )   
 33N6          FPUT  
 347Q    #NOR
</code>