(George Source)
Macros used: ACROSS, CLOSETOP, DFJUMPS, DOWN, FREECORE, FSHCODE, FSHMOVE, GEOERR, HUNT, HUNT2, JALLOC, JONL, KEEPREP, LJOBNO, LONGOFF, LONGSET, MENDAREA, MFREE, OPENDIR, OPENSYS, PUTREP2, READ, READAGAIN, SDSEARCH, SEG, SEGENTRY, SETALLOC, SETNCORE, SETREP, SETUPMODE, SSEARCH, TEST, TESTREP, TRAPOPEN, UP, UPPLUS, USEROPEX
22FL SEG LIBINSEC,,N.R.BOULT,LIBRARY 22^= # 23DW SEGENTRY K1LIBINSEC,QK1LIBIN 23YG SEGENTRY K2LIBINSEC,QK2LIBIN 24D6 # 24XQ SMASK #77400000 25CB # 25X2 # 26BL # 26W= QK1LIBIN 26YT ... FSHCODE B,QK1A 273D ...( 2763 ... FSHMOVE END [ :SYSTEM.SERIAL (ONLY IF IN M/C B) 278L ...QK1A 27?9 ...) 27*W LDN 7 0 27TG LDX 0 ACOMMUNE1(2) [STORE MODE WORDS 28*6 STO 0 AWORK1(2) 28SQ LDX 0 ACOMMUNE2(2) 29#B STO 0 AWORK2(2) 29S2 BRN XBOTH 2=?L QK2LIBIN 2=R= LDN 7 1 [ENTRY FROM LIBTSN 2?=W XBOTH 2?QG STOZ 4 2#=6 STOZ 5 2#PQ HUNT 3,FILE,FABSNB 2*9B LDCT 0 #600 2*P2 SMO HDREC(3) 2B8L ANDX 0 A1-2(3) 2BN= BNZ 0 RELGEN [J IF REL GEN SPECIFIED 2C7W LDX 0 ATYPE(3) 2CMG ANDN 0 #2000 2D76 BZE 0 NOSER [J IF NO TSN GIVEN 2DLQ SMO HDREC(3) 2F6B LDX 6 A1+1(3) [LOAD TSN 2FL2 BNZ 7 NOTIN [J IF S.S ALREADY CHECKED BY LIBTSN 2G5L SSEARCH NOTINSYS,6 [FIND ANY ENTRY IN :SYSTEM.SERIAL 2GK= LDX 0 2(3) 2H4W BZE 0 NOTOW [J IF POOL OR WORK TAPE 2HJG LDX 0 5(3) 2J46 BNG 0 NOTOW [J IF TO BE RETURNED 2JHQ KEEPREP 7,INSYS 2K3B BRN XCLUP 2KH2 NOTOW 2L2L LDX 0 5(3) 2LG= SLL 0 1 2L^W BNG 0 WORKT [J IF WORKTAPE 2MFG KEEPREP 7,POOLTAPE 2M^6 BRN XCLUP 2NDQ WORKT 2NYB KEEPREP 7,WORKTAPE 2PD2 BRN XCLUP 2PXL RELGEN 2QC= KEEPREP 7,GENERR 2QWW XCLUP 2RBG CLOSETOP [SYSTEM.SERIAL 2RW6 PUTREP2 7 2S*Q UPPLUS 1 2STB NOTINSYS 2T*2 CLOSETOP [SYSTEM.SERIAL 2TSL NOTIN 2W#= SETUPMODE ,0,NOSS,INSEC 2WRW ORS 0 AWORK2(2) [FOR LIBSEC 2X?G ACROSS LIBSEC,3 2XR6 NOSER 2Y=Q LDX 0 ATYPE(3) 2YQB ANDN 0 #1000 [SEE IF LOCAL NAME ONLY BIT SET 2^=2 BNZ 0 XLOC [J IF IT IS 2^PL KEEPREP 7,NOFILE [INFORM USER THAT ENTRANT DOES NOT 329= BRN XCLUP [EXIST IN SPECIFIED DIRECTORY 32NW XLOC 338G CLOSETOP 33N6 STOZ 6 347Q STOZ AWORK3(2) [TAPE UP MARKER 34MB STOZ AWORK4(2) [CANTDO MARKER 3572 X1 35LL OPENSYS XBRKIN,DOCUMENT,READ 366= REC 36KW SDSEARCH TEND,NAME 375G LDX 2 FX2 37K6 LDX 7 2(3) [TSN 384Q LDX 1 21(3) 38JB LDX 3 22(3) [GET POINTER TO DEVICE LIST 3942 DFJUMPS 3,POOL,REC [J. IF POOLTAPE 39HL DFJUMPS 3,WORK,REC [J. IF WORKTAPE 39RD ... BNG 7 REC [J. IF XENOTAPE 3=3= JONL 3,ONL 3=GW JALLOC 3,REC1 3?2G BRN TFOUND 3?G6 ONL LJOBNO 3,0 3?^Q BZE 0 REC1 3#FB TXU 0 JOBNO(2) 3#^2 BCC REC 3*DL REC1 ADN 6 1 3*Y= STO 7 AWORK3(2) [PUT TSN IN TAPE UP MARKER 3BCW BRN REC 3BXG TEND 3CC6 LONGSET #61,WTSTYLE 3CWQ CLOSETOP [SYSTEM.DOCUMENT 3DBB LDX 0 AWORK3(2) 3DW2 LDX 1 AWORK4(2) 3F*L BZE 1 T1 [J IF CD MARKER NOT SET 3FT= BZE 0 T2 [J IF TU MARKER NOT SET 3G#W T3 3GSG BZE 6 T3A 3H#6 STOZ 6 3HRQ DOWN LIBREQ,1 [WAIT FOR THE TAPE 3J?B BRN ZBRKIN 3JR2 LDX 4 ACOMMUNE4(2) [RESET 3K=L LDX 5 ACOMMUNE5(2) 3KQ= TESTREP NOTAV,T3B 3L9W TESTREPN OK,T4 [J IF NOT WOKEN 3LPG T3C 3M96 LONGOFF [UNSET WAITING STYLE 3MNQ BRN X1 3N8B T3A 3NN2 LDN 4 0 3P7L LDN 5 0 3PM= STOZ AWORK4(2) 3Q6W DOWN LIBREQ,2 3QLG BRN ZBRKIN 3R66 LDX 4 ACOMMUNE4(2) 3RKQ LDX 5 ACOMMUNE5(2) 3S5B TESTREP OK,T3C 3SK2 TESTREPN NOTAV,T4 3T4L STOZ AWORK3(2) 3TJ= T3B 3W3W LDN 0 1 3WHG STO 0 AWORK4(2) 3X36 BRN X1 3XGQ T2 3Y2B SETREP NOTFOUND 3YG2 T4 3Y^L LONGOFF 3^F= UPPLUS 1 3^YW T1 42DG STOZ 6 [NOT WAITING FOR ANY PARTICULAR TAPE 42Y6 DOWN LIBREQ,2 43CQ BRN ZBRKIN 43XB LDX 4 ACOMMUNE4(2) [RESET X4 & X5 44C2 LDX 5 ACOMMUNE5(2) 44WL TESTREP OK,T5 [J IF WOKEN 45B= TESTREPN NOTAV,T4 [J IF ANY REPLY OTHER THAN CANTDO 45TW LDN 0 1 46*G STO 0 AWORK4(2) 46T6 BRN X1 47#Q T5 47SB LONGOFF 48#2 BRN X1 48RL TFOUND 49?= SLL 1 1 49QW BPZ 1 SEC [J IF SECURE TAPE 4==G SETALLOC 3 4=Q6 STO 3 CPPTR(2) 4?9Q LDX 6 7 4?PB CLOSETOP 4#92 SETUPMODE ,0,NOSS,INSEC 4#NL ORS 0 AWORK2(2) [FOR LIBSEC 4*8= ACROSS LIBSEC,2 4*MW SEC 4B7G SLL 1 5 4BM6 BNG 1 REC [J IF QUERY STATUS 4C6Q OPENSYS YBRKIN,SERIAL,READ 4CLB SSEARCH ,7 [FIND ENTRY IN :SYSTEM.SERIAL 4D62 LDX 0 5(3) 4DKL ANDX 0 SMASK(1) 4F5= BNZ 0 REPOK [J IF NOT SUITABLE 4FJW LDX 0 2(3) 4G4G BZE 0 REPOK [J IF POOL TAPE 4GJ6 READAGAIN 4H3Q SETNCORE 12,2,FILE,FABSNB [SET UP BLOCK WITH USER NAME 4HHB HUNT 3,FILE,FRB [FROM SYSTEM.SERIAL AND THE 4J32 LDN 0 10 [TSN ONLY - ZERO LOCAL NAME 4JGL STO 0 HDREC(2) 4K2= LDN 0 A1+2(3) 4KFW LDN 1 A1+1(2) 4K^G MOVE 0 3 4LF6 STOZ A1+4(2) 4LYQ LDN 0 A1+4(2) 4MDB LDN 1 A1+5(2) 4MY2 MOVE 0 5 4NCL NGN 0 1 4NX= STO 0 A1+10(2) 4PBW STO 7 A1+11(2) 4PWG LDN 0 #2001 4QB6 DSA 0 ATYPE(2) 4QTQ CLOSETOP [SYSTEM.SERIAL 4R*B MFREE FILE,FRB 4RT2 OPENDIR YBRKIN,READ,QUERY 4S#L TESTREP NOFILE,NOF 4SS= HUNT 3,CPAR,GPERCON 4T?W LDX 0 A1+2(3) 4TRG ANDN 0 1 4W?6 BZE 0 RTRAP [J IF NULL WPR REQUIREMENT 4WQQ LDX 0 A1+1(3) 4X=B ANDN 0 1 4XQ2 BZE 0 RTRAP [J IF NOWPR 4Y9L TRAPOPEN WRITE 4YP= BRN TEST 4^8W NOF MFREE FILE,FABSNB 4^NG BRN REC 5286 RTRAP 52MQ TRAPOPEN READ 537B TEST 53M2 TESTREPN OK,REPOK1 546L CLOSETOP [DIRECTORY 54L= CLOSETOP [SYSTEM.DOCUMENT 555W HUNT 3,FILE,FABSNB 55KG HUNT2 3,FILE,FABSNB 5656 FREECORE 3 [FREE ORIGINAL FILE/FABSNB 56JQ USEROPEX XBRKIN,AWORK1(2),AWORK2(2) 574B UPPLUS 1 57J2 REPOK1 583L MFREE FILE,FABSNB 58H= REPOK 592W CLOSETOP [DIRECTORY 59GG BRN REC 5=26 YBRKIN 5=FQ CLOSETOP 5=^B ZBRKIN 5?F2 XBRKIN 5?YL UP 5#D= WTSTYLE 5#XW GEOERR 1,WTSTYLE 5*CG MENDAREA 50,K99LIBINSEC 5*X6 #END ^^^^ ...57352037000100000000