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