15 22FL ...#SEG LISTIDF [LEN WAGSTAFF 14 22PD ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS 1982 8 22_= #OPT K0LISTIDF=0 16 23DW #LIS K0LISTIDF>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 7 23YG 8HLISTIDF 7 24D6 # ENTRY POINTS 12 24XQ SEGENTRY K1LISTIDF,Z1LISTIDF 11 25CB MENDAREA 25,K100LISTIDF 20 25X2 [ THIS SEGMENT LISTS INFORMATION WHICH IS PRESENT IN THE IDF. 14 269C ...# IT DEALS WITH MX,UX,IPB & (8.40 ONWARDS)CI 3 26HS ... 10 26W= XSUB 12HIDENTIFIER 14 27*W XIPB 28HCOMMUNICATIONS CONTROLLER 14 27DD ...XVIPB 28HVIRTUAL COMMS CONTROLLER 11 27FR ...XCOMIS 16HCOMMAND ISSUER 9 27KN ...XCIIU 8HIN USE 10 27PK ...XCINIU 12HNOT IN USE 15 27TG XSUBN 28HNO IDENTIFIERS ON THIS UNIT 3 28*6 ... 8 29S2 XTAB 4HNUL 8 2=?L 4HMOP 8 2=R= 4HTER 8 2?=W 4HSEN 3 2?GN ... 11 2?QG MULT 12HMULTIPLEXOR 10 2#=6 XUNI 12HUNIPLEXOR 11 2#PQ XMESS1 12HNOT ATTACHED 13 2*9B XMESS2 24HATTACHED TO CONCEPTUAL 9 2*P2 XUNIT 4HUNIT 9 2B8L XLINE 4HLINE 10 2BN= ON 12HONLINED 11 2C7W NON 12HNOT ONLINED 3 2CMG ... 9 2D## ...PVDU 4HPVDU 8 2DLQ TABLE #7420 8 2F6B #7430 8 2FL2 #7400 8 2G5L #7410 8 2GK= #7440 8 2H4W #7450 8 2HJG #7460 8 2J46 #7470 8 2JHQ #7540 8 2K3B #7550 8 2KH2 #7560 8 2L2L #7570 8 2LG= TAB 4HLP 8 2L_W 4HCR 8 2MFG 4HTW 8 2M_6 4HTR 8 2NDQ 4HTP 8 2NYB ...TABIPB 4HTTW 9 2PD2 4HT/W5 9 2PXL 4HAVDU 8 2QC= 4HLP 8 2QWW 4HCR 8 2RBG 4HT/W 8 2RW6 4HTR 8 2S*Q 4HTP 9 2STB 4H???? 9 2T*2 4H???? 8 2TSL 4HVDU 3 2W4D ... 8 2W96 ... 4HVSO 8 2W*S ... 4HVSI 16 2WD7 ... 4HERL [13 = ERROR LOGGER 10 2WGG ...XMESS 12HMOPPED OFF 10 2WYJ ... 12HMOPPED ON 9 2X#? ... 12HRIGHTED 4 2XN2 ...XWR 9 2XSN ... 12HWRONGED 10 2X_B ...XRID 12HRI (IDF WR) 10 2Y64 ...XWRID 12HWR (IDF RI) 9 2Y=Q XMAJ +10000 8 2_=2 TEN +10 9 2_?P ...MASK #37777777 9 2_*D ... #20202020 9 2_C7 ...XCOMS 8H,,,,,, 8 2_DW ...NOT 4HNOT 10 2_GK ...SPMESS 8HSPOOLING 10 2_J# ... 12H ATTENDED 11 2_L3 ... 12H UNATTENDED 9 2_LW ...XAUTO 8H AUTO 9 2_MQ ...RJE 8H 1901A 9 2_NN ...P7502 8H 7502 6 2_PL Z1LISTIDF 10 329= STOZ ACOMMUNE3(2) 18 32NW CALL 7 XMXB [RE-HUNT FOR ZERO RECORD. 18 338G LDX 3 BUNIT(2) [LOAD START OF UNIT CHAIN 8 33N6 CALL 0 SETUP 8 347Q BZE 3 XHERX 7 34MB XHER LDX 6 3 21 3572 CALL 0 XHUNT [CALL ROUTINE TO HUNT FOR BLOCK & CEL 8 35LL LDN 0 #42 15 366= STO 0 A1+1(1) [STO. PFCC. 7 36KW LDN 4 0 7 375G SMO 2 9 37K6 LDX 5 BTYPE(3) 8 384Q SLL 45 6 8 38JB SBN 4 10 8 3942 BZE 4 XUNX 8 39HL SMO FX1 8 3=3= LDN 4 MULT 16 3=GW XUNIX LDN 5 A1+3(1) [MOVE IN HEADING 7 3?2G MOVE 4 3 7 3?G6 SMO 2 9 3?_Q LDX 5 BTYPE(3) 19 3#FB ANDN 5 #7777 [MASK OUT GEO.NO. FOR HEADING 8 3#_2 ADN 1 A1+6 8 3*DL CALL 7 XCBD 8 3*Y= SBN 1 A1+6 9 3BCW LDN 6 A1+8(1) 7 3BXG XCON SMO 2 15 3CC6 LDX 4 BNUMB(3) [LD. BNUMB. 15 3CWQ BNG 4 XYMP [J. MOP ON 8 3DBB SMO FX1 8 3DW2 LDN 5 XMESS 16 3F*L ...XA MOVE 5 3 [MOVE IN MESSAGE 7 3FT= ... ADN 6 3 7 3G#W SLL 4 1 15 3GSG BNG 4 XWRG [J. WRONG. 8 3H#6 SMO FX1 9 3HRQ ... LDN 5 XMESS+6 7 3J?B XB MOVE 5 2 7 3JR2 ADN 6 2 7 3K=L SLL 4 1 15 3KQ= BNG 4 XONL [J. ONLINED 8 3L9W SMO FX1 8 3LPG LDN 5 NON 7 3M96 XC MOVE 5 3 4 3MDY ...XD 20 3MNQ CALL 0 WRITE [WRITE THIS RECORD TO THE FILE. 21 3N8B CALL 7 XMXB [CALL HUNT ROUTINE AS THE WRITE COOR. 7 3NN2 SMO 3 18 3P7L LDX 6 BLINE(2) [LD. BASE OF LINE CHAIN. 9 3PM= LDX 7 BRECNO(2) 7 3Q6W SLL 7 9 7 3QLG ADX 7 3 8 3R66 SMO FX2 21 3RKQ STO 7 AWORK1 [AWORK1=REC.NO.&CELL PTR. TO UNIT.CEL 7 3S5B SMO 2 9 3SK2 LDCH 5 BTYPE(3) 17 3T4L SBN 5 24 [SUBTRACT 7900 TYPE 9 3TJ= BZE 5 X7900A 8 3W3W CALL 0 SETUP 7 3WHG XMULT LDX 3 6 19 3X36 CALL 0 XHUNT [CALL ROUTINE TO HUNT BLOCK 7 3XGQ SMO 2 9 3Y2B LDCH 4 BTYPE(3) 17 3YG2 BZE 4 XNULL [THIS LINE IS NULL. 7 3Y_L SBN 4 1 17 3_F= BZE 4 XMOP [THIS LINE IS MOPPED. 7 3_YW SBN 4 1 20 42DG BZE 4 X7020 [THIS LINE HAS A 7020 ATTACHED. 7 42Y6 LDN 5 3 8 43CQ BRN XSEN 7 43XB XMOP LDN 5 1 7 44C2 XSEN SMO 2 21 44WL LDX 4 CONTCEP(3) [LD. PTR. TO SEE IF ATTACH TO CONCEP. 17 45B= BNZ 4 XATT [J. IT IS ATTACHED. 21 45TW CALL 6 XNAT [J. TO ROUTINE WHICH WILL BE SET UP 18 46*G [LINE IF NOT ATTACHED. 5 46T6 XPRINT1 21 47#Q CALL 0 WRITE [CALL ROUTINE TO WRITE BLOCK AWAY. 8 47SB CALL 0 SETUP 16 48#2 CALL 7 XMXB [HUNT FOR FILE. 5 48RL XPRINT 7 49?= SMO 2 8 49QW LDX 6 0(3) 18 4==G BNZ 6 XMULT [MORE LINES TO ANALYSIS. 8 4=Q6 SMO FX2 18 4?9Q LDX 6 AWORK1 [LD. PTR. TO UNIT CELL. 7 4?PB LDX 3 6 19 4#92 CALL 0 XHUNT [HUNT FOR REC. AND CELL PTRS. 7 4#NL SMO 2 20 4*8= LDX 7 0(3) [LD. FORWARD PTR. IN UNIT CELL 20 4*MW BNZ 7 XHERA [J. IF MORE UNITS DEFINED IN IDF. 4 4B7G # 18 4BM6 # THIS PIECE DEALS WITH 7900 TYPE CHAIN IF ONE EXISTS. 4 4C6Q # 5 4CLB XHERX 15 4D62 LDN 6 0 [FIRST REC. 14 4DKL LDN 3 BIPB [START OF 16 4F5= XHERB CALL 0 XHUNT [HUNT FOR BASE 7 4FJW SMO 3 8 4G4G LDX 6 0(2) 21 4GJ6 BZE 6 XCONCEP [NO 7900'S CONTINUE WITH CONCEPTUALS. 7 4H3Q LDX 3 6 18 4HHB CALL 0 XHUNT [HUNT FOR 7900 UNIT CELL. 8 4J32 LDN 0 #42 15 4JGL STO 0 A1+1(1) [STO. PFCC 7 4JM2 ... SMO 3 9 4JRB ... LDX 0 BTYPE(2) 15 4JXQ ... ANDN 0 #777 [GET GEOG.NO 14 4K46 ... BZE 0 XCI [J. IF CI 14 4K8G ... SMO FX1 [^COMM. 15 4K#W ... LDN 4 XIPB [CONTROLLER^ 20 4KB8 ... SMO 3 [DISTINGUISH VIRTUAL 7900'S FROM 15 4KBL ... LDXC 5 BNO(2) [REAL 7900'S 20 4KC4 ... BCC XUNAME [NOT A VIRTUAL 7900 (BNO.B0=0) 16 4KCG ... SMO FX1 [^VIRTUAL COMMS 15 4KCY ... LDN 4 XVIPB [CONTROLLER^ 5 4KDB ...XUNAME 15 4KF= ... LDN 5 A1+3(1) [INTO FAPB 7 4KKL ... MOVE 4 7 16 4KQ2 ... LDX 5 0 [PARAS FOR XCBD 8 4KWB ... ADN 1 A1+9 7 4L2Q ... BCHX 1 / 21 4L76 ... BCHX 1 / [TO GET X1 POINTING TO CORRECT PLACE 8 4L?G ... CALL 7 XCBD 15 4LCW ... MHUNTW 1,FILE,FAPB [HUNT BLOCK. 21 4LJ= ... LDN 6 A1+11(1) [POSITION FROM WHICH TO START MOVING 8 4LNL ... BRN XCON 14 4LT2 ...XCI SMO FX1 [^COMMAND 14 4L_B ... LDN 4 XCOMIS [ISSUER^ 15 4M5Q ... LDN 5 A1+3(1) [INTO FAPB 7 4M=6 ... MOVE 4 4 16 4MBG ... SMO 3 [GET PROP.NAME 10 4MGW ... LDX 0 CIPROPNO(2) 9 4MM= ... APROPNAME 0,1,NOPR 16 4MRL ... MHUNTW 1,FILE,FAPB [APROPNAME COORS 15 4MY2 ... LDN 4 ACOMMUNE1(2) [PROP.NAME 15 4N4B ... LDN 5 A1+7(1) [INTO FAPB 7 4N8Q ... MOVE 4 3 9 4N*6 ... LDX 6 AWORK1(2) 7 4NFG ... LDX 3 6 15 4NKW ... CALL 0 XHUNT [CELL AGAIN 7 4NQ= ... SMO 3 9 4NWL ... LDX 4 BNUMB(2) 16 4P32 ... BNG 4 XCIMN [J. IF MOPPED ON 15 4P7B ... SMO FX1 [^MOPPED OFF^ 15 4P?Q ... LDN 4 XMESS [INTO FAPB 8 4PD6 ... BRN XCIRW 15 4PJG ...XCIMN SMO FX1 [^MOPPED ON^ 15 4PNW ... LDN 4 XMESS+3 [INTO FAPB 9 4PT= ...XCIRW LDN 5 A1+11(1) 7 4P_L ... MOVE 4 3 7 4Q62 ... SMO 3 9 4Q=B ... LDX 4 BNUMB(2) 7 4QBQ ... SLC 4 1 17 4QH6 ... BNG 4 XCIWR [J. IF CI ^WRONGED^ 8 4QMG ... SMO FX1 17 4QRW ... LDN 4 XCIIU [^IN USE^ INTO FAPB 9 4QY= ... LDN 5 A1+14(1) 7 4R4L ... MOVE 4 2 17 4R92 ... BRN XD [BACK TO MAIN PATH 15 4R*B ...XCIWR SMO FX1 [^NOT IN USE^ 15 4RFQ ... LDN 4 XCINIU [INTO FAPB 9 4RL6 ... LDN 5 A1+14(1) 7 4RQG ... MOVE 4 3 17 4RWW ... BRN XD [BACK TO MAIN PATH 10 4S3= ...NOPR GEOERR 1,LOSTPROP 9 4S7L ...XEND ACROSS LISTAST,1 4 4S#L XYMP 8 4SS= SMO FX1 14 4T?W ... LDN 5 XMESS+3 [MOP ON 8 4TRG BRN XA 8 4W?6 XWRG SMO FX1 13 4WQQ ... LDN 5 XWR [WRONG 8 4X=B BRN XB 8 4XQ2 XONL SMO FX1 14 4Y9L LDN 5 ON [ONLINED. 8 4YP= BRN XC 5 52MQ XHERA 7 537B LDX 3 7 20 53M2 BRN XHER [GO BACK TO SEARCH DOWN NEXT UNIT 8 546L XUNX SMO FX1 8 54L= LDN 4 XUNI 8 555W BRN XUNIX 5 55KG XLINEA 8 5656 SBX 4 FX1 8 56JQ SMO FX2 14 574B STO 4 AWORK4 [STO LINK 8 57J2 SMO FX1 8 583L LDX 4 XLINE 15 58H= STO 4 A1+4(1) [STO^LINE^ 9 592W LDX 4 BRECNO(2) 7 59GG SLL 4 9 7 5=26 ADX 4 3 8 5=FQ SMO FX2 17 5=_B STO 4 AWORK2 [STO. PTR. TO LINE 8 5?F2 ADX 5 FX1 7 5?YL SMO 5 8 5#D= LDN 4 XTAB 15 5#XW LDN 5 A1+7(1) [MOVE IN TYPE 7 5*CG MOVE 4 1 7 5*X6 SMO 2 9 5BBQ LDX 5 BNO(3) 8 5BWB ADN 1 A1+5 20 5CB2 CALL 7 XCBD [CALCULATE AND MOVE IN LINE NO. 8 5CTL SBN 1 A1+5 8 5D*= SMO FX2 9 5DSW LDX 4 AWORK4 8 5F#G ADX 4 FX1 14 5FS6 EXIT 4 0 [EXIT. 4 5G?Q XNAT 8 5GRB SBX 6 FX1 8 5H?2 SMO FX2 14 5HQL STO 6 AWORK3 [STO LINK 14 5J== CALL 4 XLINEA [TYPE. 9 5JPW LDN 5 A1+10(1) 8 5K9G XNATI SMO FX1 21 5KP6 LDN 4 XMESS1 [MOVE IN MESSAGE TO SAY NOT ATTACHED. 7 5L8Q MOVE 4 3 8 5LNB SMO FX2 15 5M82 LDX 6 AWORK3 [LOAD LINK 8 5MML ADX 6 FX1 14 5N7= EXIT 6 0 [EXIT. 4 5NLW # 20 5P6G # THIS ROUTINE DEALS WITH THE CASE WHEN THE LINE IS ATTACHED. 8 5PL6 XYAT SBX 6 FX1 8 5Q5Q SMO FX2 14 5QKB STO 6 AWORK3 [STO LINK 9 5R52 CALL 4 XLINEA 17 5RJL LDN 5 0 [INITIAL POSITION. 7 5S4= XYATI SMO 2 19 5SHW LDX 6 CONTCEP(3) [LD. PTR. TO CONCEPTUAL CELL 7 5T3G LDX 3 6 16 5TH6 CALL 0 XHUNT [HUNT FOR REC. 8 5W2Q SMO FX1 17 5WGB LDN 4 XMESS2 [LD. PTR. TO MESSAGE 21 5X22 ADN 5 A1+10(1) [LD. PTR. ALONG LINE FOR PRINTING. 7 5X#B ... ADN 5 3 7 5XFL MOVE 4 6 21 5X_= SMO 3 [STORE THE CONCEPTUAL NAME IN AC1,AC2 14 5YDW LDN 4 1(2) [AND AC3. 7 5YYG ADN 5 6 7 5_D6 MOVE 4 3 8 5_XQ SMO FX2 18 62CB LDX 6 AWORK2 [LD. PTR. TO LINE CELL. 7 62X2 LDX 3 6 17 63BL CALL 0 XHUNT [HUNT FOR LINE CELL. 8 63W= SMO FX2 15 64*W LDX 6 AWORK3 [LOAD LINK 16 64TG ADX 6 FX1 [LOAD EXIT LINK 21 65*6 EXIT 6 0 [EXIT FROM ROUTINE TO GET CONCEPTUAL 4 65SQ XATT 21 66#B CALL 6 XYAT [CALL ROUTINE THAT DEALS WITH LNS. 19 66S2 BRN XPRINT1 [THAT ARE ATTACHED TO CON. 4 67?L # 17 67R= # THIS DEALS IF THE LINE HAS 7020'S HANGING OFF IT. 4 68=W # 5 68QG X7020 18 69=6 LDN 5 2 [LD. TYPE OF UNIT ON LINE 21 69PQ SMO 2 [TEST TO SEE THE LINE IS ATTACHED TO 16 6=9B LDX 4 CONTCEP(3) [A CONCEPTUAL. 13 6=P2 BZE 4 XAB [NO. 20 6?8L CALL 6 XYAT [YES ATTACHED TO A CONCEPTUAL. 8 6?N= BRN XBB 20 6#7W XAB CALL 6 XNAT [NO NOT ATTACHED TO A CONCEPTUAL. 4 6#MG XBB 19 6*76 CALL 0 WRITE [WRITE AWAY ATTACHED LINE. 18 6*LQ CALL 0 SETUP [SETUP NEW OUTPUT BLOCK. 8 6B6B SMO FX2 18 6BL2 LDX 3 AWORK2 [LD. PTR. TO LINE CELL. 7 6C5L LDX 6 3 16 6CK= CALL 0 XHUNT [HUNT FOR CELL. 7 6D4W SMO 3 21 6DJG LDX 6 BLINE(2) [LD. PTR. TO 7020 CHAIN FROM LINE CHN 7 6F46 LDX 3 6 8 6F9# ...XBCXX SMO FX2 18 6FBG ... STO 6 AWORK3 [SAVE PTR TO 7020 CELL 17 6FHQ CALL 0 XHUNT [HUNT FOR 7020 CELL. 7 6G3B XBCX SMO 2 19 6GH2 LDX 4 BNO(3) [LD. IDEN & POLLING ADDRESS. 8 6H2L ANDN 4 #7777 7 6HG= LDN 0 1 7 6H_W ANDX 0 4 8 6JFG BZE 0 XTERA 7 6J_6 SBN 4 1 21 6KDQ XTERA LDN 6 12 [LD. CT. OF VALID NO. OF POLLING ADDR 7 6KYB LDN 5 1 8 6LD2 LDX 1 FX1 7 6LXL XNXT SMO 5 21 6MC= TXU 4 TABLE-1(1) [TEST IF EQUAL TO POLL.ADD.IN TABLE. 15 6MWW BCC XEQ1 [J. IF EQUAL. 7 6NBG ADN 5 1 16 6NW6 BCT 6 XNXT [GO ROUND AGAIN 19 6P*Q [OUTPUT AN ERROR - JLARGETERM 8 6PTB XEQ1 BZE 0 XEQ 8 6Q*2 ADN 5 16 18 6QSL XEQ MHUNTW 1,FILE,FAPB [HUNT FOR OUTPUT BLOCK 7 6R#= LDX 4 5 7 6RRW SMO 2 9 6S?G LDX 6 BNO(3) 8 6SR6 LDN 5 #51 8 6T=Q SLL 56 12 8 6TQB LDCT 6 #340 7 6W=2 SLL 56 6 16 6WPL STO 5 A1+7(1) [ST. INTERFACE 7 6X9= ADN 1 1 14 6XNW LDN 5 #6400 [ST. ^T^ 17 6Y8G LDX 7 4 [CONVERT TERMINAL NO. 16 6YN6 SMO FX1 [TO DECIMAL - IT 18 6_7Q DVS 6 TEN [WILL HAVE MAX OF 2 CHS 8 6_MB BZE 7 X1CH 7 7272 ORX 5 7 8 72LL BRN X2CH 8 736= X1CH ORN 5 #20 8 73KW X2CH SLL 6 18 8 745G SLL 56 12 16 74K6 ORN 5 #20 [SPACE AFTER IT 9 754Q STO 5 A1+7(1) 4 754T ...# 19 754Y ...# THE FOLLOWING CODE (BETWEEN THE TWO LINES OF ***'S) IS FOR THE 19 7553 ...# CHARACTER BUFFERING PART OF THE ^7503/SPOOLING^ ENHANCEMENT. 12 7556 ...# WE USE ACUMULATOR 5 TO HOLD 19 7559 ...# ^PREVIOUS DEFINED INTERFACE NO.^, HEREINAFTER REFERRED TO AS 11 755# ...# ^PREVIOUS^ IN THE COMMENTS. 21 755C ...# ******************************************************************* 4 755G ...# 19 755K ... SMO 2 [TEST ^SPOOLABLE^(7503) BIT 9 755N ... LDX 0 BNUMB(3) 7 755R ... SLL 0 4 17 755W ... BPZ 0 N7503 [J IF ORDINARY 7020 3 755_ ... 8 7564 ... CALL 0 WRITE 8 7567 ... CALL 0 SETUP 18 756= ... LDX 6 AWORK3(2) [PICK UP PTR TO CELL... 17 756* ... LDX 3 6 [..AND FIND IT, AS... 16 756D ... CALL 0 XHUNT [..S/R'S COORED 7 756H ... ADX 3 2 17 756L ... LDX 2 1 [FOR MVCH'S LATER ON 3 756P ... 17 756S ... LDX 5 BTYPE(3) [GET INTERFACE NO. 8 756X ... ANDN 5 #77 7 7572 ... LDX 4 5 19 7575 ... SBN 4 1 [X4 NOW=NO. OF COMMAS REQD 8 7578 ... ADN 2 A1+8 8 757? ... BZE 4 NOCOM 3 757B ... 17 757F ... LDX 1 FX1 [PUT COMMAS IN FAPB 8 757J ... ADN 1 XCOMS 7 757M ... SMO 4 7 757Q ... MVCH 1 0 3 757T ... 17 757Y ...NOCOM LDCH 1 BTYPE(3) [PUT DEVICE TYPE IN 16 7583 ...# NOW FOLLOWS A FRIG TO GET ROUND PROBLEM CAUSED BY 18 7586 ...# FACT THAT THERE'S ONLY 1 INTERFACE CELL IN IDF FOR BOTH 18 7589 ...# TW INTERFACES. YOU GET A PRIZE IF YOU CAN FOLLOW WHAT'S 6 758# ...# GOING ON. 16 758C ... LDN 0 3 [TEST TYPE AND.. 7 758G ... TXU 1 0 15 758K ... BCS NOTTW1 [J IF NOT TW 8 758N ... LDX 0 5(3) 19 758R ... BNZ 0 TW2 [J IF NOT TW 1ST INTERFACE 20 758W ... LDN 0 1 [OTHERWISE, PUT ^TW 1ST INTFACE^ 17 758_ ... STO 0 5(3) [..MARKER IN IDF CELL 9 7594 ... BRN NOTTW1 8 7597 ...TW2 STOZ 5(3) 5 759= ...NOTTW1 8 759* ... ADX 1 FX1 8 759D ... ADN 1 TAB-1 7 759H ... MVCH 1 4 3 759L ... 8 759P ... LDX 1 FX1 17 759S ... LDX 0 5(3) [TW INPUT IS ALWAYS.. 16 759X ... BNZ 0 NSPOO [..^NOT SPOOLING^ 9 75=2 ... LDX 0 BNUMB(3) 7 75=5 ... SLL 0 5 16 75=8 ... BNG 0 YSPOO [J IF SPOOLING 3 75=? ... 19 75=B ...NSPOO ADN 1 NOT [PUT ^NOT SPOOLING^ IN FAPB 8 75=F ... MVCH 1 12 8 75=J ... BRN SPFIN 3 75=M ... 18 75=Q ...YSPOO ADN 1 SPMESS [PUT ^SPOOLING^ IN FAPB 7 75=T ... MVCH 1 8 7 75=Y ... SLL 0 1 16 75?3 ... BNG 0 UNAD [J IF UNATTENDED 3 75?6 ... 16 75?9 ... MVCH 1 9 [PUT ^ATTENDED^ 8 75?# ... BRN SPFIN 16 75?C ...UNAD ADN 1 3 [PUT ^UNATTENDED^ 8 75?G ... MVCH 1 11 3 75?K ... 8 75?N ...SPFIN LDX 0 5(3) 19 75?R ... BZE 0 NOTW1 [J IF NOT ^TW 1ST INTFACE^ 17 75?W ... ADN 5 1 [UPDATE ^PREVIOUS^ 20 75?_ ... STO 5 7 [NOCO EXPECTS ^PREVIOUS^ IN X7! 8 75#4 ... BRN NOCO 19 75#7 ...NOTW1 MHUNTW 1,FILE,FAPB [SAVE INTERNAL FAPB PTR IN X4 17 75#= ... SBX 2 1 [...AS XHUNT MAY COOR 7 75#* ... STO 2 4 9 75#D ... LDX 0 BLINE(3) 19 75#H ... BNG 0 TDONE [J IF THIS IS LAST INTERFACE 3 75#L ... 17 75#P ... LDX 6 0(3) [ELSE GET NEXT CELL 8 75#S ... SMO FX2 9 75#X ... STO 6 AWORK3 8 75*2 ... BZE 0 PTRER 7 75*5 ... LDX 3 6 8 75*8 ... CALL 0 XHUNT 7 75*? ... ADX 3 2 7 75*B ... LDX 2 1 16 75*F ... ADX 2 4 [RESTORE FAPB PTR 3 75*J ... 17 75*M ... LDX 0 BTYPE(3) [GET INTERFACE NO. 8 75*Q ... ANDN 0 #77 20 75*T ... STO 0 7 [KEEP FOR REF. NEXT TIME ROUND 7 75*Y ... SBX 0 5 19 75B3 ... SBN 0 1 [X0 NOW=NO. OF COMMAS REQD 8 75B6 ... BZE 0 NOCO 3 75B9 ... 17 75B# ... LDX 1 FX1 [PUT COMMAS IN FAPB 8 75BC ... ADN 1 XCOMS 7 75BG ... SMO 0 7 75BK ... MVCH 1 0 8 75BN ...NOCO CALL 0 WRITE 8 75BR ... CALL 0 SETUP 3 75BW ... 15 75B_ ... LDX 5 7 [^PREVIOUS^ 19 75C4 ... LDX 6 AWORK3(2) [FIND CELL AGAIN (AFTER COOR) 7 75C7 ... LDX 3 6 8 75C= ... CALL 0 XHUNT 7 75C* ... ADX 3 2 16 75CD ... LDX 2 1 [SET UP FAPB PTR 8 75CH ... ADN 2 A1+8 16 75CL ... BRN NOCOM [LOOP ROUND AGAIN 3 75CP ... 16 75CS ...TDONE ADX 2 1 [RESTORE FAPB PTR 7 75CX ... LDN 0 6 19 75D2 ... SBX 0 5 [PUT COMMAS IN FOR REMAINING 19 75D5 ... BZE 0 NOC [...(UNDEFINED) INTERFACES 8 75D8 ... LDX 1 FX1 8 75D? ... ADN 1 XCOMS 7 75DB ... SMO 0 7 75DF ... MVCH 1 0 3 75DJ ... 16 75DM ...NOC LDX 6 0(3) [PTR TO NEXT CELL 8 75DQ ... SMO FX2 21 75DT ... STO 6 AWORK3 [...AND SAVE IT. NOW J TO OLD CODE 20 75DY ... BRN X7503FIN [...AT HIGHLY APPROPIATE POINT 3 75F3 ... 9 75F6 ...PTRER GEOERR 1,IDF PTR 21 75F9 ...# ******************************************************************* 4 75F# ...# 5 75FC ...N7503 7 75JB ADN 1 1 7 7642 LDN 7 1 4 76HL XAAZ 7 773= SMO 3 9 77GW LDCH 4 BTYPE(2) 7 782G LDN 0 3 16 78G6 SBX 0 4 [TEST FOR A ^TW^. 7 78_Q SMO 3 17 79FB LDX 5 BTYPE(2) [LD. INTERFACE NO. 8 79_2 ANDN 5 #77 16 7=DL BXU 5 7,XABAZ [J. IF NOT EQUAL. 4 7=Y= XDA 8 7?CW ADX 4 FX1 7 7?XG SMO 4 17 7#C6 LDX 6 TAB-1 [LD. VALUE IN TABLE 7 7#WQ LDN 4 2 7 7*BB XAZ SLL 56 6 18 7*W2 DCH 5 A1+7(1) [DEPOSITE A CHARACTER. 7 7B*L BCHX 1 / 20 7BT= BCT 4 XAZ [J. BACK TO DEPOSITE NEXT CHAR. 16 7C#W BNZ 0 XABZ [J. IF NOT A ^TW^ 7 7CSG LDN 6 1 7 7D#6 LDN 0 1 8 7DRQ XACZ LDN 5 #34 16 7F?B DCH 5 A1+7(1) [DEPOSITE A COMMA 7 7FR2 BCHX 1 / 7 7G=L LDN 4 3 7 7GQ= ADN 7 1 8 7H9W BZE 6 XAAZ 8 7HPG BRN XDA 7 7J96 XABAZ LDN 6 0 8 7JNQ BRN XACZ 4 7K8B XABZ 7 7KN2 LDN 5 6 7 7L7L SBX 5 7 16 7LM= BZE 5 XCX [J. END OF A 7020 8 7M6W LDN 5 #34 17 7MLG DCH 5 A1+7(1) [DEPOSITE A COMMA. 7 7N66 BCHX 1 / 7 7NKQ SMO 2 8 7P5B LDX 6 0(3) 21 7PK2 BZE 6 XCXC [J.IF END OF INFO. GIVEN ON A 7020 7 7Q4L SMO 2 16 7QJ= LDX 4 4(3) [J. END OF INFO 8 7R3W BNG 4 XCXC 7 7RHG LDX 5 1 10 7S36 MHUNTW 1,FILE,FAPB 7 7SGQ SBX 5 1 7 7T2B LDX 4 7 7 7TG2 LDX 3 6 20 7T_L CALL 0 XHUNT [HUNT FOR NEXT INFO. 7020 CELL. 7 7WF= ADX 1 5 7 7WYW LDX 7 4 7 7XDG ADN 7 1 8 7XY6 BRN XAAZ 4 7YCQ XCXC 7 7YXB ADN 7 1 7 7_C2 LDN 5 6 7 7_WL SBX 5 7 8 82B= BZE 5 XCX 8 82TW LDN 5 #34 16 83*G DCH 5 A1+7(1) [DEPOSITE A COMMA 8 83T6 BCHX 1 XCXC 4 84#Q XCX 7 84SB SMO 3 8 85#2 LDX 6 0(2) 5 85HS ...X7503FIN 16 85RL CALL 0 WRITE [WRITE AWAY REC. 7 86?= LDX 3 6 21 86QW CALL 0 SETUP [SETUP A NEW BLOCK TO CONTAIN INFO 21 87=G BZE 6 XHAWK2 [J. IF NO MORE 7020 CELLS ON THIS LIN 20 87Q6 ... BRN XBCXX [J.BACK TO DEAL WITH NEXT 7020. 5 88PB XHAWK2 8 8992 SMO FX2 9 89NL LDX 6 AWORK2 7 8=8= LDX 3 6 17 8=MW CALL 0 XHUNT [HUNT FOR LINE CELL 9 8?7G BRN XPRINT 12 8?M6 # THIS DEALS IF LINE IS NULL. 5 8#6Q XNULL 7 8#LB LDN 5 0 21 8*62 BRN XSEN [J. BACK TO TEST IF LINE ATTACHED. 5 8*KL X7900A 8 8B5= BNZ 6 X7900 16 8BJW CALL 0 SETUP [NO IDENTIFIERS 15 8C4G LDN 4 #42 [ON THIS UNIT 9 8CJ6 STO 4 A1+1(1) 9 8D3Q LDN 5 A1+4(1) 8 8DHB SMO FX1 8 8F32 LDN 4 XSUBN 7 8FGL MOVE 4 7 8 8G2= BRN W1W 5 8GFW X7900 17 8G_G CALL 0 SETUP [SET UP BLOCK OF CORE 19 8HF6 LDN 5 A1+4(1) [LD. POSITION IN WRITE BLOCK 8 8HYQ SMO FX1 16 8JDB LDN 4 XSUB [LD. SUB HEADING 7 8JY2 MOVE 4 3 7 8KCL LDX 3 6 19 8MTQ XXWW CALL 0 XHUNT [HUNT FOR AN IDENTIFIER CELL 7 8N*B SMO 3 17 8NT2 LDX 5 BNO(2) [LD. IDENTIFIE NO. 8 8P#L ADN 1 A1+7 7 8PS= BCHX 1 / 7 8Q?W BCHX 1 / 20 8QRG CALL 7 XCBD [CALL ROUTINE TO CALCULATE NO. 8 8R?6 SBN 1 A1+7 7 8RQQ SMO 2 9 8S=B LDCH 4 BTYPE(3) 7 8S?K ... LDX 5 4 8 8S#2 ... ERN 5 #32 8 8S#C ... ANDN 5 #37 16 8S#S ... BNZ 5 NPVDU [J IF NOT PVDU 8 8S*9 ... SMO FX1 16 8S*L ... LDX 5 PVDU [LOAD PVDU TYPE 18 8SB3 ... BRN TPVD [AS #32 WONT FIT IN TABLE 5 8SBD ...NPVDU 8 8SJQ ... ANDN 4 #17 8 8SQ2 ADX 4 FX1 7 8T9L SMO 4 19 8TP= LDX 5 TABIPB [X5 = CHARACTER EQUIVELENT. 4 8W3L ...TPVD 9 8W8W STO 5 A1+9(1) 7 8W94 ... SMO 2 9 8W96 ... LDX 4 BTYPE(3) 14 8W97 ... STO 1 7 [SAVE FAPB ADDR 8 8W98 ... LDN 5 #7777 15 8W99 ... ANDX 5 4 [GET UNIT NO 16 8W9= ... FMOPG 1,5,IPB [FIND ITS AMOP ACT 15 8W9? ... BNG 1 NOADV [JUMP IF NO AMOP 18 8W9# ... HUNT2J 1,AMXOR,ADEVS,,NOADV [FIND ADEVS IF ANY 7 8W9* ... SMO 2 16 8W9B ... LDX 5 BNO(3) [GET IDENTIFIER NO 18 8W9C ... SBX 5 A1+FOURTHWD(1) [FIND LOCATION IN ADEVS 14 8W9D ... SLL 5 2 [MULT BY 4 14 8W9F ... LDCT 6 2 [SET BIT 7 7 8W9G ... SMO 5 17 8W9H ... ANDX 6 A1+FOURTHWD(1) [IS THIS IDE WRONGED 16 8W9J ... LDX 1 7 [RETREIVE FAPB ADDR 17 8W9K ... BNG 4 WRIDF [JUMP IF IDF WRONGED 16 8W9L ... BZE 6 QQ [JUMP IF RIGHTED 16 8W9M ... LDN 4 XWRID [OUTPUT WR(IDF RI) 8 8W9N ... BRN ZZ 15 8W9P ...WRIDF BNZ 6 ZW [OUTPUT WRONGED 16 8W9Q ... LDN 4 XRID [OUTPUT RI(IDF WR) 8 8W9R ... BRN ZZ 17 8W9S ...NOADV LDX 1 7 [COME HERE IF NO ADEVS 8 8W9T ... BPZ 4 QQ 4 8W9W ...ZW 15 8W9X ... LDN 4 XWR [SET WRONGED 4 8W9Y ...ZZ 8 8W9_ ... ADX 4 FX1 9 8W=2 ... LDN 5 A1+12(1) 15 8W=3 ... MOVE 4 3 [SET WRONGED 4 8W=4 ...QQ 3 8W=7 ... 20 8W=_ ... SMO 2 [TEST FOR RJE OR AUTO - SAME BIT 9 8W?R ... LDX 0 BTYPE(3) 7 8W#K ... LDX 5 0 7 8W*C ... SLL 0 7 14 8WB9 ... BPZ 0 NORJE [J IF NOT 7 8WC3 ... SLC 5 8 17 8WCT ... ANDN 5 #170 [MASK OUT DEVICE TYPE 8 8WDM ... SMO FX1 15 8WFF ... LDN 4 XAUTO [LD. AUTO. 19 8WG? ... BZE 5 QQ1 [J. DEVICE TYPE = TTW (ZERO) 19 8WH5 ... ADN 4 2 [PICK NEXT 2 WORDS - 1901A 9 8WHX ...QQ1 LDN 5 A1+10(1) 7 8WJP ... MOVE 4 2 3 8WKN ... 5 8WL_ ...NORJE 7 8WM5 ... ADX 2 3 18 8WM9 ... IF BS,2,IDF7502LP [ IDENTIFIER IS 7502 LP 6 8WM* ... THEN 9 8WMF ... SMO FX1 9 8WMK ... LDN 4 P7502 10 8WMP ... LDN 5 A1+10(1) 8 8WMT ... MOVE 4 2 5 8WM_ ... FI 7 8WN5 ... SBX 2 3 7 8WNG SMO 2 10 8X86 LDX 0 CONTCEP(3) 16 8XMQ BNZ 0 XYATIB [J. YES ATTACHED 9 8Y7B CALL 6 XNATIB 8 8YC8 ...W2W CALL 0 WRITE 21 8YM2 ... CALL 7 XMXB [RE-FIND RECORD AS WRITE COORDINATES 7 8YWS ... SMO 2 21 8_6L LDX 6 0(3) [LD. FORWARD PTR. TO NEXT IDENTIFIER. 7 8_82 ... ADX 3 2 3 8_=Q ... 19 8_#6 ... LDX 0 BTYPE(3) [TEST ^SPOOLABLE^(7503) BIT 7 8_*G ... SLL 0 8 15 8_BW ... BNG 0 SPABL [J IF 7503 17 8_D= ... LDX 0 BNUMB(3) [WE NEED AN EXTRA ^J 19 8_FL ... SLL 0 4 [IF SPOOLING^ HERE SINCE 7503 18 8_H2 ... BNG 0 SPABL [I'P IDENTIFIERS ARE NOT 18 8_JB ... [MARKED AS ^SPOOLABLE^ 8 8_KQ ... BRN XIFIN 3 8_M6 ... 5 8_N9 ...SPABL 9 8_P# ... LDX 7 BNUMB(3) 17 8_QC ... CALL 0 SETUP [SETUP DOESN'T USE X7 7 8_RG ... SLL 7 4 8 8_SL ... LDX 4 FX1 9 8_W2 ... LDN 5 A1+10(1) 16 8_XB ... BNG 7 SPYES [J IF SPOOLING 19 8_YQ ... ADN 4 NOT [PUT ^NOT SPOOLING^ IN FAPB 8 9226 ... BRN SPEND 3 923G ... 18 924W ...SPYES ADN 4 SPMESS [PUT ^SPOOLING^ IN FAPB 7 926= ... MOVE 4 2 7 927L ... SLL 7 1 7 9292 ... ADN 5 2 16 92=B ... BNG 7 SPUNA [J IF UNATTENDED 17 92?Q ... ADN 4 2 [PUT ^ATTENDED^ IN 8 92*6 ... BRN SPEND 3 92BG ... 17 92CW ...SPUNA ADN 4 5 [PUT ^UNATTENDED^ IN 7 92F= ...SPEND MOVE 4 3 8 92GL ...W1W CALL 0 WRITE 20 92J2 ...XIFIN BNZ 6 X7900 [J IF MORE IDENTS ON THIS UNIT 8 92KG SMO FX2 18 9356 LDX 6 AWORK1 [LD. PTR.TO UNIT CELL. 7 93JQ LDX 3 6 8 944B CALL 0 SETUP 14 94J2 BRN XHERB [J. BACK. 5 953L XNATIB 8 95H= SBX 6 FX1 8 962W SMO FX2 14 96GG STO 6 AWORK3 [ST. LINK 18 9726 ... LDN 5 A1+12(1) [LD. POSITION ALONG LINE. 7 97#G ... ADN 5 3 21 97FQ BRN XNATI [J. TO OUTPUT MESSAGE NOT ATTACHED. 4 97_B # 13 98F2 # DEALS WITH IDENTIFIER ATTACHED. 4 98YL # 5 99D= XYATIB 9 99XW LDX 6 BRECNO(2) 7 9=CG SLL 6 9 18 9=X6 ADX 6 3 [X6= PTR. TO IDENTIFIER. 8 9?BQ SMO FX2 19 9?WB STO 6 AWORK2 [ST. PTR. TO IDENT. IN AWORK2 21 9#B2 CALL 6 XYATIP [CALL ROUTINE TO OUTPUT ATTACHED MESS 8 9#TL BRN W2W 5 9**= XYATIP 8 9*SW SBX 6 FX1 8 9B#G SMO FX2 15 9BS6 STO 6 AWORK3 [SAVE LINK 19 9C?Q ... LDN 5 2 [HELP POSITION ALONG LINE. 8 9CRB BRN XYATI 5 9D?2 ...XCONCEP 10 9DQL ... ACROSS LISTCONK,1 4 9F== ...# 4 9FPW ...# 5 *TW= WRITE 8 *W*W SBX 0 FX1 8 *WTG LDX 2 FX2 14 *X*6 STO 0 AWORK4(2) [STO LINK 9 *XSQ APPEND 2,XREFU 10 *Y#B TESTREP REFUSED,XREFU 15 *YS2 VFREE FILE,FAPB [FREE BLOCK 15 *_?L LDX 0 AWORK4(2) [RELOAD LINK 8 *_R= ADX 0 FX1 7 B2=W EXIT 0 0 3 B2GN ... 8 B2QG XMXB SBX 7 FX1 8 B3=6 LDX 2 FX2 7 B3PQ MXB 2 8 B49B ADX 7 FX1 21 B4P2 MHUNTW 1,FILE,FAPB [HUNT FOR BLOCK DUE TO POSSIBLE COOR 7 B58L EXIT 7 0 3 B5DD ... 10 B5S7 ...XREFU ACROSS LISTSTAR,30 3 B67W ... 5 B9K= XHUNT 8 B=4W SBX 0 FX1 8 B=JG LDX 2 FX2 14 B?46 STO 0 AWORK4(2) [STO LINK 8 B?HQ SMO FX1 8 B#3B ANDX 6 MASK 7 B#H2 SRL 6 9 10 B*2L STO 6 ACOMMUNE3(2) 8 B*G= CALL 7 XMXB 8 B*_W ANDN 3 #777 8 BBFG SMO FX2 15 BB_6 LDX 0 AWORK4 [RELOAD L9NK 8 BCDQ ADX 0 FX1 7 BCYB EXIT 0 0 3 BD88 ... 5 BDD2 SETUP 8 BDXL SBX 0 FX1 8 BFC= LDX 2 FX2 15 BFWW STO 0 AWORK4(2) [STORE LINK 18 BGBG SETNCORE 26,1,FILE,FAPB [SETUP AN APPEND BLOCK 8 BGW6 SMO FX1 9 BH*Q LDX 4 MASK+1 18 BHTB STO 4 A1+2(1) [SPACEFIL THE DATA AREA. 9 BJ*2 LDN 4 A1+2(1) 9 BJSL LDN 5 A1+3(1) 8 BK#= MOVE 4 24 8 BKRW LDN 4 26 18 BL?G STO 4 A1(1) [STORE CT. OF NO. OF WDS. 8 BLR6 LDN 4 #41 15 BM=Q STO 4 A1+1(1) [ST. PFCC. 9 BMQB LDX 0 AWORK4(2) 8 BN=2 ADX 0 FX1 7 BNPL EXIT 0 0 3 BN_D ... 19 BP9= XCBD [CONVERT BINARY TO DECIMAL 7 BPNW LDN 6 0 7 BQ8G LDN 4 4 8 BQN6 SMO FX1 16 BR7Q DVD 5 XMAJ [MAKE A FRACTION. 7 BRMB LDX 5 6 7 BS72 ADN 5 1 7 BSLL LDN 6 0 7 BT6= MODE 1 4 BTKW XUSA 16 BW5G CBD 5 0(1) [CONVERT FRACTION 7 BWK6 BCHX 1 / 20 BX4Q BCT 4 XUSA [J. IF CONVERSION NOT FINISHED. 7 BXJB SBN 1 1 14 BY42 EXIT 7 0 [EXIT. 4 C8T= #END 8 ____ ...27356712000100000000