LIBREQCA867
(George Source)
Macros used: ACROSS, ALTLEN, CHAIN, CHANGEFILE, CHANGEPER, CLOSETOP, DOWN, FPUT, FSHENTRY, GEOERR, GETACT, HUNT, JOBLOCK, LGEOG, LINKSET, LOCK, LOGACCESS, LONGON, MENDAREA, MFREE, MHUNT, MTINFORM, NAME, NOTALLOC, ON, OPENDIR, OPENSYS, OUTNUM, PAIR, PERON, READ, READAGAIN, REWRITE, SEG, SEGENTRY, SETNCORE, SETREP, SSCOR, SSEARCH, TESTREP, UNLOCK, UP, UPPLUS
- LIBREQCA867.txt
22FL SEG LIBREQCA,6,M.B.KINGHAM,LIBRARY 22KH ...[ 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 22T* ...[ 22^= # THIS SEGMENT CONTIN ES FROM LIBREQC WHICH HAS A HEADING DESCRIBIN 23DW # BOTH ITSELF & THIS SEGMENT 23YG # 24D6 SEGENTRY K1LIBREQCA,QK1LIBR 24H= ...# 24LB ... FSHENTRY K2LIBREQCA,SGETFORB,,SGETFORB 24PG ... FSHENTRY K3LIBREQCA,SAUTOINA,,SAUTOINA 24SL ... FSHENTRY K4LIBREQCA,,SAUTOINB,SAUTOINB 24XQ # 24YF ... SEGENTRY K5LIBREQCA,SECRETURN 24^8 ... SEGENTRY K7LIBREQCA,YDEAD 24^X ...# 252L ... FSHENTRY K8LIBREQCA,,RETCB,RETCB 253* ... FSHENTRY K9LIBREQCA,,, 2544 ... FSHENTRY K10LIBREQCA,QK10LIBR,,QK10LIBR 254R ... FSHENTRY K11LIBREQCA,QK11LIBR,,QK11LIBR 255G ... FSHENTRY K12LIBREQCA,,QK12LIBR,QK12LIBR 2569 ...# 256Y ...SLINK1 257M ... PAIR RETURN,4 258B ...SLINK2 2595 ... PAIR DEADA,1 25CB QK1LIBR 25X2 LDX 0 4 26BL ANDN 0 1 26W= BNZ 0 ON [BRANCH IF WORKTAPE 27*W SETNCORE 7,3,AONBS,GREN 27TG HUNT 2,FILE,FABSNB 28*6 ADN 3 A1+1 [SET UP RENAME BLOCK 28SQ SMO A1(2) 29#B ADN 2 A1-6 29S2 MOVE 2 5 2=?L SBN 3 A1+1 2=R= LDX 0 6(2) 2?=W ADN 0 1 2?QG BNZ 0 RETPER 2#=6 LDN 0 #7777 2#PQ BRN SETRET 2*9B RETPER 2*P2 SBN 0 1 2B8L SETRET 2BN= STO 0 A1+6(3) 2C7W LDX 2 FX2 2CMG STOZ ACOMMUNE2(2) 2D76 DOWN RENAMEMT,2 2DLQ BRN MTFAIL 2F6B MFREE AONBS,GREN 2FL2 TESTREP TAPEFAIL,MTFAIL 2G5L ON 2G78 ...#UNS ILOGACC 2G8Q ...( 2G=# ... OPENDIR (GEOERR),READ,QUERY,ERASING 2G=S ...XFSHNBOPEN 2G?W ... TESTREP OK,ONA 2G*D ... GEOERR 1,LOGDIR 2GC2 ...ONA 2GDJ ... LOGACCESS 9 2GG6 ... CLOSETOP 2GHN ...) 2GK= LDX 0 4 2H4W ANDN 0 2 2HJG BZE 0 T40 [BRANCH UNLESS TAPE TO BE ONLINED 2J46 PERON [ONLINE TAPE 2JHQ T40 2K3B LONGON AUNLWT [WAKE UP ANY UNLOAD PROCESS 2KH2 SETREP OK [REPLY 2L2L UPPLUS 1 2LG= ZBRKIN 2L^W STOZ 5 [TO INDICATE BREAKIN 2MFG RETURN 2MX= ...SGETFORB 2M^6 OPENSYS ZBRKIN,SERIAL,GENERAL [N.B. BREAKIN COULD OCCUR ON CANTDO 2NDQ SSEARCH ,6 [FIND ENTRY IN :SYSTEM.SERIAL 2NYB LDX 0 4 2PD2 ANDN 0 2 2PXL BZE 0 RET1 [J UNLESS COR WAS INCREMENTED 2QC= READAGAIN 2QWW HUNT 1,FILE,FRB 2RBG SSCOR A1(1),DEC [DECREASE COUNT OF REQUESTERS 2RW6 NAME 1,FILE,FWB 2S*Q REWRITE 2STB MFREE FILE,FWB 2T*2 RET1 2TSL SETNCORE 3,2,FLIB,FTJOB 2W#= GETACT ACTDOC 2WRW LDX 2 BPTR(2) 2X?G CHANGEPER 2 2XH# ...NOCHANGEP 2XR6 LDX 2 BPTR(2) 2Y=Q LINKSET 2,SLINK(1) 2YQB LDX 3 2 2^=2 LOCK 2 2^PL CHANGEFILE 3 338G JOBLOCK JOBNO(2),1 33N6 HUNT 2,FLIB,FTJOB 347Q LDN 0 JNAME(1) 34MB LDN 1 A1(2) 3572 MOVE 0 3 35LL CHAIN 2,3 366= BZE 5 TR2 36KW ... OPENDIR YBRKIN,READ,ERASING 375G HUNT 2,FILE,ENT 37K6 LDX 7 ENUSE(2) 384Q MFREE FILE,ENT 38JB BZE 7 TR1 3942 TR0 READ 39HL HUNT 2,FILE,FRB 3=3= NAME 2,FILE,FTRAP 3=GW BCT 7 TR0 3?2G TR1 CLOSETOP 3?G6 TR2 3?^Q UNLOCK 3 3#FB LDX 2 3 3#^2 FPUT 3*DL BZE 5 XBRKIN [TAKE EXIT ACTION IF BREAKIN 3*Y= ACROSS LIBREQC,4 [OTHERWISE TRY FOR ANOTHER POOL TAPE 3BCW SLINK 3BXG PAIR RETURN,5 [ENTRY FOR RETURN WHICH COMMITS SUICI 3CC6 MTFAIL 3CWQ LGEOG ,7 [LOAD GEOGRAPHIC NO. 3DBB OUTNUM 7,0 3DW2 MTINFORM FAILMT 3F*L LDN 5 1 [NOT BREAKIN 3FT= BRN RETURN 3G#W YBRKIN 3GSG UNLOCK 3 3H#6 LDX 2 3 3HRQ FPUT 3J?B XBRKIN UP 3J*P ...SECRETURN 3J*S ... MHUNT 3,FILE,FABSNB 3J*X ... LDN 0 #2000 3JB2 ... ANDX 0 ATYPE(3) 3JB5 ... BNZ 0 RETC [IF TSN ALREADY IF FABSNB NO CHANGE 3JB8 ... LDX 4 A1(3) [LENGTH FABSNB BY 1 OR 2 WORDS 3JB? ... ADN 4 2 [DEPENDING ON IF RETENTION PERIOD 3JBB ... ALTLEN 3,4,FILE,FABSNB [ALREADY SET UP OR NOT SET UP 3JBF ... MHUNT 1,FILE,FABSNB 3JBJ ... SMO A1(1) 3JBM ... STO 6 A1+1(1) [SET TSN IN FABSNB 3JBQ ... LDN 0 #2001 3JBT ... ORS 0 ATYPE(1) [SET 'TSN GIVEN' BIT 3JBY ...RETC 3JDD ... OPENDIR XBRKERR,GENERAL,ERASING 3JDH ... GETACT ACTDOC 3JDL ... LDX 3 BPTR(2) 3JF8 ... CHANGEPER 3 3JF? ...NOCHPR 3JFB ... LINKSET 3,SLINK1(1) 3JG3 ...TLOCK 3JG6 ... LOCK 3 3JG9 ... CHANGEFILE 3,0,1 3JG# ... HUNT 1,FILE,ENT 3JGC ... CHAIN 1,3 [FOR RETURN 3JGG ...TLOCK1 3JGK ... CHANGEFILE 3 3JH3 ... UNLOCK 3 3JH4 ... LDX 2 3 3JH5 ... FPUT 3JHP ... BRN NOTALLOC [DEAD & RETURN WILL UNALLOCATE IT 3JHQ ...XBRKERR 3JHS ... STOZ 5 3JHX ... BRN RETURN 3JJ2 ...YDEAD 3JKG ... GETACT ACTDOC 3JKK ... LDX 3 BPTR(2) 3JL7 ... CHANGEPER 3 3JL= ...NOTCHPR 3JL* ... LINKSET 3,SLINK2(1) 3JM2 ... LOCK 3 3JM5 ... BRN TLOCK1 3JM8 ...# 3JQK ...# 3JQL ...NOTALLOC 3JQM ... ACROSS LIBSEC,7 3JR2 WTSTYLE 3K=L GEOERR 1,WTSTYLE 3KQ= MENDAREA 50,K99LIBREQCA 3L9W #END ^^^^ ...01527323000200000000