MESSMONA

(GIN Macro)

Defined in: MACROS MSYS

Used in: MESSA, MESSAA, MESSAB, MESSAC, MESSAD, MESSAE, MESSAF, MESSAG, MESSAH, MESSAI, MESSAJ, MESSB, MESSBA, MESSBB, MESSBC, MESSBD, MESSBE, MESSBF, MESSBG, MESSBH, MESSBI, MESSBJ, MESSC, MESSCA, MESSCB, MESSCC, MESSCD, MESSCE, MESSCF, MESSCG, MESSCH, MESSCI, MESSCJ, MESSD, MESSDA, MESSDB, MESSDC, MESSDJ, MESSE, MESSF, MESSG, MESSH, MESSI

MESSMONA.mac.txt

 3S*8 ...[??? MESSMONA SECT CENT FGN 56 DOC  
 3SK2    #   
 3T4L    #   
 3TJ=    #     HERE FOLLOWS MESSMONA                                **** MESSMONA
 3W3W    #     IT HAS THE SAME FUNCTION AS MESSMON   
 3WHG    #     %A=CHAR COUNT OF MESSAGE PART 
 3X36    #     %B=UNIVERSAL IDENTIFIER   
 3XGQ    #     %C=MESSAGE NUMBER (IF PRESENT)
 3Y2B    #     %D ETC. =CATEGORY NAMES   
 3YG2    #   
 3Y^L    #MAC  MESSMONA  
 3^42 ...#SKI  21?-0?
 3^6B ...(   
 3^8Q ...!     WRONG LENGTH (PREVIOUS PART)  
 3^?6 ...#DEF  0?=21?
 3^*G ...)   
 3^CW ...#DEF  21?=%A
 3^G= ...#SKI  21?>1000-1000 
 3^JL ...(   
 3^M2 ...!     WRONG LENGTH  
 3^PB ...#DEF  21?=0 
 3^RQ ...)   
 3^W6 ...#HAL  %C+0,21?  
 3^YW    #STR  %B
 42DG    #DEF  %B=SEGNO+20?  
 42Y6          CATMASK  %D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V-
 43CQ    ,%W,%X  
 43XB    #SKI 22?
 45B=    #DEF  20?=20?+1 
 46*G    #DEF  22?=34?+0?-1]&#10000000<1$1   
 46K# ...#DEF  21?=21?+3/4+0?
 46T6    #SKI  0?>AMFLIMIT-AMFLIMIT  
 47#Q    !   SEGMENT   ! 
 47SB    #NOR