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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:LOADERR70|LOADERR70]], [[george:source:OPILLSA206|OPILLSA206]]

<code - CHERRMESS.mac.txt>
 4T?W    #  CHERRMESS - THIS MACRO CHECKS THE ERROR REPLY WORD GIVEN 
 4TRG    #              BY THE CHECKPTE MACRO AND OUTPUTS THE APPROPRIATE
 4W?6    #              MESSAGE TO THE MONITORING FILE.  %A IF PRESENT SHOULD
 4WQQ    #              CONTAIN THE REPLY WORD ITSELF.  IF %A IS NOT GIVEN,  
 4X=B    #              AN ADATA/ERREPLY BLOCK CONTAINING THE REPLY WILL BE  
 4XQ2    #              LOCATED AND SUBSEQUENTLY FREED.  
 4Y9L    #   
 4YP=    #MAC  CHERRMESS 
 4^8W    #STR  %A
 4^NG    #SKI
 5286    (   
 52MQ          HUNTW    1,ADATA,ERREPLY  
 537B          BNG   1  MCHERRMESS   
 53M2          LDX   0  A1(1)
 546L          SMO      FX2  
 54L=          STO   0  ACOMMUNE1
 555W          FREECORE 1
 55KG    )   
 5656    #STR  %A
 56JQ    (   
 574B          LDX   0  %A   
 57J2          SMO      FX2  
 583L          STO   0  ACOMMUNE1
 58H=    )   
 592W          DOWN  GETWORDX,3  
 59GG    MCHERRMESS  
 5=26          LDX   1  FX1  
 5=FQ    #NOR
</code>