Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/forceo.mac
There is 1 other file named forceo.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,forceout);
PROCEDURE forceout(ofile); REF(Outfile) ofile;
COMMENT Forces out a buffer to the file (normally a terminal).
Intended to be used with OUTCHR which also does not affect ofile.Image.
ofile == NONE is treated as Sysout.
;

!*;! MACRO-10 code !*;!

	TITLE	forceout
	ENTRY	forceout
	SUBTTL	SIMULA utility, Lars Enderin July 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	ofile==XWAC1

forceout:PROC
	LOWADR
	CAIN ofile,NONE
	L ofile,YSYSOUT(XLOW)	;! NONE implies Sysout
	LF XBH,ZFIOBH(ofile)
	SUBI XBH,1
	LF X1,ZBHZBU(XBH)
	HRRZ X2,OFFSET(ZBHBUP)(XBH)
	IF ;! Nothing written
		CAIG X2,2(X1)
		SKIPE 2(X1)
		GOTO FALSE
	THEN
		RET		;! IONB returns here!
	FI
	XEC IONB
	EPROC
	LIT
	END;