117 lines
2.8 KiB
Go
117 lines
2.8 KiB
Go
package izapple2
|
|
|
|
import (
|
|
"fmt"
|
|
)
|
|
|
|
/*
|
|
See:
|
|
https://github.com/davidgiven/cpm65
|
|
*/
|
|
|
|
type traceCpm65 struct {
|
|
a *Apple2
|
|
skipConsole bool
|
|
}
|
|
|
|
const (
|
|
cpm65BdosEntrypoint uint16 = 0x0804 // start-3, not really sure about this
|
|
)
|
|
|
|
func newTraceCpm65(skipConsole bool) *traceCpm65 {
|
|
var t traceCpm65
|
|
t.skipConsole = skipConsole
|
|
return &t
|
|
}
|
|
|
|
func (t *traceCpm65) connect(a *Apple2) {
|
|
t.a = a
|
|
}
|
|
|
|
func (t *traceCpm65) inspect() {
|
|
pc, _ := t.a.cpu.GetPCAndSP()
|
|
if pc == cpm65BdosEntrypoint {
|
|
regA, regX, regY, _ := t.a.cpu.GetAXYP()
|
|
param := uint16(regX)<<8 | uint16(regA)
|
|
switch regY {
|
|
case 2: // CONSOLE_OUTPUT
|
|
if !t.skipConsole {
|
|
fmt.Printf("CPM65 BDOS call $%02x:%s from $%04x with \"%c\"\n", regY, bdosCodeToName(regY), pc, regA)
|
|
}
|
|
case 9: // WRITE_STRING
|
|
if !t.skipConsole {
|
|
text := t.getCpmString(param)
|
|
fmt.Printf("CPM65 BDOS call $%02x:%s from $%04x with \"%s\"\n", regY, bdosCodeToName(regY), pc, text)
|
|
}
|
|
default:
|
|
fmt.Printf("CPM65 BDOS call $%02x:%s from $%04x\n", regY, bdosCodeToName(regY), pc)
|
|
}
|
|
}
|
|
}
|
|
|
|
var cpm65BdosNames = []string{
|
|
"EXIT_PROGRAM", // 0
|
|
"CONSOLE_INPUT", // 1
|
|
"CONSOLE_OUTPUT", // 2
|
|
"AUX_INPUT", // 3
|
|
"AUX_OUTPUT", // 4
|
|
"PRINTER_OUTPUT", // 5
|
|
"DIRECT_IO", // 6
|
|
"GET_IO_BYTE", // 7
|
|
"SET_IO_BYTE", // 8
|
|
"WRITE_STRING", // 9
|
|
"READ_LINE", // 10
|
|
"CONSOLE_STATUS", // 11
|
|
"GET_VERSION", // 12
|
|
"RESET_DISKS", // 13
|
|
"SELECT_DISK", // 14
|
|
"OPEN_FILE", // 15
|
|
"CLOSE_FILE", // 16
|
|
"FIND_FIRST", // 17
|
|
"FIND_NEXT", // 18
|
|
"DELETE_FILE", // 19
|
|
"READ_SEQUENTIAL", // 20
|
|
"WRITE_SEQUENTIAL", // 21
|
|
"CREATE_FILE", // 22
|
|
"RENAME_FILE", // 23
|
|
"GET_LOGIN_BITMAP", // 24
|
|
"GET_CURRENT_DRIVE", // 25
|
|
"SET_DMA_ADDRESS", // 26
|
|
"GET_ALLOCATION_BITMAP", // 27
|
|
"SET_DRIVE_READONLY", // 28
|
|
"GET_READONLY_BITMAP", // 29
|
|
"SET_FILE_ATTRIBUTES", // 30
|
|
"GET_DPB", // 31
|
|
"GET_SET_USER_NUMBER", // 32
|
|
"READ_RANDOM", // 33
|
|
"WRITE_RANDOM", // 34
|
|
"COMPUTE_FILE_SIZE", // 35
|
|
"COMPUTE_RANDOM_POINTER", // 36
|
|
"RESET_DISK", // 37
|
|
"GET_BIOS", // 38
|
|
"", // 39
|
|
"WRITE_RANDOM_FILLED", // 40
|
|
"GETZP", // 41
|
|
"GETTPA", // 42
|
|
}
|
|
|
|
func bdosCodeToName(code uint8) string {
|
|
if code < uint8(len(cpm65BdosNames)) {
|
|
return cpm65BdosNames[code]
|
|
}
|
|
return fmt.Sprintf("BDOS_%d", code)
|
|
}
|
|
|
|
func (t *traceCpm65) getCpmString(address uint16) string {
|
|
s := ""
|
|
for {
|
|
ch := t.a.mmu.Peek(address)
|
|
if ch == '$' {
|
|
break
|
|
}
|
|
s += string(ch)
|
|
address++
|
|
}
|
|
return s
|
|
}
|