9 22FL SEG PCTLISTB 13 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 11 22_= #LIS K0PCTLISTB>K0PCT>K0ALLGEO 7 23DW # ENTRY POINTS 12 23YG SEGENTRY K1PCTLISTB,Z1PCTLISTB 12 24D6 SEGENTRY K2PCTLISTB,Z2PCTLISTB 20 24XQ [THIS SEGMENT OUTPUTS ASTERISKS + PAGE THROW OR RUNOUT AND GOES TO 15 25CB [K1LISTFIND TO FIND ANOTHER FILE TO BE LISTED. 21 25X2 [IT IS ENTERED AT K1 FROM 'PCTSTART' IF A REMOTE LP HAS BEEN ALLOCATED. 21 26BL [IT IS ENTERED AT K2 WHEN THE LISTING IS COMPLETE, TO FINISH IT OFF AND 14 26W= [RETURN TO THE LISTFILE SCHEDULING ROUTINES. 12 27*W [THE CURRENT ACTIVITY IS AN ACTLF. 14 28SQ TWEMS #76007631,#60763576,#04762300 6 29#B VLIP FLIP 8 29S2 LDX 1 FX1 8 2=?L LDX 2 FX2 7 2=R= EXIT 7 0 9 2?QG YLIST #76663232 21 2#=6 STAR #32323232 [KEEP YLIST,STAR,ZLIST IN THIS ORDER 9 2#PQ ZLIST #32327666 10 2*9B SEGENTRY K70PCTLISTB 9 2*P2 #76667634 14 2B8L NLIST #76347666,#76327632,#76357634 12 2BN= TAPE #76327620,#76207620 9 2C7W STX #76222020 11 2CMG XBCC1 #173554,#30137554 10 2C_X ... SEGENTRY K71PCTLISTB 12 2D## ...XBCC2 #4776120,#77776131 4 2DLQ [ 20 2F6B [ APPEND ETB TO THE OUTPUT BUFFER AND UPDATE THE BUFFER POINTER. 4 2FL2 # 4 2G5L SEND 18 2QC= LDX 4 GSIGN [APPEND ETB TO THE OUTPUT 8 2QWW LDN 0 #7607 7 2RBG MVCH 4 2 19 2RW6 WAKEUP LF [FPUT THE AMOP IF NECESSARY 17 2S*Q LDX 4 INTLK3(3) [OLD BUFFER NUMBER 10 2STB SBN 4 ALFBUFFNUM-1 8 2T*2 BZE 4 TWAS 10 2TSL ADN 4 ALFBUFFNUM 17 2W#= TWAS STO 4 INTLK3(3) [NEW BUFFER NUMBER 8 2WRW LDX 0 GSIGN 7 2X?G SMO 4 17 2XR6 ORS 0 INTLK(3) [INDICATE BUFFER USED 21 2Y=Q SMO 4 [SET EOM MARKER(MUST BE UNSET AGAIN 21 2YQB STO 0 INTLK2(3) [BY THE CALLING ROUTINE IF NOT WANTED 7 2_=2 EXIT 7 0 4 2_PL # 16 329= # DO SLEEP MACRO, TAKE CANT-DO ACTION IF ANY ERROR. 4 32NW # 8 338G SLEEP SBX 5 FX1 10 33N6 SLEEP LF,XCD,XCD 18 347Q MHUNTW 3,A7020,ALIST [RELOCATE BUFFER BLOCK. 21 34MB LDCT 0 #103 [J. OUT IF ERROR, MOP OFF OR INOP. 9 3572 ANDX 0 EWAIT(3) 8 35LL BNZ 0 XCD 7 366= ADX 5 1 7 36KW EXIT 5 0 19 375G # IF INOP., MOP OFF, ^TE^ OR ^CD^ DURING OUTPUT OF HEADINGS. 8 37K6 XCD LDX 2 FX2 10 384Q MHUNTW 3,A7020,ALIST 8 38JB LDCT 0 #100 9 3942 ANDX 0 EWAIT(3) 9 39HL ERS 0 EWAIT(3) 10 3=3= LDX 0 IWORK10(2) 20 3=GW BNZ 0 TWEND [J IF K1ENTRY - NO MORE TO DO. 20 3?2G VFREEW ADATA,CREADL [FREE THE VARIOUS DATA BLOCKS. 9 3?G6 VFREEW FILE,ENT 21 3?_Q NGS 1 IWORK1(2) [SET AS -VE TO SHOW NOT STARTED LIST 15 3#FB LFEND CD [CANTDO EXIT. 4 3#_2 # 19 3*DL # GET ADDRESS OF NEXT BUFFER; WAIT IF IT IS STILL BEING USED 4 3*Y= # 10 3BCW NEW MHUNTW 3,A7020,ALIST 21 3BXG LDCT 0 #103 [J IF ERROR, MOP OFF OR INOP. LINE 9 3CC6 ANDX 0 EWAIT(3) 8 3CWQ BNZ 0 XCD 17 3DBB LDX 4 INTLK3(3) [OLD BUFFER NUMBER 10 3DW2 SBN 4 ALFBUFFNUM-1 8 3F*L BZE 4 TWOAL 10 3FT= ADN 4 ALFBUFFNUM 7 3G#W SEG SMO 4 9 3GSG TWOAL LDX 5 INTLK(3) 19 3H#6 BPZ 5 XFREE [NEXT BUFFER NOT BEING USED 7 3HRQ SBX 7 1 18 3J?B CALL 5 SLEEP [WAIT FOR THE NEXT BUFFER 7 3JR2 ADX 7 1 8 3K=L BRN SEG 9 3KQ= XFREE ANDX 5 BITS22LS 19 3L9W ADN 5 ACTBUFF(3) [ADDRESS FOR DEPOSITING IN X5 9 3LPG LDN 4 STX(1) 15 3M96 MVCH 4 2 [#7622 = STX 7 3MNQ EXIT 7 0 4 3N8B # 20 3NN2 # SET OUTPUT FINISHED MARKER AND WAIT FOR TRANSMISSION ENDED REPLY. 4 3P7L # 7 3QLG WFIN1 LDXC 7 7 8 3R66 BRN WFMHW 8 3RKQ SPLWF ORX 7 GSIGN 7 3S5B ADN 7 1 10 3SK2 WFMHW MHUNTW 3,A7020,ALIST 21 3WHG LDCT 0 #103 [J. OUT IF ERROR, MOP OFF OR INOP. LI 9 3X36 ANDX 0 EWAIT(3) 8 3XGQ BNZ 0 XCD 19 3Y2B LDCT 6 #20 [SET OUTPUT COMPLETE MARKER. 7 3_F= LDXC 7 7 8 3_YW BCC NSPN2 7 42DG ORN 6 8 5 42Y6 NSPN2 8 43XB SBX 7 FX1 9 44C2 WFIN2 ORS 6 EWAIT(3) 13 44WL CALL 5 SLEEP [WAIT 21 45B= LDCT 0 #10 [HAS THE TRANSMISSION FINISHED YET. 9 45TW ANDX 0 EWAIT(3) 8 46*G BZE 0 WFIN2 7 46T6 ADX 7 1 19 47#Q ERS 0 EWAIT(3) [CLEAR THE ^FINISHED^ MARKER. 7 48RL LDN 0 8 9 49?= ANDX 0 EWAIT(3) 9 49QW ERS 0 EWAIT(3) 7 4=Q6 EXIT 7 0 6 4?9Q Z2PCTLISTB 7 4#NL NGNC 6 1 6 4*8= Z1PCTLISTB 7 4*MW LDN 6 1 9 4B7G STOZ AWORK3(2) 10 4BM6 STO 6 IWORK10(2) 10 4C6Q MHUNTW 3,A7020,ALIST 7 4CLB LDN 0 4 9 4D62 ANDX 0 EWAIT(3) 8 4DKL BZE 0 NSPLD 8 4F5= LDX 4 GSIGN 9 4FJW STO 4 AWORK3(2) 8 4G4G BCT 6 VRZ3 8 4GJ6 BRN XYEB 4 4H3Q VRZ3 10 4HHB ORS 4 IWORK10(2) 5 4J32 NSPLD 10 4JGL LDCH 6 JSOURCE1(2) 7 4K2= LDN 5 0 8 4KFW CALL 7 VLIP 8 4K_G LDX 1 FX1 8 4LF6 LDX 2 FX2 18 4LYQ ANDN 6 1 [#400:0 IF TP, 0 IF LP. 7 4MDB SRC 6 1 21 4MY2 STO 6 AWORK1(2) [REMEMBER PERIPHERAL TYPE INDICATOR. 21 4NCL ADNC 6 4 [TAPE REQUIRES 4 BUFFERS OF RUNOUT. 8 4NX= BCS TRUN 7 4PBW LDN 6 1 7 4QB6 ORX 6 5 19 4QTQ CALL 7 NEW [GET BUFFER ADDRESS IN X5. 7 4R*B LDN 7 0 16 4SS= BPZ 6 NSPLE [IF NOT SPOOLING 9 4T?W LDN 4 TWEMS(1) 7 4TRG MVCH 4 7 17 4W?6 LDN 7 1 [X7 = 1 IF SPOOLING 5 4WQQ NSPLE 10 4XQ2 LDN 4 NLIST+1(1) 14 4Y9L MVCH 4 4 [2 NLS 9 4YP= LDN 4 YLIST(1) 14 4_8W MVCH 4 6 [_**** 7 4_NG LDX 4 5 7 5286 SBN 4 1 17 56JQ BPZ 6 NSPLA [J IF NOT SPOOLING 7 574B NGN 7 7 7 57J2 SMO 7 5 583L NSPLA 10 592W SEGENTRY K50PCTLISTB 19 59GG LDN 7 A7021WIDTH-66 [ASSUMES 79