Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/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;