izapple2/tracePascal.go

package izapple2

import "fmt"

type tracePascal struct {
	a           *Apple2
	skipConsole bool
}

const (
	pascalJvabfoldL uint16 = 0x00ec // Points to the BIOS entry points
	pascalJvabfoldH uint16 = 0x00ed // Points to the BIOS entry points
)

func newTracePascal(a *Apple2) *tracePascal {
	var t tracePascal
	t.a = a
	t.skipConsole = true
	return &t
}

/*
  See:
  	https://archive.org/details/Hyde_P-Source-A_Guide_to_the_APPLE_Pascal_System_1983/page/n415/mode/1up?view=theater
  	https://archive.org/details/Apple_II_Pascal_1.2_Device_and_Interrupt_Support_Tools_Manual

	Experimental. Not sure the paramters for DREAD and DWRITE are correct.
*/
func (t *tracePascal) inspect() {
	bios := uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldL)) +
		uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldH))<<8
	pc, _ := t.a.cpu.GetPCAndSP()
	if pc >= bios && pc < bios+0x5a {
		offset := uint8(pc - bios)

		if t.skipConsole && offset <= 0x03 {
			return
		}

		_, regA := t.a.cpu.GetCarryAndAcc()
		regAText := string(regA)
		if regA < 0x20 {
			regAText = "^" + string(regA+0x40)

		}

		fmt.Printf("Pascal BIOS call $%02x from $%04x ", offset, t.param(1))
		switch offset {
		case 0:
			fmt.Printf("CREAD()")
		case 3:
			fmt.Printf("CWRITE('%s'[%v])", regAText, regA)
		case 6:
			fmt.Printf("CINIT(BREAK=[$%04x], SYSCOM=[$%04x])",
				t.param(3), t.param(5))
		case 9:
			fmt.Printf("PWRITE('%s'[%v])", regAText, regA)
		case 12:
			fmt.Printf("PINIT()")
		case 15:
			fmt.Printf("DWRITE(UNIT=%v, BLOCK=%v, LEN=%v, DATA=[$%04x], DRIVE=%v, CONTROL=$%04x)",
				regA, t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 18:
			fmt.Printf("DREAD(UNIT=%v, BLOCK=%v, LEN=%v, DATA=[$%04x], DRIVE=%v, CONTROL=$%04x)",
				regA, t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 21:
			fmt.Printf("DINIT(DRIVE=%v)", regA)
		case 24:
			fmt.Printf("RREAD()")
		case 27:
			fmt.Printf("RWRITE('%s'[%v])", regAText, regA)
		case 30:
			fmt.Printf("RINIT()")
		case 33:
			fmt.Printf("GWRITE()")
		case 36:
			fmt.Printf("GRINIT()")
		case 39:
			fmt.Printf("PREAD()")
		case 42:
			fmt.Printf("CSTAT()")
		case 45:
			fmt.Printf("PSTAT()")
		case 48:
			fmt.Printf("DSTAT()")
		case 51:
			fmt.Printf("RSTAT()")
		case 54:
			fmt.Printf("CONCK()")
		case 57:
			fmt.Printf("UDRWI()")
		case 60:
			fmt.Printf("PSUBDRV()")

		default:
			fmt.Printf("<unknown>")
		}
		fmt.Printf("\n")
	}
}

/*
 See http://www.bitsavers.org/pdf/softech/softechPascalIV_intArch1981.pdf
 page 106
*/
//lint:ignore U1000 unused but stays as reference
func (t *tracePascal) inspectPerArchitectureGuide() {
	bios := uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldL)) +
		uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldH))<<8
	pc, _ := t.a.cpu.GetPCAndSP()
	if pc >= bios && pc < bios+0x5a {
		offset := uint8(pc - bios)

		if t.skipConsole && offset <= 0x03 {
			return
		}

		_, regA := t.a.cpu.GetCarryAndAcc()
		regAText := string(regA)
		if regA < 0x20 {
			regAText = "^" + string(regA+0x40)

		}

		fmt.Printf("Pascal BIOS call $%02x from $%04x ", offset, t.param(1))
		switch offset {
		// Console
		case 0x00:
			fmt.Printf("CONSOLEREAD()")
		case 0x03:
			fmt.Printf("CONSOLEWRITE('%s'[%v])", regAText, regA)
		case 0x06:
			fmt.Printf("CONSOLECTRL(BREAK=[%04x], SYSCOM=[%04x])",
				t.param(3), t.param(5))
		case 0x09:
			fmt.Printf("CONSOLESTAT(STATREC=[%04x], CONTROL=%04x)",
				t.param(3), t.param(5))

		// Printer
		case 0x0c:
			fmt.Printf("PRINTERREAD()")
		case 0x0f:
			fmt.Printf("PRINTERWRITE('%s'[%v])", regAText, regA)
		case 0x12:
			fmt.Printf("PRINTERCTRL()")
		case 0x15:
			fmt.Printf("PRINTERSTAT(STATREC=[%04x], CONTROL=%04x)",
				t.param(3), t.param(5))

		// Disk
		case 0x18:
			fmt.Printf("DISKREAD(BLOCK=%04x, LEN=%04x, DATA=[%04x], DRIVE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x1b:
			fmt.Printf("DISKWRITE(BLOCK=%04x, LEN=%04x, DATA=[%04x], DRIVE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x1e:
			fmt.Printf("DISKCTRL(DRIVE=%v)", regA)
		case 0x21:
			fmt.Printf("DISKSTAT(DRIVE=%v, STATREC=[%04x], CONTROL=%04x)",
				regA, t.param(3), t.param(5))

		// Remote
		case 0x24:
			fmt.Printf("REMOTEREAD()")
		case 0x27:
			fmt.Printf("REMOTEWRITE('%s'[%v])", regAText, regA)
		case 0x2a:
			fmt.Printf("REMOTECTRL()")
		case 0x2d:
			fmt.Printf("REMOTESTAT(STATREC=[%04x], CONTROL=%04x)",
				t.param(3), t.param(5))

		// User
		case 0x30:
			fmt.Printf("USERREAD(BLOCK=%04x, LEN=%04x, DATA=[%04x], DEVICE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x33:
			fmt.Printf("USERWRITE(BLOCK=%04x, LEN=%04x, DATA=[%04x], DEVICE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x36:
			fmt.Printf("USERCTRL(DEVICE=%v)", regA)
		case 0x39:
			fmt.Printf("USERSTAT(DEVICE=%v, STATREC=[%04x], CONTROL=%04x)",
				regA, t.param(3), t.param(5))

		// Sys
		case 0x3c:
			fmt.Printf("SYSREAD(BLOCK=%04x, LEN=%04x, DATA=[%04x], DEVICE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x3f:
			fmt.Printf("SYSWRITE(BLOCK=%04x, LEN=%04x, DATA=[%04x], DEVICE=%v, CONTROL=%04x)",
				t.param(3), t.param(5), t.param(7), t.param(9), t.param(11))
		case 0x42:
			fmt.Printf("SYSCTRL(DEVICE=%v)", regA)
		case 0x43:
			fmt.Printf("SYSSTAT(DEVICE=%v, STATREC=[%04x], CONTROL=%04x)",
				regA, t.param(3), t.param(5))

		default:
			fmt.Printf("<unknown>")
		}
		fmt.Printf("\n")
	}
}

func (t *tracePascal) param(index uint8) uint16 {
	_, sp := t.a.cpu.GetPCAndSP()
	return uint16(t.a.mmu.Peek(0x100+uint16(sp+index))) +
		uint16(t.a.mmu.Peek(0x100+uint16(sp+index+1)))<<8 - 2 // ??
}