github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +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
Show Stats 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 {} {

36
build/kl10/include.tcl
View File

@ -20,30 +20,20 @@ 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 BEGINS"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "$id\r"
}
proc mark_packs {} {
respond "\n" "mark\033g"
respond "UNIT #" "0"
respond "#0?" "y"
respond "NO =" "0\r"
expect -timeout 300 "VERIFICATION BEGINS"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "0\r"
respond "\n" "mark\033g"
respond "UNIT #" "1"
respond "#1?" "y"
respond "NO =" "1\r"
expect -timeout 300 "VERIFICATION BEGINS"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "1\r"
respond "\n" "mark\033g"
respond "UNIT #" "2"
respond "#2?" "y"
respond "NO =" "2\r"
expect -timeout 300 "VERIFICATION BEGINS"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "2\r"
mark_pack "0" "0" "0"
mark_pack "1" "1" "1"
mark_pack "2" "2" "2"
}
proc prepare_frontend {} {

12
build/ks10/include.tcl
View File

@ -17,14 +17,18 @@ proc start_dskdmp_its {} {
patch_its_and_go
}
proc mark_packs {} {
proc mark_pack {unit pack id} {
respond "\n" "mark\033g"
respond "Format pack on unit #" "0"
respond "Format pack on unit #" "$unit"
respond "Are you sure you want to format pack on drive" "y"
respond "Pack no ?" "0\r"
respond "Pack no ?" "$pack\r"
respond "Verify pack?" "n"
respond "Alloc?" "3000\r"
respond "ID?" "foobar\r"
respond "ID?" "$id\r"
}
proc mark_packs {} {
mark_pack "0" "0" "foobar"
}
proc prepare_frontend {} {