         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
   INTEGER CPUNO;                                              <<c2089>>00521000
   EQUATE MM'SYSTEMS =%17400;<<map to cpu no is 3,4,5,6 or 7>> <<c2089>>00546000
EQUATE MMBITS =%3400; << for cpu number is 5, 6 or 7>>         <<c2089>>37900100
INTEGER CPUNO;                                                 <<c2089>>37900200
      PCN);                                                    <<c2089>>39545000
      CPUNO := TOS;                                            <<c2089>>39550000
      IF MMBITS&LSL(CPUNO) >= 0 THEN GO TO NOTMM;              <<c2089>>39555000
      ASSEMBLE(FIXT; <<series 37 or tioga or micro 3000 >>     <<c2089>>39560000
      BR EXIT);                                                <<c2089>>39615000
NOTMM: ASSEMBLE(                                               <<c2089>>39625000
      ASSEMBLE(PCN);                                           <<c2089>>52630000
      CPUNO := TOS;                                            <<c2089>>52635000
   <<branch if it's series 37, 40/44, 64, Tioga or Micro 3000>><<c2089>>52640000
      IF MM'SYSTEMS&LSL(CPUNO) < 0 THEN GO TO START;           <<c2089>>52645000
$EDIT VOID=52675000                                            <<c2089>>52650000
