perm filename SCANFR.MAC[SIM,SYS] blob sn#460212 filedate 1979-07-20 generic text, type T, neo UTF8
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;