{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIBREQCA867)}}
====== LIBREQCA867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLEN|ALTLEN]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHANGEFILE|CHANGEFILE]], [[george:macro:CHANGEPER|CHANGEPER]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DOWN|DOWN]], [[george:macro:FPUT|FPUT]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:HUNT|HUNT]], [[george:macro:JOBLOCK|JOBLOCK]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:LOGACCESS|LOGACCESS]], [[george:macro:LONGON|LONGON]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:NAME|NAME]], [[george:macro:NOTALLOC|NOTALLOC]], [[george:macro:ON|ON]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:PAIR|PAIR]], [[george:macro:PERON|PERON]], [[george:macro:READ|READ]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SSCOR|SSCOR]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]
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