<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
       MAXPORTNUM=4,                                           <<06205>>00034000
       MSGHARBTABDSTN=%71,                                     <<*7537>>00036000
       MSGHARBORLENGTH=6,                                      <<06205>>00038000
       MSGPORTWORDNUM=%15;                                     <<*7537>>00040000
                                                               <<*7537>>00042000
                                                               <<*7537>>00044000
       MSGDON'TPREEMPTFLAG=(2:1)#,                             <<06205>>00051000
       IOSEGREQPORT=3,                                         <<06205>>00070000
       CACHEMOVEPORT=4;                                        <<06205>>00070100
                                                               <<06205>>00070200
<<RECEIVE MSG FLAGS WORD>>                                     <<06205>>00070300
EQUATE CACHEMOVEREADYCODE=1, <<CODE WORD FOR CACHE REQ PORT>>  <<06205>>00070310
       CACHEWRITEDONECODE=2;                                   <<06205>>00070320
                                                               <<06205>>00070400
EQUATE NONDESTRUCTREAD=%100000;                                <<06205>>00070500
                                                               <<06205>>00070600
DEFINE                                                         <<*7537>>00071000
   CHECK'DISP'PORTSTATUS =                                     <<*7537>>00071100
       TOS := DST(MSGHARBTABDSTN & LSL(2) +2);                 <<*7537>>00071200
       TOS := DST(X := X+1) + MSGPORTWORDNUM;                  <<*7537>>00071300
       ASSEMBLE(LSEA; TEST; DEL; DDEL) #;                      <<*7537>>00071400
                                                               <<*7537>>00071500
