From 63e3e8b80b74309c8eab5299473d0918d14c8c5f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Iv=C3=A1n=20Izaguirre?= Date: Mon, 25 Sep 2023 20:47:57 +0200 Subject: [PATCH] Fix on the Apple Pascal traces --- tracePascal.go | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/tracePascal.go b/tracePascal.go index 0a4b2e1..5879560 100644 --- a/tracePascal.go +++ b/tracePascal.go @@ -20,11 +20,12 @@ func newTracePascal(a *Apple2) *tracePascal { } /* - 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 +See: - Experimental. Not sure the paramters for DREAD and DWRITE are correct. + 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)) + @@ -207,5 +208,5 @@ func (t *tracePascal) inspectPerArchitectureGuide() { 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 // ?? + uint16(t.a.mmu.Peek(0x100+uint16(sp+index+1)))<<8 }