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

3
tracePascal.go
View File

@ -21,6 +21,7 @@ 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
@ -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
}