WORKNUMB

(GIN Macro)

Used in: CREATE867, FFFNORM7, SAVEJOB865, SETPC867, WORKFILE860

WORKNUMB.mac.txt

 6H=D ...[??? WORKNUMB SECT FILE FGN 4 DOC   
 6HG=    #MAC  WORKNUMB  
 6H^W          LDN   0  0
 6JFG    #SKI  %B
 6J^6 ...      LDX   1  %B   
 6KDQ    #SKI  %B
 6KYB    #SKI
 6LD2 ...      LDX   1  FX2  
 6MWW    #SKI  %A-3  
 6NBG          STO   3  GEN0 
 6NW6 ...      BASEFCB 1,WORK,M2WORKNUMB,2   
 6P*Q ...M1WORKNUMB  
 6RRW    #SKI  %C
 6S?G    #SKI
 6SR6    (   
 6T=Q ...      LDX   3  FCOMM-FCBRING(1) 
 6TQB          ANDN  3  1
 6W=2 ...      BNZ   3  M3WORKNUMB   
 6WPL    )   
 6X9=          ADN   0  1
 6XHM ...M3WORKNUMB  
 6XW4 ...      NEXTFCB 1,WORK,M1WORKNUMB,2   
 6Y8G    M2WORKNUMB  
 6YN6    #SKI  %A-3  
 6^7Q          LDX   3  GEN0 
 6^MB    #SKI  %A
 7272          STO   0  %A   
 72LL    #SKI  %A-1  
 736=          LDX   1  FX1  
 73KW    #SKI  %A-2  
 745G          LDX   2  FX2  
 74K6    #NOR