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