
<<TeleDebOps.mesa>>
<<Last Edited by: Stewart, April 25, 1983 11:10 am>>
<<>>
DIRECTORY
IO,
LarkPrograms USING [Program],
OrderedSymbolTableRef,
Rope,
TeleLoad;

TeleDebOps: DEFINITIONS = {

Failed: ERROR;  -- raised by communication failure.

<<Utilitites>>

Swab: PROC [a: CARDINAL] RETURNS [b: CARDINAL];

MCR: PROC [s: IO.STREAM];

GetHex: PROC [h: IO.Handle] RETURNS [LONG CARDINAL];

<<Basic facilities>>

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];

<<global variables>>

loadWindowLow: TeleLoad.CoreAddress;

loadWindowHigh: TeleLoad.CoreAddress;

locMaxByte: NAT;

<<for convenience of TDX>>

host: TeleDebOps.TeleDebugData;

SetHostByRef: PROC [h: TeleDebOps.TeleDebugData];

<<Exported by TDX>>

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