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

Make bootable MAGDMP tape.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-02-27 11:21:41 +01:00
parent d9f18c1ef9
commit 1144059a08
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
build/ka10/include.tcl
View File

@ -85,4 +85,30 @@ proc dump_nits {} {
}
proc bootable_tapes {} {
global emulator_escape
respond "*" ":midas .;magdmp bin.ka_syseng;magdmp\r"
respond "PTRHRI=" "n\r"
respond "KL10P=" "n\r"
respond "TM10BP=" "n\r"
respond "340P=" "n\r"
expect ":KILL"
respond "*" $emulator_escape
create_tape "out/magdmp.tape"
type ":magfrm\r"
respond "?" "KA\r"
respond "?" "Y"
respond "_" "W"
respond "FROM" ".; @ DDT\r"
respond "FILE" "@ DDT\r"
respond "_" "W"
respond "FROM" ".; @ SALV\r"
respond "FILE" "@ SALV\r"
respond "_" "W"
respond "FROM" ".; @ DSKDMP\r"
respond "FILE" "@ DSKDMP\r"
respond "_" "Q"
expect ":KILL"
}