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