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

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

**Used in:** [[george:source:ANTIC867|ANTIC867]], [[george:source:BEXTRA83|BEXTRA83]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXB8|CONMXB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:CPOBJ6|CPOBJ6]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DROBJ864|DROBJ864]], [[george:source:DRSTART6|DRSTART6]], [[george:source:DRUM852|DRUM852]], [[george:source:EDSTART860|EDSTART860]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXTEND866|EXTEND866]], [[george:source:FHLIST867|FHLIST867]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:LPOBJ6|LPOBJ6]], [[george:source:LPTWO7|LPTWO7]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:MTSTART864|MTSTART864]], [[george:source:OLPODD865|OLPODD865]], [[george:source:PERION867|PERION867]], [[george:source:READSPEC867|READSPEC867]], [[george:source:RELPER867|RELPER867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SIMULPTR60|SIMULPTR60]], [[george:source:SPERION867|SPERION867]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]]

<code - TOPCA1.mac.txt>
 3FT= ...[??? TOPCA1 SECT CENT FGN 2 DOC 
 3G#W    #     THIS MACRO CHANGES FROM OLPA TO PCA SETTING LINK GIVEN IN OLPA
 3GSG    #MAC  TOPCA1
 3H#6     LDN 0 %A   
 3HRQ     LDX 1 FX2                         [ADDR OF OLPA
 3J?B     LDX 2 APETADDR(1)                 [ADDR OF PCA 
 3JR2     STO 2 FX2  
 3K=L     ADN 1 ALINK1   
 3KQ=     ADN 2 ALINK1   
 3L9W          MOVE  1  HLINK
 3LPG          MOVE  0  HLINK
 3M96    #SKIP          G3   
 3MNQ     SBN 2 ALINK1   
 3N8B    #SKIP          G4   
 3NN2    (   
 3P7L          ADN   2  HLOCK1-ALINK1
 3PM=          ADN   1  HLOCK1-ALINK1
 3Q6W          MOVE  1  HLOCKLEN*HLOCKN  
 3QLG          STOZ     0(1)                [ "CLEAR"
 3R66          STOZ     HLOCKLEN(1)  
 3RKQ          SBN   2  HLOCK1   
 3S5B    )   
 3SK2     LDX 1 FX1  
 3T4L    #NOR
</code>