{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIBINSEC864)}}
====== LIBINSEC864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DFJUMPS|DFJUMPS]], [[george:macro:DOWN|DOWN]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHMOVE|FSHMOVE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JONL|JONL]], [[george:macro:KEEPREP|KEEPREP]], [[george:macro:LJOBNO|LJOBNO]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSET|LONGSET]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:PUTREP2|PUTREP2]], [[george:macro:READ|READ]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:SDSEARCH|SDSEARCH]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETALLOC|SETALLOC]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SETUPMODE|SETUPMODE]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:TEST|TEST]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TRAPOPEN|TRAPOPEN]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:USEROPEX|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