github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Run MAINT; PART * diagnostics.

Browse Source
This commit is contained in:
Lars Brinkhoff 2019-06-12 13:19:54 +02:00
parent a86a71f2c6
commit 6ac554906d
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
build/ka10/include.tcl
View File

@ -183,3 +183,11 @@ proc patch_lisp {} {
respond " " "dsk0:.;@ lisp\r"
respond "*" ":kill\r"
}
proc translate_diagnostics {} {
# Not yet: "dsk: maint; part f, part f.old\r"
respond "*" "\033\024"
respond " " "dsk: maint; part g, part g.old\r"
respond "*" "\033\024"
respond " " "dsk: maint; part k, part k.old\r"
}

6
build/ks10/include.tcl
View File

@ -192,3 +192,9 @@ proc clib_switches {} {
proc patch_lisp {} {
}
proc translate_diagnostics {} {
# PART K doesn't work on the KS10.
respond "*" "\033\024"
respond " " "dsk: maint; part k, part l\r"
}

9
build/misc.tcl
View File

@ -1115,6 +1115,15 @@ respond "*" ":link sys3;ts unscr,sys3;ts scrmbl\r"
respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
expect ":KILL"
respond "*" ":job maint\r"
# KA10 needs the .OLD files.
translate_diagnostics
respond "*" ":load maint; part a\r"
respond "*" ":start\r"
respond "PARt a" "\032"
expect -re {>>|\)}
type ":kill\r"
# Display all Type 342 characters.
respond "*" ":midas dsk0:maint;_tst342\r"
expect ":KILL"