{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: RETURNA)}}
====== RETURNA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

**Used in:** [[george:source:BSUNJAM867|BSUNJAM867]], [[george:source:CHTAB|CHTAB]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INKS|INKS]]

<code - RETURNA.mac.txt>
 2^FS ...[??? RETURNA SECT FILE FGN 4 DOC
 2^PL    [THIS MACRO RETURNS A TAPE TO THE POOL WHEN THE DIRECTORY IS CLOSED. THE
 329=    [DIRECTIRY ENTRY FOR THE TAPE IS ERASED AND :SYSTEM.SERIAL IS UPDATED.  
 32NW    [%A = THE ADRESS OF A WORD CONTAINING THE TSN OF THE TAPE TO BE RETURNED
 338G    #MAC           RETURNA  
 33N6          LDX   0  %A   
 347Q          SMO      FX2  
 34MB          STO   0  EXEC1
 3572          DOWN     RETURN,3 
 35LL    #NOR
</code>