<<=========================================================             00010000
=                                                         =             00012000
=                  INCLMSG - A9                           =             00014000
=                                                         =             00016000
=========================================================>>             00018000
                                                                        00020000
                                                                        00022000
<<                                                                      00024000
MSG TABLE                                                               00026000
>>                                                                      00028000
                                                                        00030000
EQUATE MAXMSGLENGTH=4,                                                  00032000
       MAXPORTNUM=4,                                                    00034000
       MSGHARBTABDSTN=%17,                                     <<dc.00>>00036000
       MSGHARBORLENGTH=6,                                               00038000
       MSGPORTWORDNUM=%15;                                     <<dc.00>>00040000
                                                               <<dc.00>>00042000
                                                               <<dc.00>>00044000
                                                                        00046000
DEFINE MSGSECTABFLAG=(0:1)#,                                            00048000
       MSGWAKEUPFLAG=(1:1)#,                                            00050000
       MSGDON'TPREEMPTFLAG=(2:1)#,                                      00051000
       MSGWAITONEMPTY=(1:1)#,                                  <<02800>>00052000
       MSGNONDESTRUCT=(0:1)#;                                           00054000
                                                                        00056000
<<SCHEDULER MESSAGE PORT ASSIGNMENTS>>                                  00058000
                                                                        00060000
EQUATE SCHEDPIN=0,                                                      00062000
       MAKEABSENTPORT=0,                                                00064000
       SEGMODREADYPORT=1,                                               00066000
       RELREGREQPORT=2,                                                 00068000
       IOSEGREQPORT=3,                                         <<jb.dc>>00070000
       CACHEMOVEPORT=4;                                        <<jb.dc>>00070100
                                                               <<jb.dc>>00070200
<<RECEIVE MSG FLAGS WORD>>                                     <<jb.dc>>00070300
EQUATE CACHEMOVEREADYCODE=1, <<CODE WORD FOR CACHE REQ PORT>>           00070310
       CACHEWRITEDONECODE=2;                                            00070320
                                                               <<jb.dc>>00070400
EQUATE NONDESTRUCTREAD=%100000;                                <<jb.dc>>00070500
                                                               <<jb.dc>>00070600
                                                                        00072000
                                                                        00074000
<<=========================================================             00076000
=                                                         =             00078000
=                  END INCLMSG                            =             00080000
=                                                         =             00082000
=========================================================>>             00084000
