Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/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;