PDP-10 Archive: decus/20-0175/macd10.mac from decuslib20-08

Trailing-Edge - PDP-10 Archives - decuslib20-08 - decus/20-0175/macd10.mac

There are 3 other files named macd10.mac in the archive. Click here to see a list.

        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,
;
;CALL EXPUNG(NO ARGUMENTS)
;DUMMY ROUTINE WHICH ON DEC20 EXPUNGES DELETED FILES
EXPUNG::
        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