RETURNA867 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{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]]

<code - RETURNA867.txt>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
</code>