<<=========================================================             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
