Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/xcalli.mac
There is 1 other file named xcalli.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,xcalli);
INTEGER PROCEDURE xcalli(n,arg,errnoskip,errvalue);
INTEGER n,arg,errvalue;
BOOLEAN errnoskip;
COMMENT Executes CALLI AC1,n - where AC1 is loaded from arg.
Errvalue is returned if the CALLI does not skip,
and errnoskip is TRUE.

;

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

	TITLE	xcalli
	ENTRY	xcalli
	SUBTTL	SIMULA utility, Lars Enderin Oct 1977

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


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	n==<result==0>
	arg==1
	errnoskip==2
	errvalue==3

xcalli:	PROC
	HRRZ	n(XTAC)
	L	X1,arg(XTAC)
	TLO	(CALLI X1,)
	IF	;! CALLI skips
		XCT
		 GOTO	FALSE
	THEN	;! Result ok
		ST	X1,result(XTAC)
		RET
	FI
	SKIPE	errnoskip(XTAC)
	 L	X1,errvalue(XTAC)
	ST	X1,result(XTAC)
	RET
	EPROC
	LIT
	END;