Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/front.mac
There is 1 other file named front.mac in the archive. Click here to see a list.
COMMENT ! SIMULA specification;
OPTIONS(/E:QUICK,front);
TEXT PROCEDURE front(t); TEXT t;
COMMENT IF t=/=NOTEXT THEN front:-t.Sub(1,t.Pos-1);
!;! MACRO-10 code !;!
TITLE front
SUBTTL SIMULA utility, Lars Enderin Dec 1975
;!*** Copyright 1975 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed. ***
ENTRY front
front: HRLZS 1,1(2) ;! Length:=Pos-1, Pos:=1
JUMPN 1,.+2
SETZM (2) ;! NOTEXT if Pos was 1
POPJ 17,
END;