.title	mymark - ast routine for mark time

	.psect	tick,rw,d,gbl,rel,ovr
done:	.blkw	1

	.psect $code1
	.mcall	astx$s,mrkt$s,setf$s,altp$s
ast::
	setf$s	#1	;set event flag 1
	tst	(sp)+	;pop crap off stack
	astx$s

timast:
	altp$s		;raise priority back to default
	tst	(sp)+	;pop crap off stack
	inc	done
	astx$s

mymark::
	mrkt$s	,#1,#2,#timast	;wait a second
	return
	.end