15 22FL ...#SEG LISTDEV [LEN WAGSTAFF 4 22KH ...# 20 22PD ...# MODIFIED APRIL 82 TO OUTPUT A LISTFILE IF NO LP FREE 4 22T* ...# 8 22_= #OPT K0LISTDEV=0 7 23DW #LIS K0LISTDEV 9 23YG ... 8HLISTDEV 8 24D6 #DEF XZ=CPATLEN+A1 4 24XQ # 4 25CB # 12 25X2 SEGENTRY K1LISTDEV,X1LISTDEV 4 26BL # 4 26W= # 11 26_B ...XER1 20HINVALID PARAMETER 14 274G ...XER2 32HDEVICE NOT ON THIS INSTALLATION 11 277L ...XER3 20HDEVICE NOT AVAILABLE 9 27=Q ...XDV 12HDEVICELIST 8 27*W PTI 4HPTI 8 27TG XBDT 4HBDT 9 28*6 TYPE 4HTYPE 9 28SQ UNIT 4HUNIT 8 29#B XFOUR +4 8 29S2 SFOUR +64 9 2=?L XCON +10000 9 2=R= XCHERR +CHNUMERR 9 2?=W XJNOPER +JNOPER 9 2?QG XJPERNA +JPERNA 5 2#=6 XAPIALEN 13 2#PQ +BILEN [TR 6 2#WY ...#UNS JSKI38 4 2*46 ...#SKI 13 2*9B +BOLEN [TP 16 2*?5 ...#UNS JSKI38 [GLASGOW SPECIALS 13 2*#S ... +BTLEN [TP 18 2*BJ ...#UNSET JSKI24 [PRE VARIABLE WIDTH LPS 4 2*HQ ...#SKI 13 2*P2 +BOLEN [LP 18 2*W8 ...#UNSET JSKI24 [POST VARIABLE WIDTH LPS 9 2B3B ... +BLLEN 13 2B8L +BILEN [CR 13 2BN= +BOLEN [CP 13 2C7W +BMTLEN [MT 13 2CMG +BUDASLEN [EDS 13 2D76 +BUDASLEN [MCF 13 2DLQ +0 [DS 13 2F6B +BDRLEN [DR 13 2FL2 +COMLEN [UX 13 2G5L +COMLEN [MX 13 2GK= +0 [CT 13 2H4W +BUDASLEN [FDS 13 2HJG +0 [AD 14 2J46 +0 [TYPE 15 14 2JHQ +0 [TYPE 16 14 2K3B +0 [TYPE 17 14 2KH2 +0 [TYPE 18 14 2L2L +0 [TYPE 19 13 2LG= +0 [GP 12 2L_W +0 [GD 13 2MFG +0 [DXC 13 2M_6 +0 [UD 13 2NDQ +COMLEN [IPB 14 2NYB +BDRLEN [FASTDRUM 16 2PD2 +BUDASLEN [EDS(30) - (MEDS) 14 2PXL +0 [TYPE 27 14 2QC= +0 [TYPE 28 14 2QWW +0 [TYPE 29 14 2RBG +0 [TYPE 30 14 2RW6 +0 [TYPE 31 14 2S*Q +0 [TYPE 32 14 2STB +0 [TYPE 33 14 2T*2 +0 [TYPE 34 14 2TSL +0 [TYPE 35 14 2W#= +0 [TYPE 36 14 2WRW +0 [TYPE 37 14 2X?G +0 [TYPE 38 14 2XR6 +0 [TYPE 39 14 2Y=Q +0 [TYPE 40 14 2YQB +0 [TYPE 41 14 2_=2 +0 [TYPE 42 14 2_PL +0 [TYPE 43 14 329= +0 [TYPE 44 14 32NW +0 [TYPE 45 14 338G +0 [TYPE 46 14 33N6 +0 [TYPE 47 14 347Q +0 [TYPE 48 13 34MB +0 [CD 13 3572 +0 [IP 13 35LL +0 [OP 13 366= +0 [GE 13 36KW +0 [CO 13 375G +0 [EM 13 37K6 +0 [OI 13 384Q +0 [OO 13 38JB +0 [CS 13 3942 +0 [RR 13 39HL +0 [ET 20 3=3= +0 [TYPE RESERVED FOR OBJ PROG PERIS 14 3=GW +0 [TYPE 61 14 3?2G +0 [TYPE 62 17 3?G6 +CONSLEN [OPERATOR'S CONSOLE 3 3?K= ... 4 3?NB ...# 10 3?RG ...QLF 8HLF !,*LP 4 3?WL ...# 20 3?_Q X1LISTDEV [COMMAND PROCESSOR ENTRY-POINT 17 3#FB STOZ AWORK2(2) [ZEROISE SWITCH WORD 17 3#_2 STOZ AWORK1(2) [ENTRY POINT MARKER 9 3*8S ... STOZ AWORK4(2) 17 3*DL CALL 7 XGETLP [GET A LINEPRINTER 16 3*Y= PARAPASS [ACCESS PARAMETER 17 3BCW MHUNT 3,CPB,CUNI [FIND THE CPB/CUNI 9 3BDX ... LDN 4 XDV(1) 9 3BFY ... LDN 5 XZ+12(2) 14 3BG_ ... MOVE 4 3 [DEVICELIST 16 3BJ2 ... LDX 0 ANUM(3) [LOOK AT PARAM LENGTH 8 3BK3 ... BNG 0 XHEAD 16 3BL4 ... BZE 0 XHEAD [JUMP IF NONE OR NULL 8 3BM5 ... ANDN 0 #7777 9 3BN6 ... LDN 4 APARA(3) 9 3BP7 ... LDN 5 XZ+15(2) 7 3BQ8 ... SMO 0 14 3BR9 ... MVCH 4 0 [COMMAND PARAM 8 3BS= ...XHEAD LDN 0 #51 14 3BT? ... STO 0 XZ(2) [NEW PAGE PFCC 15 3BW# ... CALL 7 WRITE [PRINT HEADING 9 3BXG LDX 0 ANUM(3) 17 3CC6 BNG 0 XALL [BR IF NULL PARAMETER 18 3CWQ BZE 0 XALL [...OR IF NON-EXISTENT 8 3DBB ANDN 0 #7777 9 3DW2 TXL 0 XFOUR(1) 19 3F*L BCC PFERR [ERROR IF PARAMETER TOO LONG 19 3FT= LDCH 0 APARA(3) [1ST CHARACTER OF PARAMETER 17 3G#W BZE 0 PFERR [BR IF PARAMETER = 0 8 3GSG SBN 0 #12 18 3H#6 BNG 0 XNUMB [BR IF GEOG NO PARAMETER 8 3HRQ SBN 0 #20 18 3J?B BZE 0 XTYPE [BR IF TYPE NO PARAMETER 7 3JR2 SBN 0 7 18 3K=L BZE 0 XALL [BR IF PARAMETER ^ALL^ 8 3KQ= SBN 0 #23 17 3L9W BZE 0 XTW [BR IF PARAMETER ^TW^ 18 3LPG BRN PFERR [NONE OF THESE - ERROR 17 3M96 XNUMB [GEOG NO PARAMETER 8 3MNQ LDCT 0 #400 19 3N8B ERS 0 AWORK2(2) [SET GEOG NO PARAMETER MARKER 17 3NN2 CHNUMCOD 1,3 [CONVERT PARAMETER 17 3P7L TESTREP CHNUMERR,PFERR [...AND TEST REPLY 16 3PM= LDX 4 ACOMMUNE1(2) [GEOG NO TO X4 21 3P_M ... FINDPERE 3,APGEOG,4,,AV7900,XN1 [FIND DEVICE LIST POINTER 4 3Q#4 ...XN1 17 3QLG BNG 3 XNPERR [ERROR IF NOT FOUND 8 3R66 LTYPE 3,4 8 3RKQ BRN PRINT 17 3S5B XTYPE [TYPE NO PARAMETER 8 3SK2 LDCT 0 #200 19 3T4L ERS 0 AWORK2(2) [SET TYPE NO PARAMETER MARKER 19 3TJ= PERCON [CONVERT PARAMETER (*LP ETC) 15 3W3W ... TESTREP PARERR,XEND [TEST REPLY 11 3WHG MHUNTW 3,CPAR,GPERCON 17 3X36 LDX 4 GTYPE(3) [LOAD PERIPHERAL TYPE 18 3XGQ FREECORE 3 [FREE CPAR/GPERCON BLOCK 8 3Y2B SRL 4 15 8 3YG2 BRN YTYPE 17 3Y_L XTW [TYPEWRITER PARAMETER 15 3_F= LDN 4 63 [CONSOLE TYPE 8 3_YW LDCT 0 #300 19 42DG ERS 0 AWORK2(2) [SET ^TW^ PARAMETER MARKER 8 42Y6 BRN YTYPE 16 43CQ XALL [^ALL^ PARAMETER 8 43XB LDCT 0 #40 19 44C2 ERS 0 AWORK2(2) [SET ^ALL^ PARAMETER MARKER 9 44QP ... STO 0 AWORK4(2) 8 456D ... LDN 0 #42 18 45G7 ... STO 0 XZ(2) [STORE DOUBLE LINE PFFC 9 45TW LDX 0 PTI(1) 18 46*G STO 0 XZ+7(2) [STORE ^PTI^ IN BUFFER 9 46T6 LDX 0 XBDT(1) 18 47#Q STO 0 XZ+20(2) [STORE ^BDT^ IN BUFFER 15 47SB CALL 7 WRITE [PRINT LINE 8 48#2 LDN 0 #42 19 48RL STO 0 XZ(2) [STORE DOUBLE LINE THROW PFFC 20 49?= LDN 4 0 [INITIALISE X4 FOR TYPE NUMBER 16 49QW LDN 5 JPTI [LOAD BASE OF PTI 17 4==G LDX 6 BDTP [LOAD POINTER TO BDT 5 4=Q6 SLOOP 19 4?9Q ADN 2 XZ+4 [X2 HOLDS DESTINATION ADDRESS 19 4?PB CALL 7 XCBD [CONVERT TO DECIMAL AND STORE 7 4#92 LDN 0 3 17 4#NL ADS 0 XZ+5(2) [STORE # IN BUFFER 7 4*8= LDN 3 8 7 4*MW SMO 5 18 4B7G LDX 0 0 [LOAD NEXT WORD OF PTI 4 4BM6 ZIM 7 4C6Q LDN 7 0 19 4CLB SLL 70 3 [CONVERT CONTENTS TO OCTAL 18 4D62 DCH 7 XZ+6(2) [... AND STORE IN BUFFER 7 4DKL BCHX 2 / 8 4F5= BCT 3 ZIM 8 4FJW LDX 2 FX2 17 4G4G SBX 6 BDTP [CHECK FOR END OF BDT 8 4GJ6 TXL 6 BDTL 18 4H3Q BCC RR [BR IF END OF BDT REACHED 8 4HHB ADX 6 BDTP 7 4J32 LDN 0 3 17 4JGL ADS 0 XZ+19(2) [STORE ^#^ IN BUFFER 16 4K2= LDN 3 8 [CHARACTER COUNT 7 4KFW SMO 6 16 4K_G LDX 0 0 [NEXT WORD OF PTI 4 4LF6 ZJM 7 4LYQ LDN 7 0 17 4MDB SLL 70 3 [CONVERT IT TO OCTAL 18 4MY2 DCH 7 XZ+20(2) [AND STORE IT IN BUFFER 7 4NCL BCHX 2 / 8 4NX= BCT 3 ZJM 4 4PBW RR 7 4PWG ADN 4 1 16 4QB6 ADN 5 1 [UPDATE POINTERS 7 4QTQ ADN 6 1 8 4R*B LDX 2 FX2 16 4RT2 CALL 7 WRITE [WRITE LINE AWAY 19 4S#L TXL 4 SFOUR(1) [TEST IF END OF PTI REACHED 16 4SS= BCS SLOOP [AND BR IF NOT 19 4T?W LDN 4 0 [INITIALISE TYPE NO FOR LOOP 19 4TRG YTYPE [TYPE NO PARAMETER - ENTRY TO 16 4W?6 # PRINTING ROUTINE 21 4WKH ... FINDPERE 3,APFOTY,4,THO,AV7900,YT1,YT1 [GET DEVICE LIST POINT 4 4WXY ...YT1 15 4X=B BPZ 3 PRINT [BR IF FOUND 8 4XQ2 ... LDCT 0 #50 9 4Y9L ANDX 0 AWORK2(2) 19 4YP= BZE 0 XNPOTT [BR IF TYPE PARPMETER ERROR 8 4_8W LDCT 0 #40 9 4_NG ANDX 0 AWORK2(2) 21 5286 BZE 0 XEND [BR IF END AND NOT ^ALL^ PARAMETER 18 52MQ ADN 4 1 [UPDATE TYPE NO FOR LOOP 9 537B TXL 4 SFOUR(1) 19 53M2 BCC XIT [BR IF END (TYPE COUNT = 64) 8 546L BRN YTYPE 12 54L= # THIS IS THE MAIN PRINTING ROUTINE 5 555W PRINT 19 55KG STO 3 XZ+31(2) [PRESERVE DEVICE LIST POINTER 8 5656 LDCT 0 #10 20 56JQ ORS 0 AWORK2(2) [SET PERIPHERAL ACCESSED MARKER 20 574B LDX 3 XZ+31(2) [RESTORE D/L POINTER OF DEVICE 5 57J2 XGOTLP 8 583L LDN 0 #51 19 586Q ... LDX 7 AWORK4(2) [DOUBLE LINE PFCC FIRST TIME THRO 8 589W ... BNZ 7 XLP1 8 58*2 ... LDN 0 #42 4 58D6 ...XLP1 16 58H= STO 0 XZ(2) [NEW PAGE PFFC 9 592W LDX 0 UNIT(1) 18 59GG STO 0 XZ+7(2) [STORE ^UNIT^ IN BUFFER 9 5=26 LDX 0 TYPE(1) 18 5=FQ STO 0 XZ+10(2) [STORE ^TYPE^ IN BUFFER 16 5=_B LDX 6 4 [PRESERVE TYPE NO 19 5?F2 LGEOG 3,4 [LOAD GEOG NO FOR CONVERSION 8 5?YL ADN 2 XZ+8 21 5#D= CALL 7 XCBD [CONVERT GEOG NO TO DECIMAL & STORE 16 5#XW LDX 4 6 [RESTORE TYPE NO 8 5*CG ADN 2 XZ+11 19 5*X6 CALL 7 XCBD [CONVERT TYPE NO AND STORE 15 5BBQ CALL 7 WRITE [PRINT LINE 7 5BWB LDN 5 8 7 5CB2 LDX 4 6 7 5CTL SMO 4 17 5D*= LDX 0 XAPIALEN(1) [LOAD LENGTH OF APIA 16 5DSW STO 0 AWORK3(2) [AND REMEMBER IT 20 5F#G CALL 7 XLENDV [SET AWORK4 POINTING TO START OF 16 5FS6 # [NEXT DEVICE LIST 4 5N7= XPLP 8 5NLW LDX 2 FX2 17 5P6G LADDP 3,1 [LOAD ADDRESS OF APIA 5 5PL6 XNORM 19 5Q5Q STO 1 AWORK1(2) [STORE START ADDRESS OF APIA 19 5QKB LDN 1 0 [INITIALISE APIA WORD COUNT 7 5R52 V3 LDN 0 3 17 5RJL ADS 0 XZ+6(2) [STORE ^#^ IN BUFFER 20 5S4= LDX 0 0(3) [LOAD NEXT WORD OF DEVICE LIST 7 5SHW LDN 5 8 4 5T3G ZKM 7 5TH6 LDN 7 0 17 5W2Q SLL 70 3 [CONVERT IT TO OCTAL 9 5WGB DCH 7 XZ+7(2) 7 5X22 BCHX 2 / 8 5XFL BCT 5 ZKM 8 5X_= ADN 2 XZ+3 15 5YDW LDX 5 4 [PRESERVE X4 20 5YYG LDX 4 1 [CONVERT WORD NUMBER TO DECIMAL 15 5_D6 CALL 7 XCBD [AND STORE 16 5_XQ LDX 4 5 [RESTORE TYPE NO 16 62CB LDX 0 AWORK3(2) [LENGTH OF APIA 17 62X2 BZE 0 NMAPIA [BR IF ZERO LENGTH 9 63BL TXL 1 AWORK3(2) 19 63W= BCC NMAPIA [BR IF NO MORE APIA TO PRINT 7 64*W LDN 0 3 17 64TG ADS 0 XZ+18(2) [STORE ^#^ IN BUFFER 9 65*6 SMO AWORK1(2) 18 65SQ LDX 0 0(1) [LOAD NEXT WORD OF APIA 7 66#B LDN 5 8 4 66S2 ZLM 7 67?L LDN 7 0 17 67R= SLL 70 3 [CONVERT IT TO OCTAL 15 68=W DCH 7 XZ+19(2) [AND STORE 7 68QG BCHX 2 / 8 69=6 BCT 5 ZLM 8 69PQ LDX 2 FX2 16 6=9B LDX 0 XZ+5(2) [LOAD WORD NUMBER 9 6=P2 STO 0 XZ+17(2) 5 6?8L NMAPIA 15 6?N= CALL 7 WRITE [PRINT LINE 15 6#7W LDX 1 XZ+32(2) [RESTORE X1 7 6#MG ADN 1 1 16 6*76 ADN 3 1 [UPDATE POINTERS 19 6*LQ TXL 3 AWORK4(2) [TEST IF END OF D/L REACHED 15 6B6B BCS V3 [.. BR IF NOT 12 6BL2 # COMPLETED PRINTING A DEVICE LIST 19 6C5L LDX 3 XZ+31(2) [RESTORE DEVICE LIST POINTER 8 6CK= LDX 1 FX1 9 6D4W LDX 0 AWORK2(2) 16 6DJG BPZ 0 THO [BR IF MORE TO DO 4 6F46 XIT 4 6FHQ ...XEND 9 6G3B ... LDX 0 XZ+34(2) 18 6GH2 ... BNZ 0 XCLWF [JUMP IF USING WORKFILE 5 6S?G XNOTP 17 6SR6 FREEPER [FREE THE LINEPRINTER 5 6T=Q XOVER 17 6TCY ... LDX 0 XZ+33(2) [RESET CPAT'S CPPTR 9 6TK6 ... STO 0 CPPTR(2) 15 6TQB ENDCOM [AND PACK UP 4 6TR? ...# 15 6TS8 ...# CODE INSERTED TO CLOSE WORKFILE 12 6TT5 ...# AND ISSUE LISTFILE 4 6TW2 ...# 5 6TWX ...XCLWF 6 6TXS ... CLOSE 11 6TYP ... SETNCORE 4,3,ADATA,CREADL 18 6T_L ... LDN 0 8 [NO OF CHS IN COMMAND 8 6W2H ... STO 0 A1(3) 9 6W3D ... LDX 0 QLF(1) 16 6W4* ... STO 0 CPDATA(3) [MOVE COMMAND 9 6W5= ... LDX 0 QLF+1(1) 10 6W67 ... STO 0 CPDATA+1(3) 18 6W74 ... ISSUCOMB XOVER,XOVER [ISSUE LISTFILE COMMAND 14 6W7_ ... BRN XOVER [WRAP UP 4 6W8W ...# 5 6W=2 PFERR 8 6WPL LDX 1 FX1 9 6WWS ... LDN 4 XER1(1) 8 6X42 ... LDN 6 5 18 6X9= LDX 7 XCHERR(1) [PARAMETER FORMAT ERROR 17 6XNW BRN XOUT [BR TO OUTPUT MESSAGE 5 6Y8G XNPERR 8 6YN6 LDX 1 FX1 9 6YT# ... LDN 4 XER2(1) 7 6_2G ... LDN 6 8 15 6_7Q LDX 7 XJNOPER(1) [NO SUCH UNIT 8 6_MB BRN XOUT 5 7272 XNPOTT 8 736= LDX 1 FX1 9 73?D ... LDN 4 XER3(1) 7 73DL ... LDN 6 5 15 73KW LDX 7 XJPERNA(1) [NO SUCH TYPE 4 745G XOUT 9 747P ... LDN 5 XZ+1(2) 7 749Y ... SMO 6 7 74#7 ... MOVE 4 0 7 74BB ... STO 7 5 19 74DK ... CALL 7 WRITE [SEND ERROR MESSAGE TO PRINTER 7 74GS ... LDX 7 5 10 74K6 MHUNT 3,CPB,CUNI 9 754Q LDX 4 ANUM(3) 16 75JB ANDN 4 #7777 [CHARACTER COUNT 18 7642 OUTPARAM 4,APARA,CPB,CUNI [SET UP MESSAGE PARAMETER 17 76HL MONOUTX 7 [OUTPUT THE MESSAGE 8 773= ... BRN XEND 4 77GW # 10 782G # END OF MAIN ROUTINE 4 78G6 # 9 78_Q # SUBROUTINES FOLLOW 4 79FB # 4 79_2 XCBD 21 7=DL # CONVERT NUMBER IN X4 TO DECIMAL AND STORE IN WORD POINTED TO BY 17 7=Y= # X2.X5 IS PRESERVED, X2 = FX2 ON EXIT. LINK IN X7 4 7?CW # 8 7?XG SMO FX2 15 7#C6 STO 5 ACOMMUNE1 [PRESERVE X5 8 7#WQ SMO FX2 15 7*BB STO 4 ACOMMUNE2 [PRESERVE X4 7 7*W2 LDN 5 0 8 7B*L SMO FX1 8 7BT= DVR 4 XCON 7 7C#W LDX 4 5 8 7CSG LDCT 5 #200 19 7D#6 MODE 1 [SET ZERO SUPPRESSION MODE 7 7DRQ LDN 0 3 4 7F?B XCDB 19 7FR2 CBD 4 0(2) [DESTINATION ADDRESS IN X2 7 7G=L BCHX 2 / 18 7GQ= BCT 0 XCDB [4 CHARACTERS TO CONVERT 20 7H9W MODE 0 [RESET MODE FOR LAST CHARACTER 8 7HPG CBD 4 0(2) 8 7J96 LDX 2 FX2 15 7JNQ LDX 5 ACOMMUNE1(2) [RESTORE X5 15 7K8B LDX 4 ACOMMUNE2(2) [RESTORE X4 7 7KN2 EXIT 7 0 5 7L7L XGETLP 17 7LM= # TO GET A LINEPRINTER BY WHATEVER MEANS NECESSARY 7 7M6W # LINK IN X7 4 7MLG # 8 7N66 SBX 7 FX1 8 7NKQ LDX 2 FX2 10 7P5B STOZ ACOMMUNE1(2) 18 7PK2 ... ALTLEND 2,XZ+34 [EXTEND CPAT FOR BUFFER 8 7Q4L LDX 0 ACES 9 7QJ= STO 0 XZ+1(2) 9 7R3W LDN 0 XZ+1(2) 9 7RHG LDN 1 XZ+2(2) 16 7S36 MOVE 0 29 [AND SPACEFILL IT 18 7S8# ... LDX 0 CPPTR(2) [PRESERVE CPAT'S CPPTR 9 7S*G ... STO 0 XZ+33(2) 19 7SD6 ... STOZ XZ+34(2) [SET NON ZERO IF WORKFILE USED 14 7SGQ LDN 6 2 [LP TYPE 18 7T2B FINDPERE 3,APFOTY,6,RTRY [GET LP D/L POINTER IN X3 16 7TG2 BNG 3 XNOTFOUND [BR IF NOT FOUND 17 7T_L JFREE 3,XFREE [BR IF DEVICE FREE 16 7WF= ... BRN RTRY [TRY FOR ANOTHER ONE 4 7WYW ...# 19 7XDG ...# CODE INSERTED TO WARN OPERATOR IF NO LP FREE 15 7XY6 ...# AND OPEN A WORKFILE FOR OUTPUT 4 7YCQ ...# 6 7YXB ...XNOTFOUND 18 7_C2 ... MONOUT ANOLP [SEND WARNING TO CONSOLE 7 7_WL ... CREATEWF 17 82B= ... CREATEB 1 [CREATE WORKFILE 8 82TW ... LDN 0 #12 8 83*G ... ORX 0 GSIGN 17 83T6 ... STO 0 CETM(1) [MARK GRAPHIC FILE 14 84#Q ... OPENWORK XFLOP,APPEND,EMPTY [OPEN IT 9 84SB ... TESTREP OK,WFOK 17 85#2 ...XFLOP GEOERR 1,IDFWFILE [CANT OPEN FILE 7 85RL ...WFOK NGN 0 1 21 86?= ... STO 0 XZ+34(2) [MARK IN CPAT THAT WORKFILE IN USE 8 86QW ... BRN XEX 16 8G_G XFREE [FREE LP FOUND 16 8HF6 JRIGHT 3,XALLOC [BR IF LP RIGHT 17 8KX= BRN RTRY [TRY FOR ANOTHER ONE 5 8LBW XALLOC 18 8LWG SETALLOC 3 [MARK DEVICE ALLOCATED 16 8MB6 STO 3 CPPTR(2) [TO THIS ACTIVITY 4 8MKY ...XEX 8 8MTQ LDX 1 FX1 8 8N*B ADX 7 FX1 7 8NT2 EXIT 7 0 5 8P#L WRITE 20 8PS= # SUBROUTINE PRINTS THE LINE HELD IN THE EXTENSION OF THE CPAT 12 8Q?W # AND THEN CLEARS IT. LINK IN X7 4 8QRG # 15 8R?6 STO 1 XZ+32(2) [PRESERVE X1 8 8RQQ SBX 7 FX1 9 8RXY ... LDX 0 XZ+34(2) 18 8S56 ... BNZ 0 WRITEWF [JUMP IF USING WORKFILE 5 8S=B TFAIL 7 8SQ2 LDN 0 0 15 8T9L DCA ,DLA,0,MODE [INSERT MODE 8 8TP= LDN 0 121 18 8W8W DCA ,STO,0,COUNT [STORE CHARACTER COUNT 8 8WNG LDN 0 XZ(2) 7 8X86 BCHX 0 / 7 8XMQ BCHX 0 / 7 8Y7B BCHX 0 / 19 8YM2 DCA ,STO,0,CTSA [CORE TRANSFER START ADDRESS 17 8_6L LOCK 2 [LOCK ACTIVITY BLOCK 15 8_L= GPERI ,2, [ISSUE PERI 18 925W COOR1 [WAIT FOR IT TO FINISH 7 92KG UNLOCK 2 16 9356 LDX 0 CPRW1(2) [LOAD REPLY WORD 7 93JQ SLL 0 5 14 944B BPZ 0 TOK [BR IF OK 18 94J2 ENGPER XOXER,,XOXER,1 [OTHERWISE ENGAGE PRINTER 8 953L BRN TFAIL 4 954H ...# 16 955D ...# CODE INSERTED TO COPY PRINT LINE 19 956* ...# FROM CPAT BUFFER TO FILE,FAPB IF USING WORKFILE 4 957= ...# 5 9587 ...WRITEWF 11 9594 ... SETNCORE 32,1,FILE,FAPB 8 959_ ... LDN 0 32 17 95=W ... STO 0 A1(1) [PUT COUNT INTO HEADER 7 95?R ... LDX 0 2 8 95#N ... ADN 0 XZ 8 95*K ... ADN 1 A1+1 17 95BG ... MOVE 0 31 [MOVE PRINT LINE TO FAPB 16 95CC ... APPEND 0,XEND [WRITE TO WORKFILE 10 95D# ... TESTREP REFUSED,XEND 9 95F9 ... VFREE FILE,FAPB 3 95G6 ... 4 95H= TOK 8 962W LDX 0 ACES 9 96GG STO 0 XZ+1(2) 18 9726 LDN 0 XZ+1(2) [SPACEFILL BUFFER BLOCK 9 97FQ LDN 1 XZ+2(2) 8 97_B MOVE 0 29 8 98F2 LDN 0 #41 16 98YL STO 0 XZ(2) [SINGLE LINE PFFC 8 99D= LDX 1 FX1 8 99XW ADX 7 FX1 7 9=CG EXIT 7 0 16 9=X6 XOXER [CD ENGAGE LABEL 19 9?BQ SETWTBWR [SET WAITING TO BE WRONGED 16 9?WB BRN XEND [AND CLOSEDOWN 5 9#B2 XLENDV 20 9#TL # STORE IN AWORK4 A POINTER TO THE DEVICE LIST IMMEDIATELY AFTER 13 9**= # THAT POINTED AT BY X3 LINK IN X4 4 9*SW # 15 9B#G STO 4 ACOMMUNE1(2) [PRESERVE X4 9 9BS6 LDX 0 BITS22LS 15 9C?Q STO 0 AWORK4(2) [A4 = 4M ODD 20 9CRB LDX 0 BDTP [X0 POINTS TO BASIC DEVICE TABLE 8 9D?2 LDX 1 BDTL 15 9DQL SBN 1 1 [X1 = COUNT 5 9F== XDOWN 7 9FPW SMO 0 18 9G9G LDX 4 0(1) [LOAD NEXT WORD OF BDT 7 9GP6 TXL 4 3 18 9H8Q BCS XUP [BR IF GREATER THAN X3 7 9HNB TXU 4 3 15 9J82 BCC XUP [OR IF EQUAL 9 9JML TXL 4 AWORK4(2) 16 9K7= BCC XUP [BR IF > AWORK4 9 9KLW STO 4 AWORK4(2) 4 9L6G XUP 8 9LL6 BCT 1 XDOWN 21 9M5Q ENDLIST 4 [LOAD POINTER TO END OF DEVICE LISTS 9 9MKB TXL 4 AWORK4(2) 16 9N52 BCC YEND [BR IF >= AWORK4 9 9NJL STO 4 AWORK4(2) 4 9P4= YEND 15 9PHW LDX 4 ACOMMUNE1(2) [RESTORE X4 8 9Q3G LDX 1 FX1 7 9QH6 EXIT 7 0 4 9R2Q # 11 9RGB MENDAREA 40,K100LISTDEV 4 9S22 #END 8 ____ ...76715037000300000000