Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/scanfr.mac
There is 1 other file named scanfr.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:CODE,scanfrac);
INTEGER PROCEDURE scanfrac(t);    NAME t;    TEXT t;

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

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

	TITLE	scanfrac
	ENTRY	scanfrac
	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

scanfrac:PROC
	LI	XTAC,TXGF
	BRANCH	.scan
	EPROC
	LIT
	END;