Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/24/filena.mac
There are 2 other files named filena.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,NOCHECK,filename);
TEXT PROCEDURE filename;!(fileref);!REF(file)fileref;
COMMENT
;
!*;! MACRO-10 code !*;!
TITLE filename
ENTRY filename
SUBTTL SIMULA utility, Lars Enderin Dec 1975
;!*** Copyright 1975 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed. ***
sall
search simmac,simmcr,simrpa
macinit
filename:
PROC
HRRZ X1,(XTAC)
ADD X1,1(XTAC) ;! abs addr of parameter
L X1,(X1) ;! FILE reference
LD X0,2(X1) ;! TEXT reference to FILE parameter
STD X0,(XTAC) ;! Give it as result
RETURN
EPROC
LIT
END;