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

tmp

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-01 06:11:01 +02:00
parent 48121a4801
commit 934ff52b5e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
build/ka10/include.tcl
View File

@@ -13,7 +13,7 @@ proc mark_packs {} {
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK # =" "2\r"
respond "PACK ID =" "2\r"
respond "PACK ID =" "FIRST\r"
respond "\n" "mark\033g"
respond "UNIT #" "1"
@@ -22,7 +22,7 @@ proc mark_packs {} {
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK # =" "3\r"
respond "PACK ID =" "3\r"
respond "PACK ID =" "SECOND\r"
respond "\n" "mark\033g"
respond "UNIT #" "2"
@@ -31,7 +31,7 @@ proc mark_packs {} {
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK # =" "0\r"
respond "PACK ID =" "0\r"
respond "PACK ID =" "THIRD\r"
respond "DDT" "mark\033g"
respond "UNIT #" "3"
@@ -40,7 +40,7 @@ proc mark_packs {} {
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK # =" "1\r"
respond "PACK ID =" "1\r"
respond "PACK ID =" "FOURTH\r"
}
proc prepare_frontend {} {