RETURNA

(GIN Macro)

Defined in: MACROS RME10

Used in: BSUNJAM867, CHTAB, INCOBS867, INKS

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