DIRECTORYAMBridge USING [SomeRefFromTV, TVForReferent],AMTypes USING [TV],Buttons USING [Create],Convert USING [CardFromRope],FS USING [Error, FileInfo, StreamOpen],Interpreter USING [Evaluate],IO,Labels USING [Create, Set],Rope,SoftcardOps,SoftcardToolPrivate,SymTab USING [Create, Ref, Store],ViewerTools USING [GetContents, MakeNewTextViewer, SetSelection];SoftcardToolQuadIOImpl: CEDAR PROGRAMIMPORTSAMBridge, Interpreter,Buttons, Convert, FS, IO, Labels, Rope, SymTab, ViewerTools,SoftcardOps, SoftcardToolPrivateEXPORTS	SoftcardToolPrivate =BEGIN OPEN SoftcardToolPrivate;Word: TYPE = CARD32;STREAM: TYPE = IO.STREAM;ROPE: TYPE = Rope.ROPE;Memory: TYPE = REF MemoryRec;MemoryRec: TYPE = RECORD [sym: SymTab.Ref, wds: REF MemWords];MemWords: TYPE = RECORD [SEQUENCE size: CARDINAL OF MemWord];MemWord: TYPE = RECORD [addr, value: Word];quadMemory: Memory;quadFileNameText: Viewer;interpAddrWhatText, showInterpAddr: Viewer;BuildQuadIOButtons: PUBLIC PROC[topViewer, sibx: Viewer] RETURNS[sib: Viewer] = {sib _ sibx;sib _ Buttons.Create[info: [ name: " LoadQuadFile ", parent: topViewer,	wx: leftEdge, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,	border: TRUE, scrollable: FALSE],font: activeFont, proc: LoadQuadFileProc ];sib _ Buttons.Create[info: [ name: " fileName: ", parent: topViewer,	wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,	border: FALSE, scrollable: FALSE],font: selectFont, proc: QuadFileNameProc ];sib _ quadFileNameText _ ViewerTools.MakeNewTextViewer[info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy,	ww: 300, wh: entryHeight, border: FALSE, scrollable: FALSE]];sib _ Buttons.Create[info: [ name: " Interpret ", parent: topViewer,	wx: leftEdge, wy: sib.wy+sib.wh+betweenHeight, wh: entryHeight,	border: TRUE, scrollable: FALSE],font: activeFont, proc: InterpAddrProc ];sib _ Buttons.Create[info: [ name: " what: ", parent: topViewer,	wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,	border: FALSE, scrollable: FALSE],font: selectFont, proc: InterpAddrWhatProc ];sib _ interpAddrWhatText _ ViewerTools.MakeNewTextViewer[info: [parent: topViewer, wx: sib.wx+sib.ww+xFudge+6, wy: sib.wy,	ww: 200, wh: entryHeight, border: FALSE, scrollable: FALSE]];sib _ Labels.Create[info: [ name: " address: ", parent: topViewer,	wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,	border: FALSE, scrollable: FALSE],font: labelFont ];sib _ showInterpAddr _ Labels.Create[info: [ name: "                ", parent: topViewer,	wx: sib.wx+sib.ww+xFudge, wy: sib.wy, wh: entryHeight,	border: FALSE, scrollable: FALSE] ];RETURN[sib];};LoadQuadFileProc: ClickProc = {fName: ROPE _ ViewerTools.GetContents[quadFileNameText];fullName: ROPE;numLeft: CARD16 _ 0;indexThisRound, pushIndex: CARD16 _ 0;PushAddrVal: PROC RETURNS[addr: SoftcardOps.Addr, value: CARD32] = {addr _ quadMemory.wds[pushIndex].addr;value _ quadMemory.wds[pushIndex].value;pushIndex _ pushIndex + 1;};IF fName.Length[] = 0 THEN {TSOutPutRope["\n**** Please fill in the name of a quad file\n"];RETURN};fullName _ FS.FileInfo[name: fName, remoteCheck: FALSE, wDir: regDir! FS.Error => {TSOutPutRope[error.explanation];TSOutPutChar['\n];GOTO nogood } ].fullFName;quadMemory _ ReadQuadFile[fullName];IF quadMemory = NIL THEN RETURN;		-- some error, already reportednumLeft _ quadMemory.wds.size;WHILE numLeft > 256 DOSoftcardOps.WriteMultipleLong[256, PushAddrVal];numLeft _ numLeft - 256;ENDLOOP;IF numLeft > 0 THEN SoftcardOps.WriteMultipleLong[numLeft, PushAddrVal];TSOutPutF["\n\tQuadFile %g (%g instructions) has been loaded\n\n",[rope[fullName]], [cardinal[quadMemory.wds.size]] ];EXITSnogood => NULL;};QuadFileNameProc: ClickProc ={ ViewerTools.SetSelection[quadFileNameText, NIL] };InterpAddrProc: ClickProc = {what: ROPE = ViewerTools.GetContents[interpAddrWhatText];rp: ROPE;addr: CARD32;ok: BOOL;IF what.Length[] = 0 THEN {TSOutPutRope["\n Please fill in the Interpret waht field\n"];RETURN};[ok, addr] _ InterpAddr[what, quadMemory];IF ok = FALSE THEN {Labels.Set[showInterpAddr, " ??? "];RETURN;};Labels.Set[showInterpAddr, rp _ IO.PutFR["0%xH", [cardinal[addr]]] ];TSOutPutF["Expression \"%g\" has dragon address %g\n",[rope[what]], [rope[rp]] ];};InterpAddrWhatProc: ClickProc ={ ViewerTools.SetSelection[interpAddrWhatText, NIL] };ReadQuadFile: PROC[fileName: ROPE] RETURNS[mem: Memory] = {quadFile:	STREAM _ FS.StreamOpen[fileName];count: INT _ 0;list: LIST OF MemWord _ NIL;mem _ NEW[MemoryRec _ [sym: SymTab.Create[]]];DO Skip: PROC [source: STREAM, c: CHAR] RETURNS[BOOL] ~ {ch: CHAR;[] _ source.SkipWhitespace[];IF (ch _ source.GetChar[]) # c THEN {TSOutPutF[" Bad char %g (expected %g) at pos %g in quadFile %g - quitting\n",[character[c]], [character[ch]], [integer[source.GetIndex[]]], [rope[fileName]] ];RETURN[FALSE];};RETURN[TRUE];};tokenKind: IO.TokenKind;token: ROPE;addr, value: Word;[tokenKind, token] _ quadFile.GetCedarTokenRope[! IO.EndOfStream => EXIT];SELECT tokenKind FROMtokenDECIMAL,tokenOCTAL,tokenHEX => {addr _ Convert.CardFromRope[token];value _ 0;IF ~Skip[quadFile, '/]  THEN {quadFile.Close[];RETURN[NIL];};THROUGH [0..4) DO value _ value*100H + quadFile.GetCard[] ENDLOOP;list _ CONS[[addr, value], list];count _ count+1};tokenID => {IF ~Skip[quadFile, '=] THEN {quadFile.Close[];RETURN[NIL];};addr _ quadFile.GetCard[];[] _ SymTab.Store[mem.sym, token, TVFromRef[NEW[Word _ addr]]]};tokenEOF => EXIT;ENDCASE => {TSOutPutF["\n****Unknown tokenKind in quadFile %g at pos %g - quitting\n",[rope[fileName]], [integer[quadFile.GetIndex[]]] ];quadFile.Close[];RETURN[NIL];};ENDLOOP;quadFile.Close[];mem.wds _ NEW[MemWords[count]];FOR i: INT DECREASING IN [0..count) DOmem.wds[i] _ list.first;list _ list.restENDLOOP;};InterpAddr: PUBLIC PROC[addRope: ROPE, mem: Memory] RETURNS[ok: BOOL, addr: Word] = {result: AMTypes.TV;errorRope: ROPE;noResult: BOOL;refCard: REF;[result, errorRope, noResult] _ Interpreter.Evaluate[addRope, NIL, LIST[mem.sym]];IF noResult THEN {addr _ 0;TSOutPutF["\n*****Could not interpret \"%g\" - quitting\n", [rope[addRope]] ];RETURN[FALSE, addr]};refCard _ RefFromTV[result];WITH refCard SELECT FROMword: REF Word => {RETURN[TRUE, word^]};card: REF LONG CARDINAL	=> {RETURN[TRUE, card^]};int: REF INT => {IF int^ < 0 THEN RETURN[FALSE, 0];RETURN[TRUE, int^]};ENDCASE => {TSOutPutF["\n*****Unknown variant for \"%g\" - quitting\n", [rope[addRope]] ];RETURN[FALSE, 0];};};TVFromRef: PROC [ref: REF] RETURNS [AMTypes.TV] = TRUSTED { RETURN [AMBridge.TVForReferent[ref]] };RefFromTV: PROC [tv: REF] RETURNS [REF] = {IF tv = NIL THEN RETURN [NIL];IF ~ISTYPE [tv, AMTypes.TV] THEN ERROR; TRUSTED {RETURN [AMBridge.SomeRefFromTV[tv]]}};END.    Ў  SoftcardToolQuadIOImpl.mesaCopyright ╙ 1987 by Xerox Corporation.  All rights reserved.Don Curry, March 16, 1987 5:11:02 pm PSTWillie-Sue, March 19, 1987 12:43:24 pm PSTLoad Quad file (dragon code)Interpret symbol for dragon code Э╩	N  Ш ЪЬЩJЪЬ<Щ<JЪЬ(Щ(IcodeЩ*ЧJШ Ъ╧k	Ш	JЪЬ	ЭЬ Ш.JЪЬЭЬЭЬШKЪЬЭЬ
ШJЪЬЭЬШJЪЭЬЭЬШ'JЪЬЭЬШJЪЭЬШJЪЬЭЬШJШJШJЪЬШJЪЬЭЬШ"JЪЬЭЬ0ШAJШ ЧЪ╧nЬЭЬЭШ%ЪЭШJЪЬШJЪЬЭЬЭЬ$Ш<JЪЬ Ш ЧJЪЭЬШJШ JЪЭЬЭЬШЧШ JЪЬЭЬЭЬШJЪЭЬЭЬЭЬЭЬШJЪЭЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬЭЬШ>JЪЬ
ЭЬЭЬЭЬЭЬЭЬ
Ш=JЪЬ	ЭЬЭЬШ+JШ JЪЬШKШЪЬ+Ш+JШ ЧЪЮЬЭЬЭЬЭЬШQJЪЬШЩЪЬШЪЬ2Ш2JЪЬ@Ш@JЪЬ	ЭЬЭЬШ"ЧJЪЬ+Ш+JЩ ЧЪЬШЪЬ/Ш/JЪЬ7Ш7JЪЬ	ЭЬЭЬШ#ЧJЪЬ+Ш+JЩ ЧЪЬ7Ш7JЪЬAШAJЪЬ#ЭЬЭЬШ>ЧJШ ЧЩ ЪЬШЪЬ/Ш/JЪЬ@Ш@JЪЬ	ЭЬЭЬШ"ЧJЪЬ)Ш)JЩ ЧЪЬШЪЬ+Ш+JЪЬ7Ш7JЪЬ	ЭЬЭЬШ#ЧJЪЬ-Ш-JЩ ЧЪЬ9Ш9JЪЬAШAJЪЬ#ЭЬЭЬШ>JШ ЧЪЬШЪЬ.Ш.JЪЬ7Ш7JЪЬ	ЭЬЭЬШ#ЧJЪЬШJШ ЧЪЬ%Ш%ЪЬ4Ш4JЪЬ7Ш7JЪЬ	ЭЬЭЬШ"ЧJЪЬШЧJШ ЧJЪЭЬШJШJШ ЧЪЮЬШJЪЬЭЬ-Ш8JЪЬ
ЭЬШJЪЬ	ЭЬШJЪЬЭЬШ&ЪЮЬЭЬЭЬ ЭЬШDKЪЬ&Ш&KЪЬ(Ш(KШKШЧЪЭЬЭЬШJШ@JЪЭШJШЧЪЬЭЬ$ЭЬШDЪЬЭЬШJЪЬ Ш JЪЬШJЪЭЬШЧЧKЪЬ$Ш$KЪ	ЭЬЭЬЭЬЭЬ╧cШAKШ KЪЬШЪЭЬЭШKЪЬ0Ш0KЪЬШKЪЭЬШЧЪЭЬЭЬ5ШHJШ ЧШBJЪЬ4Ш4ЧЪЭШJЪЬ
ЭЬШЧJШJШ ЧЪЮЬШJЪЬ-ЭЬШ4JШ ЧЪЮЬШJЪЬЭЬ/Ш9JЪЬЭЬШ	JЪЬЭЬШJЪЬЭЬШ	ЪЭЬЭЬШJЪЬ=Ш=JЪЭШJШЧJЪЬ*Ш*ЪЭЬЭЬЭЬШJЪЬ$Ш$JЪЭЬШJШЧJЪЬ ЭЬ#ШEШ6JЪЬШЧJШJШ ЧЪЮЬШJЪЬ/ЭЬШ6JШ ЧЪЮЬЭЬЭЬЭЬШ;JЪЬ
ЭЬЭЬШ+JЪЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬ%Ш.ЪЭЬШЪЮЬЭЬ
ЭЬЭЬЭЬЭЬШ6JЪЬЭЬШ	JЪЬШЪЭЬЭЬЭШ%ШMJЪЬRШRЧJЪЭЬЭЬШJШЧJЪЭЬЭЬШJЪЬШЧJЪЬЭЬШJЪЬЭЬШJЪЬШJЪЬ2ЭЬЭЬШJЪЭЬЭШJЪЬШJЪЬШЪЬШJЪЬ#Ш#JЪЬ
Ш
ЪЭЬЭЬШJЪЬШJЪЭЬЭЬШJШЧJЪЭЬЭЬ)ЭЬШBJЪЬЭЬШ!JЪЬШJЪЬШЧЪЬШЪЭЬЭЬШJЪЬШJЪЭЬЭЬШJШЧJЪЬШJЪЬ,ЭЬШ>JЪЬШЧJЪЬЭЬШЪЭЬШЪЬJШJJЪЬ3Ш3ЧJЪЬШJЪЭЬЭЬШJШЧЧJЪЭЬШЧJЪЬШJЪЬ
ЭЬШЪ	ЭЬЭЬЭ
ЬЭЬЭШ&JЪЬШJЪЬШJЪЭЬШЧJЪЬШJШ ЧЪЮ
ЬЭЬЭЬ
ЭЬЭЬЭЬШUJЪЬЭЬШJЪЬЭЬШJЪЬ
ЭЬШJЪЬ	ЭЬШJЪЬ>ЭЬЭЬШRЪЭЬ
ЭЬШJЪЬ	Ш	JЪЬNШNJЪЭЬЭЬ	ШЧJЪЬШЪЭЬ	ЭЬЭШJЪЬЭЬ
ЭЬЭЬ
Ш(JЪЬЭЬЭЬЭЬЭЬЭЬ
Ш1ЪЬЭЬЭЬШJЪЭЬ
ЭЬЭЬЭЬШ"JЪЭЬЭЬШJЪЬШЧЪЭЬШJЪЬNШNJЪЭЬЭЬШJШЧJЪЬШЧЧЧШ ЪЮ	ЬЭЬЭЬЭЬ
ЭЬЭЬШ:KЪЬЭЬ!Ш)KШ ЧЪ
Ю	ЬЭЬЭЬЭЬЭЬШ+KЪ
ЭЬЭЬЭЬЭЬЭЬШKЪ
ЭЬЭЬЭЬЭЬЭЬШ(KЪЭЬЭЬШ-KЪЬШЧЧJШ JЪЭЬШЧ ЕЧ    ╕  $№  