ASMB,L
      NAM MORFE 91711-16008  REV 1926  790423 
      ENT MORFE 
      EXT .ENTR,$LIBR,$LIBX 
* 
**********************************************************************
*                                                                    *
*     ROUTINE TO DISTINGUISH M FROM E OR F MACHINES.                 *
*                                                                    *
*     CALL MORFE(ICODE)                                              *
*                                                                    *
*     RETURNS    ICODE = 0   PROGRAM RAN ON AN M MACHINE             *
*                                                                    *
*                ICODE > 0   PROGRAM RAN ON AN E OR AN F MACHINE     *
*                                                                    *
**********************************************************************
* 
ICODE NOP           RETURN ADDRESS HERE.
MORFE NOP           ENTRY POINT 
      JSB .ENTR     GET ADDRESSES 
      DEF ICODE 
* 
* WE RETURN AN M MACHINE RESULT AT THIS POINT.
* 
      CLA           PUT ZERO INTO THE A REGISTER
      STA ICODE,I   RETURN THE ZERO.
* 
* WE NOW GO CHECK FOR E OR F MACHINE. 
* 
      INA           PUT 1 IN THE A REGISTER 
      JSB $LIBR     DISABLE RTE'S DEFENSES. 
      NOP 
      CCB           PUT -1 INTO THE B REGISTER
      OCT 100060    INVOKE TIMER INSTRUCTION, IF ANY. 
      STA ICODE,I   CAN ONLY GET HERE IF E OR F MACHINE.
      JSB $LIBX     RE-ENABLE NORMAL RTE OPERATION. 
      DEF *+1 
      DEF *+1 
* 
* RETURN TO CALLING PROGRAM 
* 
      JMP MORFE,I 
* 
      END 
                                                                                                                                            