mirror of
https://github.com/PDP-10/its.git
synced 2026-01-29 13:21:11 +00:00
Update KS10 microcode after is has been reassembled.
This commit is contained in:
@@ -120,3 +120,6 @@ proc bootable_tapes {} {
|
||||
respond "_" "Q"
|
||||
expect ":KILL"
|
||||
}
|
||||
|
||||
proc update_microcode {} {
|
||||
}
|
||||
|
||||
@@ -162,3 +162,15 @@ proc bootable_tapes {} {
|
||||
respond "Input file" ".;nsalv bin\r"
|
||||
expect ":KILL"
|
||||
}
|
||||
|
||||
proc update_microcode {} {
|
||||
type ":ksfedr\r"
|
||||
respond "!" "write\r"
|
||||
respond "Are you sure" "yes\r"
|
||||
respond "Which file" "ram\r"
|
||||
expect "Input from"
|
||||
sleep 1
|
||||
respond ":" ".;ram ram\r"
|
||||
respond "!" "quit\r"
|
||||
expect ":KILL"
|
||||
}
|
||||
|
||||
@@ -850,6 +850,8 @@ respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inou
|
||||
expect ":KILL"
|
||||
respond "*" ":copy kshack; mcr ram, .; ram ram\r"
|
||||
|
||||
update_microcode
|
||||
|
||||
# XXFILE
|
||||
respond "*" ":midas sysbin;xxfile bin_sysen1;xxfile\r"
|
||||
expect ":KILL"
|
||||
|
||||
Reference in New Issue
Block a user