TOPCA1

(GIN Macro)

Defined in: MACROS2JSR

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

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