Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/tsub.mac
There is 1 other file named tsub.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,tsub);
TEXT PROCEDURE tsub(t,p,l); TEXT t; INTEGER p,l;
COMMENT Tsub is a safe variant of sub. Parameters which give
an error in sub will return NOTEXT instead;

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

	TITLE	tsub
	ENTRY	tsub
	sall
	search	simmcr
	SUBTTL	SIMULA utility, Lars Enderin Nov 1975

;!*** Copyright 1975 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


tsub:	HRROS	XTAC	;! Signal special case and use TXSU directly
	JRST	TXSU
	END;