Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50545/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,
;
;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