(GIN Macro)
Defined in: MACROS2JSR
Used in: CAFSPERI867, CIMOP867, CPOBJ6, CROBJ6, DRSTART6, EDSTART860, FHLIST867, FHOBJ860, FHOBJBL860, HLSREAD867, IPCEN8, IPCOPENB83, IPCPERI83, LPOBJ6, LPTWO7, MTOBJ864, MTSTART864, NETOFLNE867, OLMTD65, OLMTE85, SCHDJOBA867, SIMULPTR60, TPOBJ867, TROBJ867, VIPBPERI864
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