ListBcd.mesa_Sep78.pdf | | ListBed.mesa 2-Sep-78 18:18:51 Page 1
-- ListBed.Mesa Edited by Sandman on April 13, 1978 3:38 PM
DIRECTORY
AltoDefs: FROM "altodefs",
BedDefs: FROM "beddefs",
CommanderDefs: FROM "eommanderdefs",
ControlDefs: FROM "eontroldefs",
10Ders: FROM "iodefs",
ListerDefs: FROM "listerdefs",
OutputDefs: FROM "outputdefs",
SegmentDefs: FROM "segmentdefs",
StringDers: FROM "stringdefs",
SymDefs: FROM "symdefs":
DEFINITIONS FROM OutputDefs, BedDefs:
ListBed: PROGRAM
IMPORTS CommanderDefs, IODefs, ListerDefs, OutputDefs, SegmentDefs, StringDefs
EXPORTS ListerDefs =
BEGIN
bed: POINTER TO BCD:
tb: CARDINAL:
ssb: BedDefs.NameString:
etb: CARDINAL:
mtb: CARDINAL:
itb: CARDINAL:
etb: CARDINAL:
sgb: CARDINAL:
ftb: CARDINAL;
ntb: CARDINAL;
InstallBcd: PROCEDURE [seg: SegmentDefs.FileSegmentHandle] =
BEGIN OPEN SegmentDefs;
size: CARDINAL;
IF -seg.swappedin THEN SwapIn[seg];
bed ~ Fil |