// IfsTelnetLeafMemStat.bcpl -- IFS VMem statistics for Leaf
// Copyright Xerox Corporation 1980

// Last modified November 5, 1980  2:49 PM by Wobber

get "IfsSequin.decl"

external
[
// outgoing procedures
LeafVPBIStatistics

// incoming procedures
PutTemplate;

// incoming statics
dsp; scb;
]

//---------------------------------------------------------------------------
let LeafVPBIStatistics() be
//---------------------------------------------------------------------------
[
// Leaf VPBI statistics.
PutTemplate(dsp, "*nLeaf VPBI reads: $ED actual / $ED total",
 lv scb>>SCB.vpbiDiskReads, lv scb>>SCB.vpbiReads);
PutTemplate(dsp, "*nLeaf VPBI writes: $ED actual / $ED total",
 lv scb>>SCB.vpbiDiskWrites, lv scb>>SCB.vpbiWrites);
PutTemplate(dsp, "*nVPBI reaper scans: $ED ancient / $ED normal / $ED total",
 lv scb>>SCB.ancientScans, lv scb>>SCB.normalScans, lv scb>>SCB.reaperCycles);
]