Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0039/symmak.mac
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

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:	SIXBIT /LISP/
	SIXBIT /SYM/
	0
	0

LST:	0
	0

END SYMMAK