{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: IPBCCA867)}}
====== IPBCCA867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLENG|ALTLENG]], [[george:macro:BXE|BXE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CHAIN|CHAIN]], [[george:macro:COOR3|COOR3]], [[george:macro:DOWN|DOWN]], [[george:macro:FPUT|FPUT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHSKIP|FSHSKIP]], [[george:macro:HUNT2|HUNT2]], [[george:macro:IPBNULL|IPBNULL]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:REMOVE|REMOVE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETIDENT|SETIDENT]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SLEEP|SLEEP]], [[george:macro:SUBRELT|SUBRELT]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TRACE|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