{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MESSAGES)}}
====== MESSAGES ======
(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:MESSCB|MESSCB]], [[george:source:MESSCC|MESSCC]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSCE|MESSCE]], [[george:source:MESSCF|MESSCF]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCH|MESSCH]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSCJ|MESSCJ]], [[george:source:MESSD|MESSD]], [[george:source:MESSDA|MESSDA]], [[george:source:MESSDB|MESSDB]], [[george:source:MESSDC|MESSDC]], [[george:source:MESSDJ|MESSDJ]], [[george:source:MESSE|MESSE]], [[george:source:MESSF|MESSF]], [[george:source:MESSG|MESSG]], [[george:source:MESSH|MESSH]], [[george:source:MESSI|MESSI]]

<code - MESSAGES.mac.txt>
 22FL    #   
 22^=    #   
 23DW    #     HEREIN LIE MACROS USED BY THE MESSAGE SYSTEM. 
 24D6    #   
 24XQ ...[??? MESSAGES SECT CENT FGN 56 DOC  
 2*P2    #   
 2B8L    #     HERE FOLLOWS MESSAGES                                **** MESSAGES
 2BN=    #     IT IS USED TO SET SEGNO AND TO SET UP THE SEGENTRIES. 
 2C7W    #     %A=SEGMENT NUMBER 
 2CMG    #   
 2D76    #MAC  MESSAGES  
 2DLQ    #STR  %B
 2F6B    #SKI
 2FL2    (   
 2G5L    #DEF  21?=%A*512
 2GK=    #DEF  20?=%A
 2GNB ...#UNS  ADDMESS&#40000000 
 2GRG ...      MESSAGES XX,A,B,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I 
 2GWL ...#UNS  ADDMESS&#40000000 
 2G^Q ...#SKI
 2H4W          MESSAGES X,A,B,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I  
 2HJG    #EXI
 2J46    )   
 2JHQ    #SKI  20?   
 2K3B    (   
 2KH2    #DEF  20?=20?-1 
 2L2L    #STR  %B,J  
 2LG=          MESSAGES %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T 
 2L^W    #STR  %B,J  
 2MFG    #SKI
 2M^6          MESSAGES %CJ,%CA,%CB,%CC,%CD,%CE,%CF,%CG,%CH,%CI,J,%D,%E,%F,%G,%H-
 2NDQ    ,%I,%J,%K   
 2NYB    #EXI
 2PD2    )   
 2PXL    #INC  MESS%A
 2QC=    #SEG  MESS%A
 2QWW    #OPT  K0MESS%A=0
 2RBG ...#STR X,%A   
 2RW6    #LIS  K0MESS%A  
 2S*Q                   8HMESS%A 
 2STB          SEGENTRY K1MESS%A,XK1 
 2T*2          SEGENTRY K2MESS%A,XK2 
 2TSL          SEGENTRY K3MESS%A,XK3 
 2W#=          SEGENTRY K4MESS%A,XK4 
 2WRW          SEGENTRY K5MESS%A,XK5 
 2X?G          SEGENTRY K11MESS%A,XK11   
 2XR6          SEGENTRY K12MESS%A,XK12   
 2Y=Q          SEGENTRY K90MESS%A
 2YQB                   +TAB 
 2^=2    #DEF  SEGNO=21? 
 2^C8 ...#UNS  ADDMESS&#40000000*(SEGNO<1$1) 
 2^JB ...#ALT  SEGNO=128 
 2^PL    #DEF  20?=0 
 329=    #DEF  22?=1 
 32F4 ...#DEF  MESSSTART=0?  
 32J^ ...#DEF  21?=0?
 32NW    #NOR
</code>