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

**Defined in:** [[george:source:MACROS_VB|MACROS VB]]

**Used in:** [[george:source:LOADERII867|LOADERII867]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONJRNAL850|MONJRNAL850]]

<code - GMONTIDY.mac.txt>
 3DBG ...[??? GMONTIDY SECT CENT FGN 7 DOC   
 3DBL ...#MAC  GMONTIDY  
 3DBW ...      LDX   2  %A   
 3DC6 ...      LDN   0  #41  
 3DCB ...      STO   0  JRECHEAD2(2) 
 3DCC ...      FSHCODE  AORB 
 3DCD ...(   
 3DCF ...      LDCT  1  2
 3DCG ...      FSHCODE  A,MFSHAFORCE 
 3DCH ...(   
 3DCJ ...      NOTALIEN MFSHAHOME,FX2
 3DCK ...      ORS   1  JCATS(2) 
 3DCM ...      BRN      MFSHAFORCE   
 3DCN ...MFSHAHOME   
 3DCP ...      ORS   1  JCATS(2) 
 3DCQ ...      ERS   1  JCATS(2) 
 3DCR ...MFSHAFORCE  
 3DCS ...)   
 3DCT ...      FSHCODE  B,MFSHBFORCE 
 3DCW ...(   
 3DCX ...      NOTALIEN MFSHBHOME,FX2
 3DCY ...      ORS   1  JCATS(2) 
 3DC^ ...      ERS   1  JCATS(2) 
 3DD2 ...      BRN      MFSHBFORCE   
 3DD3 ...MFSHBHOME   
 3DD4 ...      ORS   1  JCATS(2) 
 3DD5 ...MFSHBFORCE  
 3DD6 ...)   
 3DD7 ...)   
 3DD8 ...#STR  PACKED,%C 
 3DD9 ...(   
 3DD= ...#STR  UNPACKED,%C   
 3DDB ...(   
 3DDL ...      LDCT  0  #40  
 3DDW ...      ANDX  0  JCATS(2) 
 3DF6 ...      BNZ   0  MSJCHAIN1
 3DFB ...)   
 3DFL ...      LDN   0  3
 3DFW ...      ANDX  0  %B   
 3DG6 ...      BZE   0  MSJCHAIN1
 3DGB ...      SLL   2  2
 3DGL ...      ADX   2  %B   
 3DGW ...      SRC   2  2
 3DH6 ...      ADN   2  JMESSAGE 
 3DHB ...      LDN   1  ACES 
 3DHL ...      SBN   0  4
 3DHW ...      NGX   0  0
 3DJ6 ...      SMO      0
 3DJB ...      MVCH  1  0
 3DJL ...      ADX   0  %B   
 3DJW ...      BRN      MSJCHAIN3
 3DK6 ...MSJCHAIN1   
 3DKB ...)   
 3DKL ...      LDX   0  %B   
 3DKW ...#STR  PACKED,%C 
 3DL6 ...MSJCHAIN3   
 3DLB ...      SRA   0  2
 3DLL ...      ADN   0  JMESSAGE-JRECHEAD1+1 
 3DLW ...#STR  PACKED,%C 
 3DM6 ...      LDX   2  %A   
 3DMB ...      STO   0  JRECHEAD1(2) 
 3DML ...      SBN   0  JCATS-JRECHEAD1+1
 3DMW ...      ADN   2  JCATS
 3DN6 ...      SMO      0
 3DNB ...      SUM   1  0
 3DNL ...      SMO      0
 3DNW ...      NGS   1  0(2) 
 3DP6 ...      LDX   1  FX1  
 3DPB ...      LDX   2  FX2  
 3DPL ...#NOR
</code>