github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 23:54:18 +00:00
Code Issues Releases Wiki Activity

Refactor MARK scripting.

Browse Source
This commit is contained in:
Lars Brinkhoff
2021-06-27 16:21:15 +02:00
parent afc80a9e81
commit ae6dc489aa
3 changed files with 35 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
build/ka10/include.tcl
View File

@@ -11,38 +11,21 @@ proc start_dskdmp_its {} {
patch_its_and_go
}
proc mark_pack {unit pack id} {
respond "\n" "mark\033g"
respond "UNIT #" "$unit"
respond "#$unit?" "y"
respond "NO =" "$pack\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "$id\r"
}
proc mark_packs {} {
respond "\n" "mark\033g"
respond "UNIT #" "0"
respond "#0?" "y"
respond "NO =" "2\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "2\r"
respond "\n" "mark\033g"
respond "UNIT #" "1"
respond "#1?" "y"
respond "NO =" "3\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "3\r"
respond "\n" "mark\033g"
respond "UNIT #" "2"
respond "#2?" "y"
respond "NO =" "0\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "0\r"
respond "DDT" "mark\033g"
respond "UNIT #" "3"
respond "#3?" "y"
respond "NO =" "1\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "1\r"
mark_pack "0" "2" "2"
mark_pack "1" "3" "3"
mark_pack "2" "0" "0"
mark_pack "3" "1" "1"
}
proc prepare_frontend {} {