DIRECTORYIO,LarkPrograms USING [Program],OrderedSymbolTableRef,Rope,TeleLoad;TeleDebOps: DEFINITIONS = {Failed: ERROR;  -- raised by communication failure.Swab: PROC [a: CARDINAL] RETURNS [b: CARDINAL];MCR: PROC [s: IO.STREAM];GetHex: PROC [h: IO.Handle] RETURNS [LONG CARDINAL];FindByNameOrAddress: PROC [hostName: Rope.ROPE] RETURNS [htd: TeleDebOps.TeleDebugData];GetCoreBlock: PROC[host: TeleDebugData, addr: TeleLoad.CoreAddress, count: CARDINAL]RETURNS [TeleLoad.CoreBlock];Show: PROC[host: TeleDebugData, addr: TeleLoad.CoreAddress, count: CARDINAL, words: BOOL _ FALSE];FetchState: PROC [host: TeleDebugData, adv: TeleLoad.Advice _ [FALSE, FALSE, 0]];Read: PROC [host: TeleDebugData, addr: TeleLoad.CoreAddress] RETURNS [CARDINAL];ReadWord: PROC [host: TeleDebugData, addr: TeleLoad.CoreAddress] RETURNS [CARDINAL];Write: PROC [host: TeleDebugData, addr: TeleLoad.CoreAddress, value: CARDINAL];WriteWord: PROC [host: TeleDebugData, addr: TeleLoad.CoreAddress, value: CARDINAL];FlushWrites: PROC [host: TeleDebugData];ResetCache: PROC [host: TeleDebugData];ShortCoreAddress: TYPE = CARDINAL;TeleDebugData: TYPE = REF TeleDebugDataObject;TeleDebugDataObject: TYPE = RECORD [h: TeleLoad.Handle _ NIL,in, out, edit: IO.Handle _ NIL,origecho: IO.Handle _ NIL,rh: IO.Handle _ NIL,iS: IO.Handle _ NIL,larkState: TeleLoad.State8086Object,cacheCB: TeleLoad.CoreBlock,dirty: BOOLEAN _ FALSE,program: LarkPrograms.Program];LoadProgram: PROC [host: TeleDebugData, program: LarkPrograms.Program, log: IO.STREAM];VerifyProgram: PROC [host: TeleDebugData, program: LarkPrograms.Program, log: IO.STREAM];loadWindowLow: TeleLoad.CoreAddress;loadWindowHigh: TeleLoad.CoreAddress;locMaxByte: NAT;host: TeleDebOps.TeleDebugData;SetHostByRef: PROC [h: TeleDebOps.TeleDebugData];SetValue: PROC [host: TeleDebugData, name: Rope.ROPE, value: CARDINAL, offset: NAT _ 0]RETURNS [success: BOOL];PrintVariable: PROC [host: TeleDebugData, name: Rope.ROPE, words: NAT _ 1];}.Modified by Swinehart, November 16, 1982 2:40 pmModified by Stewart, November 19, 1982 4:59 pmModified by Stewart, December 20, 1982 12:45 pm, add FindVariable and PVModified by Stewart, December 28, 1982 3:16 pm, faster FindVariable ProcedureEnclosingModified by Stewart, March 4, 1983 8:55 am, multiple instances, new protocolModified by Stewart, April 25, 1983 11:11 am, separated LarkPrograms    œ  TeleDebOps.mesaLast Edited by: Stewart, April 25, 1983 11:10 amUtilititesBasic facilitiesglobal variablesfor convenience of TDXExported by TDXÊ*  ˜ Jšœ™Jšœ0™0J™ šÏk	˜	Jšœ˜J˜J˜J˜J˜	J˜ —Jšœœ˜J˜ JšœœÏc#˜3J˜ Jšœ
™
J˜ Jš
Ïnœœœœœ˜/J˜ Jšœœœœ˜J˜ JšŸœœœ	œœœ˜4J˜ Jšœ™J˜ JšŸœœœœ!˜XJ˜ šŸœœ9œ˜TJšœ˜J˜ —Jš
Ÿœœ9œ	œœ˜bJ˜ JšŸ
œœ/œœ˜QJ˜ JšŸœœ3œœ˜PJ˜ JšŸœœ3œœ˜TJ˜ JšŸœœ:œ˜OJ˜ JšŸ	œœ:œ˜SJ˜ JšŸœœ˜(J˜ JšŸ
œœ˜'J˜ Jšœœœ˜"J˜ Jšœœœ˜.šœœœ˜$Jšœœ˜Jšœœ
œ˜Jšœ
œ
œ˜Jšœœ
œ˜Jšœœ
œ˜J˜$J˜Jšœœœ˜J˜J˜J˜ —JšŸœœ;œœ˜WJ˜ JšŸœœ;œœ˜YJ˜ Jšœ™J˜ J˜$J˜ J˜%J˜ Jšœœ˜J˜ Jšœ™J˜ J˜J˜ JšŸœœ˜1J˜ Jšœ™J˜ š
Ÿœœ"œ	œ
œ˜WJšœœ˜J˜ —JšŸœœ"œ	œ˜KJ˜ ˜J˜0—J˜.JšœF˜HJ˜VJ˜LJ˜DJ˜ — …—    	„  J  