Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50322/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
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