10 22FL SEG IPBCCA,,PHILIP TURNER 17 22_= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 16 23DW #LIS K0IPBCCA>K0IPB>K0ALLGEO>K0GREATGEO 21 23YG 8HIPBCCA70 [CONCEPTUAL IPB CENTRAL CONTROLLER 10 24D6 SEGENTRY K1IPBCCA,XK1 10 24XQ SEGENTRY K2IPBCCA,XK2 11 257J ... SEGENTRY K4IPBCCA,NXTB2 18 25CB VITAL [LIST OF VITAL SUP SEGS 8 25X2 +37 8 26BL +48 8 26W= +50 8 27*W +51 8 27TG +53 8 28*6 +57 8 28SQ +58 5 29#B VITAN 20 29S2 #DEF VLEN=VITAN-VITAL [VLEN IS NO. OF VITAL CODES 5 2=?L XICONIN 11 2=R= #HAL AMXOR+ICONIN,0 5 2?=W XIOUT 10 2?QG #HAL AMXOR+IOUT,0 5 2#=6 XCONDCB 11 2#PQ #HAL AMXOR+CONDCB,0 10 2*9B XLEN +CONDCBLEN 9 2*P2 ZAH #56777777 11 2B8L ONEDAY 3600*24/K9*1000 9 2BN= TENSECS 10000/K9 9 2C7W XMSK1 #40000007 9 2CMG XMSK9 #777000 9 2D76 XMSK17 #2450000 8 2DLQ TABUP #152 9 2F6B #40120250 9 2FL2 #40240250 8 2G5L TABDN #153 9 2GK= #40000250 9 2H4W #40120250 9 2HJG ZTEMK #40000007 13 2J46 [****** SUBR TO REINITIALISE IDENTIFIER 5 2JHQ REINI 8 2K3B SBX 5 FX1 7 2KH2 SETIDENT 8 2L2L ADX 5 FX1 7 2LG= EXIT 5 0 11 2L_W [****** SUBR TO PASS BLOCK ON 8 2MFG SETIL LDX 2 FX2 9 2M_6 LDX 0 AWORK2(2) 9 2NDQ LDX 6 XMSK17(1) 7 2NYB DSA 0 6 8 2PD2 SRL 0 12 7 2PXL DCH 0 4 8 2QC= SLL 4 12 8 2QWW BRN SETZW 8 2RBG SETYV LDX 4 CACT 8 2RW6 BRN SETYW 8 2S*Q SETYZ LDN 6 #166 8 2STB SETY LDX 4 GSIGN 8 2T*2 SETYW SMO FX2 9 2TSL LDX 0 AWORK2 8 2W#= SLL 6 12 7 2WRW DSA 0 6 8 2X?G BRN SETZX 11 2XR6 SETSR MHUNTW 2,AMXOR,CONDCB 8 2Y=Q LDCT 0 #200 7 2YQB SMO 7 11 2_=2 ANDX 0 A1+IDSTATUS(2) 17 2_PL BZE 0 (5) [J. UNLESS SRI SET 7 329= SMO 7 11 32NW ERS 0 A1+IDSTATUS(2) 8 338G LDN 0 #1000 17 33N6 SBS 0 A1+IDSTATUS(2) [DECREMENT SRI COUNT 9 347Q LDX 0 XMSK9(1) 11 34MB ANDX 0 A1+IDSTATUS(2) 18 3572 BNZ 0 (5) [J. UNLESS SRI COUNT ZERO 8 35LL LDCT 0 #200 18 366= ERS 0 A1+IDSTATUS(2) [UNSET STOP REMOTE INPUT 19 36KW LDN 6 #142 [INPUT END OF REMOTE INPUT 8 375G SETZ LDX 4 GSIGN 8 37K6 SETZV SLL 6 12 11 384Q SETZX MHUNTW 2,AMXOR,CONDCB 8 38JB LDCT 0 #20 11 3942 ANDX 0 A1+IDSTATUS(2) 17 39HL BNZ 0 (5) [J. IF CLOSE DOWN SET 8 3=3= SETZW SBX 5 FX1 7 3=GW LDX 3 6 8 3?2G SRL 3 18 12 3?G6 SETNCORE 2(3),3,AMXOR,ICONIN 10 3?_Q LDX 0 ALOGLEN(3) 20 3#FB ADS 0 INLOAD(2) [INCREMENT INPUT OVERLOAD COUNT 7 3#_2 ANDN 0 1 8 3*DL BNZ 0 SETZ1 10 3*Y= STO 4 IPBIDE+1(3) 8 3BCW LDX 4 CACT 7 3BXG SETZ1 ADX 5 1 9 3CC6 STO 4 IBSW(3) 9 3CWQ STOZ IMOPTY(3) 9 3DBB STO 6 IPBIDE(3) 11 3DW2 TRACE IPBIDE(3),CLINCCA 11 3F*L MHUNTW 2,AMXOR,CONDCB 8 3FT= SETX5 LDCT 6 #200 9 3G#W ANDX 6 IBSW(3) 10 3GSG LDX 2 A1+FPTR(2) 8 3H#6 SBN 2 A1 9 3HRQ SETX1 LDX 2 BPTR(2) 9 3J?B LDX 0 ATYPE(2) 11 3JR2 BXU 0 XICONIN(1),SETX2 8 3K=L BZE 6 SETX2 9 3KQ= LDX 0 IMOPTY(2) 8 3L9W BNG 0 SETX2 8 3LPG LDCT 0 #200 9 3M96 ANDX 0 IBSW(2) 15 3MNQ BNZ 0 SETX2 [J IF VITAL 8 3N8B NGN 0 #101 19 3NN2 ANDS 0 IBSW(2) [UNSET ^SUSPEND 1WD END READ^ 8 3P7L BRN SETX1 20 3PM= SETX2 CHAIN 3,2 [CHAIN BLOCK INTO AOLPT ACTIVITY 9 3Q6W LDX 0 ICA(2) 18 3QLG BNG 0 (5) [J. IF NO READ PERI UP 7 3R66 SBX 5 1 17 3RKQ SETX6 DOWN CONIPB,3 [DEAL WITH READ PERI 7 3S5B ADX 5 1 7 3SK2 EXIT 5 0 11 3T4L SETX3 MHUNTW 3,AMXOR,ICONIN 11 3TJ= MHUNTW 2,AMXOR,CONDCB 8 3W3W SETX LDCT 0 #20 11 3WHG ANDX 0 A1+IDSTATUS(2) 21 3X36 BZE 0 SETX5 [INPUT BLOCK UNLESS CLOSE DOWN SET 10 3XGQ LDX 6 ALOGLEN(3) 7 3Y2B FREECORE 3 20 3YG2 SBS 6 INLOAD(2) [DECREMENT INPUT OVERLOAD COUNT 7 3Y_L EXIT 5 0 11 3_F= [****** SUBR TO HANDLE ICONIN 8 3_YW VNOUT LDX 2 FX2 17 42DG LDX 0 AWORK4(2) [RESET POSN IN BLOCK 9 42Y6 STO 0 AWORK1(2) 8 43CQ BNZ 0 (5) 10 43XB LDX 0 ALOGLEN(3) 10 44C2 SBS 0 IOUTLOAD(2) 17 44WL FREECORE 3 [FREE IF BLOCK EMPTY 8 45B= EXIT 5 0 9 45TW [****** K1 ENTRY POINT 4 46*G XK1 9 46T6 LDXC 0 CONREL(2) 18 47#Q BCC NRQCD [J IF NOT CLOSING DOWN 7 47SB LDN 7 0 7 48#2 ADXC 0 0 17 48RL BCS NRQCA [J IF ALREADY NOTICED 8 49?= LDN 6 62 8 49QW BRN XCCB 11 4==G NRQCA MHUNTW 3,AMXOR,CONDCB 11 4=Q6 LDEX 0 A1+IDSTATUS(3) 8 4?9Q BZE 0 ZES 5 4?PB NRQCD 17 4#92 LDX 3 2 [INITIAL ENTRY POINT 9 4#NL NXT LDX 3 FPTR(3) 9 4*8= LDX 0 ATYPE(3) 20 4*MW BXE 0 XCONDCB(1),XNONE [J. IF NO INPUT OR OUTPUT BLOCKS 17 4B7G BXE 0 XICONIN(1),XIN [J. IF INPUT BLOCK 18 4BM6 BXU 0 XIOUT(1),NXT [J. UNLESS OUTPUT BLOCK 10 4C6Q LDX 4 ALOGLEN(3) 9 4CLB ADX 3 AWORK1(2) 9 4D62 LDX 5 IPBIDE(3) 9 4DKL STO 5 AWORK2(2) 9 4F5= LDCH 6 AWORK2(2) 8 4FJW BZE 6 YSJ1 11 4G4G TRACE IPBIDE(3),CLOUT 8 4GJ6 BRN YS6 10 4H3Q YSJ1 LDX 6 IPBIDE+1(3) 8 4HHB ANDN 6 #7777 8 4J32 ADN 6 11 7 4JGL SRL 6 2 9 4K2= YS6 ADX 6 AWORK1(2) 9 4KFW STO 6 AWORK4(2) 9 4K_G ADN 6 IPBIDE-A1 7 4LF6 SBX 6 4 8 4LYQ BNG 6 YS7 9 4MDB STOZ AWORK4(2) 20 4MY2 BNZ 6 XIL32 [INPUT ILLEGAL 32 IF COUNT WRONG 7 4NCL YS7 LDX 6 5 8 4NX= ANDN 6 #7777 9 4PBW LDCH 4 AWORK2(2) 11 4PWG MHUNTW 2,AMXOR,CONDCB 8 4QB6 LDCT 7 #120 11 4QTQ ANDX 7 A1+IDSTATUS(2) 8 4R*B SRL 5 12 7 4RT2 LDCH 0 5 20 4S#L BZE 6 SYSEG [J. IF SYSTEM SUPERVISORY SEGMENT 20 4SS= BNZ 7 XBACK [J. IF RESET OR CLOSE DOWN SET 21 4T?W SBX 6 A1+IDNUM(2) [INPUT ILLEGAL 16 IF IDENTIFIER WRONG 8 4TRG BNG 6 XIL16 8 4W?6 BZE 6 XIL16 9 4WQQ MPY 6 XLEN(1) 8 4X=B BNZ 6 XIL16 11 4XQ2 BXGE 7 ALOGLEN(2),XIL16 8 4Y9L LDN 6 #400 7 4YP= SMO 7 11 4_8W ANDX 6 A1+IDSTATUS(2) 21 4_NG BZE 6 NTLAR [J IF ATTACHMENT NOT BEING CANCELLED 7 5286 SMO 7 10 52MQ LDX 6 A1+BPTR(2) 20 537B BNZ 6 XIL16 [OFF END OF CONCEPTUAL IF RINGED 5 53M2 NTLAR 7 546L SMO 7 10 54L= LDX 6 A1+IDNUM(2) 21 555W DSA 6 IPBIDE(3) [REPLACE CONCEPTUAL IDENT. BY ACTUAL 17 55KG BZE 5 YS2 [J. IF DATA SEGMENT 21 5656 LDN 6 #40 [INPUT ILLEGAL 17 IF CODE,COUNT WRONG 8 56JQ SBN 0 26 8 574B BPZ 0 YS4 8 57J2 YS5 BCT 4 YS8 7 583L ADN 0 2 8 58H= BNG 0 YS9 8 592W XIL17 LDN 4 #2100 8 59GG BRN XILL 7 5=26 YS8 ADN 0 4 8 5=FQ BNG 0 XIL17 8 5=_B YS4 BCT 4 XIL17 7 5?F2 YS9 ERX 6 5 8 5?YL ERN 6 #60 8 5#D= ANDN 6 #60 8 5#XW BNZ 6 XIL17 7 5*CG LDX 1 5 7 5*X6 YS3 LDCH 6 1 7 5BBQ YS36 SRL 1 6 8 5BWB YS3B BCT 1 YS3A 4 5CB2 XCCB 7 5CCK ... LDX 0 6 8 5CF8 ... SBN 0 36 8 5CGR ... BNG 0 X1 9 5CJB ...X0 ACROSS IPBCCB,1 7 5CK_ ...X1 ADN 0 2 8 5CMJ ... BNG 0 X3 9 5CP7 ...X2 ACROSS IPBCCC,3 7 5CQQ ...X3 ADN 0 2 8 5CS* ... BPZ 0 X0 7 5CTY ... ADN 0 6 8 5CXH ... BPZ 0 XIL17 7 5C_6 ... ADN 0 4 8 5D2P ... BPZ 0 X2 7 5D4# ... ADN 0 1 8 5D5X ... BZE 0 XIL17 7 5D7G ... ADN 0 6 8 5D95 ... BPZ 0 X2 7 5D=N ... ADN 0 2 8 5D#? ... BPZ 0 XIL17 7 5D*W ... ADN 0 3 8 5DCF ... BPZ 0 X2 7 5DF4 ... ADN 0 1 8 5DGM ... BZE 0 X0 7 5DJ= ... ADN 0 5 8 5DKT ... BPZ 0 XIL17 7 5DMD ... ADN 0 2 8 5DP3 ... BPZ 0 X2 8 5DQL ... BRN X0 10 5DSW YS3A LDX 0 IPBIDE+1(3) 20 5F#G STO 0 3(1) [UNPACK LONG SUPERVISORY SEGMENT 8 5FS6 BUX 3 YS3B 10 5G?Q YS2 LDEX 6 A1+IDADIN(2) 7 5GRB ADX 2 7 11 5H?2 LDX 0 A1+IDSTATUS(2) 7 5HQL SRC 0 1 20 5J== BNG 0 XIL3 [INPUT ILLEGAL 3 IF CLOSED SET 10 5JPW LDX 5 IPBIDE+1(3) 8 5K9G ANDX 5 CACT 21 5KP6 BXE 5 CACT,XIL17 [INPUT ILLEGAL 17 IF BITS 0 AND 1 SET 17 5L8Q LDCT 4 #100 [CHECK IF END OF NPU 11 5LNB ORS 4 A1+IDSTATUS+1(2) 8 5M82 BZE 5 YS2X 11 5MML ERS 4 A1+IDSTATUS+1(2) 8 5N7= YS2X ANDN 0 #1600 17 5NLW BNZ 0 XBACK [J IF CCAH,INOP,FREE 7 5P6G SBN 6 3 21 5PL6 BNZ 6 YS2Z [J. UNLESS MAX. OUTPUT OVERLOAD LEVEL 8 5Q5Q LDX 4 CACT 8 5QKB SMO FX1 8 5R52 DVS 6 XLEN 8 5RJL LDCT 6 #151 7 5S4= SRL 6 3 7 5SHW ADX 6 7 8 5T3G CALL 5 SETZX 8 5TH6 BRN XCCAA 8 5W2Q YS2Z LDCT 0 #40 10 5WGB ANDX 0 IPBIDE+1(3) 20 5X22 BZE 0 YS2B [J. UNLESS OUTPUT SENT REQUEST 8 5XFL LDX 0 GSIGN 11 5X_= ANDX 0 A1+IDSTATUS+1(2) 18 5YDW BNZ 0 YS2B [J. IF OUTPUT SENT SET 8 5YYG LDN 0 #1000 19 5_D6 ADS 0 A1+IDSTATUS+1(2) [INCREMENT OUTPUT SENT COUNT 8 5_XQ YS2B LDX 2 FX2 7 62CB LDN 6 0 4 62X2 XK2 9 63BL [****** K2 ENTRY POINT 15 63W= [ LEFT IN BECAUSE ITS ENTWINED WITH XK1 9 64*W XK8 LDX 4 AWORK1(2) 9 64TG LDX 5 AWORK4(2) 9 65*6 STO 5 AWORK1(2) 20 65SQ BNZ 5 YS2C [J. UNLESS LAST SEGMENT IN BLOCK 10 66#B MHUNTW 3,AMXOR,IOUT 19 66S2 BZE 4 YS2AB [J. IF ONLY SEGMENT IN BLOCK 20 67?L SBS 4 IOUTLOAD(2) [DECREMENT OUTPUT OVERLOAD COUNT 19 67R= LDX 0 ALOGLEN(3) [MOVE SEGMENT TO TOP OF BLOCK 7 68=W SBX 0 4 9 68QG ADN 4 IPBIDE(3) 9 69=6 YS2A LDN 5 IPBIDE(3) 10 69PQ LDX 2 ALOGLEN(3) 9 6=9B SBN 2 IPBIDE-A1 8 6=P2 REMOVE 4,5,2 8 6?8L BZE 0 YS2AB 8 6?N= ALTLENG 3,0 11 6#7W YS2AB MHUNTW 2,AMXOR,CONDCB 7 6#MG LDN 0 1 9 6*76 STO 0 IMOPTY(3) 9 6*LQ STO 6 IBSW(3) 7 6B6B LDX 1 3 7 6BL2 BCHX 3 / 9 6C5L LDCH 0 IPBIDE(3) 8 6CK= LDN 3 #40 7 6D4W SMO 7 11 6DJG ANDX 3 A1+IDSTATUS(2) 16 6F46 BNZ 3 WVSET [J IF WARNING SET 21 6FHQ ORN 0 1 [TEST FOR CLOSE AS WELL AS CRASH CLOS 8 6G3B WVSET ERN 0 23 8 6GH2 BZE 0 NRZW 16 6H2L [ J IF CRASH CLOSE 8 6HG= LDN 0 #46 7 6H_W SMO 7 11 6JFG ANDX 0 A1+IDSTATUS(2) 8 6J_6 NRZW LDCT 3 #100 18 6KDQ ADX 2 7 [POINT AT CORRECT ENTRY 11 6KYB ANDX 3 A1+IDSTATUS+1(2) 20 6LD2 BNZ 3 NENP [J IF CURRENT NPU NOT COMPLETE 8 6LXL LDN 3 #40 11 6MC= ANDX 3 A1+IDSTATUS+1(2) 17 6MWW ERS 3 A1+IDSTATUS+1(2) [LEAVE WARNNPU UNSET 19 6NBG ORS 3 A1+IDSTATUS(2) [AND SET WARNING IF REQUIRED 4 6NW6 NENP 7 6P*Q SBX 2 7 14 6PTB [ RESET X2 19 6Q*2 BZE 0 OUNSV [J IF NOT WARNING NOR CLOSING 8 6QSL SMO FX2 9 6R#= LDX 3 ACTRING 9 6RRW SBN 3 ACTRING 17 6S?G CHAIN 1,BPTR(3) [CHAIN BEYOND CONDCB 8 6SR6 BRN NXTB2 5 6T=Q OUNSV 7 6TQB SMO 7 10 6W=2 LDX 2 A1+IDADIN(2) 10 6WPL LDX 3 IPBRING(2) 9 6X9= SBN 3 IPBRING 10 6XNW LDX 2 ACTRING(3) 9 6Y8G SBN 2 ACTRING 17 6YN6 CHAIN 1,BPTR(2) [CHAIN INTO IPBOUT 8 6_7Q LDCT 0 #100 9 6_MB ANDX 0 IPBSW(3) 8 7272 BZE 0 NXTB2 9 72LL ERS 0 IPBSW(3) 7 736= LDX 2 3 6 73KW FPUT 8 745G BRN NXTB2 9 74K6 SYSEG LDX 6 IDNUM(2) 8 754Q SMO FX2 9 75JB STO 6 AWORK2 8 7642 LDN 6 #60 7 76HL LDX 2 7 7 773= LDN 7 0 8 77GW BZE 0 YS5 7 782G SBN 0 9 8 78G6 BZE 0 YS4 8 78_Q BZE 2 YS4 8 79FB BCT 0 XBACK 7 79_2 SLL 2 4 8 7=DL BPZ 2 YS4 8 7=Y= BRN XBACK 7 7?CW YS2C SBX 5 4 9 7?XG ADN 5 IPBIDE-A1 10 7#C6 ADS 5 IOUTLOAD(2) 20 7#WQ SETUPCORE 5,3,AMXOR,IOUT [MOVE SEGMENT TO NEW OUTPUT BLOCK 11 7*BB HUNT2 2,AMXOR,IOUT,3 9 7*W2 ADN 4 IPBIDE(2) 7 7B*L LDN 0 0 8 7BT= BRN YS2A 9 7C#W XIN LDX 5 IPBIDE(3) 8 7CSG ANDN 5 #7777 7 7D#6 LDN 7 0 17 7DRQ BZE 5 NX2 [J. IF DATA SEGMENT 9 7F?B STOZ AWORK2(2) 11 7FR2 MHUNTW 2,AMXOR,CONDCB 10 7G=L LDX 6 A1+IDNUM(2) 9 7GQ= NX1 ADN 7 CONDCBLEN 10 7H9W TXL 7 ALOGLEN(2) 8 7HPG BCS NX1A 11 7J96 MHUNTW 1,AMXOR,ICONIN 10 7JNQ LDX 7 ALOGLEN(1) 7 7K8B FREECORE 1 9 7KN2 SBS 7 INLOAD(2) 8 7L7L BRN NXTB2 7 7LM= NX1A ADN 6 1 7 7M6W SMO 7 10 7MLG LDX 0 A1+BPTR(2) 8 7N66 BZE 0 NX1 7 7NKQ SMO 7 11 7P5B BXU 5 A1+IDNUM(2),NX1 21 7PK2 DSA 6 IPBIDE(3) [CHANGE ACTUAL IDENT. TO CONCEPTUAL 8 7Q4L SMO FX2 9 7QJ= DSA 6 AWORK2 9 7R3W NX2 LDX 1 IPBIDE(3) 8 7RHG SRL 1 12 18 7S36 BZE 5 NONTE [J IF SYSTEM SUPER SEG 7 7SGQ SMO 7 11 7T2B LDX 0 A1+IDSTATUS(2) 8 7TG2 ANDN 0 #3400 19 7T_L BZE 0 NONTE [J IF NOT INOP. FREE. OR CCAH 15 7WF= BZE 1 VREN [J IF DATA SEG 7 7WYW ADX 2 7 7 7XDG LDCH 6 1 8 7XY6 ERN 6 32 15 7YCQ BZE 6 NONTE [J IF CC AH 8 7YXB ERN 6 32$37 15 7_C2 BZE 6 ZNT37 [J IF ILLEGAL 8 7_WL ERN 6 37$48 15 82B= BZE 6 ZNT48 [J IF OPENED 8 82TW ERN 6 48$49 16 83*G BZE 6 ZNT49 [J IF CLOSE IDENT 8 83T6 ERN 6 49$54 17 84#Q BZE 6 ZNT54 [J IF CL IMPLEMENTED 8 84SB ERN 6 54$56 17 85#2 BZE 6 ZNT56 [J IF MODE CHANGED 8 85RL ERN 6 56$59 15 86?= BNZ 6 VREN [J UNLESS FREE 5 86QW ZNT59 8 87=G ANDN 0 #1000 16 87Q6 [ SEE IF INOP SET 8 889Q ZNT99 BZE 0 VREN 14 88PB [ J IF NOT 14 8992 ERS 0 A1+IDSTATUS(2) [UNSET IT 19 89NL ERN 0 #3000 [INTERCHANGE INOP AND FREE 11 8=8= ORS 0 A1+IDSTATUS(2) 8 8=MW BRN VRONT 5 8?7G ZNT49 16 8?M6 ANDN 0 #2000 [SEE IF FREE SET 8 8#6Q BRN ZNT99 5 8#?Y ...ZNT56 8 8#F6 ... LDCT 0 #77 11 8#L# ... ANDX 0 A1+IDSTATUS+1(2) 8 8#RG ... BZE 0 VRONT 7 8#YN ... LDCT 0 1 16 8*62 SBS 0 A1+IDSTATUS+1(2) [REDUCE CM CT 8 8*KL BRN VRONT 21 8B5= ZNT54 NGNC 0 7 [UNSET OPENING,CLOSING,CRASHCLOSING 11 8BJW ZNTRS ANDS 0 A1+IDSTATUS(2) 8 8C4G BRN VRONT 16 8CJ6 ZNT48 NGNC 0 1 [UNSET OPENING 8 8D3Q BRN ZNTRS 14 8DHB ZNT37 BCHX 3 / [ILLEGAL 16 8F32 LDCH 0 IPBIDE+1(3) [GET CODE WE SENT 9 8FGL ANDX 3 BITS22LS 8 8G2= ERN 0 23 17 8GFW BZE 0 ZNT54 [J IF CR CL ILLEGAL 8 8G_G ERN 0 16$23 17 8HF6 BZE 0 ZNT48 [J IF OPEN ILLEGAL 8 8HYQ ERN 0 16$24 19 8JDB BNZ 0 VRONT [J IF CM NOT ILLEGAL 8 8JJ? ... LDCT 0 #77 11 8JN8 ... ANDX 0 A1+IDSTATUS+1(2) 9 8JS5 ... BZE 0 VRONT 7 8JY2 LDCT 0 1 16 8KCL SBS 0 A1+IDSTATUS+1(2) [DECREASE CM CT 8 8KX= BRN VRONT 8 8LBW VREN LDCT 6 #400 11 8LWG VRONT MHUNTW 1,AMXOR,ICONIN 10 8MB6 LDX 4 ALOGLEN(1) 13 8MTQ FREECORE 1 [FREE 17 8N*B SBS 4 INLOAD(2) [UPDATE OVERLOAD CT 16 8NT2 BNG 6 NXTB2 [J IF DID NOTHING 11 8P#L VRJEN MHUNTW 2,AMXOR,CONDCB 7 8PS= ADX 2 7 9 8Q?W LDX 0 ZTEMK(1) 11 8QRG ANDX 0 A1+IDSTATUS(2) 7 8R?6 ERN 0 1 16 8RQQ BNZ 0 NXTBL [J IF NOT CLOSED 8 8S=B LDCT 0 #77 11 8SQ2 ANDX 0 A1+IDSTATUS+1(2) 8 8T9L BNZ 0 NXTBL 17 8TP= [ J IF STILL ON TEST 8 8W8W LDN 0 #400 11 8WNG ANDX 0 A1+IDSTATUS(2) 8 8X86 BNZ 0 ZTNVR 8 8XMQ LDN 0 #2000 11 8Y7B ANDX 0 A1+IDSTATUS(2) 17 8YM2 BZE 0 NXTBL [J IF FREE NOT SET 11 8_6L ERS 0 A1+IDSTATUS(2) 19 8_L= [ UNSET FREE IF SET (J IF NOT) 8 925W LDN 0 #200 11 92KG ANDX 0 A1+IDSTATUS(2) 18 9356 BZE 0 NXTBL [J IF CLOSE IDENT NOT SET 17 93JQ ERS 0 A1+IDSTATUS(2) [UNSET CLOSE IDENT 8 944B LDN 6 #173 15 94J2 CALL 5 SETY [SEND FREE 8 953L BRN NXTBL 8 95H= ZTNVR LDN 0 #400 11 962W ANDX 0 A1+IDSTATUS+1(2) 8 96GG ERN 0 #400 17 9726 SRC 0 10 [BIT 1 IF TO BE DETACHED 8 97FQ ZNUCA SMO FX1 19 97_B ORX 0 ZAH [MASK TO CLEAR OL AND PERHAPS AH 10 98F2 SMO A1+BPTR(2) 9 98YL ANDS 0 FOURTHWD 7 99D= ZNIA IPBNULL 2 15 99XW CALL 5 REINI [RE-INITIALISE 9 9=CG LDX 0 CONREL(2) 8 9=X6 ERX 0 CACT 8 9?BQ ANDX 0 CACT 16 9?WB BZE 0 RLCL [J IF RELEASING 11 9#B2 MHUNTW 2,AMXOR,CONDCB 7 9#TL ADX 2 7 8 9**= ADN 2 A1 16 9*SW STO 2 BPTR(2) [SET RING EMPTY 9 9B#G STO 2 FPTR(2) 7 9BS6 SUBRELT 2 8 9C?Q BRN NXTB2 11 9CRB RLCL MHUNTW 2,AMXOR,CONDCB 16 9D?2 LDEX 0 A1+IDSTATUS(2) [CLOSE-DOWN COUNT 7 9DQL SBN 0 1 11 9F== DEX 0 A1+IDSTATUS(2) 17 9FPW BNZ 0 NXTBL [J UNLESS FINISHED 4 9G9G ZES 7 9GP6 FSHSKIP 7 9H8Q SUICIDE 8 9HNB FSHCODE AORB 9 9J82 ACROSS IPBCCC,5 5 9JML NONTE 8 9K7= BZE 1 YSJ2 11 9KLW TRACE IPBIDE(3),CLINP 16 9L6G LDCH 6 1 [GET SUPER CODE 16 9LL6 LDN 0 VLEN [NO. VITAL CODES 8 9M5Q LDX 2 FX1 7 9MKB TEV SMO 0 10 9N52 TXU 6 VITAL-1(2) 15 9NJL BCC SEV [J IF VITAL 8 9P4= BCT 0 TEV 16 9PHW BRN YS36 [J IF NOT VITAL 8 9Q3G SEV LDCT 0 #200 16 9QH6 ORS 0 IBSW(3) [SET VITAL MARKER 4 9R2Q NVIT 8 9RGB BRN YS36 8 9S22 YSJ2 CALL 5 SETX 8 9SFL BRN NXTB2 8 9S_= NXTBL LDX 2 FX2 8 9TDW BRN NXTB2 9 9TYG XNONE LDX 6 ICA(2) 8 9WD6 BNG 6 SLEEP 8 9WXQ LDX 7 JTIME 9 9XCB SBX 7 ITIME(2) 8 9XX2 BPZ 7 XN1 9 9YBL ADX 7 ONEDAY(1) 10 9YW= XN1 SBX 7 TENSECS(1) 8 9_*W LDN 5 NXTB2 21 9_TG BPZ 7 SETX6 [TIME OUT ANY READ UP > 10 SECONDS 8 =2*6 SLEEP COOR3 #62 10 =2SQ NXTB2 LDX 7 IOUTLOAD(2) 11 =3#B MHUNTW 2,AMXOR,CONDCB 8 =3S2 LDCT 0 #160 11 =4?L ANDX 0 A1+IDSTATUS(2) 21 =4R= BNZ 0 XLD7 [J. IF RESET,INITIALISE OR C.DOWN SET 18 =5=W LDN 6 0 [CHECK OVERLOAD SITUATION 9 =5QG SEGENTRY K50IPBCCA 8 =6=6 SBN 7 256 8 =6PQ XLD1 BNG 7 XLD2 10 =79B LDX 0 A1+IDMDNPU(2) 8 =7P2 ANDN 0 #7777 7 =88L SLL 0 1 7 =8N= SBX 7 0 7 =97W ADN 6 1 7 =9MG ANDN 6 3 8 ==76 BNZ 6 XLD1 7 ==LQ LDN 6 3 4 ==_7 ...XLD2 10 =??J ... LDEX 7 A1+IDADIN(2) 7 =?L2 LDX 0 6 10 =#5L XLD3B DEX 0 A1+IDADIN(2) 9 =#K= XLD3 BXE 0 7,XLD6 9 =*4W BXL 0 7,XLD5 7 =*JG SMO 7 9 =B46 LDX 6 TABUP(1) 7 =BHQ ADN 7 1 8 =C3B XLD3A BPZ 6 XLD4 7 =CH2 LDX 4 6 8 =D2L SRL 4 12 8 =DG= ANDN 4 #77 8 =D_W SLL 6 12 8 =FFG CALL 5 SETZW 8 =F_6 BRN XLD3C 8 =GDQ XLD4 LDX 4 CACT 8 =GYB CALL 5 SETZV 11 =HD2 XLD3C MHUNTW 2,AMXOR,CONDCB 10 =HXL LDEX 0 A1+IDADIN(2) 8 =JC= BRN XLD3 7 =JWW XLD5 SBN 7 1 7 =KBG SMO 7 9 =KW6 LDX 6 TABDN(1) 8 =L*Q BRN XLD3A 8 =LTB XLD6 SMO FX2 9 =M*2 LDX 7 INLOAD 9 =MSL SEGENTRY K51IPBCCA 8 =N#= SBN 7 256 7 =NRW LDN 3 0 10 =P?G LDCH 5 A1+IDADIN(2) 8 =PR6 BNG 7 XLD6A 7 =Q=Q LDN 3 1 9 =QQB XLD6A BXE 3 5,XLD7 10 =R=2 DCH 3 A1+IDADIN(2) 7 =RPL LDN 4 1 7 =S9= LDN 7 0 8 =SNW LDN 6 34(3) 8 =T8G BRN XCCB 8 =TN6 XLD7 LDX 2 FX2 8 =W7Q BRN XK1 8 =WMB XIL3 LDN 0 #300 8 =X72 BRN XILL 8 =XLL XIL16 LDN 0 #2000 8 =Y6= BRN XILL 8 =YKW XIL28 LDN 0 #3400 8 =_5G BRN XILL 8 =_K6 XIL32 LDN 0 #4000 8 ?24Q XILL CALL 5 SETIL 5 ?2JB XBACK 10 ?342 XCCAA MHUNTW 3,AMXOR,IOUT 8 ?3HL CALL 5 VNOUT 8 ?43= BRN NXTB2 10 ?4GW MENDAREA 50,K100IPBCCA 4 ?52G #END 6 ____ ...265656160004