{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: ICTMACS)}}
====== ICTMACS ======
(George Source)
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
38JR ...[??? CORENMOVE SECT CENT FGN DOC
38K8 ...#MAC CORENMOVE
38KK ...#MEN COREALL
38L2 ...#TRA CORESET-1
38LC ... SBX 5 GEN4
38LS ... SLL 5 %A
38M9 ...#END
38ML ...#NOR
38N3 ...[??? ASFNUMBER SECT CENT FGN DOC
38ND ...#MAC ASFNUMBER
38NT ...#SKI %A<1$1
38P= ...(
38PM ...! PARAMETER MUST BE 1,2 OR 3
38Q4 ...#EXI
38QF ...)
38QW ...#MEN CASCODE
38R? ...#TRA ASFNO
38RN ... +%A+1
38S5 ...#TRA ASFNO1
38SG ... +%A
38SX ...#TRA GMEL%A
38T# ... +BPROG
38TP ...#END
38W6 ...#MEN CONSTANT
38WH ...#TRA GMELRTAB
38WY ... +BPROG,+GMEL,+GMEL1,+GMEL2,+GMEL3,+BPROG
38X* ...#TRA GMELRTAB+%A+2
38XQ ...#REP 4-%A
38Y7 ... +BPROG
38YJ ...#END
38Y^ ...#MEN LOADERII
38^B ...#TRA JICTA+2
38^R ... LDX 0 %A+GMELRTAB+1
3928 ...#END
392K ...#NOR
3942 [??? APSETTAB SECT CENT FGN DOC
39HL #MAC APSETTAB
3=3= #HAL AP%AL*64+#4000,AP%A
3=GW #NOR
3?2G [??? APGA SECT CENT FGN DOC
3?G6 #MAC APGA
3?^Q LDN 1 %B+%A
3#FB CALL 0 (APGAR)
3#^2 #NOR
3*DL [??? APGAX SECT CENT FGN DOC
3*Y= #MAC APGAX
3BCW LDX 1 %A
3BXG SRL 1 12
3CC6 CALL 0 (APGAR)
3CWQ #NOR
3DBB [??? RESETAP SECT CENT FGN DOC
3DW2 #MAC RESETAP
3DY9 ...#UNS ICTON
3F2D ...#SKI
3F4M ...(
3F6W ...! USED WHEN ICT NOT COMPILED
3F95 ...#EXI
3F?# ...)
3F*L #SKI %C>3-3
3FT= (
3G#W !ACT PRI TOO BIG
3GSG #EXI
3H#6 )
3HRQ #SKI %A-#77
3J?B #SKI
3JR2 (
3K=L !BLANKET NOT ALLOWED
3KQ= #EXI
3L9W )
3LPG #STR %B
3M96 #SKI
3MNQ (
3N8B ...#MEN CASCODE
3NN2 #TRA %A/64-#60+APTYPETAB
3P7L +%C
3PM= #END
3Q6W #EXI
3QLG )
3R66 #SKI AP%A�
3RKQ (
3S5B !NO SUBTYPE TABLE AVAILABLE
3SK2 #EXI
3T4L )
3TJ= #SKI %B+7/8-AP%AL-1�
3W3W #SKI
3WHG (
3X36 !NO SPACE
3XGQ #EXI
3Y2B )
3YG2 ...#MEN CASCODE
3Y^L #TRA APSUBTYPE+AP%A+(%B/8)
3^F= ...#DEF 21?=DCASCODE±+34?+0?] [NEED D FACTOR COS IN OVERLAY
3^YW #DEF 22?=%B&7*3
42DG #DEF 23?=#7777777@C-22?
42Y6 +21?&23?
43CQ #FID 22?,22?+2,%C
43XB #END
44C2 #NOR
44WL [??? APJOBSET SECT CENT FGN DOC
45B= #MAC APJOBSET
45TW ACCSTO %A,ACOMMUNE1,FX2
46*G ACCSTO %B,ACOMMUNE2,FX2
46T6 LDX 1 FX1
47#Q LDX 2 FX2
47SB JBC M1APJOBSET,,ICTSW
48#2 DOWN ACTPRI,1
48RL #STR %C
49?= #SKI
49QW BRN (GEOERR)
4==G #STR %C
4=Q6 BRN %C
4?9Q M1APJOBSET
4?PB #NOR
4#92 [??? APCOMPRO SECT CENT FGN DOC
4#NL #MAC APCOMPRO
4*8= LDX 2 FX2
4*MW JBC M2APCOMPRO,,ICTSW
4B7G SEGENTRY %A
4BM6 LDN 1 1 [NO USER CENTRAL
4C6Q LDX 0 JSOURCE3(2)
4CLB BZE 0 M1APCOMPRO [J IF CENTRAL
4D62 LDN 1 2
4DKL M1APCOMPRO
4F5= DCH 1 ACRIT(2)
4FJW M2APCOMPRO
4G4G LDX 1 FX1
4GJ6 #NOR
4H3Q [??? APREALT SECT CENT FGN DOC
4HHB #MAC APREALT
4J32 LDX 1 FX1
4JGL LDX 2 FX2
4K2= JBC M1APREALT,,ICTSW
4KFW #STR %A,ON
4K^G #SKI
4LF6 DOWN ACTPRI,2
4LYQ #STR %A,OFF
4MDB #SKI
4MY2 DOWN ACTPRI,3
4NCL #STR %A,HIGH
4NX= #SKI
4PBW DOWN ACTPRI,4
4PWG M1APREALT
4QB6 #NOR
4QTQ [??? GETGMILL SECT CENT FGN DOC
4R*B #MAC GETGMILL
4RT2 LDXC %B K7
4S#L LDX %A K7X
4SS= SBSC %B K7
4T?W SBS %A K7X
4TRG BSOFF ICTSW,M1GETGMILL
4W5X ... LDX 1 ASFNO1
4WD# ...M2GETGMILL SMO GMELRTAB+1(1)
4WQP ... LDX 0 ATM
4X56 ... SMO GMELRTAB+1(1)
4XCH ... SBS 0 ATM
4XQ2 ADXC %B 0
4Y9L ADN %A 0
4YP= ... BCT 1 M2GETGMILL
4^NG M1GETGMILL
5286 DVD %A BEATTIME
52MQ ADSC %A K7
537B LDN %A 0
53M2 ADS %A K7X
546L LDX 1 FX1
54L= #NOR
555W [??? RINGMEL SECT CENT FGN DOC
55KG #MAC RINGMEL
5656 LDX 0 GMELRTAB+2
56JQ STO 0 GMEL
574B LDX 0 GMELRTAB+4
57J2 STO 0 BPROG+1
583L #NOR
58H= [??? APMPH SECT CENT FGN DOC
592W #MAC APMPH
59GG #STR %A
5=26 #SKI
5=FQ (
5=^B ... +0
5?F2 #EXIT
5?YL )
5#D= #STR %A,HIPRI
5#XW #SKI
5*CG #37777777
5*X6 #STR %A,HIPRI
5BBQ +%A*64
5BWB #NOR
5CB2 [??? APMP SECT CENT FGN DOC
5CTL #MAC APMP
5D*= #STR %A,HIPRI
5DSW (
5F#G !1ST PARAMETER MUST BE HIPRI OR ABSENT
5FS6 #EXI
5G?Q )
5GRB ...#MEN CONSTANT
5H?2 #TRA GAMR0
5HQL #STR %A
5J== APMPH %A
5JPW #STR %A
5K9G #SKI
5KP6 -1
5L8Q #TRA GAMR0+1
5LNB APMPH %B
5M82 APMPH %C
5MML APMPH %D
5N7= ... APMPH 0
5NLW #END
5NND ...#MEN FIXED
5NQ2 ...[ MEND FOR DME DUALS TO SET GEORGES AMR
5NRJ ...#TRA BACT+ACOMMUNE1
5NT6 ...#STR %A
5NWN ... APMPH %A
5NY= ...#STR %A
5N^S ...#SKI
5P3B ... -1
5P4Y ...#END
5P55 ...#UNS ICTON
5P5= ...(
5P5C ...#MEN CASCODE
5P5J ...#TRA GAMREXEC+1
5P5P ... APMPH %B
5P5W ... APMPH %C
5P63 ... APMPH %D
5P68 ...#END
5P6* ...)
5P6G #NOR
5PL6 [??? APJOBRESET SECT CENT FGN DOC
5Q5Q #MAC APJOBRESET
5QKB #SKI %B>3-3
5R52 (
5RJL !NUMBER MUST BE >0 AND <4
5S4= #EXI
5SHW )
5T3G #SKI %B
5TH6 #SKI
5W2Q (
5WGB !NUMBER MUST BE >0 AND <4
5X22 #EXI
5XFL )
5X^= #MEN ACTPRI
5YDW #STR EXPRESS,%A
5YYG #SKI
5^D6 #TRA K90ACTPRI
5^XQ #STR REALTIME,%A
62CB #SKI
62X2 #TRA K92ACTPRI
63BL #STR HIPRI,%A
63W= #SKI
64*W #TRA K91ACTPRI
64TG #STR SYSISS,%A
65*6 #SKI
65SQ #TRA K93ACTPRI
66#B #STR SYSSTAR,%A
66S2 #SKI
67?L #TRA K94ACTPRI
67R= #STR BACKCENT,%A
68=W #SKI
68QG #TRA K95ACTPRI
69=6 #STR BACKCLUS,%A
69PQ #SKI
6=9B #TRA K96ACTPRI
6=P2 #STR MOPCENT,%A
6?8L #SKI
6?N= #TRA K97ACTPRI
6#7W #STR MOPCLUS,%A
6#MG #SKI
6*76 #TRA K98ACTPRI
6*LQ #STR NOUSERCENT,%A
6B6B #SKI
6BL2 (
6C5L #END
6CK= ...#MEN COMPROA
6D4W ...#TRA K80COMPROA
6DJG LDN 1 %B
6F46 #END
6FHQ #EXI
6G3B )
6GH2 #STR NOUSERCLUS,%A
6H2L #SKI
6HG= (
6H^W #END
6JFG ...#MEN COMPROA
6J^6 ...#TRA K80COMPROA+3
6KDQ LDN 1 %B
6KYB #END
6LD2 #EXI
6LXL )
6MC= #SKI 0?
6MWW #SKI
6NBG (
6NW6 #END
6P*Q !CHARACTER STRING NOT RECOGNISED
6PTB #EXI
6Q*2 )
6QSL +%B
6R#= #END
6RRW #NOR
7#C6 [??? APCHANGE SECT CENT FGN DOC
7#WQ ...#MAC APCHANGE
7*BB ... LDX 2 FX2
7*W2 ... JBC M1APCH,,ICTSW
7B*L ...#STR DOWN,%A
7BT= ...#SKI
7C#W ...(
7CSG ... LDX 1 ACRIT(2)
7D#6 ... LDN 0 1
7DRQ ... ANDX 0 1
7F?B ... BNZ 0 M1APCH
7FR2 ... SRL 1 6
7G=L ... STO 1 ACRIT(2)
7GQ= ... LDX 0 ASFNO1
7H9W ... DCH 0 ACRIT(2)
7HPG ...)
7J96 ...#STR UP,%A
7JNQ ...#SKI
7K8B ...(
7KN2 ... LDX 0 ACRIT(2)
7L7L ... LDN 1 1
7LM= ... ANDX 1 0
7M6W ... BNZ 1 M1APCH [J IF AP FIXED
7MLG ... SLL 0 6
7N66 ... STO 0 ACRIT(2)
7NKQ ...)
7P5B ...M1APCH LDX 1 FX1
7PK2 ...#NOR
7Q4L ...[??? APVSF SECT CENT FGN DOC
7QJ= ...#MAC APVSF
7R3W ...[ TO ADJUST ACT PRI WHEN OPEN/CLOSE VITAL SYS FILE
7RHG ...#STR %A,UP
7S36 ...#SKI
7SGQ ...(
7T2B ... LDX 2 FX2
7TG2 ... JBC M1APVSF,,ICTSW
7T^L ... LDEX 0 ACRIT(2)
7WF= ... ANDN 0 #76 [COUNT OF TIMES DONE
7WYW ... BNZ 0 M3APVSF [J IF ALREADY DONE
7XDG ... LDX 1 ACRIT(2)
7XY6 ... SRL 1 6
7YCQ ... LDX 0 ACRIT(2)
7YXB ... ANDN 0 1
7^C2 ... ORX 0 1
7^WL ... STO 0 ACRIT(2)
82B= ...M3APVSF
82TW ... LDN 0 2
83*G ... ADS 0 ACRIT(2) [UPDATE COUNT
83T6 ...M1APVSF
84#Q ... LDX 1 FX1
84SB ...#EXI
85#2 ...)
85RL ...#STR %A,DOWN
86?= ...#SKI
86QW ...(
87=G ... LDX 2 FX2
87Q6 ... JBC M2APVSF,,ICTSW
87W3 ... LDX 0 ACRIT(2)
87^Y ... ANDN 0 #76
885T ... BZE 0 M2APVSF [J IF DIFFRENT ACTIVITY
889Q ... LDN 0 2
88PB ... SBS 0 ACRIT(2) [DECREMENT COUNT
8992 ... LDX 0 ACRIT(2)
89NL ... ANDN 0 #76
8=8= ... BNZ 0 M2APVSF [J IF NOT GONE DOWN ENUF
8=MW ... LDX 0 ACRIT(2)
8?7G ... SLL 0 6
8?M6 ... ANDX 0 HALFTOP
8#6Q ... LDX 1 ACRIT(2)
8#LB ... ANDN 1 1
8*62 ... ORX 0 1
8*KL ... STO 0 ACRIT(2)
8B5= ...M2APVSF
8BJW ... LDX 1 FX1
8C4G ...)
8CJ6 ...#NOR
8D3Q ...[??? BSPRI SECT CENT FGN DOC
8DHB ...#MAC BSPRI
8F32 ...[ TO SWITCH ALTERNATIVE OPTIMISING ROUTINE IN
8FGL ...[ BSQ ON OR OFF
8G2= ...#STR ON,%A
8GFW ...#SKI
8G^G ...(
8HF6 ...#MEN BSTS
8HYQ ...#TRA ASFBSTS
8JDB ... BRN ASFBSTS2
8JY2 ...#TRA ASFBSTS1
8KCL ... BRN ASFBSTS2
8KX= ...#END
8LBW ...#MEN BSQ
8LWG ...#TRA ASFP13
8MB6 ... BRN ASFBS1
8MTQ ...#END
8N*B ...#EXIT
8NT2 ...)
8P#L ...#STR OFF,%A
8PS= ...#SKI
8Q?W ...(
8QRG ...#MEN BSTS
8R?6 ...#TRA ASFBSTS
8RQQ ... NULL
8S=B ...#TRA ASFBSTS1
8SQ2 ... NULL
8T9L ...#END
8TP= ...#MEN BSQ
8W8W ...#TRA ASFP13
8WNG ... NULL
8X86 ...#END
8XMQ ...#EXIT
8Y7B ...)
8YM2 ...! PARAMETER MUST BE ON OR OFF
8^6L ...#NOR
^^^^ ...066253350033