Google
 

Trailing-Edge - PDP-10 Archives - bb-r775d-bm_tops20_ks_upd_4 - sources/wait.mac
There are 5 other files named wait.mac in the archive. Click here to see a list.
	TITLE	WAIT
	SEARCH	MACSYM,MONSYM

A=1
B=2

START:
	MOVE	A,[POINT 7,[ASCIZ /PS/]]
	STDEV			;GET PS: DESIGNATOR
	 ERJMP	[TMSG	<? Can't get device designator
>
		 HALTF]
	MOVE	A,B		;COPY THE DESIGNATOR
	GDSKC			;SEE HOW MUCH SPACE IS FREE
	CAIL	B,^D1500	;IF MORE THAN 1500 FREE PAGES
	 HALTF			; THEN OK TO CONTINUE
	MOVEI	A,^D60000	;ELSE WAIT ONE MINUTE
	DISMS
	JRST	START		;AND TRY AGAIN

	END	START