Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50365/batch.mac
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