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