File: PAUSE.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/ 'PAUSE XXXX' STATEMENT INTERNAL FUNCTION
/
/
/ VERSION 40A 28-MAY-80 WVDM
/
/
	FRUN=0		/SET=1 IF FRUN IS USED
/
	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
	TAD	PARITY
	KRS
	TAD	MCTLCB	/IS IT ^C OR ^B?
	CLL RAR
	SZA		/YES DON'T CLEAR FLAG
	KCC		/FOR OTHERS CLEAR FLAG
	CLA
	6254		/SKIP ON MULTI-8
	ION
	CDF CIF 0
	JMP%	OPAUSE

PARITY,	200
MCTLCB,	-202
PNUM,	F	0.0
ZERO,	F	0.0
IFZERO FRUN  <
PAUFMT,	TEXT	%(' PAUSE'I6/)%
	>
IFNZRO FRUN  <
PAUFMT,	"(&177
	"'&177
	" &177
	"P&177
	"A&177
	"U&177
	"S&177
	"E&177
	"'&177
	"I&177
	"6&177
	"/&177
	")&177
			>
	END

---