{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: ICT)}}
====== ICT ======
(GIN Macro)
**Defined in:** [[george:source:ICTMACS|ICTMACS]]
**Used in:** [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]], [[george:source:COMPROA867|COMPROA867]], [[george:source:COOR865|COOR865]], [[george:source:COREALLF867|COREALLF867]], [[george:source:DETACH867|DETACH867]], [[george:source:EDITOR867|EDITOR867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LLSMACROS|LLSMACROS]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:MOPSTART865|MOPSTART865]], [[george:source:QPRINT867|QPRINT867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REPLAC|REPLAC]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:UNSAVE867|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