Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50553/fndmac.mac
There are no other files named fndmac.mac in the archive.
;RENBRSTART(PPNU/RETURN PROJECT AND PROGRAMMER NUMBER)
TITLE PPNU
;
;THIS FILE CONTAINS THE FOLLOWING ENTRY POINT
;
;SUBROUTINE PPNU(PROJCT,PRGRMR)
; PROJCT = RETURNED WITH OCTAL PROJECT NUMBER RUNNING CURRENT JOB
; PRGRMR = RETURNED WITH OCTAL PROGRAMMER NUMBER RUNNING CURRENT JOB
;
ENTRY PPNU
;
PPNU: CALLI 1,24
JFCL
HLRZM 1,@(16)
HRRZM 1,@1(16)
POPJ 17,0 ;RETURN TO CALLING PROGRAM
;
END