(GIN Macro)
Defined in: ICTMACS
Used in: ATTACHB866, ATTACHC867, BACKROOM865, CHARGESC867, CHCHCOORMAC2, COMPROA867, COOR865, COREALLF867, DETACH867, EDITOR867, IPBSTARB867, IPBSTART867, JWELLONE867, LLSMACROS, LOGANAL864, MOPCOMB865, MOPSTART865, QPRINT867, REALTIME867, REPLAC, SCHDJOBA867, SCHEDJOB867, SCHEDULE867, SETJOBQ867, UNSAVE867
22FL [??? ICT SECT CENT FGN DOC 22^= #MAC ICT 23DW #STR %A,ON 23YG #SKI 24D6 ( 24G* ...#SKI ICTON<1$1 24JJ ...( 24LR ...[ IF ICTON IDENTIFIER NOT SET NON ZERO THEN ERROR THIS 24P2 ...! USED ICT ON WITH ICTON=0 24R9 ...#EXI 24TD ...) 24XQ [MENDS TO PMCHAINS,LOADER,COOR,CHCH,ICTSW 25CB #MEN LOADERII 25X2 ...#TRA JICTA 26BL RINGMEL 26W= #END 27*W ...#MEN PMCHAINS 27TG ...#TRA K100CHAINS 28*6 ... NULL 28SQ ...#TRA K100CHAINS+4 29#B ... 0?+34?]�^ACTLIST0 29S2 ...#TRA K100CHAINS+14 2=?L ... 0?+34?]�^ACTLIST1 2=R= ...#TRA K100CHAINS+24 2?=W ... 0?+34?]�^ACTLIST2 2?QG ...#TRA K100CHAINS+34 2#=6 ... 0?+34?]�^ACTLIST3 2#PQ ...#END 2*9B #MEN COOR 2*P2 #TRA K80COOR 2B8L LDX 1 ACTLIS(1) 2BN= #TRA K90COOR 2BY4 ... BCS K91COOR 2C7W LDX 2 FX2 2CMG #TRA K92COOR 2D76 LDCH 1 ACRIT-CHAINADD(2) 2DLQ #TRA K94COOR 2F6B ... LDCT 6 #400 2FL2 #TRA K96COOR 2G5L STO 1 HUNTED 2GK= STO 0 FLINK 2H4W LDX 2 FX2 2HJG #END 2HML ...#MEN CONSTANT 2HQQ ...#TRA GMELRTAB 2HTW ... +BPROG,+GMEL,+GMEL1,+GMEL2,+GMEL3,+BPROG 2H^2 ...#END 2J46 #MEN CHCH 2JHQ #TRA K90CHCH 2K3B LDX 1 FX2LAST 2KH2 #END 2KHC ...#MEN ACTPRI 2KHS ...#TRA K50ACTPRI 2KJ9 ... BXL 6 ASFNO,X+1 2KJL ...X LDX 6 ASFNO1 2KK3 ...#END 2KK6 ...#MEN PMDR 2KK9 ...#TRA JPMLEV 2KK# ... +CASCODEND 2KKC ...#END 2KKK ...#STR %B 2KN8 ...#SKI 2KQR ... ASFNUMBER 1 2KTB ...#STR %B 2KX^ ... ASFNUMBER %B 2L2L RESON ICTSW 2L59 ...#STR BSPRI,%C 2L7S ...#SKI 2L=C ... BSPRI ON 2L*2 ...#STR BSPRI,%C 2LCK ... BSPRI OFF 2LG= #EXI 2L^W ) 2MFG #STR %A,OFF 2M^6 #SKI 2NDQ ( 2NYB [MENDS AS ABOVE 2PD2 #MEN LOADERII 2PXL ...#TRA JICTA 2QC= #REP 6 2QWW +0 2RBG #END 2RS3 ...#MEN PMCHAINS 2S9J ...#TRA K100CHAINS 2SM5 ... BRN K101CHAINS 2T4L ...#END 2TG8 ...#SKI ICTON [ONLY DO THIS IF CODE STILL COMPILED 2TMB ...( 2TSL #MEN CHCH 2W#= #TRA K90CHCH 2WRW BRN FZCO 2X?G #END 2XR6 #MEN COOR 2Y=Q #TRA K80COOR 2YQB LDN 1 K3 2^=2 #TRA K90COOR 2^FS ... BCC INOSTDP1 2^PL BRN K91COOR 329= #TRA K92COOR 32NW BRN K93COOR 338G #TRA K94COOR 33N6 BRN K95COOR 347Q #TRA K96COOR 34MB LDX 1 FX1 3572 LDX 2 FX2 35LL BRN (0) 366= #END 36=7 ... BSPRI OFF 36B4 ...) 36KW RESOFF ICTSW 375G #EXI 37K6 ) 384Q ! PARAMETER MUST BE ON OR OFF 38JB #NOR