<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
  Psoft'subtype                   = port(3).(1:3)       #,     <<06737>>00442000
  Psoft'int'mode                  = port(3).(0:1)       #,     <<06110>>00442111
  Pport'pin                       = port(3).(4:12)      #,     <<06737>>00444000
  DSTB                            = 2;                         <<06737>>00878000
$edit void=00882000                                            <<06737>>00880000
$page                                                          <<06737>>00882000
$include inclpcb5                                              <<06737>>00883000
$page                                                          <<06737>>00884000
  PCB=SysPcbIndex;                                             <<06737>>00896000
$edit void=00916000                                            <<06737>>00898000
  pseudodisable                   = assemble(psdb)   #,        <<06737>>01000000
PCBXDBvalue                       = push(dl); tos:=tos-ps0(-1);<<06737>>01001000
                                    tos:=ps0(1); delb#;        <<06737>>01002000
double  seg'num;                                               <<06737>>01064000
procedure MMSTAT'(entrie,p0,p1,p2,p3,p4,p5);                   <<07357>>01158000
value entrie,p0,p1,p2,p3,p4,p5;                                <<07357>>01160000
integer entrie,p0,p1,p2,p3,p4,p5;                              <<07357>>01162000
  PCBpt:=Gimpede'head*PCBSize;                                 <<06737>>01294000
  if (Gimpede'head:=SPCBnimpPin) = 0 then                      <<06737>>01296000
  SPCBnimpPin:=0;                                              <<06737>>01300000
  MMSTAT'(MMexpand'seg,portDST,num'new'blocks,                 <<07357>>01398000
         Gtotal'blocks,0,0,0);                                 <<07357>>01399000
  PcbPT,                                                       <<06737>>01497000
    PcbPt:=Gimpede'tail*PcbSize;                               <<06737>>01557000
    pin:=CurPrc/PcbSize;                                       <<06737>>01566000
      SPcbnimpPin:=Pin                                         <<06737>>01570000
  PcbPt,                                                       <<06737>>01731000
PcbPt:=CurPrc;                                                 <<06737>>01739000
DST:=SPcbStkDst;                                               <<06737>>01740000
if port'manager'only and (Pport'pin<>0) and                    <<06737>>01754000
  (CurPrc/PcbSize<>Pport'pin) then                             <<06737>>01756000
  QUEUEONSEGMENT(double(portDST));                             <<06737>>01820000
if (Pport'pin <> 0) and                                        <<06737>>01846000
    (CurPrc/PcbSize <> Pport'pin) then                         <<06737>>01847000
integer Mode'subtype;                                          <<06110>>01983000
  Mode'subtype:=Psoft'subtype;                                 <<06110>>02014100
  Mode'subtype.(0:1):=Psoft'int'mode;                          <<06110>>02014200
  CAUSESOFTINT(Pport'pin,s4,Mode'subtype,Psoft'int'plabel,     <<06110>>02018000
               2,s3);                                          <<06110>>02018500
  PCBpointer:=PcbSize*Pport'pin;                               <<06737>>02084000
integer Mode'subtype;                                          <<06110>>02177000
  Mode'subtype:=Psoft'subtype;                                 <<06110>>02178100
  Mode'subtype.(0:1):=Psoft'int'mode;                          <<06110>>02178200
  CAUSESOFTINT(0,int'type,Mode'subtype,Psoft'int'plabel,       <<06110>>02186000
               2,0);                                           <<06110>>02187000
    MMSTAT'(MMtimeout'exp,port'num,@mqe,Mreturn'port,0,0,0);   <<07357>>02610000
    while sp0 <> @MQE and s0 <> pTailmqe do s0:=sp0;           <<m7679>>02642000
    if sp0 <> @mqe then goto NOMQE; <<mqe already deleted by>> <<m7679>>02643100
                                    <<another process       >> <<m7679>>02643200
  NOMQE:                                                       <<m7679>>02671000
      if access'restrict then CurPrc/PcbSize else 0;           <<06737>>02958000
  MMSTAT'(MMopen,port'number,portDST,flags,0,0,0);             <<07357>>02986000
    MMSTAT'(MMclose,port'number,portDSTnumber,                 <<07357>>03100000
           Gnum'open'ports-1,0,0,0);                           <<07357>>03101000
  FCPORTSEND:=QUEUETOPORT(port,MQE,flags);                     <<m7679>>03291000
$EDIT VOID=03300000                                            <<m7679>>03300000
$edit                                                          <<m7679>>03301000
    MMSTAT'(MMsend,port'number,@MQE+queue'type,                <<07357>>03304000
           return'port,0,0,0);                                 <<07357>>03305000
  MMSTAT'(MMchange'state,port'number,MMdisable'port,           <<07357>>03358000
         PheadMQE,0,0,0);                                      <<07357>>03359000
  MMSTAT'(MMchange'state,port'number,MMenable'port,            <<07357>>03440000
         PheadMQE,0,0,0);                                      <<07357>>03441000
PHEADMQE'IS'ZERO:   << If TimeOut after emptyport check >>     <<T9343>>03594100
                                                               <<T9343>>03594200
  if PheadMQE = 0 then                                         <<T9343>>03620100
    begin << Timed Out since emptyport check >>                <<T9343>>03620200
    pseudoenable;                                              <<T9343>>03620300
    go PHEADMQE'IS'ZERO;                                       <<T9343>>03620400
    end;  << Timed Out since emptyport check >>                <<T9343>>03620500
    MMSTAT'(MMreceive'completion,port'number,@MQE+iflags,      <<07357>>03670000
           return'port,0,0,0);                                 <<07357>>03671000
$EDIT VOID=03671100                                            <<07357>>03671100
    Psoft'subtype:=soft'subtype.(1:15);                        <<06110>>03908000
    Psoft'int'mode:=soft'subtype.(0:1);                        <<06110>>03909000
  MMSTAT'(MMabort,port'number,parameter'value,                 <<07357>>04046000
         return'port,0,0,0);                                   <<07357>>04047000
