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

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

**Used in:** [[george:source:CREATE867|CREATE867]], [[george:source:FFFNORM7|FFFNORM7]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SETPC867|SETPC867]], [[george:source:WORKFILE860|WORKFILE860]]

<code - 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
</code>