15 22FL ... SEG LIBSEC,860,C.R.JOHNSON,LIBRARY 8 22_= # ENTRY POINTS:- 21 23DW # K1 IS USED BY USEROPEN WHEN THE TAPE HAS BEEN FOUND IN THE 4 23JR ...[ 17 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23SK ...[ 21 23YG # DIRECTORY. SYSTEM.SERIAL IS OPEN AND THE DIRECTORY CLOSED 21 24D6 # A FILE/ENT BLOCK CONTAINS A COPY OF THE DIRECTORY ENTRY 21 24XQ # K2 IS USED WHEN A TAPE HAS BEEN FOUND WHICH FITS REQUIREMENT 17 25CB # X4 CONTAINS THE GEOGRAPHIC NO OF THE DECK 19 25X2 # X6 CONTAINS THE TSN AND A FLIB/FTSN IS PRESENT 20 26BL # K3 IS USED WHEN A TAPE WITH A SPECIFIC TSN IS REQUIRED 13 26W= # X4 & X5 SHOULD BE ZERO 13 27*W # K4 IS USED BY TAPEOPEN MACRO 21 27H4 ...# K5 IS USED IN MACHINE B WHEN ENTERED FROM LIBMANY TO AVOID 13 27N= ...# THE FSHMOVE END AT K1. 4 27TG # 12 28*6 SEGENTRY K1LIBSEC,QK1LIBSEC 12 28SQ SEGENTRY K2LIBSEC,QK2LIBSEC 12 29#B SEGENTRY K3LIBSEC,QK3LIBSEC 12 29S2 SEGENTRY K4LIBSEC,QK4LIBSEC 4 2=?L # 14 2=BQ ... FSHENTRY K5LIBSEC,,QK5LIBSEC,QK5LIBSEC 4 2=FW ...# 11 2=K2 ... SEGENTRY K7LIBSEC,NOTALLOC 4 2=KR ...[ 14 2=LJ ... FSHENTRY K8LIBSEC,QK8LIBSEC,,QK8LIBSEC 14 2=M* ... FSHENTRY K9LIBSEC,QK9LIBSEC,,QK9LIBSEC 4 2=N6 ...# 9 2=R= UWRONG #2000000 9 2?=W OWRONG #1000000 9 2?QG SQUE #400000 9 2#=6 UNITNO #777000 9 2#PQ SDUMP 12HDUMPER 7 2#TM ...#UNS JMODGCR 4 2#_J ...#SKI 4 2*5F ...( 9 2*9B TCHAR +GLIBNRZI 9 2*P2 +GLIBPE 9 2B8L +GLIBTRA7 8 2BN= +0 4 2BY4 ...) 10 2C7W WORK 12HWORK TAPE 4 2FL2 TIDY 9 2G5L VFREE GMON,AOUT 10 2GK= VFREE ADATA,ADEMAND 9 2H4W VFREE FLIB,FTSN 9 2HJG VFREE FLIB,FSPD 7 2J46 EXIT 3 0 6 2JHQ QK1LIBSEC 15 2K3B STOZ AWORK3(2) [NOT TAPEOPEN 9 2KH2 STOZ CPPTR(2) 10 2L2L HUNT 3,FILE,ENT 13 2LG= LDX 6 ESER(3) [TSN 8 2L_W BRN START 6 2MFG QK2LIBSEC 15 2M_6 STOZ AWORK3(2) [NOT TAPEOPEN 7 2NDQ CONSERNO 6 8 2NYB BRN OFF 6 2PD2 QK3LIBSEC 7 2PXL CONSERNO 6 15 2QC= STOZ AWORK3(2) [NOT TAPEOPEN 9 2QWW STOZ CPPTR(2) 4 2RBG WAIT 6 2RHN ...#UNS FIRSTR 19 2RNW ... TESTMODE AWORK2(2),X1,,INFORM [LONGSET NOT REQD IN INFORM 10 2RW6 LONGSET #61,WTSTYLE,6 8 2S*Q BRN X1 6 2STB QK4LIBSEC 9 2T*2 STOZ CPPTR(2) 10 2TSL LDX 0 ACOMMUNE1(2) 9 2W#= STO 0 AWORK1(2) 10 2WRW LDX 0 ACOMMUNE2(2) 9 2X?G STO 0 AWORK2(2) 7 2XR6 LDN 0 1 14 2Y=Q STO 0 AWORK3(2) [TAPEOPEN 13 2YQB LDX 6 ACOMMUNE3(2) [TSN 5 2YRC ...#UNS IDC 4 2YSD ...( 21 2YTF ... SETNCORE 12,3,FILE,FABSNB [USED EVENTUALLY TO UPDATE DATE & TIM 16 2YWG ... LDN 0 10 [LAST ACCESSED. 17 2YXH ... STO 0 HDREC(3) [SET UP RECORD HEADER 17 2YYJ ... LDN 0 0 [SET LOCAL NAME ZERO 17 2Y_K ... STO 0 A1+1(3) [BECAUSE WE DONT KNOW 13 2_2L ... LDN 0 A1+1(3) [IT 12 2_3M ... LDN 1 A1+2(3) [ 12 2_4N ... MOVE 0 8 [ 12 2_5P ... LDN 0 1 [ 16 2_6Q ... NGS 0 A1+10(3) [RETENTION PERIOD 16 2_7R ... STO 6 A1+11(3) [TSN INTO FABSNB 4 2_8S ...) 11 2_=2 SETNCORE 3,3,CPAR,GPERCON 8 2_PL LDCT 0 #50 8 329= STO 0 A1(3) 10 32NW LDX 0 ACOMMUNE4(2) 9 338G STO 0 A1+1(3) 10 33N6 LDX 0 ACOMMUNE5(2) 9 347Q STO 0 A1+2(3) 9 34MB SETUPMODE ,0,NOSS 10 3572 ANDX 0 ACOMMUNE2(2) 19 35LL BNZ 0 START [J IF S.S NOT TO BE OPENED 12 366= OPENSYS UP1,SERIAL,GENERAL 9 36KW BRN START1 5 375G START 18 37K6 LDX 0 ACOMMUNE1(2) [PRESERVE MODE WORDS FROM 14 384Q STO 0 AWORK1(2) [USEROPEN 10 38JB LDX 0 ACOMMUNE2(2) 9 3942 STO 0 AWORK2(2) 5 39HL START1 15 3=3= STOZ 4 [FOR LIBREQ 15 3=GW STOZ 5 [FOR LIBREQ 17 3?2G CONSERNO 6 [CONVERT IT TO CHARS 9 3?G6 SETUPMODE ,0,NOSS 9 3?_Q ANDX 0 AWORK2(2) 19 3#FB BNZ 0 WAIT [J IF S.S NOT TO BE UPDATED 19 3#_2 SSEARCH NOTOW,6 [FIND ENTRY IN :SYSTEM.SERIAL 10 3*DL SETUPMODE ,0,NOWRONG 9 3*Y= ANDX 0 AWORK2(2) 19 3BCW BNZ 0 NOUW [J IF USER WRONGED NOT WANTED 9 3BXG LDX 0 UWRONG(1) 8 3CC6 ANDX 0 5(3) 17 3CWQ BNZ 0 UWR [J IF USER WRONGED 4 3DBB NOUW 9 3DW2 LDX 0 OWRONG(1) 8 3F*L ANDX 0 5(3) 18 3FT= BNZ 0 OWR [J IF OPERATOR WRONGED 10 3G#W SETUPMODE ,0,NOQUERY 9 3GSG ANDX 0 AWORK2(2) 19 3H#6 BNZ 0 NQUE [J IF QUERY STATUS NOT WANTED 9 3HRQ LDX 0 SQUE(1) 8 3J?B ANDX 0 5(3) 17 3JR2 BNZ 0 QUE [J IF QUERY STATUS. 4 3K=L NQUE 10 3KQ= SETUPMODE ,0,DUMPER 9 3L9W ANDX 0 AWORK2(2) 16 3LPG BZE 0 NNOT [J IF NOT DUMPER 8 3M96 LDX 0 2(3) 16 3MNQ BZE 0 NOTO [J IF NOT OWNED 19 3N8B BXU 0 SDUMP(1),NOTO [J IF NOT OWNED BY :DUMPER 8 3NN2 LDX 0 3(3) 18 3P7L BXU 0 SDUMP+1(1),NOTO [^ ^ ^ ^ ^ ^ 8 3PM= LDX 0 4(3) 18 3Q6W BXU 0 SDUMP+2(1),NOTO [^ ^ ^ ^ ^ ^ 4 3QLG NNOT 5 3QMX ...#UNS IDC 4 3QP# ...( 12 3QQP ... LDX 0 AWORK3(2) [ 17 3QS6 ... BZE 0 NNOTA [J IF NOT TAPEOPEN 15 3QTH ... MHUNTW 2,FILE,FABSNB [FIND FABSNB 16 3QWY ... LDN 0 2(3) [X0 -> USERNAME 18 3QY* ... LDN 1 A1+1(2) [X1 -> POSITION IN FABSNB 16 3Q_Q ... MOVE 0 3 [MOVE IN USERNAME 12 3R37 ...NNOTA [ 4 3R4J ...) 7 3R66 READAGAIN 10 3RKQ HUNT 3,FILE,FRB 6 3RTJ ...#UNS FIRSTR 13 3S5B ... TESTMODE AWORK2(2),PAIN1A,,INFORM 7 3S*8 ... LDN 0 1 19 3SK2 ADS 0 A1+5(3) [ADD ONE TO REQUESTERS COUNT 5 3SSS ...PAIN1A 10 3T4L NAME 3,FILE,FWB 7 3T79 ...#UNS JMODGCR 10 3T9S ... MTSERSPD GSERPROP(3) 7 3T#C ...#UNS JMODGCR 4 3TC2 ...#SKI 4 3TFK ...( 10 3TJ= HUNT 2,FLIB,FSPD 7 3W3W LDN 0 0 8 3WHG BNG 2 NNOT0 8 3X36 LDX 0 A1(2) 15 3XGQ ANDN 0 GLIBTRA7+GLIBTRA9+GLIBPE+GLIBNRZI 5 3Y2B NNOT0 19 3YG2 BNZ 0 NNOT2 [BRANCH IF CHAR. SPECIFIED 9 3Y_L LDX 3 A1+5(3) 8 3_F= SRL 3 13 7 3_YW ANDN 3 7 19 42DG BZE 3 NNOT2 [BRANCH IF CHAR. NOT KNOWN 8 42Y6 BPZ 2 NNOT1 10 43CQ SETNCORE 1,2,FLIB,FSPD 8 43XB STOZ A1(2) 5 44C2 NNOT1 7 44WL SRL 3 1 7 45B= SMO 3 9 45TW LDX 0 TCHAR(1) 8 46*G ORS 0 A1(2) 9 46T6 #SKI K6LIBSEC>199-199 11 47#Q SWITRACE A1(2),LBSCCHAR 5 47SB NNOT2 4 4848 ...) 17 48#2 REWRITE [REWRITE THE RECORD 6 48F8 ...#UNS FIRSTR 13 48LB ... TESTMODE AWORK2(2),PAIN1,,INFORM 19 48RL LONGSET #61,WTSTYLE,6 [SET WAITING STYLE GIVING TSN 5 493D ...PAIN1 16 49?= CLOSETOP [SYSTEM.SERIAL 9 49QW MFREE FILE,FWB 4 4==G X1 10 4=Q6 FINDPERE 3,APTSER,6 17 4?9Q BNG 3 NOTUP [J IF TAPE NOT LOADED 17 4?PB JALLOC 3,USED [J. IF ALREADY IN USE 13 4?_8 ... TESTMODE AWORK2(2),PAIN2A,,INFORM 16 4#92 SETALLOC 3 [MARK ALLOCATED 5 4#DS ...PAIN2A 9 4#NL STO 3 CPPTR(2) 4 4*8= OFF 6 4**D ...#UNS FIRSTR 13 4*GL ... TESTMODE AWORK2(2),PAIN2,,INFORM 18 4*MW LONGOFF [UNSET ANY WAITING STYLE 5 4*XN ...PAIN2 11 4B7G HUNT 1,CPAR,GPERCON 9 4BM6 LDX 0 A1+2(1) 7 4C6Q ANDN 0 1 19 4CLB BZE 0 WPROK [J IF NULL WPR REQUIREMENT 7 4D62 LDN 7 1 8 4DKL JWPR ,WPR 15 4F5= LDN 7 0 [X7=WPR STATE 4 4FJW WPR 9 4G4G LDX 0 A1+1(1) 16 4GJ6 ANDN 0 1 [LOAD WPR NEED 19 4H3Q BXU 0 7,WPRNOK [J IF PRESENT STATE NOT OK 5 4HHB WPROK 12 4J32 # CHECK MODE PROPERTIES HERE 6 4JGL MOCHAS 13 4K2= TESTREP NOTAV,XWRM,FAILED,XWRM 12 4KFW OPENSYS XBRKIN,DOCUMENT,READ 10 4K_G SDSEARCH SDERR,TSN,6 9 4LF6 SETUPMODE ,0,INSEC 9 4LYQ ANDX 0 AWORK2(2) 19 4MDB BNZ 0 PINSEC [J IF INSECURE TAPE WANTED 10 4MY2 SETUPMODE ,0,NOQUERY 9 4NCL ANDX 0 AWORK2(2) 19 4NX= BNZ 0 NOQ [J IF QUERY STATUS NOT WANTED 8 4PBW LDX 0 21(3) 9 4PWG ANDX 0 SQUE(1) 8 4QB6 BNZ 0 QUOL 4 4QTQ NOQ 9 4R*B LDX 0 AWORK3(2) 16 4RT2 BNZ 0 OKHDDR [J IF TAPEOPEN 10 4S#L HUNT 1,FILE,FABSNB 9 4SS= LDX 0 ATYPE(1) 8 4T?W ANDN 0 #200 18 4TRG BNZ 0 OKHDDR [BRANCH IF NAMED WORKTAPE 9 4W?6 LDX 7 ATYPE(1) 14 4WQQ ANDN 7 #2000 [TSN BIT 8 4X=B SMO A1(1) 8 4XQ2 ADN 1 A1-6 8 4Y9L LDX 0 0(1) 17 4YP= BZE 0 OKHDDR [J IF NAME NOT GIVEN 10 4_8W BXU 0 3(3),XHDDRDIS 8 4_NG LDX 0 1(1) 10 5286 BXU 0 4(3),XHDDRDIS 8 52MQ LDX 0 2(1) 10 537B BXU 0 5(3),XHDDRDIS 8 53M2 LDX 0 3(1) 17 546L ANDN 0 #777 [TRUNCATE REEL NO. 18 54L= BXU 0 6(3),XHDDRDIS [J IF REEL NO DISAGREES 4 555W XCH2 8 55KG LDX 0 4(1) 18 5656 BZE 0 OKHDDR [J IF FGN NOT SPECIFIED 17 56JQ BNG 0 XHDDRDIS [J IF -VE FGN GIVEN 7 574B SLL 0 1 17 57J2 BNG 0 XHDDRDIS [J IF +VE FGN GIVEN 7 583L SRL 0 1 8 58H= ERX 0 7(3) 8 592W ANDN 0 #7777 17 59GG BNZ 0 XHDDRDIS [J IF FGN DISAGREES 5 5=26 OKHDDR 15 5=FQ SETUPMODE ,0,HDDRLAB [IF MODE SET 19 5=_B ANDX 0 AWORK2(2) [SET UP FLIB/GOLMT CONTINING 15 5?F2 BZE 0 NHDDR [HEADER LABEL 11 5?YL SETNCORE 11,1,FLIB,GOLMT 7 5#D= STEPAGAIN 10 5#XW MHUNT 1,FLIB,GOLMT 8 5*CG LDN 0 2(3) 9 5*X6 LDN 1 A1+3(1) 7 5BBQ MOVE 0 8 5 5BWB NHDDR 9 5CB2 LDX 0 AWORK3(2) 8 5CTL BNZ 0 OK1 10 5D*= HUNT 1,FILE,FABSNB 8 5DSW LDN 2 3(3) 9 5F#G SMO HDREC(1) 9 5FS6 LDN 3 A1-6(1) 7 5G?Q MOVE 2 5 4 5GRB OK1 16 5H?2 CLOSETOP [SYSTEM.DOCUMENT 4 5HQL OK2 15 5J== # CHECK WHETHER TAPE IS TO BE MARKED ONLINE 9 5JPW SETUPMODE ,0,NOTOL 9 5K9G ANDX 0 AWORK2(2) 20 5KP6 BNZ 0 POL [J IF TAPE NOT TO BE PUT ONLINE 15 5L8Q PERON [MARK ONLINE 4 5LNB POL 9 5M82 LDX 0 AWORK3(2) 5 5M?6 ...#UNS IDC 15 5MB= ... BNZ 0 XFABCHECK [J IFTAPEOPEN 5 5MFB ...#UNS IDC 4 5MJG ...#STR 16 5MML BNZ 0 TSNOK [J IF TAPEOPEN 10 5N7= HUNT 3,FILE,FABSNB 9 5NLW LDX 0 ATYPE(3) 8 5P6G ANDN 0 #2000 18 5PL6 BNZ 0 TSNOK [J IF TSN ALREADY PRESENT 10 5Q5Q LDX 7 ALOGLEN(3) 19 5QKB BXU 7 HDREC(3),PLUS1 [J IF RET. PERIOD SPECIFIED 7 5R52 ADN 7 1 7 5RJL PLUS1 ADN 7 1 17 5S4= ALTLEN 3,7,FILE,FABSNB [ALTER FILE/FABSNB 10 5SHW HUNT 3,FILE,FABSNB 8 5T3G SMO A1(3) 15 5TH6 STO 6 A1+1(3) [INSERT TSN 19 5THL ... LDN 0 #2000 [SET TSN GIVEN BIT IN FABSNB 9 5TJ6 ... ORS 0 ATYPE(3) 5 5TJN ...#UNS IDC 4 5TL= ...( 12 5TMS ... BRN TSNOK [ 12 5TPB ...XFABCHECK [ 15 5TQY ... MHUNT 3,FILE,FABSNB [CHECK FABSNB 16 5TSG ... LDX 0 A1+1(3) [FOR PRESENCE OF 14 5TW4 ... BZE 0 XFABFREE [USERNAME 17 5TXL ... MBS 3,BFABTSN,BFABLIB [SET BITS FOR OPENDIR 4 5T_8 ...) 5 5W2Q TSNOK 19 5WGB CALL 3 TIDY [GET RID OF UNWANTED BLOCKS 5 5WGX ...#UNS IDC 4 5WHD ...( 20 5WHG ... MHUNT 3,FILE,FABSNB [NOW TRUNCATE GENERATION NUMBER 21 5WHJ ... SMO A1(3) [BECAUSE GETDIR WILL BREAK REELGEN 18 5WHL ... LDX 0 A1-2(3) [IF GEN > 4095 IS FOUND 12 5WHN ... ANDN 0 #7777 [ 12 5WHQ ... SMO A1(3) [ 14 5WHS ... STO 0 A1-2(3) [STORE IT 15 5WH_ ... OPENDIR (GEOERR),GENERAL,ERASING,QUERY 10 5WJG ... TESTREPN2 OK,XFABFREE 19 5WK3 ... MHUNTW 3,FILE,ENT [X3 -> NAME RECORD FOR TAPE 15 5WKJ ... LDX 6 EDATE [X6 -> DATE 19 5WL5 ... LDX 7 CLEANCT [X7 -> TIME SINCE MIDNIGHT 17 5WLL ... STO 6 EDLA(3) [DATE LAST ACCESSED 17 5WM7 ... STO 7 ETLA(3) [TIME LAST ACCESSED 16 5WMN ... LDX 0 GMTNOW [GEORGE MEAN TIME 14 5WN9 ... STO 0 EGMTLA(3) [STORE IT 17 5WNQ ... MHUNTW 1,CPAR,GPERCON [OPEN FOR WRITING? 7 5WNX ...#UNS ILOGACC 8 5WP4 ... LDN 4 CREAD 15 5WP? ... LDX 0 GPER2(1) [QUALIFIERR 12 5WPS ... ANDN 0 1 [ 17 5WQ* ... BZE 0 XREWRITE [J IF NOT WRIT MODE 17 5WQW ... STO 6 EWRITDAY(3) [DATE LAST WRITTEN 17 5WRC ... STO 7 EWRITTIME(3) [TIME LAST WRITTEN 7 5WRJ ...#UNS ILOGACC 9 5WRP ... LDN 4 CWRITE 12 5WRY ...XREWRITE [ 7 5WR_ ...#UNS ILOGACC 4 5WS2 ...( 9 5WS3 ... LDX 0 AWORK3(2) 19 5WS4 ... BNZ 0 XREW [NO LOGACCESS FOR TAPEOPEN 8 5WS5 ... LOGACCESS 2,4 10 5WS6 ... MHUNTW 3,FILE,ENT 4 5WS7 ...XREW 4 5WS8 ...) 16 5WSF ... NAME 3,FILE,FWB [RENAME ENT BLOCK 17 5WT2 ... REWRITE [REWRITE NAME RECORD 16 5WTH ... MFREEW FILE,FWB [FREE ENT BLOCK 16 5WW4 ... CLOSETOP [CLOSE DIRECTORY 12 5WWK ...XFABFREE [ 12 5WX6 ... LDX 0 AWORK3(2) [ 17 5WXM ... BZE 0 SETREPOK [J IF NOT TAPEOPEN 18 5WY8 ... MFREE FILE,FABSNB [FREE FABSNB IF TAPEOPEN 12 5WYP ...SETREPOK [ 4 5W_= ...) 8 5X22 SETREP OK 7 5XFL UPPLUS 1 10 5X_= SDERR GEOERR 1,NOSYSDOC 5 5YDW PINSEC 8 5YYG LDCT 0 #200 8 5_D6 ANDX 0 21(3) 18 5_XQ BNZ 0 NOQ [J IF TAPE IS INSECURE 11 62CB SETUPMODE ,0,NOSS,INSEC 9 62X2 ERX 0 AWORK2(2) 19 63BL ANDS 0 AWORK2(2) [UNSET INSEC MODE & NOSS MODE 16 63W= CLOSETOP [SYSTEM.DOCUMENT 16 64*W CLALLOC [DEALLOCATE DECK 9 64TG STOZ CPPTR(2) 6 652N ...#UNS FIRSTR 13 657W ... TESTMODE AWORK2(2),PAIN3,,INFORM 21 65*6 LONGON #61,6 [WAKE UP ACTIVITIES WAITING FOR TAPE 8 65SQ LONGON #61 5 664J ...PAIN3 17 66#B USEROPEX UP1,AWORK1(2),AWORK2(2) [TRY AGAIN 7 66S2 UPPLUS 1 4 67?L XWRM 7 67DS ...#UNS JMT21 7 67L2 ... MT21SMES 10 67R= UNLOAD ,,,UNL,AUT 7 68=W LDN 5 0 7 68QG LDN 4 0 6 68XN ...#UNS FIRSTR 13 694W ... TESTMODE AWORK2(2),NOTUP,,INFORM 10 69=6 LONGSET #61,WTSTYLE,6 8 69PQ BRN NOTUP 5 6=9B WPRNOK 16 6=P2 CLALLOC [DEALLOCATE DECK 9 6?8L LDX 3 CPPTR(2) 9 6?N= STOZ CPPTR(2) 6 6?TD ...#UNS FIRSTR 13 6#2L ... TESTMODE AWORK2(2),PAIN4,,INFORM 18 6#7W LONGON #61,6 [WAKE UP ANY ACTIVITIES 19 6#MG LONGON #61 [THAT MAY BE WAITING FOR IT 10 6*76 LONGWAIT ZBRKIN,#62 5 6*BY ...PAIN4 9 6*LQ DFJUMPN 3,LOAD,X1 8 6B6B JALLOC 3,X1 9 6BL2 DFLOAD 3,TSN,0 8 6C5L BXU 0 6,X1 9 6CK= STO 3 CPPTR(2) 7 6D4W SETALLOC 7 6DJG LDN 7 1 8 6F46 JWPR ,WPR1 7 6FHQ LDN 7 0 11 6G3B WPR1 HUNT 1,CPAR,GPERCON 17 6GH2 LDX 0 A1+1(1) [FINALLY CHECK IF WPR 7 6H2L ANDN 0 1 15 6HG= BXE 0 7,WPROK [STILL NOT OK 9 6H_W DOWN LIBREQ,3 9 6JFG BRN ZBRKIN 8 6J_6 BRN X2 5 6KDQ NOTUP 19 6KYB DOWN LIBREQ,2 [ASK FOR TAPE TO BE LOADED 17 6LD2 BRN ZBRKIN [BREAKIN OR CANTDO 16 6LXL X2 LDX 4 ACOMMUNE4(2) [REINSTATE X4&5 10 6MC= LDX 5 ACOMMUNE5(2) 20 6MWW TESTREP OK,X1 [J TO SEE IF TAPE UP IF WOKEN UP 7 6MYS ...#UNS FIRSTR 4 6N2Q ...( 21 6N4N ... TESTMODE AWORK2(2),NINF,NOT,INFORM [INFORM MODE REQUIRES NO FURTHE 8 6N6L ... CALL 3 TIDY 7 6N8J ... UPPLUS 1 4 6N=G ...NINF 4 6N#D ...) 15 6NBG PICKREP 7 [LOAD REPLY 16 6NW6 LDN 5 1 [INDICATE REPLY 18 6P*Q STOZ 4 [INDICATE NOT ALLOCATED 8 6PTB BRN XDEAL 4 6Q*2 USED 16 6QSL DOWN LIBREQ,1 [WAIT FOR TAPE 16 6R#= BRN ZBRKIN [BRKIN OR CANTDO 8 6RRW BRN X2 4 6S?G UWR 9 6SR6 KEEPREP 7,USWRONG 8 6T=Q BRN UPT 4 6TQB OWR 9 6W=2 KEEPREP 7,OPWRONG 8 6WPL BRN UPT 4 6X9= QUE 9 6XNW KEEPREP 7,QUERY 8 6Y8G BRN UPT 5 6YN6 WTSTYLE 9 6_7Q GEOERR 1,WTSTYLE 7 6_MB QUOL LDN 5 1 9 7272 KEEPREP 7,QUERY 16 72LL CLOSETOP [SYSTEM.SERIAL 8 736= BRN XDEAL 5 73KW ZBRKIN 16 745G STOZ 4 [NOT ALLOCATED 5 74K6 XBRKIN 14 754Q STOZ 5 [NO REPLY 8 75JB BRN XDEAL 5 7642 XHDDRDIS 19 76HL DFJUMPN ,PWORK,XHD1 [J UNLESS TAPE IS WORKTAPE 8 773= LDX 2 FX1 8 77GW LDX 0 0(1) 10 782G BXU 0 WORK(2),XHD1 8 78G6 LDX 0 1(1) 11 78_Q BXU 0 WORK+1(2),XHD1 8 79FB LDX 0 2(1) 11 79_2 BXU 0 WORK+2(2),XHD1 8 7=DL LDX 0 3(1) 8 7=Y= ANDN 0 #777 8 7?CW BNZ 0 XHD1 8 7?XG LDX 0 4(1) 8 7#C6 ANDN 0 #7777 8 7#WQ BNZ 0 XHD1 8 7*BB LDX 2 FX2 19 7*W2 BRN OKHDDR [NAME IN DIRECTORY SPECIFIED 4 7B*L XHD1 16 7BT= CLOSETOP [SYSTEM.DOCUMENT 9 7C#W KEEPREP 7,HDDRDIS 7 7CSG LDN 5 1 5 7D#6 XDEAL 7 7DRQ LONGOFF 9 7F?B SETUPMODE ,0,NOSS 9 7FR2 ANDX 0 AWORK2(2) 19 7G=L BNZ 0 UP2 [J IF S.S NOT TO BE UPDATED 12 7G?K ... TESTMODE AWORK2(2),UP2,,INFORM 6 7GN8 ...QK8LIBSEC 12 7GQ= OPENSYS XBRKIN,SERIAL,GENERAL 19 7H9W SSEARCH ,6 [FIND ENTRY IN :SYSTEM.SERIAL 7 7HPG READAGAIN 10 7J96 HUNT 3,FILE,FRB 19 7JNQ SSCOR A1(3),DEC [DECREASE COUNT OF REQUESTERS 7 7JYJ ... LDX 4 0 10 7K5= ... NAME 3,FILE,FWB 7 7K9Y ... REWRITE 10 7KBL ... MHUNT 3,FILE,FWB 20 7KH# ... BNZ 4 REWRITE [J IF MORE USERS WANT THIS TAPE 9 7KN2 LDX 0 A1+5(3) 17 7L7L BNG 0 RETURN [J IF TO BE RETURNED 7 7LM= SLL 0 2 8 7M6W BNG 0 YDEAD 5 7N66 REWRITE 9 7PK2 MFREE FILE,FWB 16 7Q4L CLOSETOP [SYSTEM.SERIAL 4 7QJ= UP2 8 7QWJ ... BNZ 4 UP3 8 7QY? ... LONGON #57,6 4 7R22 ...UP3 9 7R3W LDX 4 CPPTR(2) 9 7RHG BZE 4 NOTALLOC 7 7S36 CLALLOC 9 7SGQ STOZ CPPTR(2) 8 7T2B LONGON #61,6 8 7TG2 LONGON #61 5 7T_L NOTALLOC 8 7WF= CALL 3 TIDY 16 7WYW BNZ 5 UPPL [J IF NOT BRKIN 4 7XDG UP1 5 7XY6 UP 5 7YCQ NOTOW 10 7YXB SETUPMODE ,0,DUMPER 9 7_C2 ANDX 0 AWORK2(2) 8 7_WL BNZ 0 NOTO 10 82B= GEOERR 1,LIBDISAG 4 82TW NOTO 9 83*G KEEPREP 7,NOTOWN 7 83T6 UPT CLOSETOP 8 84#Q CALL 3 TIDY 4 84SB UPPL 15 85#2 PUTREP 7 [SET REPLY 7 85RL UPPLUS 1 5 86?= RETURN 10 86QW ... ACROSS LIBREQCA,5 5 8F32 YDEAD 10 8FGL ... ACROSS LIBREQCA,7 10 8KX= MENDAREA 50,K99LIBSEC 4 8LBW #END 8 ____ ...06657013000100000000