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