(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