2023-10-02 19:57:42 +00:00
|
|
|
; Emulator debug interface.
|
|
|
|
|
; Docs: https://github.com/X16Community/x16-emulator#debug-io-registers
|
|
|
|
|
|
|
|
|
|
emudbg {
|
|
|
|
|
|
|
|
|
|
const uword EMU_BASE = $9fb0
|
|
|
|
|
|
|
|
|
|
&ubyte EMU_DBG_HOTKEY_ENABLED = EMU_BASE + 0
|
|
|
|
|
&ubyte EMU_LOG_VIDEO = EMU_BASE + 1
|
|
|
|
|
&ubyte EMU_LOG_KEYBOARD = EMU_BASE + 2
|
|
|
|
|
&ubyte EMU_ECHO_MODE = EMU_BASE + 3
|
|
|
|
|
&ubyte EMU_SAVE_ON_EXIT = EMU_BASE + 4
|
|
|
|
|
&ubyte EMU_RECORD_GIF = EMU_BASE + 5
|
|
|
|
|
&ubyte EMU_RECORD_WAV = EMU_BASE + 6
|
|
|
|
|
&ubyte EMU_CMDKEYS_DISABLED = EMU_BASE + 7
|
|
|
|
|
&ubyte EMU_CPUCLK_L = EMU_BASE + 8 ; write: reset cpu clock to 0
|
|
|
|
|
&ubyte EMU_CPUCLK_M = EMU_BASE + 9 ; write: outputs "User debug 1: $xx"
|
|
|
|
|
&ubyte EMU_CPUCLK_H = EMU_BASE + 10 ; write: outputs "User debug 2: $xx"
|
|
|
|
|
&ubyte EMU_CPUCLK_U = EMU_BASE + 11 ; write: outputs as character to console
|
|
|
|
|
; 12 is unused for now
|
|
|
|
|
&ubyte EMU_KEYMAP = EMU_BASE + 13
|
|
|
|
|
&ubyte EMU_EMU_DETECT1 = EMU_BASE + 14
|
|
|
|
|
&ubyte EMU_EMU_DETECT2 = EMU_BASE + 15
|
|
|
|
|
|
|
|
|
|
sub is_emulator() -> bool {
|
2023-10-12 20:29:01 +00:00
|
|
|
; Test for emulator presence.
|
|
|
|
|
; It is recommended to only use the other debug routines if this returns true.
|
2023-10-02 19:57:42 +00:00
|
|
|
return EMU_EMU_DETECT1=='1' and EMU_EMU_DETECT2=='6'
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
asmsub console_write(str isoString @R0) clobbers(Y) {
|
|
|
|
|
%asm {{
|
|
|
|
|
ldy #0
|
|
|
|
|
- lda (cx16.r0),y
|
|
|
|
|
beq +
|
|
|
|
|
sta p8_EMU_CPUCLK_U
|
|
|
|
|
iny
|
|
|
|
|
bne -
|
|
|
|
|
+
|
|
|
|
|
}}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
asmsub console_chrout(ubyte char @A) {
|
|
|
|
|
%asm {{
|
|
|
|
|
sta p8_EMU_CPUCLK_U
|
|
|
|
|
}}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
asmsub console_value1(ubyte value @A) {
|
|
|
|
|
%asm {{
|
|
|
|
|
sta p8_EMU_CPUCLK_M
|
|
|
|
|
}}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
asmsub console_value2(ubyte value @A) {
|
|
|
|
|
%asm {{
|
|
|
|
|
sta p8_EMU_CPUCLK_H
|
|
|
|
|
}}
|
|
|
|
|
}
|
|
|
|
|
}
|
