title MACD10
;
;FORTRAN CALLABLE ROUTINES FOR RESUME PROGRAM ON DECSYSTEM10
;CALL LEAVE(NO ARGUMENTS)
;Exits without the time statistics produced by FORTRAN STOP statement
LEAVE::
        EXIT    1,
        OUTSTR  [ASCIZ /CAN'T CONTINUE/]
        JRST    LEAVE
;
;CALL TTYSET(NO ARGUMENTS)
;DUMMY ROUTINE WHICH ON DEC20 SETS TERMINAL CHARACTERISTICS
TTYSET::
        POPJ    17,
;
;PPNU(PROJECT NUMBER,PROGRAMMER NUMBER)
;GET CURRENT PROJECT AND PROGRAMMER NUMBER
PPNU::
        CALLI   1,24
        HLRZM   1,@(16)
        HRRZM   1,@1(16)
        POPJ    17,0
        END