perm filename SYMMAK.MAC[RUT,LSP] blob sn#343746 filedate 1978-03-22 generic text, type T, neo UTF8
00010	TITLE SYMMAK CONSTRUCTS LISP SYMBOL TABLE IN FILE LISP.SYM
00020	
00030	
00040	IFNDEF	SYSNAM,<DEFINE SYSNAM,<SIXBIT /LISP/>>
00050	
00060	
00070	MLON
00080	A=1
00090	B=2
00100	P=14
00110	
00120	EXTERNAL .JBSYM
00130	SYMMAK:	SOS 2,.JBSYM
00140		MOVEM 2,LST
00150		INIT 17
00160		SIXBIT /DSK/
00170		0
00180		HALT
00190		ENTER FILE
00200		HALT
00210		OUTPUT [IOWD 1,LST	;OUTPUT LENGTH OF FILE
00220			0]
00230		OUTPUT LST
00240		STATZ 740000
00250		HALT
00260		RELEASE
00270		CALL [SIXBIT /EXIT/]
00280	
00290	FILE:	SYSNAM
00300		SIXBIT /SYM/
00310		0
00320		0
00330	
00340	LST:	0
00350		0
00360	
00370		END SYMMAK