Google
 

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;