<<=========================================================             00010000
=                                                         =             00015000
=                  INCLMSG - A9                           =             00020000
=                                                         =             00025000
=========================================================>>             00030000
                                                                        00035000
                                                                        00040000
<<                                                                      00045000
MSG TABLE                                                               00050000
>>                                                                      00055000
                                                                        00060000
EQUATE MAXMSGLENGTH=4,                                                  00065000
       MAXPORTNUM=4,                                           <<06205>>00070000
       MSGHARBTABDSTN=%71,                                     <<*7537>>00075000
       MSGHARBORLENGTH=6,                                      <<06205>>00080000
       MSGPORTWORDNUM=%15;                                     <<*7537>>00085000
                                                               <<*7537>>00090000
                                                               <<*7537>>00095000
                                                                        00100000
DEFINE MSGSECTABFLAG=(0:1)#,                                            00105000
       MSGWAKEUPFLAG=(1:1)#,                                            00110000
       MSGDON'TPREEMPTFLAG=(2:1)#,                             <<06205>>00115000
       MSGWAITONEMPTY=(1:1)#,                                  <<02800>>00120000
       MSGNONDESTRUCT=(0:1)#;                                           00125000
                                                                        00130000
<<SCHEDULER MESSAGE PORT ASSIGNMENTS>>                                  00135000
                                                                        00140000
EQUATE SCHEDPIN=0,                                                      00145000
       MAKEABSENTPORT=0,                                                00150000
       SEGMODREADYPORT=1,                                               00155000
       RELREGREQPORT=2,                                                 00160000
       IOSEGREQPORT=3,                                         <<06205>>00165000
       CACHEMOVEPORT=4;                                        <<06205>>00170000
                                                               <<06205>>00175000
<<RECEIVE MSG FLAGS WORD>>                                     <<06205>>00180000
EQUATE CACHEMOVEREADYCODE=1, <<CODE WORD FOR CACHE REQ PORT>>  <<06205>>00185000
       CACHEWRITEDONECODE=2;                                   <<06205>>00190000
                                                               <<06205>>00195000
EQUATE NONDESTRUCTREAD=%100000;                                <<06205>>00200000
                                                               <<06205>>00205000
DEFINE                                                         <<*7537>>00210000
   CHECK'DISP'PORTSTATUS =                                     <<*7537>>00215000
       TOS := DST(MSGHARBTABDSTN & LSL(2) +2);                 <<*7537>>00220000
       TOS := DST(X := X+1) + MSGPORTWORDNUM;                  <<*7537>>00225000
       ASSEMBLE(LSEA; TEST; DEL; DDEL) #;                      <<*7537>>00230000
                                                               <<*7537>>00235000
                                                                        00240000
                                                                        00245000
<<=========================================================             00250000
=                                                         =             00255000
=                  END INCLMSG                            =             00260000
=                                                         =             00265000
=========================================================>>             00270000
