10 22FL SEG IPBCCD,,PHILIP TURNER 17 22_= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 16 23DW #LIS K0IPBCCD>K0IPB>K0ALLGEO>K0GREATGEO 21 23YG 8HIPBCCD [CONCEPTUAL IPB CENTRAL CONTROLLER 10 24D6 SEGENTRY K1IPBCCD,XK1 10 24XQ SEGENTRY K2IPBCCD,XK2 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 12 2J46 [***** SUBROUTINES ****** 15 2JHQ SLICO [SEND ILLEGAL AS X4 8 2K3B LDX 2 FX2 9 2KH2 LDX 0 AWORK2(2) 17 2L2L LDX 6 XMSK17(1) [ILLEGAL SEGMENT 18 2LG= DSA 0 6 [IDENTIFIER NUMBER 8 2L_W SLL 4 12 8 2MFG BRN SETZW 4 2M_6 ZLON 8 2NDQ LONGON #133 7 2NYB EXIT 5 0 5 2PD2 ZNINU 8 2PXL LDN 0 #400 11 2QC= ANDX 0 A1+IDSTATUS+1(2) 8 2QWW ERN 0 #400 8 2RBG SRC 0 10 18 2RW6 [ BIT 1 IF TO BE DETACHED 5 2S*Q ZNUCA 8 2STB SMO FX1 20 2T*2 ORX 0 ZAH [MASK TO CLEAR OL AND PERHAPS AH 10 2TSL SMO A1+BPTR(2) 18 2W#= ANDS 0 FOURTHWD [UNSET ATTACHED,ONLINE 7 2WRW ZNIA IPBNULL 2 7 2X?G EXIT 5 0 5 2XR6 REINI 8 2Y=Q SBX 5 FX1 7 2YQB SETIDENT 8 2_=2 ADX 5 FX1 7 2_PL EXIT 5 0 11 329= SHDCB MHUNTW 2,AMXOR,CONDCB 7 32NW EXIT 1 0 8 338G SETIL LDX 2 FX2 9 33N6 LDX 0 AWORK2(2) 9 347Q LDX 6 XMSK17(1) 7 34MB DSA 0 6 8 3572 SRL 0 12 7 35LL DCH 0 4 8 366= SLL 4 12 8 36KW BRN SETZW 8 375G SETYV LDX 4 CACT 8 37K6 BRN SETYW 8 384Q SETYZ LDN 6 #166 8 38JB SETY LDX 4 GSIGN 8 3942 SETYW SMO FX2 9 39HL LDX 0 AWORK2 8 3=3= SLL 6 12 7 3=GW DSA 0 6 8 3?2G BRN SETZX 11 3?G6 SETSR MHUNTW 2,AMXOR,CONDCB 8 3?_Q LDCT 0 #200 7 3#FB SMO 7 11 3#_2 ANDX 0 A1+IDSTATUS(2) 17 3*DL BZE 0 (5) [J. UNLESS SRI SET 7 3*Y= SMO 7 11 3BCW ERS 0 A1+IDSTATUS(2) 8 3BXG LDN 0 #1000 17 3CC6 SBS 0 A1+IDSTATUS(2) [DECREMENT SRI COUNT 9 3CWQ LDX 0 XMSK9(1) 11 3DBB ANDX 0 A1+IDSTATUS(2) 18 3DW2 BNZ 0 (5) [J. UNLESS SRI COUNT ZERO 8 3F*L LDCT 0 #200 18 3FT= ERS 0 A1+IDSTATUS(2) [UNSET STOP REMOTE INPUT 19 3G#W LDN 6 #142 [INPUT END OF REMOTE INPUT 8 3GSG SETZ LDX 4 GSIGN 8 3H#6 SETZV SLL 6 12 11 3HRQ SETZX MHUNTW 2,AMXOR,CONDCB 8 3J?B LDCT 0 #20 11 3JR2 ANDX 0 A1+IDSTATUS(2) 17 3K=L BNZ 0 (5) [J. IF CLOSE DOWN SET 8 3KQ= SETZW SBX 5 FX1 7 3L9W LDX 3 6 8 3LPG SRL 3 18 12 3M96 SETNCORE 2(3),3,AMXOR,ICONIN 10 3MNQ LDX 0 ALOGLEN(3) 20 3N8B ADS 0 INLOAD(2) [INCREMENT INPUT OVERLOAD COUNT 7 3NN2 ANDN 0 1 8 3P7L BNZ 0 SETZ1 10 3PM= STO 4 IPBIDE+1(3) 8 3Q6W LDX 4 CACT 7 3QLG SETZ1 ADX 5 1 9 3R66 STO 4 IBSW(3) 9 3RKQ STOZ IMOPTY(3) 9 3S5B STO 6 IPBIDE(3) 11 3SK2 TRACE IPBIDE(3),CLINCCA 11 3T4L MHUNTW 2,AMXOR,CONDCB 8 3TJ= SETX5 LDCT 6 #200 9 3W3W ANDX 6 IBSW(3) 10 3WHG LDX 2 A1+FPTR(2) 8 3X36 SBN 2 A1 9 3XGQ SETX1 LDX 2 BPTR(2) 9 3Y2B LDX 0 ATYPE(2) 11 3YG2 BXU 0 XICONIN(1),SETX2 8 3Y_L BZE 6 SETX2 9 3_F= LDX 0 IMOPTY(2) 8 3_YW BNG 0 SETX2 8 42DG LDCT 0 #200 9 42Y6 ANDX 0 IBSW(2) 15 43CQ BNZ 0 SETX2 [J IF VITAL 8 43XB NGN 0 #101 19 44C2 ANDS 0 IBSW(2) [UNSET ^SUSPEND 1WD END READ^ 8 44WL BRN SETX1 20 45B= SETX2 CHAIN 3,2 [CHAIN BLOCK INTO AOLPT ACTIVITY 9 45TW LDX 0 ICA(2) 18 46*G BNG 0 (5) [J. IF NO READ PERI UP 7 46T6 SBX 5 1 17 47#Q SETX6 DOWN CONIPB,3 [DEAL WITH READ PERI 7 47SB ADX 5 1 7 48#2 EXIT 5 0 11 48RL SETX3 MHUNTW 3,AMXOR,ICONIN 11 49?= MHUNTW 2,AMXOR,CONDCB 8 49QW SETX LDCT 0 #20 11 4==G ANDX 0 A1+IDSTATUS(2) 21 4=Q6 BZE 0 SETX5 [INPUT BLOCK UNLESS CLOSE DOWN SET 10 4?9Q LDX 6 ALOGLEN(3) 7 4?PB FREECORE 3 20 4#92 SBS 6 INLOAD(2) [DECREMENT INPUT OVERLOAD COUNT 7 4#NL EXIT 5 0 10 4*8= VNSCT MHUNTW 3,AMXOR,IOUT 17 4*MW VNOUT LDX 2 FX2 [RESET POSN IN BLOCK 9 4B7G LDX 0 AWORK4(2) 9 4BM6 STO 0 AWORK1(2) 8 4C6Q BNZ 0 (5) 10 4CLB LDX 0 ALOGLEN(3) 10 4D62 SBS 0 IOUTLOAD(2) 16 4DKL FREECORE 3 [FREE IF BLOCK EMPTY 7 4F5= EXIT 5 0 12 4FJW [***** END OF SUBROUTINES ****** 12 4G4G [***** K1 ENTRY POINT ****** 4 4GJ6 XK1 7 4H3Q XK3 SMO 5 8 4HHB BRN TABLE 8 4J32 TABLE BRN XILL 8 4JGL BRN XK5 8 4K2= BRN XK6 8 4KFW BRN XK7 6 4K_G NULL 8 4LF6 BRN XK9 8 4LYQ BRN XK10 8 4MDB BRN XK11 8 4MY2 BRN XK12 8 4NCL BRN XK13 8 4NX= BRN XK14 8 4PBW BRN XK15 8 4PWG BRN XK16 8 4QB6 BRN XK17 8 4QTQ CALL 5 SETZ 8 4R*B BRN XCCAA 8 4RT2 CALL 5 SETZ 8 4S#L BRN NXTBL 8 4SS= CALL 5 SETZ 8 4T?W BRN XC11 8 4TRG CALL 5 SETZ 8 4W?6 BRN XC12 8 4WQQ CALL 5 SETZ 8 4X=B CALL 5 SETSR 8 4XQ2 BRN XC11 8 4Y9L TA25 BRN RENIT 8 4YP= TA26 BRN TEST 11 4_8W XC11 MHUNTW 2,AMXOR,CONDCB 7 4_NG ADX 2 7 11 5286 LDX 0 A1+IDSTATUS(2) 8 52MQ SRC 0 10 18 537B BPZ 0 S54Z [J. UNLESS INOPERABLE SET 7 53M2 SLC 0 9 17 546L BPZ 0 S42Z [J. UNLESS CLOSED SET 7 54L= ANDN 0 3 21 555W BZE 0 XC2 [J. UNLESS CLOSING OR CR. CLOSING SET 11 55KG LDX 0 A1+IDSTATUS(2) 17 5656 BNG 0 S42Y [J. IF OPENING SET 18 56JQ CALL 5 SETYZ [INPUT CLOSE IMPLEMENTED 15 574B XC12 LDN 4 1 [SET CLOSED 15 57J2 XC8 LDN 5 #1000 [INOPERABLE 21 583L NGX 6 XMSK1(1) [UNSET OPENING,CLOSING,CRASH CLOSING 11 58H= XC7 MHUNTW 2,AMXOR,CONDCB 7 592W ADX 2 7 11 59GG ANDX 5 A1+IDSTATUS(2) 11 5=26 ORS 4 A1+IDSTATUS(2) 11 5=FQ ANDS 6 A1+IDSTATUS(2) 8 5=_B BZE 5 NXTBL 7 5?F2 XC2 LDCT 4 0 8 5?YL BRN XC10 4 5#D= XX17 4 5#XW XK2 12 5*CG [***** K2 ENTRY POINT ****** 9 5*X6 CALL 5 SETX3 11 5BBQ XK17 MHUNTW 2,AMXOR,CONDCB 7 5BWB ADX 2 7 7 5CB2 LDN 4 0 11 5CTL XC10 LDX 5 A1+IDSTATUS(2) 7 5D*= SRC 5 9 19 5DSW BPZ 5 XC3 [J. UNLESS CANCEL ATTACH SET 11 5F#G ORS 4 A1+IDSTATUS+1(2) 8 5FS6 XC6 LDCT 0 #77 11 5G?Q ANDX 0 A1+IDSTATUS+1(2) 20 5GRB BNZ 0 XC3 [J. UNLESS CHANGE MODE COUNT ZERO 7 5H?2 SLC 5 8 17 5HQL BPZ 5 XC1 [J. UNLESS C-OSED SET 8 5J== NGN 0 #401 17 5JPW ANDS 0 A1+IDSTATUS(2) [UNSET CANCEL ATTACH 7 5K9G XC1 SRC 5 8 4 5KP6 XC4 7 5L8Q XC3 SRC 5 1 21 5LNB BPZ 5 NXTBL [J. UNLESS DEALING WITH INOPERABILITY 8 5M82 LDN 6 44 8 5MML BRN XCCB 11 5N7= XK15 MHUNTW 2,AMXOR,CONDCB 7 5NLW ADX 2 7 8 5P6G NGN 5 #1001 11 5PL6 ANDX 5 A1+IDSTATUS(2) 7 5Q5Q SRC 5 9 8 5QKB BRN XC6 7 5R52 S42Z ANDN 0 3 21 5RJL BZE 0 S42X [J. UNLESS CLOSING OR CR. CLOSING SET 18 5S4= CALL 5 SETYZ [INPUT CLOSE IMPLEMENTED 11 5SHW MHUNTW 2,AMXOR,CONDCB 7 5T3G ADX 2 7 11 5TH6 S42X LDX 0 A1+IDSTATUS(2) 18 5W2Q BPZ 0 S32Y [J. UNLESS OPENING SET 8 5WGB S42Y LDN 4 #3400 16 5X22 CALL 5 SETIL [INPUT ILLEGAL 28 19 5XFL LDN 4 #201 [CLOSE IDENTIFIER AND CLOSED 8 5X_= BRN XC8 8 5YDW S54Z SLC 0 10 7 5YYG ANDN 0 6 21 5_D6 BZE 0 XC2 [J. UNLESS CLOSING OR CR. CLOSING SET 7 5_XQ LDN 4 0 7 62CB SBX 2 7 8 62X2 LDCT 0 #60 11 63BL ANDX 0 A1+IDSTATUS(2) 21 63W= BNZ 0 S54Y [J. IF INITIALISE OR CLOSE DOWN SET 8 64*W XK16 CALL 5 SETX3 14 64TG S54Y LDN 5 1 [CLOSED 19 65*6 NGN 6 7 [UNSET CLOSING,CRASH CLOSING 8 65SQ BRN XC7 8 66#B XK6 CALL 5 SETX3 8 66S2 XK5 CALL 5 SETSR 8 67?L BRN NXTBL 8 67R= XK7 CALL 5 SETX3 8 68=W BRN NXTB2 18 68QG XK9 CALL 5 SETYZ [INPUT CLOSE IMPLEMENTED 11 69=6 MHUNTW 2,AMXOR,CONDCB 7 69PQ ADX 2 7 8 6=9B LDN 0 #2000 11 6=P2 ANDX 0 A1+IDSTATUS(2) 17 6?8L BZE 0 XCCAA [J. UNLESS FREE SET 8 6?N= CALL 5 VNSCT 19 6#7W BRN VRJEN [GO TO SEND FREE IF REQUIRED 8 6#MG XK13 CALL 5 SETX3 11 6*76 XK10 MHUNTW 2,AMXOR,CONDCB 7 6*LQ ADX 2 7 8 6B6B S32Y LDN 0 #4000 11 6BL2 ANDX 0 A1+IDSTATUS(2) 18 6C5L BNZ 0 S32Z [J. IF UNAVAILABLE SET 18 6CK= LDN 6 #172 [INPUT DEVICE UNAVAILABLE 8 6D4W CALL 5 SETYV 11 6DJG MHUNTW 2,AMXOR,CONDCB 7 6F46 ADX 2 7 8 6FHQ S32Z LDN 0 #200 11 6G3B ANDX 0 A1+IDSTATUS(2) 19 6GH2 BNZ 0 S32Z1 [J. IF CLOSE IDENTIFIER SET 18 6H2L LDN 6 #161 [INPUT CLOSE IDENTIFIER 8 6HG= CALL 5 SETY 20 6H_W S32Z1 LDN 4 #4200 [UNAVAILABLE AND CLOSE IDENTIFIER 8 6JFG BRN XC8 8 6J_6 XK11 CALL 5 SETY 8 6KDQ NXTBL LDX 2 FX2 8 6KYB BRN NXTB2 8 6LD2 XK12 CALL 5 SETY 8 6LXL LDX 2 FX2 7 6MC= BCHX 2 / 9 6MWW LDCH 6 CONREL(2) 15 6NBG BZE 6 NXTBL [J IF CC AH 8 6NW6 BRN XCCB 8 6P*Q XK14 CALL 5 SETX3 8 6PTB BRN XCCAA 17 6Q*2 TEST [TELL PROGRAM ITS ONTE 11 6QSL MHUNTW 2,AMXOR,CONDCB 7 6R#= ADX 2 7 8 6RRW LDN 0 #3000 11 6S?G ANDX 0 A1+IDSTATUS(2) 21 6SR6 BNZ 0 ZENCM [J IF INOP OR FREE AS PROGRAM KNOWS I 11 6T=Q LDX 0 A1+IDSTATUS(2) 20 6TQB BPZ 0 NOPENI [J IF NOT OPENING 7 6W=2 LDX 4 0 7 6WPL ANDN 0 6 21 6X9= BZE 0 ONLO [J IF NOT CLOSING NOR CRASH CLOSING 7 6XNW ANDN 4 1 17 6Y8G BNZ 4 ZOPCL [J IF OPEN THEN CLOSE 18 6YN6 CALL 5 SETYZ [SEND CLOSE IMPLEMENTED 17 6_7Q ONLO LDN 4 #3420 [ILLEGAL 28 TO OPEN 8 6_MB CALL 5 SLICO 8 7272 BRN TECMT 17 72LL ZOPCL LDN 4 #3420 [ILLEGAL 28 TO OPEN 8 736= CALL 5 SLICO 11 73KW MHUNTW 2,AMXOR,CONDCB 7 745G ADX 2 7 11 74K6 LDX 0 A1+IDSTATUS(2) 7 754Q ANDN 0 2 8 75JB LDN 4 #0126 18 7642 BZE 0 ZCLNCR [J IF NOT CRASH CLOSING 8 76HL LDN 4 #0127 5 773= ZCLNCR 8 77GW CALL 5 SLICO 8 782G BRN TECMT 5 78G6 NOPENI 7 78_Q ANDN 0 7 15 79FB BZE 0 YSOP [J IF OPEN 7 79_2 ERN 0 1 15 7=DL BZE 0 ZCMT [J IF CLOSED 18 7=Y= CALL 5 SETYZ [SEND CLOSE IMPLEMENTED 8 7?CW BRN ZCMT 4 7?XG YSOP 8 7#C6 LDN 0 #4000 11 7#WQ ANDX 0 A1+IDSTATUS(2) 18 7*BB BNZ 0 S32Z2 [J. IF UNAVAILABLE SET 18 7*W2 LDN 6 #172 [INPUT DEVICE UNAVAILABLE 8 7B*L CALL 5 SETYV 11 7BT= MHUNTW 2,AMXOR,CONDCB 7 7C#W ADX 2 7 8 7CSG S32Z2 LDN 0 #200 11 7D#6 ANDX 0 A1+IDSTATUS(2) 19 7DRQ BNZ 0 S32Z3 [J. IF CLOSE IDENTIFIER SET 8 7F?B LDN 0 #200 11 7FR2 ORS 0 A1+IDSTATUS(2) 15 7G=L [ ELSE SET IT 18 7GQ= LDN 6 #161 [INPUT CLOSE IDENTIFIER 8 7H9W CALL 5 SETY 5 7HPG S32Z3 21 7J96 BRN ZENCM [CAN IGNORE CM WHEN WAITING FOR CLOSE 17 7JNQ TECMT LDXC 0 GSIGN [SET CLOSE IDENTIFIER 7 7K8B ZCMT LDN 4 0 7 7KN2 SLL 4 7 11 7L7L MHUNTW 2,AMXOR,CONDCB 7 7LM= ADX 2 7 19 7M6W ORS 4 A1+IDSTATUS(2) [SET CLOSE IDENT IF NEEDED 11 7MLG LDX 0 A1+IDSTATUS+1(2) 7 7N66 SLC 0 9 8 7NKQ ANDN 0 #77 17 7P5B BZE 0 ZENCM [J IF CM CT ZERO 8 7PK2 LDN 4 #200 17 7Q4L ORS 4 A1+IDSTATUS(2) [SET CLOSE IDENT 8 7QJ= LDX 2 FX2 15 7R3W ORX 2 CACT [CHAR. 3 7 7RHG TCMLP SBN 0 1 9 7S36 DCH 0 CONREL(2) 20 7SGQ LDN 4 #3430 [ILLEGAL ON TEST TO CHANGE MODE 8 7T2B CALL 5 SLICO 8 7TG2 LDX 2 FX2 8 7T_L ORX 2 CACT 9 7WF= LDCH 0 CONREL(2) 19 7WYW BNZ 0 TCMLP [J UNLESS ALL CM.S ANSWERED 5 7XDG ZENCM 8 7XY6 LDX 2 FX2 7 7YCQ BCHX 2 / 20 7YXB LDCH 6 CONREL(2) [IPBCCB TABLE ENTRY FOR RETURN 17 7_C2 BNZ 6 XCCB [RETURN UNLESS CC AH 17 7_WL ZCAH [CANCELLING ATTACH 8 82B= CALL 1 SHDCB 17 82TW ALTLENGR 2,3,SHDCB [ADD 1 RING ELEMENT 8 83*G CALL 1 SHDCB 18 83T6 ADDRELT 2,NULL [SET RING ELEMENT FORMAT 8 84#Q CALL 1 SHDCB 7 84SB LDX 3 2 17 85#2 ADX 2 7 [ADDR. OF OLD ELEMENT 10 85RL LDX 7 ALOGLEN(3) 9 86?= SBN 7 CONDCBLEN 16 86QW ADX 3 7 [NEW RING ELEMENT 8 87=G ADN 3 A1 8 87Q6 ADN 2 A1 9 889Q MOVE 2 CONDCBLEN 7 88PB NGX 0 7 8 8992 SBN 0 A1 15 89NL STO 0 BSTART(3) [SET BSTART 19 8=8= LDX 0 IDSTATUS(2) [IF 7900 INOP WE MUST NOT 19 8=MW ANDN 0 #1000 [SET CCAH IN ORIG. ELEMENT 18 8?7G BZE 0 ZZOP [J IF 7900 OPERABLE 18 8?M6 LDN 4 1 [SET X4 =1, 7900 INOP 9 8#6Q BRN ZZOP1 19 8#LB ZZOP LDN 4 0 [SET X4=0 , 7900 OPERABLE 9 8*62 ZZOP1 NGN 0 #3001 17 8*KL ANDS 0 IDSTATUS(2) [UNSET INOP AND FREE 8 8B5= CALL 5 ZDHNU 15 8BJW LDX 2 BPTR(3) [ADEVS ENTRY 9 8C4G STOZ BPTR(3) 21 8CJ6 RINGTWO 0(2),0(3) [ENRING ADEVS TO NEW CONDCB ENT 8 8D3Q LDN 0 #400 17 8DHB ORS 0 IDSTATUS(3) [SET CANCEL-ATTACH 16 8F32 ORS 0 IDSTATUS+1(3) [SET TO BE DETACHED 8 8FGL CALL 5 ZLON 8 8G2= LDN 6 61 8 8GFW BRN XCCB 17 8G_G ZDHNU LDXC 0 IDSTATUS(2) [NOT CCAH IF OPENING 8 8HF6 BCS ZSCJ1 19 8HYQ [ J TO SET CLOSED IF OPENING 19 8JDB BNZ 4 ZZOP2 [DONT SET CCAH IF 7900 INOP 7 8JY2 ANDN 0 1 7 8KCL ERN 0 1 7 8KX= SLL 0 8 18 8LBW ZZLZ1 ORS 0 IDSTATUS(2) [SET CCAH IF CLOSED NOT SET 8 8LWG ZZOP2 SBN 2 A1 8 8MB6 BRN ZNIA 7 8MTQ ZSCJ1 LDN 0 1 8 8N*B BRN ZZLZ1 5 8NT2 RENIT 11 8P#L MHUNTW 2,AMXOR,CONDCB 7 8PS= ADX 2 7 11 8Q?W LDXC 0 A1+IDSTATUS(2) 8 8QRG BCS ZSCJ2 21 8R?6 [ SET CLOSED INSTEAD OF CCAH IF OPENIN 7 8RQQ ANDN 0 1 7 8S=B ERN 0 1 7 8SQ2 SLL 0 8 18 8T9L ZZLZ2 ORS 0 A1+IDSTATUS(2) [SET CCAH IF NOT CLOSED 8 8TP= CALL 5 ZNUCA 16 8W8W CALL 5 REINI [RE-INITIALISE 17 8WNG CALL 5 ZLON [WAKE ANY CCAH ACTS 8 8X86 BRN NXTB2 7 8XMQ ZSCJ2 LDN 0 1 8 8Y7B BRN ZZLZ2 11 8YM2 VRJEN MHUNTW 2,AMXOR,CONDCB 7 8_6L ADX 2 7 9 8_L= LDX 0 ZTEMK(1) 11 925W ANDX 0 A1+IDSTATUS(2) 7 92KG ERN 0 1 16 9356 BNZ 0 NXTBL [J IF NOT CLOSED 8 93JQ LDCT 0 #77 11 944B ANDX 0 A1+IDSTATUS+1(2) 8 94J2 BNZ 0 NXTBL 17 953L [ J IF STILL ON TEST 8 95H= LDN 0 #400 11 962W ANDX 0 A1+IDSTATUS(2) 8 96GG BNZ 0 ZTNVR 8 9726 LDN 0 #2000 11 97FQ ANDX 0 A1+IDSTATUS(2) 17 97_B BZE 0 NXTBL [J IF FREE NOT SET 11 98F2 ERS 0 A1+IDSTATUS(2) 19 98YL [ UNSET FREE IF SET (J IF NOT) 8 99D= LDN 0 #200 11 99XW ANDX 0 A1+IDSTATUS(2) 18 9=CG BZE 0 NXTBL [J IF CLOSE IDENT NOT SET 17 9=X6 ERS 0 A1+IDSTATUS(2) [UNSET CLOSE IDENT 8 9?BQ LDN 6 #173 15 9?WB CALL 5 SETY [SEND FREE 8 9#B2 BRN NXTBL 15 9#TL ZTNVR CALL 5 ZNINU [NULL RINGS 15 9**= CALL 5 REINI [RE-INITIALISE 9 9*SW LDX 0 CONREL(2) 8 9B#G ERX 0 CACT 8 9BS6 ANDX 0 CACT 16 9C?Q BZE 0 RLCL [J IF RELEASING 11 9CRB MHUNTW 2,AMXOR,CONDCB 7 9D?2 ADX 2 7 8 9DQL ADN 2 A1 16 9F== STO 2 BPTR(2) [SET RING EMPTY 9 9FPW STO 2 FPTR(2) 7 9G9G SUBRELT 2 8 9GP6 BRN NXTB2 11 9H8Q RLCL MHUNTW 2,AMXOR,CONDCB 16 9HNB LDEX 0 A1+IDSTATUS(2) [CLOSE-DOWN COUNT 7 9J82 SBN 0 1 11 9JML DEX 0 A1+IDSTATUS(2) 17 9K7= BNZ 0 NXTBL [J UNLESS FINISHED 4 9KLW ZES 7 9L6G FSHSKIP 7 9LL6 SUICIDE 8 9M5Q FSHCODE AORB 9 9MKB ACROSS IPBCCC,5 9 9N52 ...NXTB2 ACROSS IPBCCA,4 8 =HXL XILL CALL 5 SETIL 5 =JC= XBACK 10 =JWW XCCAA MHUNTW 3,AMXOR,IOUT 8 =KBG CALL 5 VNOUT 8 =KW6 BRN NXTB2 4 =L*Q XCCB 7 =LBN ... LDX 0 6 8 =LCL ... SBN 0 36 8 =LDJ ... BNG 0 X1 9 =LFG ...X0 ACROSS IPBCCB,1 7 =LGD ...X1 ADN 0 2 8 =LHB ... BNG 0 X3 9 =LJ# ...X2 ACROSS IPBCCC,3 7 =LK= ...X3 ADN 0 2 8 =LL8 ... BPZ 0 X0 7 =LM6 ... ADN 0 6 8 =LN4 ... BPZ 0 XIL17 7 =LP2 ... ADN 0 4 8 =LPY ... BPZ 0 X2 7 =LQW ... ADN 0 1 8 =LRS ... BZE 0 XIL17 7 =LSQ ... ADN 0 6 8 =LTN ... BPZ 0 X2 7 =LWL ... ADN 0 2 8 =LXJ ... BPZ 0 XIL17 7 =LYG ... ADN 0 3 8 =L_D ... BPZ 0 X2 7 =M2B ... ADN 0 1 8 =M3# ... BZE 0 X0 7 =M4= ... ADN 0 5 8 =M58 ... BPZ 0 XIL17 7 =M66 ... ADN 0 2 8 =M74 ... BPZ 0 X2 8 =M82 ... BRN X0 5 =M8Y ...XIL17 8 =M9W ... LDN 4 #2100 7 =M=S ... LDN 5 0 8 =M?Q ... BRN XK1 4 =M*2 #END 6 ____ ...520063140004