{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RETURNA867)}}
====== RETURNA867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DOWN|DOWN]], [[george:macro:FSHACTPR|FSHACTPR]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHKILL|FSHKILL]], [[george:macro:FSHSKIP|FSHSKIP]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETDIR|GETDIR]], [[george:macro:HUNT|HUNT]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:NOTALIEN|NOTALIEN]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTUNPR|TESTUNPR]], [[george:macro:TRANSACT|TRANSACT]]
22FL SEG RETURNA,1,N.R.BOULT,LIBRARY
22KH ...[
22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
22T* ...[
22^= SEGENTRY K1RETURNA,QK1RETURNA
23DW SEGENTRY K2RETURNA,QK2RETURNA
23YG QK2RETURNA
24D6 FSHCODE A,SONLYA3
24XQ (
25CB NOTALIEN SONLYA3
25X2 FSHACTPR SONLYA3
26BL SONLYA3
26W= )
27*W OK2
27TG SETNCORE 3,3,FLIB,FTJOB
28*6 HUNT 3,FILE,ENT
28SQ LDX 6 ESER(3) [TSN
29#B SSEARCH ,6,1
29S2 LDX 5 5(3)
2=?L ANDN 5 #7777 [NO. OF REQUESTERS
2=R= TAC1
2?=W HUNT 1,FLIB,FTJOB
2?QG LDN 0 2(3)
2#=6 LDN 1 A1(1)
2#PQ MOVE 0 3
2*9B TAC
2*P2 ACROSS RETURNIT,1 [CONTINUE
2B8L QK1RETURNA
2BN= NGN 7 1 [ENTRY MARKER
2C7W FSHCODE B,NOTINA1
2CMG (
2D76 TRANSACT RETURNA,1,,
2DLQ NOTINA1
2F6B )
2FL2 FSHSKIP B,XINB
2G5L (
2GK= SETNCORE 8,3,FILE,FLOCNB
2H4W STOZ A1(3)
2HJG LDN 0 A1(3)
2J46 LDN 1 A1+1(3)
2JHQ MOVE 0 6 [ZEROIZE LOCAL NAME
2K3B NGN 0 1
2KH2 STO 0 A1+6(3) [RETENTION PERIOD
2L2L LDN 0 #2001
2LG= DSA 0 ATYPE(3) [INDICATE MT AND TSN
2L^W OPENSYS XBRKERR,SERIAL,GENERAL
2MFG OPEN XBRKERR,GENERAL,ERASING,QUERY
2M^6 TESTREP NOFILE,VK7,NAME,VK7,NOUSER,VK7
2NDQ TESTREPN OK,WRONGREP
2NYB VK1
2PD2 HUNT 3,AONBS,GLIST
2PXL LDX 1 A1(3)
2QC= BZE 1 VK2 [J IF ALL TSNS DEALT WITH
2QWW VK4
2RBG ADN 3 1
2RW6 LDX 6 A1(3)
2S*Q BZE 6 VK4 [J IF NO TSN
2STB HUNT 3,FILE,FLOCNB
2T*2 STOZ A1(3)
2TSL LDN 0 A1(3)
2W#= LDN 1 A1+1(3)
2WRW MOVE 0 6
2X?G STO 6 A1+7(3) [TSN INTO FLOCNB
2XR6 GETDIR [FIND DIRECTORY ENTRY
2Y=Q TESTREPN OK,VK3 [FORGET ABOUT TAPE IF DIR ENTRY NO
2YQB [LONGER EXIST
2^=2 SSEARCH ,6,1
2^PL LDX 5 5(3)
329= ANDN 5 #7777 [X5 = NO.OF REQUESTERS
32NW DOWN RETURNIT,1 [RETURN THE TAPE
338G HUNT 3,FILE,ENT
33N6 BNG 3 VK3
347Q MFREE FILE,ENT
34MB VK3
3572 HUNT 3,AONBS,GLIST
35LL LDN 0 1
366= SBS 0 A1(3) [SUBTRACT 1 FROM COUNT OF TSNS
36KW VK6
375G ADN 3 1
37K6 LDX 0 A1(3)
384Q BZE 0 VK6
38JB STOZ A1(3) [ZEROISE TSN ENTRY
3942 BRN VK1
39HL VK2
3=3= CLOSETOP [DIRECTORY
3=GW VK7
3?2G CLOSETOP [SYS.SER
3?G6 FSHCODE AORB
3?^Q (
3#FB TESTUNPR NOTINA2
3#^2 FSHKILL
3*DL NOTINA2
3*Y= )
3BCW SUICIDE
3BXG XINB
3CC6 )
3CJ# ...WRONGREP
3CPG ... GEOERR 1,WRONGREP
3CWQ XBRKERR
3DBB GEOERR 1,BREAKIN
3DW2 MENDAREA 50,K99RETURNA
3F*L #END
^^^^ ...473206140001