File PAUSE.RA

Directory of image this file is from
This file as a plain text file

/
/ VERSION 5A 4-26-77 MH
/
	SECT8	#PAUSE	/FORTRAN PAUSE HANDLER
	EXTERN	#WRITO
	EXTERN	#RSVO
	EXTERN	#RENDO
	BASE	0
	FSTA	PNUM	/SAVE ARGUMENT
	STARTD
	FLDA	0	/GET RETURN ADDRESS
	FSTA	PAURET
	STARTF
	TRAP3	#WRITO
	JA	ZERO
	JA	PAUFMT
	FLDA	PNUM	/PRINT A MESSAGE "PAUSE N"
	TRAP3	#RSVO
	TRAP3	#RENDO
	TRAP4	OPAUSE	/DO ACTUAL PAUSE
PAURET,	JA	.	/RETURN

OPAUSE,	0
	AND%	0
	AND%	0	/WASTE SOME TIME SO THAT THE LAST
	AND%	0	/TWO CHARS OF THE MESSAGE WILL PRINT.
	AND%	0
	AND%	0
	ISZ	ZERO
	JMP	OPAUSE+1
DPAUSE,	IOF
	KSF
	JMP	.-1
	KRB
	CLA
	ION
	CDF CIF 0
	JMP%	OPAUSE

PNUM,	F	0.0
ZERO,	F	0.0
PAUFMT,	TEXT	%(' PAUSE'I6/)%
	END

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search