Fix on the Apple Pascal traces
This commit is contained in:
parent
996772a023
commit
63e3e8b80b
|
@ -20,11 +20,12 @@ func newTracePascal(a *Apple2) *tracePascal {
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
See:
|
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.
|
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() {
|
func (t *tracePascal) inspect() {
|
||||||
bios := uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldL)) +
|
bios := uint16(t.a.mmu.physicalMainRAM.peek(pascalJvabfoldL)) +
|
||||||
|
@ -207,5 +208,5 @@ func (t *tracePascal) inspectPerArchitectureGuide() {
|
||||||
func (t *tracePascal) param(index uint8) uint16 {
|
func (t *tracePascal) param(index uint8) uint16 {
|
||||||
_, sp := t.a.cpu.GetPCAndSP()
|
_, sp := t.a.cpu.GetPCAndSP()
|
||||||
return uint16(t.a.mmu.Peek(0x100+uint16(sp+index))) +
|
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
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue