github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-08 03:49:36 +00:00
Code Issues Releases Wiki Activity

Binary patch PDP-6 LISP to work on a PDP-10.

Browse Source 
Also move in-core symbol table to SBLK format, and remove the in-core
DDT.
This commit is contained in:
Lars Brinkhoff
2019-04-11 07:48:34 +02:00
parent 82b27d5193
commit da74a7a941
3 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
build/ka10/include.tcl
View File

@@ -163,3 +163,23 @@ proc update_microcode {} {
proc clib_switches {} {
respond "with ^C" "\003"
}
proc patch_lisp {} {
respond "*" ":job lisp\r"
respond "*" ":load .; @ lisp\r"
respond "*" "33777//\031"
respond "*" "\033q\033,777777\033\033z"
respond "*" "pitele+13/"
respond "FSC" "push p,b\n"
respond "FSC" "jrst patch\r"
respond "\n" "patch/"
respond "0" "move b,echocc\n"
respond "0" "add b,ticc\n"
respond "0" "dpb b,.+3\n"
respond "0" "pop p,b\n"
respond "0" "jrst pitele+15\n"
respond "0" "331000,,a\r"
respond "\n" "\033y"
respond " " "dsk0:.;@ lisp\r"
respond "*" ":kill\r"
}

3
build/ks10/include.tcl
View File

@@ -189,3 +189,6 @@ proc update_microcode {} {
proc clib_switches {} {
respond "with ^C" "KS10==1\r\003"
}
proc patch_lisp {} {
}

4
build/lisp.tcl
View File

@@ -1,5 +1,9 @@
log_progress "ENTERING BUILD SCRIPT: LISP"
# PDP-6 LISP.
patch_lisp
# lisp
respond "*" ":link l;fasdfs 1,lisp;.fasl defs\r"
respond "*" ":link lisp;grind fasl,lisp;gfile fasl\r"