FILEFORM [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 GIN macro: FILEFORM)}}
====== FILEFORM ======
(GIN Macro)

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** [[george:source:BSPRUNE867|BSPRUNE867]]

<code - FILEFORM.mac.txt>
 =YB4 ...[??? FILEFORM SECT FILE FGN 65 DOC  
 =YKW    #   
 =^5G    #MAC FILEFORM   
 =^6? ...      SEGENTRY K12BSPRUNE   
 =^74 ...      BRN      M3FILEFORM   
 =^7T ...      LDX   3  EAVACC(1)           [PARAMETERS SPECIFIED
 =^8L ...      MPY   3  BSUJFORM2
 =^9C ...      STO   4  2
 =^=8 ...      LDX   3  GMTNOW   
 =^=^ ...      SBX   3  EGMTLA(1)
 =^?Q ...      MPY   3  BSUJFORM3
 =^#H ...      ADX   2  4
 =^*# ...      SMO      FX2  
 =^B5 ...      LDX   3  AWORK1   
 =^BW ...      ADX   3  BSUJFORM1
 =^CM ...      MPY   3  2
 =^DD ...      LDX   2  BSUJFORM4
 =^F9 ...      SRA   34 6(2) 
 =^G2 ...      LDX   2  FX2  
 =^GR ...      BRN      M1FILEFORM   
 =^HJ ...      SEGENTRY K13BSPRUNE   
 =^J* ...M3FILEFORM  
 =^K6          SEGENTRY  K91BSPRUNE  
 ?24Q          BRN      M2FILEFORM   
 ?2JB          LDN   3  200                 [ FIXED FILE SIZE
 ?342          LDX   5  GMTNOW              [PICK UP CURRENT GMT 
 ?3HL          SBX   5  EGMTLA(1)           [TIME FILE LAST ACCESSED 
 ?43=                                       [IGNORE EAVACC   
 ?4GW          MPY   3  5                   [MPY TIME SINCE LAST ACCESS  
 ?52G          SRA   34 6                   [DIVIDE BY SCALING FACTOR
 ?5G6          BRN      M1FILEFORM   
 ?5^Q          SEGENTRY  K92BSPRUNE  
 ?6FB    M2FILEFORM  
 ?6^2    [     NORMAL PATH   
 ?7DL          LDX   3  GMTNOW   
 ?7Y=          SBX   3  EGMTLA(1)           [GMT SINCE LAST ACCESS   
 ?8CW          ADX   3  EAVACC(1)           [PLUS EAVACC 
 ?8XG          SMO      FX2  
 ?9C6          MPY   3  AWORK1              [TIMES SIZE OF FILE  
 ?9WQ          SRA   34 6                   [SCALING FACTOR  
 ?=BB    M1FILEFORM  
 ?=W2    #NOR
</code>