DIRECTORY
Basics USING [BITAND, BITSHIFT, ShortNumber],
IO,
Rope,

MDADefs,
MDDefs,
MDGlobalVars,
MDOps,
MDUtils;

MDOutputImpl: CEDAR PROGRAM

IMPORTS
Basics, IO, Rope,
MDDefs, MDGlobalVars, MDUtils

EXPORTS
MDOps, MDUtils

= BEGIN OPEN MDDefs, MDGlobalVars;

lastSource: SrcFile _ NIL;

Report: PUBLIC PROC[reportType: MDOps.ReportType,
	format: ROPE, v1, v2, v3, v4, v5: IO.Value _ [null[]]] = {
reportStrm.PutF[format, v1, v2, v3, v4, v5];
IF listingFile.strm # NIL THEN
listingFile.strm.PutF[format, v1, v2, v3, v4, v5];
IF reportType = fatalError THEN ERROR MDDefs.Error[IO.PutFR[format, v1, v2, v3, v4, v5]];
};

PutWord: PUBLIC PROC[strm: STREAM, val: WORD] = {
sn: Basics.ShortNumber _ LOOPHOLE[val];
strm.PutChar[LOOPHOLE[sn.hi, CHAR]];
strm.PutChar[LOOPHOLE[sn.lo, CHAR]];
};

PutInteger: PUBLIC PROC[strm: STREAM, val: INTEGER] = {
sn: Basics.ShortNumber _ LOOPHOLE[val];
strm.PutChar[LOOPHOLE[sn.hi, CHAR]];
strm.PutChar[LOOPHOLE[sn.lo, CHAR]];
};

PutCardinal: PUBLIC PROC[strm: STREAM, val: CARDINAL] = {
sn: Basics.ShortNumber _ LOOPHOLE[val];
strm.PutChar[LOOPHOLE[sn.hi, CHAR]];
strm.PutChar[LOOPHOLE[sn.lo, CHAR]];
};

GetWord: PUBLIC PROC[strm: STREAM] RETURNS[val: WORD] = {
sn: Basics.ShortNumber;
sn.hi _ LOOPHOLE[strm.GetChar[], BYTE];
sn.lo _ LOOPHOLE[strm.GetChar[], BYTE];
RETURN[LOOPHOLE[sn, WORD]];
};

GetInteger: PUBLIC PROC[strm: STREAM] RETURNS[val: WORD] = {
sn: Basics.ShortNumber;
sn.hi _ LOOPHOLE[strm.GetChar[], BYTE];
sn.lo _ LOOPHOLE[strm.GetChar[], BYTE];
RETURN[LOOPHOLE[sn, WORD]];
};

GetCardinal: PUBLIC PROC[strm: STREAM] RETURNS[val: CARDINAL] = {
sn: Basics.ShortNumber;
sn.hi _ LOOPHOLE[strm.GetChar[], BYTE];
sn.lo _ LOOPHOLE[strm.GetChar[], BYTE];
RETURN[LOOPHOLE[sn, CARDINAL]];
};

WriteMemoryDef: PUBLIC PROC[memNum, width: INTEGER, name: ROPE] = {
strm: STREAM = outFile.strm;
PutWord[strm, MBmemory];
PutWord[strm, memNum];
PutWord[strm, width];
WriteSymbolName[strm, name];
};

WriteSymbolName: PUBLIC PROC[strm: STREAM, name: ROPE] = {
len: INT = name.Length[];
FOR i: INT IN [0..len) DO
strm.PutChar[name.Fetch[i]];
ENDLOOP;
IF len MOD 2 = 1 THEN strm.PutChar['\000]
ELSE PutWord[strm, 0];		-- end marker for name
};

ListIM: PUBLIC PROC[listingFile: OutputFile, srcFileList: SrcFile] = {
Report[infoOnly, "Writing listing...\n\n"];

};

ListIMUsed: PUBLIC PROC[listingFile: OutputFile] = {
FOR i: CARDINAL IN [0..nPages) DO
page: MDADefs.DoradoPage = MDUtils.GetPageN[i];
IF page.used # 0 THEN
listingFile.strm.PutF["Page %4b: %4b locations used, %4b free\n",
IO.card[i*DoradoPageSize], IO.card[page.used], IO.card[DoradoPageSize-page.used] ];
ENDLOOP;
listingFile.strm.PutChar['\n];
};

ListNonIM: PUBLIC PROC[listingFile: OutputFile, listingLevel: INTEGER] = {
IF listingLevel < 0 THEN {
ListIFUMShort[listingFile.strm];
RETURN
};
ListRM[listingFile.strm];
ListIFUM[listingFile.strm, listingLevel = listFull];
ListALUFM[listingFile.strm];
};

PutRing: PUBLIC PROC[addr: CARDINAL] = {
min: CARDINAL _ 0;		-- Put out in increasing address order
lastS: SrcFile _ NIL;
DO
i: CARDINAL _ RingMin[addr, addr, min];
myS: SrcFile;
IF i = 10000B THEN EXIT;
myS _ GetSource[i];
IF myS # lastS THEN {
reportStrm.PutF["   [%g]\n", IO.rope[myS.fullName]];
lastS _ myS;
};
reportStrm.PutChar['\t];
PutAddr[i, myS];
PutAData[i];
reportStrm.PutChar['\n];
min _ i + 1;
ENDLOOP;
reportStrm.PutChar['\n];
};

GetSource: PUBLIC PROC[addr: CARDINAL] RETURNS[src: SrcFile] = {
myS: SrcFile _ srcFileList;
IF lastSource # NIL THEN
IF addr >= lastSource.niFirst AND addr < lastSource.niLast THEN RETURN[lastSource];
DO
IF addr >= myS.niFirst AND addr < myS.niLast THEN
RETURN[lastSource _ myS];
IF (myS _ myS.next) = NIL THEN RETURN[lastSource _ myS];
ENDLOOP;
};

PutAddr: PROC[addr: CARDINAL, src: SrcFile] = TRUSTED {
ip: IMRecordPtr;
RShift6: PROC[w0Addr: CARDINAL] RETURNS[CARDINAL] = TRUSTED
{ RETURN[LOOPHOLE[Basics.BITSHIFT[LOOPHOLE[w0Addr], -6], CARDINAL]] };
And77B: PROC[w0Addr: CARDINAL] RETURNS[CARDINAL] = TRUSTED
{ RETURN[LOOPHOLE[Basics.BITAND[LOOPHOLE[ip.word0.W0Addr], 77B], CARDINAL]] };
PutLabel[addr, src.niFirst];
ip _ MDUtils.IMPtr[addr];
IF ip.word0.onPageAndPlaced = 1 OR ip.word0.atW0AndatWord = 1 THEN {
reportStrm.PutChar['(];
IF ip.word0.onPageAndPlaced = 1 THEN
reportStrm.PutF["%b", IO.card[RShift6[ip.word0.W0Addr]] ]
ELSE reportStrm.PutRope["xx"];

IF ip.word0.atW0AndatWord = 1 THEN
reportStrm.PutF["%02b", IO.card[And77B[ip.word0.W0Addr]] ]
ELSE reportStrm.PutRope["xx"];
reportStrm.PutChar[')];
};
};

PutAData: PUBLIC PROC[addr: CARDINAL] = TRUSTED {
ip: IMRecordPtr _ MDUtils.IMPtr[addr];
IF ip.word0.atW0AndatWord = 0 AND ip.mask # 177777B THEN
reportStrm.PutF[" %b", IO.card[ip.mask]];
reportStrm.PutF["[%b: b%g%b", IO.card[addr],
IO.char[IF ip.links.jbcLinked = 1 THEN '* ELSE '=],
IO.card[ip.word2.W2AddrAndbLink] ];
IF ip.links.aLink # addr THEN
reportStrm.PutF[", a%g%b", IO.char[IF ip.links.aLinked = 1 THEN '* ELSE '=],
IO.card[ip.links.aLink] ];
reportStrm.PutChar['] ];
};

PutLabel: PROC[addr, firstInFile: CARDINAL] = TRUSTED {
imPtr: IMRecordPtr _ MDUtils.IMPtr[addr];
IF imPtr.symbol # NIL THEN {
reportStrm.PutF["(=%g)", IO.rope[imPtr.symbol.name]];
RETURN;
};
FOR i: CARDINAL DECREASING IN [firstInFile .. addr) DO
imPtr _ MDUtils.IMPtr[i];
IF imPtr.symbol # NIL THEN {
reportStrm.PutF["%g+%g", IO.rope[imPtr.symbol.name], IO.card[addr-i] ];
RETURN
};
ENDLOOP;
reportStrm.PutF["No labels found between %g and %g", IO.card[firstInFile], IO.card[addr]];
};

RingMin: PROC[start, stop, min: CARDINAL] RETURNS[max: CARDINAL] = {
i: CARDINAL _ start;
max _ 10000B;
DO
IF i >= min AND i < max THEN max _ i;
TRUSTED { i _ MDUtils.IMPtr[i].word2.W2AddrAndbLink };
IF i = stop THEN EXIT;
ENDLOOP;
};

ListIFUMShort: PROC[strm: STREAM] = {
first: BOOL _ TRUE;
xlo: CARDINAL _ 0;
Pairs: PROC[lo, hi: CARDINAL] = {
IF first THEN {
strm.PutRope["IFUM locations used:\n"];
first _ FALSE;
};
IF lo = hi THEN strm.PutF["%6b\n", IO.card[lo]]
ELSE strm.PutF["%6b - %4b\n", IO.card[lo], IO.card[hi] ];
};
FOR i: CARDINAL IN [0..IFUMsize) DO
IF ~ifumBits[i] THEN {
IF xlo # i THEN Pairs[xlo, i-1];
xlo _ i + 1;
};
ENDLOOP;
IF xlo # IFUMsize THEN Pairs[xlo, IFUMsize-1];
};

ListRM: PROC[strm: STREAM] = {};

ListIFUM: PROC[strm: STREAM, full: BOOL] = {};

ListALUFM: PROC[strm: STREAM] = {};

END.
����ö��MDOutputImpl.mesa
Copyright c 1986 by Xerox Corporation.  All rights reserved.
Willie-Sue, July 29, 1987 4:30:05 pm PDT
Print symbolic address
Print placement information
Following stuff is just to help me (lpd) debug
this shouldn't happen
Ê	¶��˜�š
œ™Icodešœ
Ïm
œ1™<K™(—J˜�š
Ïk	˜	Jšœžœžœžœ˜-Jšžœ
˜Jš
œ˜J˜�J˜J˜J˜
J˜J˜—J˜�šœžœ
ž˜J˜�š
ž˜Jšœžœ˜Jš
œ˜—J˜�š
ž˜Jš
œ˜—J˜�Jšœžœ
žœ˜"J˜�Jšœžœ
˜J˜�šÏnœžœ
žœ˜1Jšœ	žœžœ˜;Jš
œ,˜,šžœžœ
ž˜Jš
œ2˜2—Jšžœžœ
žœžœ$˜YJ˜—J˜�š
Ÿœžœ
žœžœžœ˜1Jšœžœ˜'Jšœ
žœžœ˜$Jšœ
žœžœ˜$J˜—J˜�š
Ÿ
œžœ
žœžœžœ˜7Jšœžœ˜'Jšœ
žœžœ˜$Jšœ
žœžœ˜$J˜—J˜�š
Ÿœžœ
žœžœžœ˜9Jšœžœ˜'Jšœ
žœžœ˜$Jšœ
žœžœ˜$J˜—J˜�šŸœžœ
žœžœžœžœ˜9Jš
œ˜Jšœžœžœ˜'Jšœžœžœ˜'Jšžœ
žœžœ˜J˜—J˜�šŸ
œžœ
žœžœžœžœ˜<Jš
œ˜Jšœžœžœ˜'Jšœžœžœ˜'Jšžœ
žœžœ˜J˜—J˜�šŸœžœ
žœžœžœžœ˜AJš
œ˜Jšœžœžœ˜'Jšœžœžœ˜'Jšžœ
žœžœ˜J˜—J˜�š
Ÿœžœ
žœžœžœ˜CJšœžœ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜J˜—J˜�š
Ÿœžœ
žœžœžœ˜:Jšœžœ˜šžœžœ
žœ
ž˜Jš
œ˜Jšžœ
˜—šžœžœžœ˜)JšžœÏc˜.—Jš
œ˜—J˜�šŸœžœ
žœ3˜FJ˜+J˜�J˜—J˜�šŸ
œžœ
žœ˜4šžœžœ
žœ
ž˜!J˜/šžœž˜š
œA˜AJšžœžœžœ"˜S——Jšžœ
˜—Jš
œ˜J˜—J˜�šŸ	œžœ
žœ(žœ˜Jšžœžœ˜Jš
œ ˜ Jš
ž˜J˜—Jš
œ˜Jš
œ4˜4Jš
œ˜J˜—J˜�šŸœžœ
žœžœ˜(Jšœžœ &˜:Jšœžœ
˜š
ž˜Jšœžœ˜'Jš
œ
˜
Jšžœžœ
žœ
˜Jš
œ˜šžœ
žœ˜Jšœžœ˜4Jš
œ˜J˜—Jš
œ˜J˜J˜Jš
œ˜J˜Jšžœ
˜—Jš
œ˜J˜—J˜�š
Ÿ	œžœ
žœžœžœ˜@Jš
œ˜šžœžœ
ž˜Jšžœžœžœ
žœ
˜S—š
ž˜šžœžœž˜1Jšžœ˜—Jšžœžœ
žœ
žœ˜8Jšžœ
˜—J˜—J˜�šŸœžœžœžœ˜7J˜šŸœžœ	žœžœ
žœž˜;Jšœžœ
žœžœ
žœžœ˜F—šŸœžœ	žœžœ
žœž˜:Jšœžœ
žœžœ
žœžœ˜N—J™Jš
œ˜J™J˜šžœžœžœ˜DJ˜šžœž˜$Jšœžœ!˜9Jšžœ˜—J˜�šžœž˜"Jšœžœ ˜:Jšžœ˜—J˜J˜—J˜—J˜�š
Ÿœžœ
žœžœžœ˜1J˜&šžœžœž˜8Jšœžœ˜)—J™.šœžœ˜,Jšžœžœžœžœ˜3Jšžœ!˜#—šžœž˜š	œžœžœžœžœ˜LJšžœ˜——Jš
œ˜J˜—J˜�šŸœžœžœžœ˜7J˜)šžœžœ
žœ˜Jšœžœ˜5Jšžœ
˜J˜—š	žœžœ
ž
œ
žœž˜6J˜šžœžœ
žœ˜Jšœžœžœ˜GJš
ž˜J˜—Jšžœ
˜—Jš
œ™Jšœ5žœžœ
˜ZJ˜—J˜�š
Ÿœžœžœžœžœ˜DJšœžœ	˜Jš
œ
˜
š
ž˜Jšžœ
žœ	žœ	˜%Jšžœ/˜6Jšžœ
žœ
žœ
˜Jšžœ
˜—J˜—J˜�šŸ
œžœžœ˜%Jšœžœžœ
˜Jšœžœ˜šŸœžœ	žœ˜!šžœžœ˜Jš
œ'˜'Jšœžœ
˜J˜—šžœ	žœžœ
˜/Jšžœžœžœ˜9—J˜—šžœžœ
žœž˜#šžœž˜Jšžœ	žœ˜ J˜J˜—Jšžœ
˜—Jšžœžœ˜.J˜—J˜�JšŸœžœžœ˜ J˜�JšŸœžœžœžœ˜.J˜�JšŸ	œžœžœ˜#J˜�Jšžœ
˜——�…—����€��#,��