Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/symmak.mac
Click 43,50322/symmak.mac to see without markup as text/plain
There are 6 other files named symmak.mac in the archive. Click here to see a list.
TITLE SYMMAK CONSTRUCTS LISP SYSBOL TABLE IN FILE LISP.SYM


IFNDEF	SYSNAM,<DEFINE SYSNAM,<SIXBIT /LISP/>>


MLON
A=1
B=2
P=14

EXTERNAL JOBSYM
SYMMAK:	SOS 2,JOBSYM
	MOVEM 2,LST
	INIT 17
	SIXBIT /DSK/
	0
	HALT
	ENTER FILE
	HALT
	OUTPUT [IOWD 1,LST	;OUTPUT LENGTH OF FILE
		0]
	OUTPUT LST
	STATZ 740000
	HALT
	RELEASE
	CALL [SIXBIT /EXIT/]

FILE:	SYSNAM
	SIXBIT /SYM/
	0
	0

LST:	0
	0

	END SYMMAK