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

Gague free disk blocks before and after loading source files.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-11 07:38:50 +02:00
parent a1bdade911
commit 87f2a21cb5
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
build/basics.tcl
View File

@@ -12,6 +12,9 @@ respond "*" ":rename .;@ nits, .;@ its\r"
# Free up some disk space on the pack holding most source code.
gfr_second
# Gague free disk blocks.
respond "*" ":listf sys\r"
respond "*" ":print sys1;..new. (udir)\r"
type ":vk\r"
respond "*" ":print sys2;..new. (udir)\r"

3
build/mark.tcl
View File

@@ -28,6 +28,9 @@ expect -timeout 3000 "E-O-T"
respond "_" "quit\r"
expect ":KILL"
# Gague free disk blocks.
respond "*" ":listf sys\r"
respond "*" ":print sysbin;..new. (udir)\r"
type ":vk\r"
respond "*" ":midas sysbin;_midas;midas\r"