12 22FL #LIS K0TAPEWAIT>K0LIBRARY>K0ALLGEO 15 22_= #SEG TAPEWAIT65 [N.R.BOULT 10 23DW 8HTAPEWAIT 13 23YG SEGENTRY K1TAPEWAIT,QK1TAPEWAIT 17 24D6 # THIS SEGMENT HANDLES WAITING FOR TAPES ON BEHALF 13 24XQ # OF THE REDON AND LABEL COMMANDS 4 25CB # 4 25X2 # 9 26BL # CONSTANTS 4 26W= # 7 27*W TDRH 1 7 27TG TFAIL 2 7 28*6 TAFB 4 7 28SQ TNOWPR 8 8 29#B TNMS #34 9 29S2 REMASK #777777 9 2=?L THDDR 4HHDDR 8 2=R= TEXCH #73 8 2?=W REELMAX 512 8 2?QG TMODE +9 10 2#=6 TPOOL 12HPOOL TAPE 4 2#PQ # 15 2*9B # ENTRY POINT 1 6 2*P2 QK1TAPEWAIT 8 2B8L LGEOG ,5 8 2BN= ANDN 5 #777 8 2C7W OUTNUM 5,0 8 2CMG MTINFORM HRES 14 2D76 # A WAIT FOR DECK TO BE ENGAGED 9 2DLQ PAP DFJUMPS ,UNL,PAQ 9 2F6B LONGSET #65,XWT,5 9 2FL2 LONGSTOP XBRKIN 9 2G5L #SKI K6TAPEWAIT>199-199 10 2GK= SWITRACE 5,TWTWOKEN 17 2H4W PA JDISENG ,PAP [JUMP IF NOT ENGAGED 18 2HJG DFSET ,LOAD [MARK MT LOADED IN APIA 11 2J46 # B TO BE UNLOADED ? 16 2JHQ DFJUMPS ,UNL,PAQ [TO-BE-UNLOADED 11 2K3B # C TEST WPR STATUS 4 2KH2 PD 9 2L2L #SKI K6TAPEWAIT>199-199 11 2LG= SWITRACE CPPTR(2),TWTREW1 7 2L_W LDN 0 7 10 2MFG DCA ,DLA,0,MODE 17 2MP# ... LONGLOCK 2 [LONGLOCK THE CPAT 8 2M_6 LOCKC 2,/ 14 2NDQ GPERI ,2 [REWIND 6 2NYB COOR1 7 2PD2 UNLOCK 2 17 2PMS ... LOSELONG 2 [UN-LONGLOCK THE CPAT 12 2PXL # E CHECK REWIND REPLY 14 2QC= LDCH 0 CPRW1(2) [REPLY 13 2QWW BZE 0 PG [OK 11 2RBG # F SET FAILED REPLY 4 2RW6 PF 9 2S*Q SETREP FAILED 8 2STB BRN PAS 10 2T*2 # G 1971 DECK ? 8 2TSL PG LPROP ,0 8 2W#= ANDN 0 #372 14 2WRW BNZ 0 PK [NOT 1971 13 2X?G # H DONT READ HEADER SET ? 9 2XR6 #SKI K6TAPEWAIT>199-199 9 2Y=Q SWITRACE 0,TWT1971 9 2YQB LDX 0 AWORK2(2) 9 2_=2 ANDX 0 TDRH(1) 15 2_PL BZE 0 PK [READ HEADER 14 329= # INITIAL WRITE TO 1971S NOT YET ALLOWED 9 32NW SEGENTRY AMRR71 6 338G NULL 8 33N6 SETREP NOTAV 8 347Q BRN PAS 13 34MB # I SET NON-STANDARD REPLY 9 3572 SEGENTRY ANRR71 9 35LL # IN CORRECT STATE ? 9 366= LDX 0 AWORK2(2) 9 36KW #SKI K6TAPEWAIT>99-99 11 375G SWITRACE AWORK2(2),TWTRR71 8 37K6 LDX 1 FX1 9 384Q ANDX 0 TNOWPR(1) 15 38JB BZE 0 PI [DONT CARE 14 3942 JWPR ,PI [WPR OK 8 39HL SETREP NOWPR 8 3=3= BRN PAS 4 3=GW PI 8 3?2G SETREP NONS 9 3?G6 # J FINISH 5 3?_Q UP 11 3#FB # K SET FIRST ATTEMPT 7 3#_2 PK LDN 7 0 10 3*DL # L READ HEADER 16 3*Y= ...PL SETNCORE 27,3,FLIB,FMAGH,1 [BUFFER BLOCK 7 3BCW LDN 0 0 13 3BXG DCA ,DLA,0,MODE [MODE 8 3CC6 LDN 0 20 14 3CWQ DCA ,STO,0,COUNT [LENGTH 9 3DBB LOCKC 3,SERCHF 10 3DW2 MHUNT 3,FLIB,FMAGH 9 3F*L LDN 0 A1+1(3) 14 3FT= DCA ,STO,0,CTSA [ADDRESS 17 3G54 ... LONGLOCK 2 [LONGLOCK THE CPAT 8 3G#W LOCKC 2,/ 8 3GSG GPERI ,2 6 3H#6 COOR1 7 3HRQ UNLOCK 3 7 3J?B UNLOCK 2 17 3JH8 ... LOSELONG 2 [UN-LONGLOCK THE CPAT 11 3JR2 # AA TEST WPR STATUS 9 3K=L LDX 0 AWORK2(2) 8 3KQ= LDX 1 FX1 9 3L9W ANDX 0 TNOWPR(1) 8 3LPG BZE 0 PU 14 3M96 JWPR ,PU [WPR OK 8 3MNQ SETREP NOWPR 8 3N8B BRN PAD 4 3NN2 PU 11 3P7L # Z SECOND ATTEMPT ? 15 3PM= BNZ 7 PAB [2ND ATTEMPT 11 3Q6W # M CHECK READ REPLY 9 3QLG #SKI K6TAPEWAIT>99-99 11 3R66 SWITRACE CPRW1(2),TWTREP1 14 3RKQ LDCH 0 CPRW1(2) [REPLY 8 3S5B ANDN 0 #47 13 3SK2 BZE 0 PN [OK? 4 3T4L # 10 3TJ= # AF TEST IF FAIL 7 3W3W ANDN 0 4 13 3WHG BNZ 0 PAI [FAIL 11 3X36 # AG TEST IF TAPE MARK 9 3XGQ LDCH 0 CPRW1(2) 7 3Y2B ANDN 0 2 15 3YG2 BNZ 0 PR [TAPE MARK 12 3Y_L # AH UNINTELLIGIBLE REPLY 9 3_F= GEOERR 1,XREP 9 3_YW # AI FAIL 0 ? 9 42DG PAI LDX 0 CPRW1(2) 8 42Y6 ANDN 0 #77 14 43CQ BZE 0 PAK [FAIL 0 9 43XB # AJ FAIL 2 ? 14 44C2 SBN 0 1 [FAIL 1 8 44WL BZE 0 PAM 7 45B= SBN 0 1 14 45TW BNZ 0 PAC [FAIL 3 10 46*G # AM FAIL ALLOWED 9 46T6 PAM LDX 0 AWORK2(2) 9 47#Q ANDX 0 TFAIL(1) 16 47SB BNZ 0 PR [FAIL NOT ALLOWED 11 48#2 # AC SET FAILED REPLY 9 48RL PAC SETREP FAILED 11 49?= # AD FREE BUFFER BLOCK 4 49QW PAD 10 4==G MFREE FLIB,FMAGH 10 4=Q6 # AE REWIND DECK 4 4?9Q PAE 17 4?PB BRN PAS [TO DEALLOCATE DECK 11 4#92 # AK DECK SWITCHABLE ? 8 4#NL PAK LCAP ,0 8 4*8= ANDN 0 #10 16 4*MW BZE 0 PAM [NOT SWITCHABLE 11 4B7G # AL IN NORMAL SETTING 8 4BM6 LMODEQ ,0 9 4C6Q STO 0 AWORK3(2) 9 4CLB TXU 0 TNMS(1) 19 4D62 BCC PAM [ALREADY IN NORMAL SETTING 10 4DKL # AN SWITCH DECK 9 4F5= #SKI K6TAPEWAIT>199-199 10 4FJW SWITRACE 0,TWTMODEQ 9 4G4G SETMODEQ ,TNMS(1) 12 4GJ6 # AO MARK FOR 2ND ATTEMPT 14 4H3Q LDN 7 1 [MARKER 15 4HHB BRN PL [READ ATTEMPT 16 4J32 # AB SWITCH DECK BACK TO FORMER SETTING 10 4JGL PAB SETMODEQ ,AWORK3(2) 9 4K2= #SKI K6TAPEWAIT>99-99 11 4KFW SWITRACE CPRW1(2),TWTREP2 15 4K_G LDCH 0 CPRW1(2) [CHECK REPLY 8 4LF6 ANDN 0 #57 13 4LYQ BNZ 0 PAM [FAIL 13 4MDB # N STANDARD FORMAT HEADER 10 4MY2 PN MHUNT 3,FLIB,FMAGH 9 4NCL LDX 0 CPRW1(2) 9 4NX= ANDX 0 REMASK(1) 10 4PBW DCA ,SBX,0,CTSA 15 4PWG ANDX 0 REMASK(1) [NR OF WORDS 7 4QB6 SBN 0 9 15 4QTQ BNG 0 PR [TOO SHORT 15 4R*B LDX 0 A1+1(3) [FIRST WORD 9 4RT2 TXU 0 THDDR(1) 8 4S#L BCS PR 14 4SS= LDX 5 A1+2(3) [TSN :- 13 4T?W BNG 5 PR [NEG 13 4TRG BZE 5 PR [ZERO 14 4W?6 LDN 7 12 [NAME :- 7 4WQQ LDX 2 3 9 4X=B PN1 LDCH 0 A1+3(2) 9 4XQ2 TXL 0 TEXCH(1) 17 4Y9L BCC PR [DISALLOWED CHARACTER 7 4YP= BCHX 2 / 8 4_8W BCT 7 PN1 14 4_NG LDX 2 FX2 [RESET X2 13 5286 LDX 0 A1+6(3) [REEL 10 52MQ TXL 0 REELMAX(1) 13 537B BCC PR [>512 13 53M2 # O KNOWN IN :SYSTEM.SERIAL 9 546L #SKI K6TAPEWAIT>199-199 9 54L= SWITRACE 5,TWTTSN 16 555W LDN 7 0 [NOT YET KNOWN 12 55KG OPENSYS XBRKIN,SERIAL,READ 20 5656 SSEARCH PX3,5 [LOOK FOR ENTRY IN :SYSTEM.SERIAL 15 56JQ LDX 0 5(3) [STATUS WORD 9 574B #SKI K6TAPEWAIT>199-199 9 57J2 SWITRACE 0,TWTSS5 7 583L SLC 0 1 8 58*2 ... BPZ 0 PNW 15 58LB ... LDN 7 1 [WORK TAPE 8 58XQ ... BRN PX3 8 5996 ...PNW LDX 0 2(3) 15 59GG BNZ 0 PO2 [TAPE IN USE 10 5=26 MHUNT 3,FLIB,FMAGH 17 5=FQ LDX 0 TPOOL(1) [OTHERWISE POOLTAPE 10 5=_B LDX 2 TPOOL+2(1) 10 5?F2 LDX 1 TPOOL+1(1) 9 5?YL TXU 0 A1+3(3) 9 5#D= TXU 1 A1+4(3) 9 5#XW TXU 2 A1+5(3) 14 5*CG BCS PX3 [NO-OK 17 5*X6 LDN 7 1 [KNOWN AS A POOL TAPE 9 5BBQ #SKI K6TAPEWAIT>199-199 9 5BWB SWITRACE 7,TWTPOOL 8 5CB2 BRN PX3 10 5CTL PO2 STO 0 ACOMMUNE1(2) 8 5D*= LDX 0 3(3) 10 5DSW STO 0 ACOMMUNE2(2) 8 5F#G LDX 0 4(3) 10 5FS6 STO 0 ACOMMUNE3(2) 11 5G?Q # V LOOK IN DIRECTORY 11 5GRB SETNCORE 12,3,FILE,FABSNB 8 5H?2 LDN 0 10 16 5HQL STO 0 A1(3) [RECORD HEADER 8 5J== LDN 0 #2001 14 5JPW ORS 0 ATYPE(3) [MT TYPE 15 5K9G LDX 0 ACOMMUNE1(2) [USER NAME 9 5KP6 STO 0 A1+1(3) 10 5L8Q LDX 0 ACOMMUNE2(2) 9 5LNB STO 0 A1+2(3) 10 5M82 LDX 0 ACOMMUNE3(2) 9 5MML STO 0 A1+3(3) 18 5N7= STOZ A1+4(3) [LOCAL NAME & DETAILS .. 14 5NLW LDN 0 A1+4(3) [SET ZERO 9 5P6G LDN 1 A1+5(3) 14 5PL6 MOVE 0 5 [ZEROISED 7 5Q5Q NGN 0 1 16 5QKB STO 0 A1+10(3) [RETENTION PERIOD 13 5R52 STO 5 A1+11(3) [TSN 12 5RJL OPENDIR XBRKIN,READ,ERASING 10 5S4= MFREE FILE,FABSNB 10 5SHW MHUNT 3,FILE,ENT 10 5T3G MHUNT 2,FLIB,FMAGH 10 5TH6 # W NEW TAPE ? 9 5W2Q LDX 0 ELOC1(3) 18 5WGB BZE 0 PX1 [IF SO,CANNOT DISPROVE 11 5X22 # X IDENTICAL NAME 7 5XFL LDN 1 4 7 5X_= PX2 SMO 1 9 5YDW LDX 0 A1+3(2) 7 5YYG SMO 1 9 5_D6 TXU 0 ELOC1(3) 8 5_XQ BCS PX1 7 62CB SBN 1 1 8 62X2 BPZ 1 PX2 7 636S ... LDN 7 1 15 63BL PX1 CLOSETOP [DIRECTORY 14 64*W PX3 CLOSETOP [SERIAL 15 64TG BZE 7 PP [NOT SECURE 11 65*6 # Y SET SECURE REPLY 9 65SQ SETREP SECURE 8 66#B BRN PAD 11 66S2 # P REWIND REQUIRED 8 67?L PP SETREP OK 9 67R= LDX 0 AWORK2(2) 9 68=W ANDX 0 TAFB(1) 8 68QG BZE 0 PT 9 69=6 # Q FINISH 8 69PQ PQ UP 12 6=9B # R SET NONSTANDARD REPLY 8 6=P2 PR SETREP NONS 11 6?8L # S FREE BUFFER BLOCK 10 6?N= PS MFREE FLIB,FMAGH 10 6#7W # T REWIND DECK 7 6#MG PT LDN 0 7 10 6*76 DCA ,DLA,0,MODE 17 6*BY ... LONGLOCK 2 [LONGLOCK THE CPAT 8 6*LQ LOCKC 2,/ 14 6B6B GPERI ,2 [REWIND 6 6BL2 COOR1 7 6C5L UNLOCK 2 17 6C*D ... LOSELONG 2 [UN-LONGLOCK THE CPAT 12 6CK= # U CHECK REWIND REPLY 9 6D4W #SKI K6TAPEWAIT>199-199 11 6DJG SWITRACE CPRW1(2),TWTRWREP 9 6F46 LDCH 0 CPRW1(2) 8 6FHQ BNZ 0 PF 8 6G3B BRN PQ 12 6GH2 # AQ REMOVE TO-BE-UNLOADED 4 6H2L PAQ 9 6HG= #SKI K6TAPEWAIT>199-199 11 6H_W SWITRACE CPPTR(2),TWTUNL 8 6JFG DFCLEAR ,UNL 12 6J_6 # AR SET UNLOADED REPLY 9 6KDQ SETREP UNLOADED 11 6KYB # AS DE-ALLOCATE DECK 4 6LD2 PAS 8 6LXL LDX 1 FX1 8 6MC= LDX 2 FX2 7 6MM4 ... PICKREP2 6 15 6MWW LDX 0 TMODE(1) [SET UP MODE 10 6NBG DCA ,DLA,0,MODE 17 6NL# ... LONGLOCK 2 [LONGLOCK THE CPAT 8 6NW6 LOCKC 2,/ 8 6P*Q GPERI ,2 6 6PTB COOR1 7 6Q*2 UNLOCK 2 17 6QJS ... LOSELONG 2 [UN-LONGLOCK THE CPAT 17 6QSL DFCLEAR ,LOAD [CLEAR TAPE UP BIT 6 6R#= FREEMT 9 6RRW # AT TERMINATE 7 6S3N ... PUTREP2 6 5 6S?G UP 5 6SR6 SERCHF 10 6T=Q HUNT 2,FLIB,FMAGH 7 6TQB EXIT 1 0 4 6W=2 # 7 6WPL # GEOERRS 4 6X9= # 9 6XNW XBRKIN GEOERR 1,XBRKIN 4 6Y8G # 9 6YN6 XLIB GEOERR 1,XLIB 8 6_7Q XWT GEOERR 1,XWT 4 6_MB # 11 7272 MENDAREA 50,K99TAPEWAIT 4 72LL #END 8 ____ ...51263352001100000000