8 22FL #OPT K0LISTHEAD=0 17 22_= #LIS K0LISTHEAD>K0LISTFILE>K0ALLGEO>K0GREATGEO>K0COMMAND 15 23DW #SEG LISTHEAD7 [BOB SEWELL 10 23YG 8HLISTHEAD 11 24D6 SEGENTRY K1LISTHEAD,POINT1 11 24XQ MENDAREA 40,K95LISTHEAD 15 25CB [THIS SEGMENT CONTAINS THE ROUTINES FOR PRINTING 12 25X2 [OUT LEGIBLE HEADINGS ON PAPER TAPE 4 26BL [ 21 26W= [*********************************************************************** 6 27*W [DATA AREA 9 27TG OCTAL #40404040 10 28*6 PHEAD 10H FROM JOB 9 28SQ STOP #36202020 13 29#B TAB #7566161,#56404040 [0 13 29S2 #4774040,#40404040 [1 13 2=?L #7536165,#51404040 [2 13 2=R= #7526165,#56404040 [3 13 2?=W #10465262,#47424040 [4 13 2?QG #7727161,#66404040 [5 13 2#=6 #7566565,#42404040 [6 13 2#PQ #7606164,#70404040 [7 13 2*9B #7526565,#52404040 [8 13 2*P2 #7516565,#56404040 [9 13 2B8L #4454040,#40404040 [: 13 2BN= #5414640,#40404040 [; 13 2C7W #6445261,#40404040 [< 13 2CMG #7464646,#46404040 [= 13 2D76 #6615244,#40404040 [> 13 2DLQ #7506364,#50404040 [? 14 2F6B #10404040,#40404040 [SPACE 13 2FL2 #4754040,#40404040 [! 13 2G5L #5707040,#40404040 [^ 13 2GK= #10527752,#77524040 [# 13 2H4W #7455765,#61404040 [/ 13 2HJG #11416244,#40516040 [% 13 2J46 #7536552,#45404040 [& 15 2JHQ #4704040,#40404040 [APOSTROPHE 13 2K3B #5566140,#40404040 [( 13 2KH2 #5615640,#40404040 [) 13 2L2L #6474747,#40404040 [* 13 2LG= #10444457,#44444040 [+ 13 2L_W #5414240,#40404040 [, 13 2MFG #7444444,#44404040 [- 13 2M_6 #4414040,#40404040 [. 13 2NDQ #11414244,#40506040 [/ 13 2NYB #11506265,#67615640 [@ 13 2PD2 #10576464,#64574040 [A 13 2PXL #11776565,#65554240 [B 13 2QC= #10566161,#61614040 [C 13 2QWW #10776161,#61564040 [D 13 2RBG #7776565,#61404040 [E 13 2RW6 #7776464,#60404040 [F 13 2S*Q #11566161,#63634240 [G 13 2STB #10774444,#44774040 [H 13 2T*2 #6617761,#40404040 [I 13 2TSL #11426161,#76606040 [J 13 2W#= #7774452,#61404040 [K 13 2WRW #7774141,#41404040 [L 13 2X?G #10775044,#50774040 [M 13 2XR6 #10775044,#42774040 [N 13 2Y=Q #10566565,#65564040 [O 13 2YQB #7776464,#50404040 [P 13 2_=2 #11566161,#65564140 [Q 13 2_PL #10776464,#52414040 [R 13 329= #10425165,#65424040 [S 13 32NW #10606077,#60604040 [T 13 338G #10764141,#41764040 [U 13 33N6 #10704441,#44704040 [V 13 347Q #10774244,#42774040 [W 13 34MB #11615244,#44526140 [X 13 3572 #10605047,#50604040 [Y 13 35LL #11416365,#61716140 [Z 13 366= #6776161,#40404040 [[ 13 36KW #10425177,#65424040 [$ 13 375G #6616177,#40404040 [] 13 37K6 #6507750,#40404040 [_ 13 384Q #10424742,#42424040 [_ 4 38JB [ 21 3942 [*********************************************************************** 9 39HL [MAIN BODY OF SEGMENT 21 3=3= [*********************************************************************** 5 3=GW POINT1 19 3?2G DOWN LISTINTC,7 [THIS PRINT5 OUT 30 INCHES OF 17 3?G6 [RUNOUT TO PAPER TAPE 10 3?_Q TRACE 4,LHRUNOUT 15 3#FB LDN 7 GZDATA(2) [X7-> BUFFER 21 3#_2 ... MHUNTW 2,GOUT,INFO [THIS PUT USER NAME.JOB NAME,SPACES 15 3*DL LDX 3 GMODE(2) [OBTAIN GMODE 7 3*GT #UNSET JSKI38 4 3*K4 ( 11 3*M? [ CODE FOR GLASGOW SPECIALS!! 7 3*PG SLL 3 9 8 3*RP BNG 3 SBIN 4 3*TY ) 10 3*Y= FLENME GUSER,GJOBN 7 3BCW LDX 4 3 8 3BXG LDX 2 FX2 9 3CC6 LDX 3 GZDATA(2) 15 3CWQ BNG 4 ONL [J IF ONLINE 18 3DBB MHUNTW 1,ADATA,CREADL [TO GET FILENAME LENGTH 20 3DW2 LDEX 6 A1+FRH(1) [=NO.OF CHARS. IN ADATA/CREADL 7 3F*L LDX 5 6 20 3FT= ADX 5 3 [FOR USERNAME.JOBNAME CHARACTERS 18 3G#W SBN 5 12-10 [AS 12 CHARS. TOO MANY IN 19 3GSG [ADATA/CREADL AND ACCOUN FOR 15 3H#6 ['FROM JOB' 16 3HRQ STO 5 AWORK3(2) [TOTAL CHAR.COUNT 21 3J?B ADN 5 4+3 [ARGNO+EXTRA FOR CONVERSION TO FIND 20 3JR2 [MINIMUM NUMBER OF WORDS NEEDED 20 3K=L SRL 5 2 [X5 CONTAINS LEAST NO. OF WORDS 4 3KQ= [ 17 3L9W [WE SET UP A GOUT INFO BLOCK TO HOLD'FILENAME FROM JOB' 8 3LPG [USER NAME.JOBNAME 4 3M96 [ 20 3MNQ SETUPCORE 5,3,GOUT,INFO5 [TO HOLD REQUIRED NO OF CHARS. 8 3N8B CALL 4 SETUP 20 3NN2 LDN 5 A1(3) [AWORK1 CONTAINS ADDRESS OF CHAR. 20 3P7L STO 5 AWORK1(2) [WE ARE POINTING TO IN GOUT INFO5 7 3PM= LDX 2 6 21 3Q6W SBN 2 12 [X2 CONTAINS NO.OF CHARS.IN FILENAME 18 3QLG MHUNTW 1,ADATA,CREADL [AS LOST DURING SETUPCORE 10 3R66 LDN 4 CPDATA+3(1) 21 3RKQ MVCH 4 0(2) [PUTS FILENAME AT START OF GOUT.INFO5 8 3S5B LDX 2 FX2 8 3SK2 NONL LDX 1 FX1 17 3T4L LDN 4 PHEAD(1) [PICK UP 'FROM JOB ' 17 3TJ= MVCH 4 10 [PUT IN GOUT INFO5 9 3W3W ADN 2 GZDATA 21 3WHG LDX 3 0(2) [X3 CONTAINS CHAR.COUNT FOR U.NAME. 14 3X36 [JOB NAME 7 3XGQ ADN 2 1 18 3Y2B LDX 4 2 [X4 IS ADDRESS A5+1(2) 20 3YG2 MVCH 4 0(3) [PUT U.NAME,J.NAME IN GOUT INFO5 9 3Y_L SBN 2 GZDATA+1 4 3_F= [ 18 3_YW [WE CONVERT THE'GOUT INFO5'CHARACTERS INTO LEGIBLE HEADINGS 20 42DG [FORMAT AND PUT THEM INTO THE ACTLF BUFFER WHEN THIS IS FULL OR WE 20 42Y6 [HAVE CONVERTED ALL THE CHARACTERS,GO DOWN TO LISTINIT,4 IN ORDER 8 43CQ [TO PRINT THEM OUT 4 43XB [ 18 4478 STOZ 7 [TO ENSURE B6 IS ZERO 9 44C2 PHE LDX 4 AWORK1(2) 20 44WL LDX 6 4 [IN CASE WE HAVE TO J TO NACTLF 7 45B= LDN 5 7 18 45TW MVCH 4 1 [X5 CONTAINS FIRST CHAR. 9 46*G STO 4 AWORK1(2) 17 46T6 SRL 7 17 [FOR ADRESSING TAB 21 47#Q ADX 1 7 [MODIFY X1 FOR ADDRESSING RIGHT PLACE 9 47SB LDX 4 TAB(1) 9 48#2 LDX 5 TAB+1(1) 18 48RL SBX 1 7 [RESET X1 TO PT.TO FX1 7 49?= LDN 7 4 7 49QW LDN 0 3 7 4==G MVCH 7 1 8 4=Q6 SRL 3 18 21 4?9Q LDX 0 ACOMMUNE2(2) [PICK UP QTY. OF ACTLF BUFFER LEFT 19 4?PB SBX 0 3 [IS IT TOO FULL FOR ANY MORE 15 4#92 BNG 0 NACTLF [J IF IT IS 16 4#NL STO 0 ACOMMUNE2(2) [STORE NEW VALUE 20 4*8= LDX 6 OCTAL(1) [FOLLOW CHAR. REP BY #40404040 17 4*MW LDX 0 ACOMMUNE1(2) [MOVE REPRESENTATION 17 4B7G MVCH 7 0(3) [INTO ACTLF BUFFER 16 4BM6 STO 0 ACOMMUNE1(2) [STORE NEW VALUE 9 4C6Q LDX 0 AWORK3(2) 20 4CLB SBN 0 1 [SUBTRACT ONE FROM CHAR.COUNT FOR 19 4D62 STO 0 AWORK3(2) [CONVERSION-STORE NEW COUNT 20 4DKL BNZ 0 PHE [J BACK IF MORE CHARS. TO CONVERT 8 4F5= CALL 6 PERI 10 4FJW MHUNTW 2,GOUT,INFO5 7 4G4G FREECORE 2 10 4GJ6 ACROSS LISTINTC,1 5 4H3Q NACTLF 20 4HHB MHUNTW 3,GOUT,INFO5 [REMEMBER WE ARE CO-ORDINATING 18 4J32 SBX 6 3 [BLOCKS MIGHT BE MOVED 9 4JGL STO 6 AWORK1(2) 8 4K2= CALL 6 PERI 21 4KFW MHUNTW 3,GOUT,INFO5 [RESET AWORK1 TO POINT TO NEXT CHAR. 16 4K_G ADS 3 AWORK1(2) [TO BE PROCESSED 8 4LF6 CALL 4 SETUP 8 4LYQ BRN PHE 8 4MDB PERI SBX 6 FX1 7 4MY2 LDN 5 8 9 4NCL DCA ,DSA,5,MODE 10 4NX= LDX 4 ACOMMUNE2(2) 8 4PBW LDN 5 128 7 4PWG SBX 5 4 9 4QB6 DCA ,STO,5,COUNT 19 4QTQ LDN 3 2 [ERROR SWITCH FOR LISTINIT 18 4R*B LDN 7 0 [SET X7=0 FOR PAPER TAPE 9 4RT2 TRACE 5,LHPRINT 10 4S#L DOWN LISTINTC,4 21 4SS= ADX 6 FX1 [RESET X6.VALUE WAS SAVED DURING DOWN 16 4T?W [TO LISTINIT,4 7 4TRG EXIT 6 0 4 4W?6 [ 17 4WQQ [THIS CATERS FOR THE ONLINE CASE WHERE WE PRINT OUT THE 13 4X=B [DOCUMENT NAME INSTEAD OF THE FILENAME 4 4XQ2 [ 12 4Y9L ...ONL MHUNTW 1,GOUT,INFO 18 4YP= LDX 6 GSUSE(1) [CHAR.COUNT FOR DOC.NAME 7 4_8W LDX 7 6 16 4_NG ADN 7 10 [FOR 'FROM JOB' 20 5286 ADX 7 3 [FOR USENAME.JOBNAME CHARACTERS 18 52MQ STO 7 AWORK3(2) [SAVE TOTAL CHAR. COUNT 18 537B ADN 7 7 [ARGNO+MIN WORDS NEED CT. 20 53M2 SRL 7 2 [NO.OF WORDS TO HOLD THESE CHARS. 11 546L SETUPCORE 7,3,GOUT,INFO5 8 54L= CALL 4 SETUP 18 555W ... MHUNTW 1,GOUT,INFO [AS LOST DURING SETUPCORE 9 55KG LDN 4 GHEAD(1) 8 5656 LDN 5 A1(3) 9 56JQ STO 5 AWORK1(2) 7 574B SMO 6 19 57J2 MVCH 4 0 [PUT DOC.NAME IN GOUT.INFO5 8 583L BRN NONL 20 58H= SETUP LDN 0 GZDATA+1(2) [WE WILL KEEP ADDRESS OF PART OF 21 592W STO 0 ACOMMUNE1(2) [ACTLF WE ARE ADDRESSING IN ACOMMUNE1 20 59GG LDN 0 128 [ACOMMUNE2 CONTAINS NO OF P.T. 20 5=26 STO 0 ACOMMUNE2(2) [CHARS.WE CAN PUT IN ACTLF BUFFER 7 5=FQ EXIT 4 0 7 5=LY #UNSET JSKI38 10 5=S6 SBIN ACROSS LISTPREP,1 4 5=_B #END 8 ____ ...42113173000100000000