Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/scanre.mac
There is 1 other file named scanre.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:CODE,scanreal);
LONG REAL PROCEDURE scanreal(t);    NAME t;    TEXT t;

COMMENT Starting at t.Pos, scanreal finds the next LONG REAL item and returns its
value. T.Pos is moved past the item, except if no legal item is found.
In that case, scanreal returns minreal, the algebraically lowest value: -2^128+2^72.
;

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

	TITLE	scanreal
	ENTRY	scanreal
	SUBTTL	SIMULA utility, Lars Enderin Dec 1975

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


	sall
	search	simmac,simmcr,simrpa
	macinit

	EXTERN	.scan

	;! Local definitions ;!

	result==ZBI%S
	t==result+1

scanreal:PROC
	LI	XTAC,TXGR
	BRANCH	.scan
	EPROC
	LIT
	END;