MESSAGES

(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

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
  • Last modified: 17/01/2024 11:55
  • by 127.0.0.1