Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/jobsta.mac
There is 1 other file named jobsta.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,jobstatus);
INTEGER PROCEDURE jobstatus(f); REF(Infile)f;
COMMENT F must be a PTY or TTY file.
The result is the JOBSTS word (see Mon. Calls).
;

!*;! MACRO-10 code !*;!

	TITLE	jobstatus
	ENTRY	jobstatus
	SUBTTL	SIMULA utility, Lars Enderin Sept 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	result==XWAC1
	f==XWAC1

jobstatus:
	SETZ	X1,
	EXCH	X1,(XTAC)
	CAIN	X1,NONE
	 RET
	LF	,ZFICHN(X1)
	JOBSTS
	 RET
	ST	(XTAC)
	RET
	END;