8 22FL #OPT K0LISTINTC=0 18 22_= #LIS K0LISTINTC>K0LISTFILE>K0ALLGEO>K0GREATGEO>K0COMMAND 9 23DW ...#SEG LISTINTC 10 23YG 8HLISTINTC 15 24D6 [ HERE ARE A LIST OF ENTRY POINTS AND BRANCHES 11 24XQ ... SETENTRY LISTINTC,POINT,8 14 25CB ... FSHENTRY K20LISTINTC,POINT20,,POINT20 4 25X2 [ 20 26BL [THIS SEGMENT CONTAINS THE ROUTINES FOR GETTING THE FILE AND OUTPUT 18 26W= [PERIPHERAL READY FOR LISTTPCP(CARD PUNCH AND TAPE PUNCH) 21 27*W [*********************************************************************** 6 27TG [DATA AREA 10 28*6 [HEADINGS USED BY LISTFILE 4 28SQ [ 9 29#B SMLP +7036875 5 29S2 THEAD 11 2=?L 12HPRODUCED ON 10 2=R= 12H AT 5 2?=W SHEAD 9 2?QG 4H#OUT 12 2#=6 SEGENTRY K40LISTINTC 13 2#PQ 24HPUT BY LISTFILE IN ': 12 2*9B ONAT 16H' ON AT 10 2*P2 SDOC 12HDOCUMENT 12 2B*R RCON 16H#CONTINUATION OF 15 2BCG RFOL 28H FOLLOWING RESTART ACTION OF 9 2BF9 RPAGE 8H 'ALL' 9 2BGY 8H 'PAGE' 9 2BLB UNLFON 8H USING 4 2CMG [ 15 2D76 [HEADING FOR ONLINE OBJECT PROGRAM PERIPHERAL 4 2DLQ [ 5 2F6B OHEAD 9 2FL2 4H#OUT 13 2G5L 24HPUT ON-LINE BY JOB ': 9 2GK= N31 #60000001 8 2H4W PRINT +1 17 2H?H RESTARTBIT #4000 [RESTART TAKING PLACE 18 2H*Q RESTACTN #300000 [RESTART ACTION SPECIFIED 14 2HC_ #200000 [PAGES 4 2HJG [ 12 2J46 [TABLE OF JUMPS FOR PERI SUBROUTINE 4 2JHQ [ 5 2K3B STABLE 18 2KH2 BRN YAB [INTERUPT DURING HEADINGS 19 2L2L BRN SBRK2 [INTERUPT DURING TERMINATORS 17 2LG= BRN YABANL [INTERUPT OTHERWISE 21 2L_W [*********************************************************************** 7 2MFG [SUBROUTINE AREA 18 2M_6 [THIS ROUTINE SETS UP THE CONTROL AREA DETAILS AS NECESSARY 4 2NDQ [ 18 2NYB SETCA LDN 4 0 [SET MODE FOR TRANSFER 10 2PD2 DCA ,DSA,4,MODE 20 2PXL LDN 4 1 [SET B A MODIFIER FOR CP AND TP 9 2QC= TLPN DCA ,STO,4,CTSA 7 2QWW EXIT 0 0 4 2RBG [ 16 2RW6 [THIS ROUTINE PUNCHES THREE BLANKS ON A PAPER TAPE 4 2S*Q [ 5 2STB RUNOUT 7 2T*2 LDN 4 3 5 2TSL RUNOUTX 8 2W#= SBX 6 FX1 9 2WRW DCA ,STO,4,COUNT 8 2X?G LDN 4 #20 9 2XR6 DCA ,DSA,4,MODE 14 2Y=Q CALL 5 PERI2 [DO PERI 16 2YQB ADX 6 FX1 [READJUST LINK 13 2_=2 EXIT 6 0 [EXIT 5 2_PL SLOCKC 10 329= [FOR USE BY LOCKC ROUTINE 8 32NW LDX 2 FX2 7 338G EXIT 1 0 4 33N6 [ 21 347Q [THIS ROUTINE PERFORMS THE PERI ON THE DEVICE AND CHECKS THE REPLY FOR 12 34MB [DISENGAGED AND INOPERABLE STATES 18 3572 [IN THE PERI2 ROUTINE WE MUST NOT CORRUPT X6 AS THIS IS USED 18 35LL [BOTH TO THE THROW SUBROUTINE FROM K1LISTINIT(WHICH IN TURN 14 366= [CALLS PERI2) AND IS ALSO USED BY LISTHEAD 4 36KW [ 8 375G PERI2 SBX 5 FX1 8 37K6 BRN SNPT 4 384Q PERI 17 38JB STO 3 EXEC1(2) [REMEMBER EXIT SWITCH 15 3942 SBX 5 FX1 [ADJUST LINK 16 39HL BNZ 7 SNPT [J NOT PAPER TAPE 9 3=3= DCA ,LDX,3,COUNT 13 3=GW SRC 3 2 [TAPE 8 3?2G LDN 4 #76 7 3?G6 ADX 2 3 10 3?_Q DCH 4 GZDATA+1(2) 7 3#FB BCHX 2 / 8 3#_2 LDN 4 #32 10 3*DL DCH 4 GZDATA+1(2) 20 3*Y= LDN 4 2 [UPDATE OUTPUT CHARACTER COUNT 8 3BCW LDX 2 FX2 9 3BXG DCA ,ADS,4,COUNT 17 3CC6 LDX 3 EXEC1(2) [RELOAD EXIT SWITCH 4 3CWQ SNPT 5 3DBB RPTPERI 9 3DW2 LDX 0 FINISH 7 3F*L SLL 0 2 8 3FT= BNG 0 SFINI 9 3G#W ERX 0 FINISH 7 3GSG SLL 0 1 8 3H#6 BPZ 0 NFIN 5 3HRQ SFINI 9 3J?B TXU 3 PRINT(1) 17 3JR2 BCS SBRKIN [J IF NOT TERMINATORS 4 3K=L NFIN 10 3KQ= LOCKC FX2,SLOCKC 9 3L9W LDN 4 GZDATA(2) 10 3LPG DCA ,ADS,4,CTSA 7 3M96 GPERI ,2 6 3MNQ COOR1 10 3N8B DCA ,SBS,4,CTSA 7 3NN2 UNLOCK 2 8 3P7L LDCT 4 #50 9 3PM= ANDX 4 CPRW1(2) 9 3Q6W BNZ 4 NOTENG 18 3QLG STEP ADX 5 FX1 [READJUST LINK AND EXIT 7 3R66 EXIT 5 0 5 3RKQ NOTENG 8 3RPM SMO FX2 9 3RTJ LDX 0 AWORK1 16 3R_F BZE 0 TIDYPER [ J IF EB PATH 11 3S5B ENGPER SBRKIN,,SBRKIN 9 3SK2 #SKI K6LISTLOOP>199-199 9 3T4L TRACE 5,LENGAGE 9 3TJ= BRN RPTPERI 5 3W3W SBRKIN 21 3WHG LDX 4 FX1 [OBEY MODIFIED EXIT TO SWITCH TABLE 7 3X36 ADX 4 3 9 3XGQ EXIT 4 STABLE 4 3Y2B [ 20 3YG2 [THIS IS A SUBROUTINE TO OUTPUT PAPER RUN OUT PAPER THROWS OR BLANK 21 3Y_L [CARDS AS APPROPRIATE IT EXPECTS A5(2) ONWARDS TO HAVE TWENTY WORDS 17 3_F= [OF BUFFER SPACE AND THE PERIPHERAL TYPE TO BE IN CA1(2) 4 3_YW [ 5 42DG THROW 15 42Y6 SBX 6 FX1 [ADJUST LINK 18 43CQ LDN 4 80 [SET CHAR COUNT FOR CARDS 17 43XB PAT BNZ 7 PTNO [J IF NOT PAPER TAPE 18 44C2 LDN 4 #20 [SET RUN OUT MODE FOR PT 9 44WL DCA ,DSA,4,MODE 18 45B= LDN 4 128 [SET CHAR COUNT FOR PT 9 45TW PTNO DCA ,STO,4,COUNT 5 46*G PTAPE 8 46T6 CALL 5 PERI2 21 47#Q LDN 4 1 [RESET CA4-NOTE FX2 COULD HAVE BEEN 9 47SB DCA ,STO,4,CTSA 8 48#2 CALL 5 PERI2 16 48RL PYES ADX 6 FX1 [READJUST LINK 13 49?= EXIT 6 0 [EXIT 4 49QW [ 21 4==G [THIS SUBROUTINE SPACE FILLS THE BUFFER ACCORDING TO THE LOGICAL LENGTH 9 4=Q6 [OF THE ACTIVITY BLOCK 4 4?9Q [ 8 4?PB SPFL LDX 4 ACES 10 4#92 SPFL2 LDX 3 ALOGLEN(2) 10 4#NL SBN 3 GZDATA-A1+1 10 4*8= STO 4 GZDATA+1(2) 10 4*MW LDN 4 GZDATA+1(2) 10 4B7G LDN 5 GZDATA+2(2) 8 4BM6 MOVE 4 0(3) 13 4C6Q EXIT 0 0 [EXIT 17 4CLB [THIS ROUTINE ABANDONS AN OPERATOR TERMINATED LISTING 4 4D62 [ 4 4DKL TIDY 10 4F5= HUNTW 1,ADATA,CREADL 8 4FJW BNG 1 X1 7 4G4G FREECORE 1 9 4GJ6 X1 HUNTW 1,FILE,ENT 8 4H3Q BNG 1 X3 7 4HHB FREECORE 1 11 4J32 ...X3 HUNT 1,GOUT,INFOLIST 8 4JGL BNG 1 X4 7 4K2= FREECORE 1 11 4KFW ...X4 HUNT 1,GOUT,INFOSET 8 4K_G BNG 1 X5 7 4LF6 FREECORE 1 7 4LYQ X5 EXIT 3 0 4 4L_H ...# 9 4M2# ... FSHCODE B,NOPAIR 4 4M35 ...( 6 4M3W ...SFSHACTPR 4 4M4M ...# 19 4M5D ...# ON THE 'B' MACHINE, WE ARE GOING TO NEED A PAIRED ACTIVITY 17 4M69 ...# ON 'A' SOONER OR LATER. THIS S/R CREATES THE PAIR 4 4M72 ...# 19 4M7R ... LFBBS A,2,PAIRED [JIF ALREADY PAIRED ON 'A' 19 4M8J ... LFBITSET A,2 [ELSE SET THE 'PAIRED' MARKER 8 4M9* ... SBX 7 FX1 19 4M=6 ... FSHACTPR [CREATE THE PAIRED ACTIVITY 8 4M=X ... ADX 7 FX1 4 4M?N ...# 5 4M#F ...PAIRED 7 4M*= ... EXIT 7 0 4 4MB3 ...# 5 4MBS ...NOPAIR 4 4MCK ...) 21 4MDB [*********************************************************************** 9 4MY2 [MAIN BODY OF SEGMENT 21 4NCL [*********************************************************************** 5 4NX= POINT1 4 4PBW [ 21 4PWG [*********************************************************************** 5 4QB6 POINT2 11 4QTQ [THESE ENTRY POINTS GO TOGETHER 14 4R=Q ...[CONTROL FOR OUTPUT OF INITIAL BLANK TAPE OR 6 4RMQ ...[BLANK CARDS 15 4S4S STO 2 AWORK1(2) [ NOT EB PATH 10 4S#L ... MHUNT 1,GOUT,INFO 9 4SJD ... LDCH 7 GOPTY(1) 16 4SS= ... SBN 7 1 [ 0 -> TP 3 -> CP 9 4T44 ... STO 7 AWORK4(2) 8 4T?W CALL 0 SETCA 7 4T#_ #UNSET JSKI38 4 4TB4 ( 16 4TC7 [ GLASGOW SP. CODE...B10 OF GMODE INDICATES EBCDIC 12 4TD= [ IF SET WE MUST USE MODE 1 PERIS!! 10 4TF* ... MHUNTW 3,GOUT,INFO 9 4TGD LDX 0 GMODE(3) 8 4THH SLL 0 10 9 4TJL STO 0 AWORK2(2) 9 4TKP BPZ 0 SGINT1 7 4TLS LDN 4 1 9 4TMX DCA ,DSA,4,MODE 5 4TP2 SGINT1 4 4TQ5 ) 8 4TRG CALL 0 SPFL 20 4W?6 LDN 3 0 [SET SWITCH TO ^DURING HEADINGS^ 9 4WQQ STO 3 AWORK3(2) 16 4X=B CALL 6 THROW [DO START PERIS 21 4XQ2 YES BNZ 7 XLP9 [SET NO OF CHARS TO TRANSFER FOR PT 8 4Y9L LDN 6 84 9 4YP= DCA ,STO,6,COUNT 4 4_8W XLP9 4 4_NG [ 17 5286 [CONTROLS PRINTING OF FIRST HEADING,IE'PRODUCED ON' ETC 4 52MQ [ 10 537B ... MHUNTW 3,GOUT,INFO 9 53M2 LDX 4 GMODE(3) 8 546L BNG 4 TMARY 20 54L= MHUNTW 3,ADATA,CREADL [FIND BLOCK WITH'#LISTING ETC' 9 555W LDX 1 A1+FRH(3) 16 55KG LDX 5 1 [LOAD N0 OF CHARS 7 5656 ANDN 5 3 7 56JQ ERN 5 3 18 574B ADN 5 1 [X5 IS COMPLEMENT WRT 4 7 57J2 SRC 1 2 8 583L LDN 0 #20 7 58H= XSP SMO 3 9 592W DCH 0 CPDATA(1) 7 59GG BCHX 1 / 8 5=26 BCT 5 XSP 9 5=FQ LDN 5 CPDATA(3) 10 5=_B LDN 6 GZDATA+1(2) 8 5?F2 MOVE 5 0(1) 8 5?YL SMO FX1 8 5#D= LDN 5 THEAD 7 5#XW ADX 6 1 19 5*CG MOVE 5 6 [MOVE'PRODUCED ETC'TO BUFFER 17 5*X6 ADN 6 3 [POSITION AFTER'ON ' 8 5BBQ SBX 6 FX2 10 5BWB MHUNTW 3,FILE,ENT 21 5CB2 LDX 4 EWRITDAY(3) [GET DATE AND TIME FILE LAST WRITTEN 15 5CTL LDX 5 EWRITTIME(3) [FOR HEADING 7 5D*= FREECORE 3 7 5DSW DATECON 4 10 5F#G LDX 1 ACOMMUNE1(2) 8 5FS6 ADX 6 FX2 7 5G?Q SMO 6 16 5GRB STO 1 0 [STORE BEFORE'AT' 7 5H?2 ADN 6 1 10 5HQL LDX 1 ACOMMUNE2(2) 7 5J== SMO 6 16 5JPW STO 1 0 [STORE BEFORE'AT' 8 5K9G SBX 6 FX2 7 5KP6 TIMECON 5 8 5L8Q ADX 6 FX2 19 5LNB ADX 6 N31(1) [ADD 1 WORD AND 3 CHARACTERS 10 5M82 LDN 5 ACOMMUNE1(2) 16 5MML MVCH 5 8 [STORE AFTER'AT ' 8 5N7= CALL 0 SETCA 7 5N8S #UNSET JSKI38 4 5N=B ( 12 5N?Y [AGAIN ... MODE 1 IF EBCDIC TO CP !! 9 5N*G LDX 0 AWORK2(2) 9 5NC4 BPZ 0 SGINT2 7 5NDL LDN 4 1 9 5NG8 DCA ,DSA,4,MODE 5 5NHQ SGINT2 4 5NK# ) 4 5NLW RZY 8 5P6G LDX 2 FX2 20 5PL6 LDN 3 0 [SET SWITCH TO'DURING HEADINGS' 16 5Q5Q CALL 5 PERI [PRINT HEADING 8 5QKB BNZ 7 NREQD 9 5R52 CALL 6 RUNOUT 5 5RJL NREQD 4 5S4= [ 17 5SHW [CONTROLS PRINTING OF SECOND HEADING,IE 'OUTPUT BY' ETC 4 5T3G [ 17 5TH6 N2 CALL 0 SPFL [SPACE FILL BUFFER 14 5W2Q LDX 3 2 [DUMP FX2 10 5WGB ... MHUNTW 2,GOUT,INFO 17 5X22 LDN 4 SHEAD(1) [STORE NEXT HEADING 10 5XFL SEC LDN 5 GZDATA+1(3) 7 5X_= MOVE 4 6 10 5YYG LDN 7 GZDATA+6(3) 19 5_D6 FLENME GUSER,GJOBN,2 [EXTRACT USER NAME JOB NAME 17 5_XQ [AND STORE IN ACT.BLK 8 62CB LDX 1 FX1 9 62X2 LDX 4 GMODE(2) 8 63BL BNG 4 ZON 10 63W= LDX 4 SHEAD+5(1) 8 64*W BRN XBAC 10 64TG ZON LDX 4 OHEAD+5(1) 4 65*6 XBAC 18 65SQ STO 4 GZDATA+6(3) [OVERWRITE RECORD HEADER 18 66#B LDN 6 ONAT(1) [STORE REST OF HEADING 8 66S2 MVCH 6 16 14 67?L LDX 4 CLEANCT [GET TIME 8 67R= SBX 7 FX2 15 68=W TIMECON 4 [CONVERT TIME 8 68QG ADX 7 FX2 17 69=6 LDN 6 ACOMMUNE1(2) [PUT TIME IN HEADING 7 69PQ MVCH 6 8 8 6=9B SBX 7 FX2 14 6=P2 DATECON EDATE [GET DATE 8 6?8L ADX 7 FX2 18 6?H2 STO 7 ACOMMUNE4(2) [RETAIN BUFFER POINTER 17 6?N= LDN 6 ACOMMUNE1(2) [PUT DATE IN HEADING 19 6#7W SLC 7 2 [SET POINTER TO CORRECT POS. 8 6#MG SBN 7 19 7 6*76 SRC 7 2 7 6*LQ MVCH 6 7 9 6*PF LDN 6 UNLFON(1) 10 6*QB LDX 7 ACOMMUNE4(2) 16 6*R? MVCH 6 8 [MOVE IN 'USING' 21 6*S8 LDN 5 JSOURCE1(2) [MOVE JSOURCE WORDS TO ACOM 1 AND 2 10 6*T5 LDN 6 ACOMMUNE1(2) 7 6*W2 MOVE 5 2 8 6*WX SBX 7 FX2 18 6*XS OUTPERA [GET UNIT NO. IN ACOM2 8 6*YP ADX 7 FX2 21 6*_L LDN 6 ACOMMUNE2(2) [AND NO. OF CH. IN 'UNIT NO' IN AC1 10 6B2H LDX 5 ACOMMUNE1(2) 7 6B3D SMO 5 16 6B4* MVCH 6 0 [MOVE IN UNIT NO. 15 6B*L LDX 7 AWORK4(2) [RELOAD X7 14 6BL2 BNZ 7 S13 [J NOT PT 21 6CD2 LDN 6 85 [INCREASE POSSIBLE LENGTH FOR UNITE 9 6CK= DCA ,STO,6,COUNT 20 6D4W S13 LDN 3 0 [SET SWITCH TO ^DURING HEADINGS^ 17 6DJG CALL 0 SETCA [SET UP CONTROL AREA 7 6DL4 #UNSET JSKI38 4 6DML ( 10 6DP8 [ MODE 1 IF EBCDIC TO CP ! 9 6DQQ LDX 0 AWORK2(2) 9 6DS# BPZ 0 SGINT3 7 6DTW LDN 4 1 9 6DXD DCA ,DSA,4,MODE 5 6D_2 SGINT3 4 6F2J ) 8 6F46 LDN 5 #42 9 6FHQ STO 5 GZDATA(2) 8 6G3B LDX 2 FX2 16 6GH2 CALL 5 PERI [OUTPUT HEADING 9 6H2L BNZ 7 NREQD1 9 6HG= CALL 6 RUNOUT 5 6H_W NREQD1 4 6JFG [ 21 6J_6 [CONTROLS OUTPUT OF THIRD HEADING,IE 'DOCUMENT' OR 'CONTINUATION' ETC 4 6KDQ [ 17 6KYB CALL 0 SPFL [SPACE FILL BUFFER 18 6KYY ... MHUNTW 3,GOUT,INFO [CONTINUATION CODE!!!! 11 6K_G [START OF CONTINUATION CODE!!! 10 6K_R LDX 0 RESTARTBIT(1) 9 6L24 ANDX 0 GMODE(3) 17 6L2* BZE 0 NOTRESTA [ J IF NOT RESTART 17 6L2L BNZ 7 RNOTTP [SET NEW COUNT FOR TP 18 6L2X LDN 5 60 [TO AVOID PRINTING SPACES 9 6L38 DCA ,STO,5,COUNT 5 6L3F RNOTTP 9 6L3Q LDN 4 RCON(1) 10 6L43 LDN 5 GZDATA+1(2) 20 6L4# MOVE 4 4 [MOVE 'CONTINUATION' INTO BUFFER 11 6L4K MHUNTW 2,ADATA,CREADL 19 6L4W LDX 4 A1+FRH(2) [NO. OF CH. IN FILENAME+12 8 6L57 LDCT 5 #600 10 6L5D ADN 5 CPDATA+2(2) 8 6L5P LDX 2 FX2 10 6L62 LDN 6 GZDATA+5(2) 17 6L6? SBN 4 11 [REMOVE #LISTING OF 7 6L6J SMO 4 18 6L6T MVCH 5 0 [MOVE FILENAME IN BUFFER 9 6L76 LDX 0 GMODE(3) 10 6L7C ANDX 0 RESTACTN(1) 20 6L7N BZE 0 NORESACT [ J IF NO RESTART ACTION SPEC. 19 6L7_ BNZ 7 RNCP [RESET COUNT FOR TP TO AVOID 16 6L8= LDN 5 96 [PRINTING SPACES 9 6L8H DCA ,STO,5,COUNT 4 6L8S RNCP 9 6L95 LDN 5 RFOL(1) 7 6L9B ADN 6 1 20 6L9M [X6 STILL CONTAINS BUFFER POINTER 20 6L9Y MOVE 5 7 [MOVE 'FOLLOWING' ETC IN BUFFER 10 6L=9 ANDX 0 RESTACTN+1(1) 17 6L=G ADN 6 7 [RESET BUFFER POINTER 17 6L=R SRL 0 15 [ J IF ALL SPECIFIED 7 6L?4 SMO 0 9 6L?* LDN 5 RPAGE(1) 18 6L?L MOVE 5 2 [MOVE IN 'PAGE OR 'ALL' 5 6L?X NORESACT 20 6L#8 LDN 3 0 [SET SWITCH TO 'DURING HEADINGS' 17 6L#F CALL 0 SETCA [RESET CONTROL AREA 8 6L#Q CALL 5 PERI 8 6L*3 BNZ 7 RNREQ 9 6L*# CALL 6 RUNOUT 5 6L*K RNREQ 8 6L*W CALL 0 SPFL 5 6LB7 NOTRESTA 10 6LBD [END OF CONTINUATION CODE!!! 10 6LC9 ... MHUNTW 3,GOUT,INFO 9 6LD2 LDN 4 SDOC(1) 10 6LXL LDN 5 GZDATA+1(2) 7 6MC= MOVE 4 3 19 6NBG LDEX 4 GSUSE(3) [LOAD SIZE OF USER'S HEADER 7 6NW6 ADN 4 3 7 6P*Q SRL 4 2 10 6PTB ADN 4 GZDATA-A1+4 21 6Q*2 TXU 4 ALOGLEN(2) [TEST AND J IF BUFFER LARGE ENOUGH 8 6QSL BCC RIGHT 10 6R#= TXL 4 ALOGLEN(2) 8 6RRW BCS RIGHT 10 6S?G LDX 6 ALOGLEN(2) 10 6SR6 SBN 6 GZDATA-A1+4 7 6T=Q SLL 6 2 8 6TQB BRN RIG 9 6W=2 RIGHT LDEX 6 GSUSE(3) 9 6WPL RIG LDX 4 GMODE(3) 9 6X9= BNG 4 TMARY3 19 6XNW LDN 4 GHEAD(3) [COPY ACROSS USER'S HEADER 10 6Y8G TAG2 LDN 5 GZDATA+4(2) 7 6YN6 SMO 6 7 6_7Q MVCH 4 0 4 6_MB [ 14 7272 BNZ 7 S14 [J NOT PT 19 72LL LDEX 4 GSUSE(3) [LOAD SIZE OF USER'S HEADER 11 736= ADN 4 GZDATA-A1+4*4+7 15 73KW [+1 FOR TXL 7 745G SRL 4 2 10 74K6 TXL 4 ALOGLEN(2) 8 754Q BCS XRIGH 10 75JB LDX 6 ALOGLEN(2) 10 7642 SBN 6 GZDATA-A1+4 7 76HL SLL 6 2 8 773= BRN XRIG 9 77GW XRIGH LDEX 6 GSUSE(3) 4 782G XRIG 21 78G6 LDN 0 126 [MAKE SURE NOT TOO MANY CHARACTERS 8 78_Q ADN 6 12 20 79FB TXL 6 0 [FOR PAPER TAPE PUNCH REMEMBERING 20 79_2 BCS XSTO [TWO CHARACTERS WILL BE ADDED FOR 14 7=DL LDN 6 126 [NEW LINE 4 7=Y= XSTO 9 7?CW DCA ,STO,6,COUNT 4 7?XG S14 8 7#C6 LDX 2 FX2 20 7#WQ LDN 3 0 [SET SWITCH TO 'DURING HEADINGS' 8 7*BB CALL 0 SETCA 7 7*CY #UNSET JSKI38 4 7*FG ( 10 7*H4 [ MODE 1 IF EBCDIC TO CP ! 9 7*JL LDX 0 AWORK2(2) 9 7*L8 BPZ 0 SGINT4 7 7*MQ LDN 4 1 9 7*P# DCA ,DSA,4,MODE 5 7*QW SGINT4 4 7*SD ) 16 7*W2 CALL 5 PERI [PRINT HEADING 16 7B*L BNZ 7 NOMORE [J NOT PAPER TAPE 8 7BT= LDN 4 128 9 7C#W CALL 6 RUNOUTX 4 7CSG [ 20 7D#6 [HAVING OUTPUT THE HEADINGS J FOR ONLINE PERIPHERAL OR SET UP THE 13 7DRQ [SHORT INFORMATION BLOCK FOR LISTFILE 4 7F?B [ 5 7FR2 NOMORE 11 7G=L HUNTW 1,ADATA,CREADL 8 7GQ= BNG 1 NFR 7 7H9W FREECORE 1 10 7HJ? ...NFR MHUNTW 3,GOUT,INFO 17 7HWN ... JBS XFRTOERR,3,BLFFRTOER [ J IF ERROR FOUND 9 7J96 LDX 4 GMODE(3) 15 7JNQ BPZ 4 XCROSS [J IF NOT OL 6 7K8B ...XFRTOEXIT 6 7KN2 LFEND 5 7L7L XCROSS 10 7LM= ACROSS LISTPREP,1 4 7M6W [ 19 7MLG [THIS ENTRY POINT IS FOR OUTPUTTING THE HEADINGS FOR THE ON LINE 13 7N66 [COMMAND FOR ON LINE OUTPUT PERIPHERALS 4 7NKQ [ 5 7P5B TMARY 18 7PK2 LDN 4 OHEAD(1) [SET ADDRESS OF HEADING 7 7Q4L LDX 2 3 8 7QJ= LDX 3 FX2 16 7R3W BRN SEC [J TO OUTPUT IT 21 7RHG [*********************************************************************** 5 7S36 POINT3 21 7SGQ [THIS ENTRY OUTPUTS THE TERMINATING PERIS AFTER A LISTING IS COMPLETE 15 7SQJ STO 2 AWORK1(2) [ NOT EB PATH 4 7T2B SPT3 7 7TG2 LDN 3 1 17 7T_L SUP CALL 0 SPFL [SPACE FILL BUFFER 17 7WF= CALL 0 SETCA [SET UP CONTROL AREA 7 7WYW LDN 3 1 7 7X2D #UNSET JSKI38 4 7X42 ( 8 7X5J BNG 6 PFLOC 7 7X76 SLL 6 1 9 7X8N BPZ 6 SGINT5 7 7X== LDN 4 1 9 7X?S DCA ,DSA,4,MODE 5 7X*B SGINT5 4 7XBY ) 16 7XDG BNZ 7 PFLOC [J IF NOT P.T. 15 7XY6 LDN 4 2 [THIS ROUTINE 9 7YCQ DCA ,STO,4,COUNT 16 7YXB LDN 4 #7624 [CHARACTER ONTO 15 7_C2 SLL 4 12 [PAPER TAPE 10 7_WL STO 4 GZDATA+1(2) 8 82B= CALL 5 PERI2 8 82TW PFLOC CALL 6 THROW 5 83*G SBRK2 9 83T6 LDX 0 AWORK1(2) 19 84#Q BZE 0 TIDYPER [J IF ENGAGE BUTTON INTERRUPT 7 84SB DISENGPER 10 84TR ... MHUNTW 3,GOUT,INFO 8 84X8 ... BNG 3 SOLDC 13 84YK ... OUTPARAM GSUSE(3),GHEAD,GOUT,INFO 6 8522 OUTPER 10 853C ...NCOOR MHUNTW 3,GOUT,INFO 13 854S OUTPACK GUSER(3),3,USERNAME,NCOOR 12 8569 ... OUTPARN 12,GJOBN,GOUT,INFO 18 857L INFORM ,JZXUNLD,1 [ENHANCED UNLOAD MESSAGE 10 8585 ... MHUNT 1,GOUT,INFO 18 858J ... JBS XFRTOEXIT,1,BLFFRTOER [ J IF FROM/TO ERROR 5 8593 UP 5 85=D SOLDC 6 85#2 OUTPER 18 85RL INFORM ,JZXLOAD,1 [OUTPUT UNLOAD MESSAGE ON 17 86?= [OPERATORS CONSOLE 5 86QW UP 5 87=G TIDYPER 9 87Q6 LDX 0 FINISH 7 889Q SLL 0 1 9 88PB BPZ 0 NFINISH 10 8992 ACROSS LISTNEXT,6 5 89NL NFINISH 9 89P7 ... FSHCODE B,XNOTB1 4 89PN ...( 4 89Q9 ...# 20 89QQ ...# THERE IS NO LF SCHEDULER ON THE 'B' M/C SO AT THIS POINT, WE 20 89R? ...# HAD BETTER GO TO 'A', BEFORE WE LOOK FOR THE SCHEDULER. WE 21 89RS ...# ALREADY HAVE A PAIR ON THE OTHER M/C SO A SIMPLE TRANSBEG WILL DO 4 89S* ...# 20 89SW ...# TO REDUCE THE TRAFFIC ON THE IPB, WE ALSO TAKE WITH US A COPY 11 89TC ...# OF OUR ENTRY IN THE 'APIA' 4 89TY ...# 10 89WF ...#DEF XAPIALEN=BOLEN>BLLEN+1 4 89X2 ...# 21 89XH ... HUNTW 3,FSH,FSHAPIA [LOOK FOR EXISTING 'APIA' COPY BLOCK 19 89Y4 ... BPZ 3 XNOGETCORE [JIF THERE IS A BLOCK ALREADY 17 89YK ... SETNCORE XAPIALEN,3,FSH,FSHAPIA [ELSE GET A BLOCK 4 89_6 ...# 6 89_M ...XNOGETCORE 21 8=28 ... STOZ A1(3) [CLEAR 'WAITING-TO-BE-WRONGED' MARKER 8 8=2P ... ADN 3 A1+1 20 8=3= ... LADDP ,2 [COPY APIA AREA INTO THE BLOCK 21 8=3R ... MOVE 2 XAPIALEN-1 [AND TRANSFER TO THE OTHER MACHINE 16 8=4# ... TRANSBEG FSHACTLFID,LISTINTC,20,,,ACOMMUNE1 4 8=4T ...# 5 8=5B ...XNOTB1 4 8=5X ...) 4 8=6D ...# 5 8=6_ ...POINT20 4 8=7G ...# 8 8=8= LFBITSET F,2 10 8=MW LDN 1 JOBRING(2) 8 8?7G POINTACT OUT,2 9 8?M6 ADN 2 JOBRING 8 8#6Q ENRING 1,2 8 8#LB LFEND EB 4 8*62 [ 17 8*KL [THIS ROUTINE ABANDONS AN OPERATOR TERMINATED LISTING 4 8B5= [ 5 8BJW YABANL 7 8C4G FREELINK 4 8CJ6 YAB 7 8D3Q LDN 4 0 8 8DHB CALL 3 TIDY 8 8F32 LFEND CD 4 8HF6 [ 21 8HYQ [*********************************************************************** 5 8JDB POINT4 8 8JY2 [ENTRY FROM LISTHEAD 15 8K7S STO 2 AWORK1(2) [ NOT EB PATH 7 8KCL LDN 5 1 14 8KX= LDN 3 0 [HEADINGS 10 8LBW DCA ,STO,5,CTSA 8 8LWG CALL 5 PERI2 5 8MB6 UP 21 8MTQ [*********************************************************************** 5 8N*B POINT5 12 8NT2 [THIS IS THE ENTRY POINT FROM ENGAGE 4 8NW8 ...# 9 8NXB ... FSHCODE B,XNOTB2 4 8NYJ ...( 4 8N_Q ...# 20 8P2Y ...# FOR 'B' MACHINE DEVICES WE ARE GOING TO NEED A PAIRED ACTLF IN 17 8P46 ...# 'A'. THIS IS CREATED WHEN THE DEVICE IS ENGAGED. 4 8P5# ...# 9 8P6G ... CALL 7 SFSHACTPR 4 8P7N ...# 5 8P8W ...XNOTB2 4 8P=4 ...) 4 8P?= ...# 17 8P#L STOZ AWORK1(2) [ENTRY POINT SWITCH 7 8PS= LTYPE ,7 7 8Q?W SRL 7 1 8 8QRG BRN SPT3 21 8R?6 [*********************************************************************** 5 8RQQ POINT6 12 8S=B ...[THIS ENTRY POINT IS NOW REDUNDANT 9 8SQ2 ... BRN (GEOERR) 4 8T9L ...[ 4 8TP= ...[ 14 8W8W ...[ OUTPUT MESSAGE SETUP BY CENTRAL ROUTINES 4 8WNG ...[ 5 984M XFRTOERR 8 985Q CALL 0 SPFL 11 986H ... MHUNTW 3,ADATA,HEADING 10 987# ... LDN 4 HEADDATA(3) 10 9885 ... LDN 5 GZDATA+1(2) 10 988W ... LDX 6 HEADCNT(3) 14 989M ... SBN 6 1 [ PFCC 7 98=D ... SMO 6 7 98?9 MVCH 4 0 7 98?X FREECORE 3 8 98#? ... LDX 2 FX2 9 98#M ... LDX 7 AWORK4(2) 16 98*3 ... BNZ 7 XFRTOERR1 [ J IF NOT *TP 10 98*C ... DCA ,STO,6,COUNT 6 98*R ...XFRTOERR1 8 98B7 ... CALL 0 SETCA 7 98BH ... LDN 3 1 8 98BX ... CALL 5 PERI 16 98C? ... BNZ 7 XFRTOERR2 [ J IF NOT *TP 9 98CM ... CALL 6 RUNOUT 6 98D3 ...XFRTOERR2 18 98DC ... BRN POINT3 [ TERMINATE THE LISTING 4 98F2 [ 21 98YL [*********************************************************************** 5 99D= POINT7 15 99XW [ENTRY FROM LISTHEAD TO PRINT 30^ OF PT RUNOUT 15 99YC STO 2 AWORK1(2) [ NOT EB PATH 13 99YN ... LDN 7 0 [ TP 7 99Y_ #UNSET JSKI38 4 9=24 ( 17 9=37 [ FOR GLASGOW SPECIALS WE MUST CHECK APIA FOR RR OF TP 19 9=4= [ AND PUT OUT APPROP. MESSAGE IF IT IS NOT SWITCHED CORRECTLY 10 9=5* ... MHUNTW 2,GOUT,INFO 9 9=6D LDX 6 GMODE(2) 8 9=7H LDX 2 FX2 7 9=8L SLL 6 9 11 9=9P TESTCODE ,,TNSETR,TSETR 5 9==S TSETR 8 9=?X BPZ 6 SNOTR 5 9=*2 TGOKL 4 9=B5 ) 8 9=CG CALL 0 SETCA 7 9=X6 LDN 3 0 8 9?BQ CALL 6 THROW 5 9?WB UP 5 9#B2 TMARY3 9 9#TL LDN 4 GHEAD(3) 8 9**= BRN TAG2 4 9*** ...[ 18 9**D ...[*********************************************************** 4 9**H ...[ 5 9**L ...POINT8 15 9**P ...[ENTRY FROM FREEPER AFTER AN ONLINE HAS FINISHED 4 9**R ...# 9 9**T ... FSHCODE B,XNOTB3 4 9**X ...( 4 9**_ ...# 19 9*B3 ...# ON THE 'B' MACHINE, THE NEW ACTLF FROM FREEPER IS GOING 16 9*B5 ...# TO NEED A PAIR ON 'A'. IT IS CREATED HERE. 4 9*B7 ...# 9 9*B9 ... CALL 7 SFSHACTPR 4 9*B? ...# 5 9*B* ...XNOTB3 4 9*BC ...) 21 9*BF ... LTYPE ,7 [LD. TYPE OF PERIPHERAL REQD. IN X7 7 9*BH ... SRL 7 1 21 9*BK ... DOWN LISTINTC,3 [TO DISENGAGE PERIPHERAL & TIDYUP 18 9*BM ... BRN TIDYPER [TO GET NEXT LISTING 4 9*BP ...[ 7 9*BR ...#UNSET JSKI38 4 9*C8 ( 16 9*D7 [ HERE WE PUT OUT ANY NECC. MESSAGE TO OP'S CONSOLE 5 9*F6 TNSETR 8 9*G5 BPZ 6 TGOKL 6 9*H4 OUTPER 9 9*J3 INFORM ,JTPBIN,1 5 9*K2 TGWRNG 7 9*K_ SETWTBWR 8 9*LY BRN YABAN 5 9*MX SNOTR 6 9*NW OUTPER 9 9*PT INFORM ,JTPSTD,1 9 9*QS BRN TGWRNG 4 9*RR ) 4 9*SW #END 8 ____ ...50641221000100000000