Apple-2-Tools
/
izapple2
mirror of https://github.com/ivanizag/izapple2.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix on the Apple Pascal traces

This commit is contained in:
Iván Izaguirre 2023-09-25 20:47:57 +02:00
parent 996772a023
commit 63e3e8b80b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tracePascal.go
View File

@ -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
}