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

**Defined in:** [[george:source:MACROS_MSYS|MACROS MSYS]]

**Used in:** [[george:source:MESSA|MESSA]], [[george:source:MESSAA|MESSAA]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSAD|MESSAD]], [[george:source:MESSAE|MESSAE]], [[george:source:MESSAF|MESSAF]], [[george:source:MESSAG|MESSAG]], [[george:source:MESSAH|MESSAH]], [[george:source:MESSAI|MESSAI]], [[george:source:MESSAJ|MESSAJ]], [[george:source:MESSB|MESSB]], [[george:source:MESSBA|MESSBA]], [[george:source:MESSBB|MESSBB]], [[george:source:MESSBC|MESSBC]], [[george:source:MESSBD|MESSBD]], [[george:source:MESSBE|MESSBE]], [[george:source:MESSBF|MESSBF]], [[george:source:MESSBG|MESSBG]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSBI|MESSBI]], [[george:source:MESSBJ|MESSBJ]], [[george:source:MESSC|MESSC]], [[george:source:MESSCA|MESSCA]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSD|MESSD]], [[george:source:MESSE|MESSE]], [[george:source:MESSF|MESSF]], [[george:source:MESSG|MESSG]], [[george:source:MESSH|MESSH]], [[george:source:MESSI|MESSI]]

<code - MESSMON.mac.txt>
 3D6J ...[??? MESSMON SECT CENT FGN 56 DOC   
 3DBB    #   
 3DW2    #   
 3F*L    #     HERE FOLLOWS MESSMON                                 **** MESSMON 
 3FT=    #     IT IS USED TO INTRODUCE A MESSAGE PART AND
 3G#W    #     DEFINE A UNIVERSAL TO REFER TO THE MESSAGE.   
 3GSG    #     %A=NUMBER OF CHARS IN FOLLOWING MESSAGE PART  
 3H#6    #     %B=CATEGORIES AS AN OCTAL NUMBER  
 3HRQ    #     %C=UNIVERSAL IDENTIFIER OF THE MESSAGE
 3J?B    #     %D=SEGMENT NUMBER CONTAINING THE MESSAGE  
 3JR2    #     %E=MESSAGE NUMBER (IF PRESENT)
 3K=L    #   
 3KQ=    #MAC  MESSMON   
 3KSL ...#SKI  21?-0?
 3KX2 ...(   
 3K^B ...!     WRONG LENGTH (PREVIOUS PART)  
 3L3Q ...#DEF  0?=21?
 3L66 ...)   
 3L8G ...#DEF  21?=%A
 3L=W ...#SKI  21?>1000-1000 
 3L*= ...(   
 3LCL ...!     WRONG LENGTH  
 3LG2 ...#DEF  21?=0 
 3LJB ...)   
 3LLQ ...#HAL  %E+0,21?  
 3LPG          %B
 3M96    #STR  %C
 3MNQ    #DEF  %C=SEGNO+20?  
 3N8B    #SKI  22?   
 3PM=    #DEF  20?=20?+1 
 3QLG    #DEF  22?=%B&#10000000<1$1  
 3QW# ...#DEF  21?=21?+3/4+0?
 3R66    #SKI  0?>AMFLIMIT-AMFLIMIT  
 3RKQ    !   SEGMENT   ! 
 3S5B    #NOR
</code>