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

**Defined in:** [[george:source:MACROSIPC|MACROSIPC]]

**Used in:** [[george:source:GETNO865|GETNO865]], [[george:source:IPCPERI83|IPCPERI83]]

<code - TRAST.mac.txt>
 DH7C ...[??? TRAST SECT COMM FGN 19 DOC 
 DHFS ...[ TO TEST WHETHER A TRANSFER HAS B&EN STORED
 DHS=    #MAC           TRAST
 DJ?W    #STRING        %B   
 DJRG          LDX   2  %B   
 DK?6    #STRING        %B   
 DKQQ    #SKIP   
 DL=B          LDX   2  FX2  
 DLQ2          SMO      AWORK1(2)
 DM9L          LDX   1  ARINGEL(2)   
 DMP=          SMO      AWORK1(2)
 DN8W          LDX   0  ASTATUS1(1)  
 DNNG          BPZ   0  M1   
 DP86          NGN   0  1
 DPMQ          STO   0  %A   
 DQ7B          BRN      M3   
 DQM2    M1    ANDN  0  1
 DR6L          BZE   0  M2   
 DRL=          LDN   0  1
 DS5W          STO   0  %A   
 DSKG          BRN      M3   
 DT56    M2    STOZ     %A   
 DTJQ    M3    LDX   1  FX1  
 DW4B          LDX   2  FX2  
 DWJ2    #NOR
</code>