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

Pausing the emulator may or may not elicit APR ERROR IN NULL JOB.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-02-27 12:53:20 +01:00
parent 146f416f1f
commit d9f18c1ef9
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build/build.tcl
View File

@ -67,7 +67,7 @@ proc ip_address {string} {
}
set timeout 100
expect_before timeout abort
expect_after timeout abort
set ip [ip_address [lindex $argv 0]]
set gw [ip_address [lindex $argv 1]]

11
build/sims/build.tcl
View File

@ -14,12 +14,21 @@ proc start_dskdmp {} {
proc mount_tape {file} {
respond "sim>" "at mta0 $file\r"
respond "sim>" "c\r"
expect -timeout 2 "BUGPC/" {
type "\033P"
} timeout {
;
}
}
proc create_tape {file} {
respond "sim>" "at mta0 $file\r"
respond "sim>" "c\r"
respond "BUGPC/" "\033P"
expect -timeout 2 "BUGPC/" {
type "\033P"
} timeout {
;
}
}
proc quit_emulator {} {