Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50365/batch.mac
Click 43,50365/batch.mac to
see without markup as text/plain
There is 1 other file named batch.mac in the archive. Click here to see a list.
ENTRY BATCH
;PROGRAM TO DETERMINE IF A JOB IS FROM TERMINAL OR BATCH
;BATCH RETURNS A 0 IF JOB IS FROM BATCH, A NON-ZERO OTHERWISE.
BATCH: MOVE ,[XWD -1,40]
GETTAB
EXIT
TLNE 1B28
SETZ
POPJ 17,
END