github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-25 11:51:38 +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

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 {} {