// 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); ]