mirror of
https://github.com/PDP-10/its.git
synced 2026-04-30 05:35:36 +00:00
Assembler for TT2500.
The assembler is written in Maclisp. The main entry point is ZAP which expects a symbol with a value cell pointing to the source code.
This commit is contained in:
@@ -837,6 +837,15 @@ respond "?" "1700\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":link sys1; ts llogo, llogo; ts llogo\r"
|
||||
|
||||
# 2500 assembler
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load 'ioc)"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "2500;zap\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
# TEACH;TS XLISP
|
||||
|
||||
respond "*" ":complr\r"
|
||||
|
||||
Reference in New Issue
Block a user