mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
998 B
30 lines
998 B
#IF AUDIOTRACE
|
|
#DEFINE AUDTRACE(STR) PUSH DE \ LD DE, STR \ CALL WRITESTR \ POP DE
|
|
#DEFINE AUDTRACE_A CALL PRTHEXBYTE
|
|
#DEFINE AUDTRACE_B PUSH AF \ LD A, B \ CALL PRTHEXBYTE \ POP AF
|
|
#DEFINE AUDTRACE_D PUSH AF \ LD A, D \ CALL PRTHEXBYTE \ POP AF
|
|
#DEFINE AUDTRACE_E PUSH AF \ LD A, E \ CALL PRTHEXBYTE \ POP AF
|
|
#DEFINE AUDTRACE_L PUSH AF \ LD A, L \ CALL PRTHEXBYTE \ POP AF
|
|
#DEFINE AUDTRACE_HL CALL PRTHEXWORDHL
|
|
#DEFINE AUDTRACE_DE PUSH DE \ PUSH DE \ POP HL \ CALL PRTHEXWORDHL \ POP DE
|
|
#DEFINE AUDTRACE_IY PUSH HL \ PUSH IY \ POP HL \ CALL PRTHEXWORDHL \ POP HL
|
|
|
|
#DEFINE AUDDEBUG(S) CALL PRTSTRD \ .TEXT S \ .TEXT "$" ; $$$$$$ PRINT STRING S TO CONSOLE - PRTD("HELLO") - NO TRAILING $ REQUIRED
|
|
|
|
#DEFINE AUDTRACE_CR AUDDEBUG("\r\n$")
|
|
|
|
#ELSE
|
|
#DEFINE AUDTRACE(S)
|
|
#DEFINE AUDTRACE_A
|
|
#DEFINE AUDTRACE_B
|
|
#DEFINE AUDTRACE_D
|
|
#DEFINE AUDTRACE_E
|
|
#DEFINE AUDTRACE_L
|
|
#DEFINE AUDTRACE_HL
|
|
#DEFINE AUDTRACE_DE
|
|
#DEFINE AUDTRACE_IY
|
|
|
|
#DEFINE AUDDEBUG(STR)
|
|
|
|
#DEFINE AUDTRACE_CR
|
|
#ENDIF
|
|
|