[Indigo]<Dragon>Diagnostics>DebuggerDefs.mesa!4

DebuggerDefs.mesa

Edward Fiala March 26, 1987 12:18:38 pm PST.

This interface has definitions for the storage locations of the table used by GenDebugger to save and restore the state of the Dragon IFU and EU. In addition, it has the withSoftCard BOOLEAN which controls assembly of code which cannot run on the Softcard.

DIRECTORY

DragOpsCross USING [bytesPerWord, EUAuxRegs, EUConstants, EUStackSize, IFUStackSize, Word];

DebuggerDefs: CEDAR DEFINITIONS = {

Word: TYPE = DragOpsCross.Word;

bytesPerWord: CARDINAL = DragOpsCross.bytesPerWord;

IFUStackSize: NAT = DragOpsCross.IFUStackSize;

EUStackSize: NAT = DragOpsCross.EUStackSize;

EUAuxRegs: NAT = DragOpsCross.EUAuxRegs;

EUConstants: NAT = DragOpsCross.EUConstants;

withSoftCard should be TRUE to debug with either the Softcard or Lizard; FALSE for more thorough testing outside the 1 megabyte area supported by the Softcard. When using the Softcard, high-order storage address bits are ignored, truncating references into a 1 megabyte area [4,000,000B..10,000,000B); also, the CST instruction is disallowed.

withSoftCard: BOOLEAN = TRUE;

massiveTesting should be TRUE to assemble sequences that execute very large instruction counts or loop; this switch should be FALSE for testing with LIZARD, TRUE for testing on the Softcard.

massiveTesting: BOOLEAN = TRUE;

For the Softcard, define word addresses [1,002,400B..1,004,000B) for debugger temporary storage (see definitions below), [1004000B..1006000B) for debugger program, and 1010000B for user's code.

debugBase: LONG CARDINAL = 1002400B;

Base address for debugger's code

debuggerBasePC: LONG CARDINAL = 1004000B * bytesPerWord;

Base address for user's code

userBasePC: LONG CARDINAL = 1010000B * bytesPerWord;

--debuggerLoopCount: CARDINAL = 0;

debuggerProceed: CARDINAL = 1; --0 when Dragon running, 1 at debugger's wait loop

debuggerOpcode: CARDINAL = 2; --Trap opcode causing debugger entry

debuggerAlphaBeta: CARDINAL = 3; --Alpha-Beta of halting opcode

debuggerS: CARDINAL = 4; --S at onset of halting opcode

debuggerFrame: CARDINAL = 5; --No. frames in use, including that created by entry Xop

debuggerCarry: CARDINAL = 6;

euRegBase + 126 holds [S] at the onset of the Halt; euRegBase + 125 holds [S-1]; etc.; the values in euRegBase + 127, euRegBase + 0, and euRegBase + 1 are smashed by the debugger before saving. Although euRegBase + 127 will be restored into [S+1], it is not saved. euRegBase + [128..160) hold the other EU registers.

euRegBase: CARDINAL = 7;

debuggerSLimit: CARDINAL = euRegBase + 160;

ifuRegBase + 2n holds ifuStatus & ifuRegBase + 2n + 1 holds PC for frame n, where n= 0 is the oldest frame, n = 1 second oldest, etc.

ifuRegBase: CARDINAL = debuggerSLimit + 1;