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