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

**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]

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

<code - SETJWELL.mac.txt>
 2CCN ...[??? SETJWELL SECT CENT FGN 72 DOC  
 2CMG    [   
 2D76    [   
 2DLQ    [   SETUP JWELL BLOCK   
 2F6B    [   
 2FL2    [   
 2G5L    #MAC  SETJWELL                     [ USED BY BMJLIST
 2G*D ...      FSHSKIP   
 2GK=          SETNCORE  2*JWENTRY+1,3,JWELL 
 2GMT ...      FSHCODE  AORB 
 2GQD ...(   
 2GT3 ...      BRN      M2SETJWELL   
 2GXL ...M1SETJWELL  
 2H29 ...)   
 2H4W          LDN   4  A1(3)
 2HJG          LDN   5  A1+1(3)  
 2J46          STOZ     A1(3)
 2JHQ          MOVE  4  2*JWENTRY-1  
 2K3B          LDX   0  GSIGN
 2KH2          STO   0  2*JWENTRY+A1(3)     [ END OF BLOCK MARKER
 2L2L          LDN   0  JWMOPB   
 2LG=          STO   0  A1+JWENTRY(3)
 2L^W          CHAIN    3,BMISC+1           [ CHAIN ONTO BMISC   
 2M3D ...      FSHCODE  AORB 
 2M52 ...(   
 2M6J ...      EXIT  7  0
 2M86 ...M2SETJWELL  
 2M9N ...      SETNCORE 2*JWENTRY+1,3,JWELL,BCOUNTS  
 2M?= ...      CALL  7  M1SETJWELL   
 2M#S ...      SETNCORE 2*JWENTRY+1,3,JWELL,ACOUNTS  
 2MBB ...      CALL  7  M1SETJWELL   
 2MCY ...)   
 2MFG    #NOR
</code>