10 22FL SEG IPBCCC,,PHILIP TURNER 17 22_= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 16 23DW #LIS K0IPBCCC>K0IPB>K0ALLGEO>K0GREATGEO 10 23YG 8HIPBCCC70 10 24D6 SEGENTRY K1IPBCCC,XK1 10 24XQ SEGENTRY K2IPBCCC,S37 10 25CB SEGENTRY K3IPBCCC,XK3 12 25X2 FSHENTRY K4IPBCCC,XK4,XK4,XK4 12 26BL FSHENTRY K5IPBCCC,XK5,XK5,XK5 4 26W= [ 9 27*W ZTEMK #40000007 9 27TG XMSK1 #77000 9 28*6 XMSK7 #77000777 9 28SQ XMSK9 #777000 9 29#B XMSK33 #40000020 9 29S2 XMSK37 #44000002 9 2=?L XMSK46 #4000001 9 2=R= XMSK47 #70000001 9 2?=W XMSK48 #7770000 9 2?QG XMSK49 #30004312 9 2#=6 XMSK50 #40000040 9 2#PQ ZIN #2400000 9 2*9B ZOUT #4300000 8 2*P2 XIL1 LDN 4 #100 8 2B8L BRN XILL 8 2BN= XIL2 LDN 4 #200 8 2C7W BRN XILL 8 2CMG XIL7 LDN 4 #700 8 2D76 BRN XILL 8 2DLQ XIL17 LDN 4 #2100 8 2F6B BRN XILL 8 2FL2 XIL18 LDN 4 #2200 8 2G5L BRN XILL 8 2GK= XIL19 LDN 4 #2300 8 2H4W BRN XILL 8 2HJG XIL28 LDN 4 #3400 8 2J46 LDN 0 #200 17 2JHQ ORS 0 A1+IDSTATUS(2) [SET C-OSE IDENTIFIER 16 2K3B XILL LDN 5 0 [INPUT ILLEGAL 8 2KH2 BRN XCCA 11 2L2L [***** SUBROUTINES ***** 7 2LG= OUTM LDCT 0 1 19 2L_W ADS 0 A1+IDSTATUS+1(2) [INCREMENT CHANGE MODE COUNT 8 2MFG LDCT 4 #200 7 2M_6 LDN 3 4 8 2NDQ BRN OUTV 8 2NYB OUTY NGN 0 #101 17 2PD2 ANDS 0 A1+IDSTATUS(2) [UNSET ONE SHOT INPUT 8 2PXL BNZ 4 OUTW 10 2QC= OUTX LDCH 0 A1+IDADIN(3) 20 2QWW BNZ 0 (5) [J. IF INPUT OVERLOAD SITUATION 7 2RBG OUTW LDN 3 3 8 2RW6 OUTV SBX 5 FX1 16 2S*Q DOWN IPBCCC,1 [PASS BLOCK ON 11 2STB MHUNTW 2,AMXOR,CONDCB 15 2T*2 LDX 3 2 [CONDCB ADDR 19 2TSL ADX 2 7 [ADDR OF ENTRY FOR THIS IDENT 7 2W#= LDX 6 2 7 2WRW ADX 5 1 7 2X?G EXIT 5 0 9 2XR6 OCHZ ADN 7 CONDCBLEN 18 2Y=Q BXGE 7 ALOGLEN(3),(5) [J. IF END OF CONDCB SCAN 7 2YQB LDX 2 3 7 2_=2 ADX 2 7 10 2_PL LDX 0 A1+BPTR(2) 18 329= BZE 0 OCHZ [J. IF NULL IDENTIFIER 7 32NW SMO 0 10 338G LDEX 0 A1+FOURTHWD 9 33N6 LDX 6 ZOUT(1) 8 347Q BPZ 4 OCHZ1 9 34MB LDX 6 ZIN(1) 7 3572 OCHZ1 SMO 0 7 35LL SLL 6 0 16 366= BNG 6 OCHZ [J. IF WRONG TYPE 8 36KW LDN 0 #3000 11 375G ANDX 0 A1+IDSTATUS(2) 19 37K6 BNZ 0 OCHZ [J. IF FREE OR INOPERABLE SET 11 384Q LDX 0 A1+IDSTATUS(2) 7 38JB SRC 0 1 7 3942 EXIT 5 1 11 39HL SRI LDEX 0 A1+IDSTATUS+1(2) 8 3=3= ANDN 0 #17 9 3=GW LDX 6 ZOUT(1) 7 3?2G SMO 0 7 3?G6 SLL 6 0 18 3?_Q BNG 6 XIL2 [ILLEGAL 2 IF WRONG TYPE 11 3#FB SRIX LDX 0 A1+IDSTATUS(2) 7 3#_2 SRC 0 1 18 3*DL BNG 0 XIL2 [ILLEGAL 2 IF CLOSED SET 8 3*Y= LDCT 6 #200 11 3BCW ANDX 6 A1+IDSTATUS(3) 21 3BXG BNZ 6 XIL19 [ILLEGAL 19 IF STOP REMOTE INPUT SET 7 3CC6 SRC 0 4 7 3CWQ EXIT 5 0 7 3DBB SETR LDN 0 0 19 3DW2 LDN 6 #143 [INPUT END OF REMOTE OUTPUT 8 3F*L BRN SETW 21 3FT= VRCLO SMO A1+FPTR(2) [SET CLOSED AND IF NOT CLOSED SET CLOS 9 3G#W LDX 0 FOURTHWD 8 3GSG SRL 0 12 7 3H#6 ANDN 0 4 7 3HRQ ERN 0 5 11 3J?B ORS 0 A1+IDSTATUS(2) 7 3JR2 EXIT 5 0 12 3K=L WARN HUNT2J 1,AMXOR,IOUT,6,(5) 17 3KQ= SVAN LDX 6 1 [BY-PASS FIRST BLOCK 15 3L9W SVARN LDX 2 4 [CONDCB ENTRY 12 3LPG HUNT2J 1,AMXOR,IOUT,6,(5) 9 3M96 LDX 0 IPBIDE(1) 15 3MNQ ANDN 0 #7777 [IDENT NO. 10 3N8B TXU 0 A1+IDNUM(2) 17 3NN2 BCS SVAN [J IF NOT SAME IDENT. 9 3P7L LDX 6 BPTR(1) 7 3PM= BCHX 1 / 16 3Q6W LDCH 0 IPBIDE(1) [SUPERVISORY CODE 9 3QLG ANDX 1 BITS22LS 7 3R66 EXIT 5 1 11 3RKQ [***** END OF SUBROUTINES ***** 5 3S5B TABLE 6 3SK2 NULL 6 3T4L NULL 17 3TJ= BRN S2 [STOP REMOTE INPUT 17 3W3W BRN S3 [ END IPB OUTPUT 6 3WHG NULL 6 3X36 NULL 6 3XGQ NULL 6 3Y2B NULL 6 3YG2 NULL 6 3Y_L NULL 14 3_F= BRN S10 [REOPEN 14 3_YW BRN S11 [RESET 16 42DG BRN S12 [CONFIG REQUEST 6 42Y6 NULL 6 43CQ NULL 13 43XB BRN XBACK [NULL 13 44C2 BRN S16 [OPEN 15 44WL BRN S17 [START INPUT 16 45B= BRN S18 [ONE SHOT INPUT 15 45TW BRN S19 [STOP INPUT 17 46*G BRN S20 [STOP INPUT AND CLEAR 6 46T6 NULL 14 47#Q BRN S22 [CLOSE 15 47SB BRN S23 [CRASH CLOSE 15 48#2 BRN S24 [CHANGE MODE 15 48RL BRN S25 [SET PRIORITY 6 49?= NULL 6 49QW NULL 6 4==G NULL 6 4=Q6 NULL 6 4?9Q NULL 6 4?PB NULL 6 4#92 NULL 6 4#NL NULL 8 4*8= BRN S10D 8 4*MW BRN S11B 11 4B7G [***** K1 ENTRY POINT ****** 4 4BM6 XK1 11 4C6Q SETUPCORE 3,3,AMXOR,IOUT 10 4CLB LDX 0 ALOGLEN(3) 10 4D62 ADS 0 IOUTLOAD(2) 7 4DKL SBN 0 4 16 4F5= BNG 0 OUT3 [J. IF COUNT=3 10 4FJW STO 6 IPBIDE+1(3) 16 4G4G BCT 0 OUT4 [J. IF COUNT=4 18 4GJ6 LDCT 6 #762 [OUTPUT NULL DATA SEGMENT 9 4H3Q STO 6 IDATA(3) 7 4HHB LDN 6 0 8 4J32 BRN OUT5 17 4JGL OUT4 LDN 6 #230 [OUTPUT CHANGE MODE 8 4K2= OUT3 LDX 0 GSIGN 8 4KFW SLL 6 12 9 4K_G OUT5 STO 0 IBSW(3) 11 4LF6 MHUNTW 2,AMXOR,CONDCB 7 4LYQ ADX 2 7 10 4MDB ADX 6 A1+IDNUM(2) 9 4MY2 STO 6 IPBIDE(3) 12 4NCL TRACE IPBIDE(3),CLOUTCCB 7 4NX= LDX 6 2 7 4PBW LDX 1 3 10 4PWG LDX 2 A1+IDADIN(2) 7 4QB6 LDN 0 1 9 4QTQ STO 0 IMOPTY(3) 7 4R*B BCHX 3 / 9 4RT2 LDCH 0 IPBIDE(3) 8 4S#L LDN 3 #40 7 4SS= SMO 6 10 4T?W ANDX 3 A1+IDSTATUS 16 4TRG BNZ 3 WVSET [J IF WARNING SET 21 4W?6 ORN 0 1 [TEST FOR CLOSE AS WELL AS CRASH CLOS 8 4WQQ WVSET ERN 0 23 16 4X=B BZE 0 OUNSV [J IF CRASH CLOSE 9 4XQ2 LDX 0 IPBIDE(1) 8 4Y9L SRL 0 12 8 4YP= ANDN 0 #77 8 4_8W SBN 0 19 8 4_NG BZE 0 OUNSV 7 5286 SBN 0 1 8 52MQ BZE 0 OUNSV 8 537B LDN 0 #46 7 53M2 SMO 6 10 546L ANDX 0 A1+IDSTATUS 19 54L= BZE 0 OUNSV [J IF NOT WARNING NOR CLOSING 8 555W SMO FX2 9 55KG LDX 3 ACTRING 9 5656 SBN 3 ACTRING 9 56JQ CHAIN 1,BPTR(3) 17 574B [ CHAIN BEYOND CONDCB 8 57J2 BRN OUT1 5 583L OUNSV 10 58H= LDX 3 IPBRING(2) 9 592W SBN 3 IPBRING 10 59GG LDX 2 ACTRING(3) 9 5=26 SBN 2 ACTRING 19 5=FQ CHAIN 1,BPTR(2) [CHAIN INTO IPBOUT ACTIVITY 8 5=_B LDCT 0 #100 9 5?F2 ANDX 0 IPBSW(3) 8 5?YL BZE 0 OUT1 9 5#D= ERS 0 IPBSW(3) 7 5#XW LDX 2 3 6 5*CG FPUT 5 5*X6 OUT1 UP 11 5BBQ XFREE MHUNTW 1,AMXOR,ICONIN 10 5BWB LDX 6 ALOGLEN(1) 7 5CB2 FREECORE 1 20 5CTL SBS 6 INLOAD(2) [DECREMENT INPUT OVERLOAD COUNT 7 5D*= EXIT 5 0 11 5DSW [***** K2 ENTRY POINT ****** 4 5F#G S37 11 5FS6 MHUNTW 2,AMXOR,CONDCB 7 5G?Q LDX 3 2 18 5GRB ADX 2 7 [POINT TO CONDCB ENTRY 8 5H?2 SRL 4 12 7 5HQL LDCH 0 4 7 5J== SRL 4 6 8 5JPW SBN 0 24 8 5K9G BNZ 0 S37D 7 5KP6 LDCT 0 1 11 5L8Q SBS 0 A1+IDSTATUS+1(2) 7 5LNB LDX 0 4 7 5M82 SBN 0 6 19 5MML BNZ 0 S37D [J UNLESS UNAVAILABLE MODE 10 5N7= SMO A1+BPTR(2) 9 5NLW LDX 0 FOURTHWD 8 5P6G ANDN 0 #17 8 5PL6 BZE 0 S37M 14 5Q5Q [ J IF MOP 8 5QKB SBN 0 10 15 5R52 BNZ 0 S37D [J IF NOT VDU 8 5RJL S37M NGN 0 #301 20 5S4= ANDS 0 A1+IDSTATUS+1(2) [UNSET M4 AND M4STATUS DETERMINED 8 5SHW S37D SBN 4 28 17 5T3G BNZ 4 S37A [J. UNLESS CODE 28 7 5TH6 NGNC 0 1 11 5W2Q ANDS 0 A1+IDSTATUS(2) 6 5WGB NULL 6 5X22 NULL 6 5XFL NULL 8 5X_= LDCT 0 #20 11 5YDW ANDX 0 A1+IDSTATUS(3) 17 5YYG BNZ 0 S54D [J. IC CLOSE DOWN SET 18 5_D6 LDN 4 #201 [CLOSE IDENTIFIER,CLOSED 8 5_XQ LDN 5 12 8 62CB BRN XCCA 8 62X2 S37A ADN 4 22 8 63BL BNZ 4 S37F 9 63W= ACROSS IPBCCD,2 8 64*W S37F BCT 4 NFREE 8 64TG LDN 0 #400 11 65*6 ANDX 0 A1+IDSTATUS(2) 19 65SQ BZE 0 XSET [J. UNLESS CANCEL ATTACH SET 8 66#B LDCT 0 #200 11 66S2 ANDX 0 A1+IDSTATUS+1(2) 8 67?L BRN S56Y 7 67R= XSET LDN 5 3 8 68=W BRN XCCA 19 68QG S56Y BZE 0 NFREE [J. UNLESS CHANGE MODE SET 8 69=6 S56X LDN 5 13 8 69PQ BRN XCCA 8 6=9B NFREE CALL 5 XFREE 8 6=P2 NXTBL LDN 5 17 4 6?8L XCCA 9 6?N= ACROSS IPBCCD,1 11 6#7W S54D LDX 0 A1+IDSTATUS(2) 7 6#MG SRC 0 1 16 6*76 BNG 0 S54A [J. IF CLOSED SET 7 6*LQ ANDN 0 3 20 6B6B BNZ 0 S54B [J. IF CLOSING OR CRASH CLOSING 7 6BL2 LDN 0 1 15 6C5L ORS 0 A1+IDSTATUS(2) [SET CLOSED 8 6CK= S54A CALL 5 XFREE 8 6D4W LDN 5 19 7 6DJG S54X LDN 0 1 19 6F46 SBS 0 A1+IDSTATUS(3) [DECREMENT CLOSE DOWN COUNT 8 6FHQ ZS54X LDCT 0 #40 11 6G3B ANDX 0 A1+IDSTATUS(3) 18 6GH2 BZE 0 XCCA [J. UNLESS INITIALISE SET 8 6H2L BRN SETV 8 6HG= S54B CALL 5 XFREE 8 6H_W LDN 5 24 8 6JFG BRN XCCA 8 6J_6 SETV LDCT 6 #200 10 6KDQ SMO A1+BPTR(3) 9 6KYB ANDX 6 IPSTATUS 19 6LD2 BNZ 6 XCCA [J. IF INTERNAL CLOSE DOWN 8 6LXL LDN 6 #140 8 6MC= LDCT 0 #20 8 6MWW SETW LDN 1 #777 11 6NBG SETS ANDX 1 A1+IDSTATUS(3) 20 6NW6 BNZ 1 XCCA [J. UNLESS RELEVANT COUNT ZERO 7 6P*Q SBN 5 1 11 6PTB SETP ERS 0 A1+IDSTATUS(3) 8 6Q*2 BRN XCCA 4 6QSL [ 11 6R#= [***** K3 ENTRY POINT ****** 4 6RRW XK3 11 6S?G MHUNTW 2,AMXOR,CONDCB 7 6SR6 LDX 3 2 7 6T=Q ADX 2 7 7 6TQB SMO 6 18 6W=2 BRN TABLE [J. ON SUPERVISORY CODE 8 6WPL S2 LDCT 4 #200 18 6X9= ORS 4 A1+IDSTATUS(3) [SET STOP REMOTE INPUT 9 6XNW LDX 0 XMSK7(1) 20 6Y8G ANDS 0 A1+IDSTATUS(3) [ZEROISE STOP REMOTE INPUT &OUNT 8 6YN6 S2B CALL 5 OCHZ 8 6_7Q BRN S2A 17 6_MB BPZ 0 S2F [J. UNLESS &LOSED SET 7 7272 ANDN 0 3 21 72LL BZE 0 S2B [J. UNLESS CLOSING OR CR. CLOSING SET 8 736= BRN S2D 7 73KW S2F SRC 0 8 18 745G BNG 0 S2D [J. IF CANCEL ATTACH SET 7 74K6 SLC 0 5 18 754Q BNG 0 S2G [J. IF NOT CLEARED SET 7 75JB SRC 0 1 17 7642 BNG 0 S2B [J. IF STOPPED SET 8 76HL LDN 0 #10 15 773= ORS 0 A1+IDSTATUS(2) [SET STOPPED 8 77GW BRN S2C 7 782G S2G SRC 0 1 18 78G6 BPZ 0 S2E [J. UNLESS STOPPED SET 8 78_Q NGN 0 #21 16 79FB ANDS 0 A1+IDSTATUS(2) [UNSET STOPPED 19 79_2 S2C LDN 6 #124 [OUTPUT STOP INPUT AND CLEAR 8 7=DL CALL 5 OUTX 8 7=Y= S2D LDCT 0 #200 14 7?CW ORS 0 A1+IDSTATUS(2) [SET SRI 8 7?XG S2E LDN 0 #1000 17 7#C6 ADS 0 A1+IDSTATUS(3) [INCREMENT SRI COUNT 8 7#WQ BRN S2B 9 7*BB S2A LDX 1 XMSK9(1) 19 7*W2 LDN 6 #142 [INPUT END OF REMOTE INPUT 8 7B*L LDCT 0 #200 8 7BT= LDN 5 15 8 7C#W BRN SETS 8 7CSG S3 NGN 4 #1000 17 7D#6 ANDS 4 A1+IDSTATUS(3) [ZEROISE EOIO COUNT 8 7DRQ S3A CALL 5 OCHZ 8 7F?B BRN S3C 17 7FR2 BPZ 0 S3D [J. UNLESS CLOSED SET 7 7G=L ANDN 0 3 21 7GQ= BZE 0 S3A [J. UNLESS CLOSING OR CR. CLOSING SET 8 7H9W BRN S3B 7 7HPG S3D SRC 0 8 11 7J96 ORX 0 A1+IDSTATUS+1(2) 18 7JNQ BNG 0 S3B [J. IF OUTPUT SENT SET 8 7K8B LDX 0 GSIGN 16 7KN2 ORS 0 A1+IDSTATUS+1(2) [SET OUTPUT SENT 9 7L7L LDX 6 XMSK37(1) 7 7LM= LDN 3 5 8 7M6W CALL 5 OUTV 8 7MLG S3B LDCT 0 #100 14 7N66 ORS 0 A1+IDSTATUS(2) [SET EOIO 7 7NKQ LDN 0 1 17 7P5B ADS 0 A1+IDSTATUS(3) [INCREMENT EOIO COUNT 8 7PK2 BRN S3A 8 7Q4L S3C LDN 5 15 8 7QJ= BRN SETR 8 7R3W S10 LDCT 0 #100 11 7RHG ANDX 0 A1+IDSTATUS(3) 7 7S36 LDN 4 0 17 7SGQ BZE 0 S10F [J. UNLESS RESET SET 8 7T2B S10D CALL 5 OCHZ 8 7TG2 BRN S10C 16 7T_L BNG 0 S10D [J. IF CLOSED SET 7 7WF= SRC 0 8 18 7WYW BNG 0 S10D [J. IF CANCEL ATTACH SET 7 7XDG SLC 0 2 8 7XY6 BZE 4 S10E 16 7YCQ LDN 6 #122 [ONE SHOT INPUT 18 7YXB BNG 0 S10B [J. IF ONE SHOT INPUT SET 7 7_C2 S10E SLC 0 2 17 7_WL BNG 0 S10D [J. IF STOPPED SET 15 82B= LDN 6 #121 [START INPUT 7 82TW SLC 0 1 18 83*G BPZ 0 S10B [J. UNLESS NOT CLEARED 17 83T6 LDN 6 #124 [STOP INPUT AND CLEAR 20 84#Q S10B CALL 5 OUTY [OUTPUT APPROPRIATE SUPERVISORY 8 84SB BRN S10D 8 85#2 S10C BNZ 4 S11D 15 85RL LDCT 0 #100 [UNSET RESET 15 86?= S10F LDN 6 #140 [INPUT READY 8 86QW LDN 5 14 8 87=G BRN SETP 8 87Q6 S11 LDCT 0 #100 15 889Q ORS 0 A1+IDSTATUS(3) [SET RESET 7 88PB LDN 4 0 8 8992 S11B CALL 5 OCHZ 8 89NL BRN S11C 16 8=8= BNG 0 S11B [J. IF CLOSED SET 8 8=MW ANDN 0 #210 21 8?7G BNZ 0 S11B [J. IF CANCEL ATTACH OR STOPPED SET 17 8?M6 LDN 6 #123 [OUTPUT STOP INPUT 8 8#6Q CALL 5 OUTY 8 8#LB BRN S11B 8 8*62 S11C BZE 4 XBACK 4 8*KL S11D 9 8B5= ACROSS IPBCCA,1 8 8BJW S17 CALL 5 SRI 21 8C4G NGN 5 #131 [ONE SHOT INPUT,STOPPED,NOT CLEARED 17 8CJ6 BNG 0 S17A [J. IF STOPPED SET 7 8D3Q S17X SLC 0 1 18 8DHB BPZ 0 XIL1 [J. UNLESS NOT CLEARED 18 8F32 S17A ANDS 5 A1+IDSTATUS(2) [UNSET APPROPRIATE BITS 10 8FGL S17Y LDCH 0 A1+IDADIN(3) 20 8G2= BNZ 0 XBACK [J. IF INPUT OVERLOAD CONDITION 8 8GFW LDN 0 #3400 19 8G_G ANDX 0 A1+IDSTATUS(2) [J. UNLESS INOPERABLE FREE 17 8HF6 BZE 0 XKEEP [OR CANCEL ATTACH SET 8 8HYQ BRN XBACK 8 8JDB S18 CALL 5 SRIX 19 8JY2 BPZ 0 XIL1 [ILLEGAL 1 UNLESS STOPPED SET 11 8KCL LDEX 0 A1+IDSTATUS+1(2) 9 8KX= LDX 6 ZIN(1) 7 8LBW SMO 0 7 8LWG SLL 6 0 18 8MB6 BPZ 6 XIL2 [ILLEGAL 2 IF WRONG TYPE 21 8MTQ LDN 0 #130 [ONE SHOT INPUT,STOPPED,NOT CLEARED 17 8N*B S18Y ORS 0 A1+IDSTATUS(2) [SET APPROPRIATE BITS 8 8NT2 BRN S17Y 8 8P#L S19 CALL 5 SRI 18 8PS= BNG 0 XIL1 [ILLEGAL 1 IF STOPPED SET 17 8Q?W LDN 0 #30 [STOPPED,NOT CLEARED 8 8QRG BRN S18Y 8 8R?6 S20 CALL 5 SRI 17 8RQQ BNG 0 S20A [J. IF STOPPED SET 7 8S=B SLC 0 1 19 8SQ2 BNG 0 XIL1 [ILLEGAL 1 IF NOT CLEARED SET 15 8T9L LDN 0 #10 [NOT CLEARED 8 8TP= BRN S18Y 18 8W8W S20A NGN 5 #121 [ONE SHOT INPUT,STOPPED 8 8WNG BRN S17X 8 8X86 XBACK LDN 5 15 8 8XMQ BRN XCCA 8 8Y7B XKEEP LDX 6 GSIGN 7 8YM2 LDN 5 4 9 8_6L ACROSS IPBCCA,2 7 8_L= S12A LDX 2 3 7 925W ADX 2 7 10 92KG LDX 0 A1+BPTR(2) 19 9356 BNZ 0 S12 [J. UNLESS NULL INDENTIFIER 8 93JQ LDN 0 #200 17 944B ORS 0 A1+IDSTATUS(2) [SET CLOSE IDENTIFIER 9 94J2 S12 ADN 7 CONDCBLEN 19 953L BXL 7 ALOGLEN(3),S12A [J. UNLESS END OF CONDCB SCAN 20 95H= IDFCONREQ [GENERATE CONFIGURATION REPORT 8 962W LDN 5 10 8 96GG BRN XCCA 11 9726 S16 LDX 0 A1+IDSTATUS(2) 7 97FQ SRC 0 1 19 97_B BPZ 0 XIL1 [ILLEGAL 1 UNLESS CLOSED SET 7 98F2 SLC 0 1 19 98YL BNG 0 XIL19 [ILLEGAL 19 IF OPENING SET 20 99D= ANDN 0 #3400 [ILLEGAL 28 IF INOPERABLE,FREE 17 99XW BNZ 0 XIL28 [OR CANCEL ATTACH SET 10 9=CG LDX 0 A1+BPTR(2) 20 9=X6 BZE 0 XIL28 [ILLEGAL 28 IF NULL INENTIFIER 7 9?BQ SMO 0 9 9?WB LDX 0 FOURTHWD 18 9#B2 ANDN 0 #17 [LEAVE BITS 18,19 UNSET 7 9#TL SMO 2 10 9**= DCH 0 A1+IDSTATUS+1 17 9*SW BZE 0 ZMM4 [J IF MOP TERMINAL 8 9B#G SBN 0 10 15 9BS6 BZE 0 ZMM4 [J IF NOT VDU 8 9C?Q LDN 0 #200 19 9CRB ORS 0 A1+IDSTATUS+1(2) [SET MODE4 STATE DETERMINED 4 9D?2 ZMM4 19 9DQL NGX 0 XMSK49(1) [UNSET SRI,EOIO,UNAVAILABLE, 20 9F== ANDS 0 A1+IDSTATUS(2) [ONE SHOT INPUT,CLOSE IDENTIFIER, 17 9FPW NGX 0 XMSK46(1) [NOT CLEARED,CLOSED 20 9G9G ANDS 0 A1+IDSTATUS(3) [INITIALISE,OUTPUT SENT,NPU AND 15 9GP6 NGX 0 XMSK47(1) [CHANGE MODE 11 9H8Q ANDS 0 A1+IDSTATUS+1(2) 16 9HNB LDX 5 XMSK33(1) [OPENING,STOPPED 17 9J82 S16X ORS 5 A1+IDSTATUS(2) [SET APPROPRIATE BITS 8 9JML BRN XKEEP 11 9K7= S22 LDX 0 A1+IDSTATUS(2) 7 9KLW SRC 0 1 18 9L6G BNG 0 XIL1 [ILLEGAL 1 IF CLOSED SET 7 9LL6 SRC 0 4 18 9M5Q BPZ 0 S22A [J. UNLESS STOPPED SET 7 9MKB SLC 0 1 19 9N52 BNG 0 XIL2 [ILLEGAL 2 IF NOT CLEARED SET 8 9NJL S22A LDCT 5 #100 11 9P4= ANDX 5 A1+IDSTATUS+1(2) 18 9PHW BNZ 5 XIL19 [ILLEGAL 19 IF NPU SET 16 9Q3G LDN 5 5 [CLOSING,CLOSED 11 9QH6 S22Y LDX 0 A1+IDSTATUS(2) 7 9R2Q SRC 0 3 21 9RGB BXGE 0 BITS22LS,XIL19 [ILLEGAL 19 IF CLOSING,CR.CLOSING SET 7 9S22 S22X SRC 0 6 18 9SFL BNG 0 S22B [J. IF CANCEL ATTACH SET 7 9S_= ANDN 0 3 17 9TDW BZE 0 S22CW [J UNLESS INOP OR FREE 8 9TYG CALL 5 VRCLO 8 9WD6 BRN S22C 7 9WXQ S22CW LDN 0 2 7 9XCB ANDX 0 5 16 9XX2 BZE 0 S16X [J UNLESS CR CL 7 9YBL LDX 6 3 7 9YW= LDX 4 2 8 9_*W ORX 7 GSIGN 9 9_TG LDN 5 S50CA(1) 19 =2*6 BRN SVARN [GO TO DEAL WITH SAVED BLOCKS 7 =2SQ S23W LDN 5 3 8 =3#B BRN S16X 4 =3S2 S22B 5 =4?L VFNCA 8 =4R= NGN 0 #401 17 =5=W ANDS 0 A1+IDSTATUS(2) [UNSET CANCEL ATTACH 8 =5QG LDN 0 #200 11 =6=6 ANDX 0 A1+IDSTATUS(2) 8 =6PQ BZE 0 S22C 7 =79B LDN 0 1 11 =7P2 ORS 0 A1+IDSTATUS(2) 7 =88L S22C LDN 5 5 8 =8N= BRN XCCA 11 =97W S23 LDX 0 A1+IDSTATUS(2) 7 =9MG SRC 0 1 17 ==76 LDN 5 3 [CRASH CLOSING,CLOSED 17 ==LQ BPZ 0 S22Y [J. UNLESS CLOSED SET 7 =?6B SRC 0 2 19 =?L2 BPZ 0 XIL1 [ILLEGAL 1 UNLESS CLOSING SET 7 =#5L NGN 6 5 16 =#K= ANDS 6 A1+IDSTATUS(2) [UNSET CLOSING 8 =*4W BRN S22X 8 =*JG S24 BZE 4 XBACK 10 =B46 LDX 0 A1+BPTR(2) 16 =BHQ BZE 0 XIL28 [J IF NULL DENT 7 =C3B LDX 0 4 8 =CH2 SRL 0 15 17 =D2L BZE 0 NNCM [J IF NOT MODE CHANGE 7 =DG= ANDN 0 7 7 =D_W SBN 0 4 17 =FFG BNZ 0 TNM4 [J IF NOT TO MODE 4 10 =F_6 SMO A1+BPTR(2) 9 =GDQ LDCH 0 FOURTHWD 8 =GYB ANDN 0 #17 14 =HD2 BZE 0 TM4 [J IF MOP 8 =HXL SBN 0 10 8 =JC= BNZ 0 TM4S 4 =JWW TM4 8 =KBG LDN 0 #100 20 =KW6 ORS 0 A1+IDSTATUS+1(2) [SET PROGRAM DEALING WITH WARNING 18 =L*Q NGN 0 #41 [UNSET WARNING MARKERS 11 =LTB ANDS 0 A1+IDSTATUS(2) 19 =M*2 ERN 0 #20 [INCLUDING REFLECTION MARKER 11 =MSL ANDS 0 A1+IDSTATUS+1(2) 8 =N#= BRN TM4S 8 =NRW TNM4 NGN 0 #101 11 =P?G ANDS 0 A1+IDSTATUS+1(2) 21 =PR6 [ UNSET ^PROGRAM DEALING WITH WARNING^ 8 =Q=Q TM4S LDCT 0 #400 7 =QQB ORN 0 1 11 =R=2 ANDX 0 A1+IDSTATUS(2) 17 =RPL BZE 0 NNCM [J IF ALREADY OPEN 8 =S9= LDN 0 #200 19 =SNW ORS 0 A1+IDSTATUS+1(2) [SET MODE4 STATUS DETERMINED 4 =T8G NNCM 8 =TN6 ANDX 4 BSP16 20 =W7Q BZE 4 S24A [J. IF NO NPUSIZE CHANGE REQUIRED 10 =WMB LDX 5 A1+IDMDNPU(3) 8 =X72 SRL 5 12 7 =XLL SBN 5 3 21 =Y6= BXL 5 4,XIL7 [ILLEGAL 7 IF NPUSIZE>I/P BUFF SIZE-3 8 =YKW LDCT 4 #200 8 =_5G S24A LDN 0 #3400 11 =_K6 ANDX 0 A1+IDSTATUS(2) 21 ?24Q BNZ 0 XBACK [J. IF INOP.,FREE OR CL. ATTACH SET 10 ?2JB LDX 0 A1+BPTR(2) 20 ?342 BZE 0 XIL28 [ILLEGAL 28 IF NULL IDENTIFIER 8 ?3HL LDCT 0 #100 11 ?43= ANDX 0 A1+IDSTATUS+1(2) 18 ?4GW BNZ 0 XIL19 [ILLEGAL 19 IF NPU SET 17 ?52G BNG 4 XKEEP [J. IF SET PRIORITY 7 ?5G6 LDCT 0 1 19 ?5_Q ADS 0 A1+IDSTATUS+1(2) [INCREMENT CHANGE MODE COUNT 11 ?6FB LDX 0 A1+IDSTATUS(2) 18 ?6_2 BPZ 0 XKEEP [J. UNLESS OPENING SET 20 ?7DL ORS 4 A1+IDSTATUS+1(2) [SET CHANGE MODE UNLESS NPUSIZE 16 ?7Y= BRN XKEEP [CHANGE REQUIRED 8 ?8CW S25 BZE 4 XIL5 8 ?8XG SBN 4 19 20 ?9C6 BNG 4 S24A [ILLEGAL 5 UNLESS 19>PRIORITY>0 8 ?9WQ BRN XIL5 19 ?=BB S50CA BRN S509 [J IF NO MORE FOR THIS IDENT 8 ?=W2 SBN 0 23 16 ??*L BZE 0 S509 [J IF CRASH CLOSE 18 ??T= BNG 0 S50V [J IF NOT SET PRI NOR CM 7 ?##W SBN 0 3 8 ?#SG BNG 0 S50V 7 ?*#6 LDX 6 1 16 ?*RQ [ POINT PAST BLOCK 8 ?B?B BRN SVARN 4 ?BR2 S50V 10 ?C=L LDX 0 ALOGLEN(1) 21 ?CQ= LDXC 2 IMOPTY(1) [SET C IF CONTINUE SEG BEING REFLECT 18 ?D9W LDX 2 FX2 [FX2 + 1 FOR CONTINUE SEG 21 ?DPG SBS 0 IOUTLOAD(2) [INLOAD (= IOUTLOAD + 1) FOR CONTINUE 7 ?F96 FREECORE 1 17 ?FNQ BRN SVARN [LOOK FOR NEXT SEG 19 ?G8B S509 BNG 7 S23W [J IF CAME FROM CRASH CLOSE 8 ?GN2 LDN 0 #40 15 ?H7L ORS 0 A1+IDSTATUS(2) [SET WARNING 5 ?HM= S5092 8 ?J6W LDN 0 #20 11 ?JLG ANDX 0 A1+IDSTATUS+1(2) 21 ?K66 BZE 0 XSET [J UNLESS STILL REFLECTING CONTINUE 11 ?KKQ ERS 0 A1+IDSTATUS+1(2) 21 ?L5B BRN NFREE [DO NOT PASS ON IF STILL REFLECTING C 4 ?LK2 [ 4 #2#2 [ 8 #2RL XIL5 LDN 4 #500 8 #3?= BRN XILL 4 #3QW ) 4 #4=G #END 6 ____ ...013510120005