alex/xmplayer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
ee64fb85a9e43519de84a4b2387c646dc416354d
xmplayer/obj/out.asm
T
alexandClaude Sonnet 5 ee64fb85a9 Fix esp32 detection, add colored caption, live stats, single-loop playback 
- Fix state_esp init bug: crt0.s never runs GSINIT and hex2bin fills
  unbacked memory with 0xFF (not 0), so a plain zero-init global always
  read 0xFF on load; give it a real 0xFF sentinel initializer instead.
- Vendor demyanenko-d/VGMPLAY.WMF's wc_api library (SDCC 4.6.0 +
  --sdcccall 1) instead of hand-rolled PRSRW/PRIAT wrappers, which
  corrupted esp32 file loading in three different shapes; colored "File:"
  caption now works.
- Trim shared-file footprint: vendor only the esp32.c functions actually
  used, drop unused sdklib.h/sdk.lib linkage.
- Re-enable periodic live stats (Pattern/Row/BPM/Time/progress bar).
- Limit playback to one loop via TRACK_SET_PARAMS/MAX_LOOP_COUNT, and
  auto-advance to the next file when a track finishes on its own
  (detected via a PLAYING->STOPPED ESP_REG_TRACK_STATUS transition).
- Pin the Z80 clock to 14MHz for the whole plugin lifetime so esp32 SPI
  wait-loop timeouts (raw iteration counts, not real time) don't depend
  on whatever turbo setting was active before the plugin started.
- Pad TRACK_INIT's timeout well past the firmware's 5s song-length
  measurement cap (XM_MEASURE_MAX_US).

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
2026-08-30 21:40:24 +03:00

2019 lines
40 KiB
NASM
Raw Blame History

;--------------------------------------------------------
; File Created by SDCC : free open source ISO C Compiler
; Version 4.6.0 #16555 (MINGW64)
;--------------------------------------------------------
.module main
.optsdcc -mz80 sdcccall(1)
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
.globl _main
.globl _main_start
.globl _xm_update_info
.globl _draw_progress_bar
.globl _xm_draw_stats_labels
.globl _put_time
.globl _put_dec3
.globl _put_hex2
.globl _xm_draw_static_labels
.globl _copy_file_name
.globl _error_playback
.globl _error_oom
.globl _error_esp
.globl _about
.globl _wait_frames
.globl _wait_esc_key
.globl _play_xm
.globl _esp_init
.globl _esp_create_obj
.globl _esp_wait_status
.globl _esp_rd_end
.globl _esp_send_dma
.globl _esp_wr_end
.globl _esp_wr_reg32
.globl _esp_wr_reg8
.globl _esp_rd_regs
.globl _esp_rd_reg32
.globl _esp_rd_reg8
.globl _esp_cmd
.globl _wc_set_freq_14mhz
.globl _wc_exit
.globl _wc_prsrw_attr
.globl _wc_prsrw
.globl _wc_key_pgdn
.globl _wc_key_pgup
.globl _wc_key_esc
.globl _wc_load512
.globl _wc_rresb
.globl _wc_prwow
.globl _strlen
.globl _state_esp
.globl _last_track_status
.globl _xm_handle
.globl _total_samples
.globl _file_name
.globl _p_file_name
.globl _last_esp_status
.globl _call_type
.globl _file_ext
.globl _filesize
.globl _ret_sp
.globl _fs_buf
.globl _win_about
.globl _win_xm
.globl _err_playback
.globl _err_out_of_mem
.globl _err_no_esp
.globl _esp_wait_busy
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
_SPI_DATA = 0x0057
_SPI_CTRL = 0x0077
_BORDER = 0x00fe
_TS_VCONFIG = 0x00af
_TS_STATUS = 0x00af
_TS_VPAGE = 0x01af
_TS_GXOFFSL = 0x02af
_TS_GXOFFSH = 0x03af
_TS_GYOFFSL = 0x04af
_TS_GYOFFSH = 0x05af
_TS_TSCONFIG = 0x06af
_TS_PALSEL = 0x07af
_TS_BORDER = 0x0faf
_TS_PAGE0 = 0x10af
_TS_PAGE1 = 0x11af
_TS_PAGE2 = 0x12af
_TS_PAGE3 = 0x13af
_TS_FMADDR = 0x15af
_TS_TMPAGE = 0x16af
_TS_T0GPAGE = 0x17af
_TS_T1GPAGE = 0x18af
_TS_SGPAGE = 0x19af
_TS_DMASADDRL = 0x1aaf
_TS_DMASADDRH = 0x1baf
_TS_DMASADDRX = 0x1caf
_TS_DMADADDRL = 0x1daf
_TS_DMADADDRH = 0x1eaf
_TS_DMADADDRX = 0x1faf
_TS_SYSCONFIG = 0x20af
_TS_MEMCONFIG = 0x21af
_TS_HSINT = 0x22af
_TS_VSINTL = 0x23af
_TS_VSINTH = 0x24af
_TS_DMAWPD = 0x25af
_TS_DMALEN = 0x26af
_TS_DMACTR = 0x27af
_TS_DMASTATUS = 0x27af
_TS_DMANUM = 0x28af
_TS_FDDVIRT = 0x29af
_TS_INTMASK = 0x2aaf
_TS_CACHECONF = 0x2baf
_TS_DMANUMH = 0x2caf
_TS_DMAWPA = 0x2daf
_TS_T0XOFFSL = 0x40af
_TS_T0XOFFSH = 0x41af
_TS_T0YOFFSL = 0x42af
_TS_T0YOFFSH = 0x43af
_TS_T1XOFFSL = 0x44af
_TS_T1XOFFSH = 0x45af
_TS_T1YOFFSL = 0x46af
_TS_T1YOFFSH = 0x47af
;--------------------------------------------------------
; ram data
;--------------------------------------------------------
.area _DATA
_fs_buf::
.ds 4096
_ret_sp::
.ds 2
_filesize::
.ds 4
_file_ext::
.ds 1
_call_type::
.ds 1
_last_esp_status::
.ds 1
_p_file_name::
.ds 2
_file_name::
.ds 33
_total_samples::
.ds 4
_xm_handle::
.ds 1
_last_track_status::
.ds 1
_hexbuf:
.ds 2
_decbuf:
.ds 3
_timebuf:
.ds 5
_barbuf:
.ds 34
;--------------------------------------------------------
; ram data
;--------------------------------------------------------
.area _INITIALIZED
_state_esp::
.ds 1
;--------------------------------------------------------
; absolute ram data
;--------------------------------------------------------
.area _DABS (ABS)
.area _DABS (ABS)
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
.area _HOME
.area _GSINIT
.area _GSFINAL
.area _GSINIT
;--------------------------------------------------------
; Home
;--------------------------------------------------------
.area _HOME
.area _HOME
;--------------------------------------------------------
; code
;--------------------------------------------------------
.area _CODE
;src/wc_api.c:34: void wc_exit(u8 rc) __naked
; ---------------------------------
; Function wc_exit
; ---------------------------------
_wc_exit::
;src/wc_api.c:40: __endasm;
ld sp, (_ret_sp)
ret
;src/wc_api.c:41: }
;src/wc_api.c:55: void wc_set_freq_14mhz() __naked
; ---------------------------------
; Function wc_set_freq_14mhz
; ---------------------------------
_wc_set_freq_14mhz::
;src/wc_api.c:62: __endasm;
ld b, #0x00 ; type: Z80 frequency
ld c, #0x02 ; %10 = 14 MHz
ld a, #0x0E
jp 0x6006
;src/wc_api.c:63: }
;src/esp32.c:18: void esp_cmd(u8 cmd)
; ---------------------------------
; Function esp_cmd
; ---------------------------------
_esp_cmd::
ld c, a
;src/esp32.c:20: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:21: SPI_DATA = ESP_SPI_CMD_WR_REGS;
ld a, #0x01
out (_SPI_DATA), a
;src/esp32.c:22: SPI_DATA = ESP_REG_COMMAND;
xor a, a
out (_SPI_DATA), a
;src/esp32.c:23: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:24: SPI_DATA = cmd; // Command
ld a, c
out (_SPI_DATA), a
;src/esp32.c:25: SPI_DATA = ESP_ST_IDLE; // Reset status
xor a, a
out (_SPI_DATA), a
;src/esp32.c:26: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:27: }
ret
;src/esp32.c:29: u8 esp_rd_reg8(u8 reg)
; ---------------------------------
; Function esp_rd_reg8
; ---------------------------------
_esp_rd_reg8::
ld c, a
;src/esp32.c:31: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:32: SPI_DATA = ESP_SPI_CMD_RD_REGS;
ld a, #0x02
out (_SPI_DATA), a
;src/esp32.c:33: SPI_DATA = reg;
ld a, c
out (_SPI_DATA), a
;src/esp32.c:34: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:35: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:36: u8 rc = SPI_DATA;
in a, (_SPI_DATA)
ld c, a
;src/esp32.c:37: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:39: return rc;
ld a, c
;src/esp32.c:40: }
ret
;src/esp32.c:42: u32 esp_rd_reg32(u8 reg)
; ---------------------------------
; Function esp_rd_reg32
; ---------------------------------
_esp_rd_reg32::
push ix
ld ix, #0
add ix, sp
push af
push af
ld c, a
;src/esp32.c:44: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:45: SPI_DATA = ESP_SPI_CMD_RD_REGS;
ld a, #0x02
out (_SPI_DATA), a
;src/esp32.c:46: SPI_DATA = reg;
ld a, c
out (_SPI_DATA), a
;src/esp32.c:47: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:48: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:49: u32 rc = SPI_DATA;
in a, (_SPI_DATA)
ld c, a
;src/esp32.c:50: rc |= (u32)SPI_DATA << 8;
in a, (_SPI_DATA)
ld d, a
ld e, c
;src/esp32.c:51: rc |= (u32)SPI_DATA << 16;
in a, (_SPI_DATA)
ld -4 (ix), a
xor a, a
ld -3 (ix), a
ld -2 (ix), a
ld -1 (ix), a
ld a, -4 (ix)
ld -2 (ix), a
xor a, a
ld -1 (ix), a
ld -4 (ix), a
ld -3 (ix), a
ld l, -2 (ix)
;src/esp32.c:52: rc |= (u32)SPI_DATA << 24;
in a, (_SPI_DATA)
ld -4 (ix), a
xor a, a
ld -3 (ix), a
ld -2 (ix), a
ld -1 (ix), a
ld a, -4 (ix)
ld -1 (ix), a
xor a, a
ld -4 (ix), a
ld -3 (ix), a
ld -2 (ix), a
ld h, -1 (ix)
;src/esp32.c:53: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:55: return rc;
;src/esp32.c:56: }
ld sp, ix
pop ix
ret
;src/esp32.c:58: void esp_rd_regs(u8 reg, void *data, u8 size)
; ---------------------------------
; Function esp_rd_regs
; ---------------------------------
_esp_rd_regs::
ld c, a
;src/esp32.c:60: u8 *d = (u8*)data;
;src/esp32.c:62: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:63: SPI_DATA = ESP_SPI_CMD_RD_REGS;
ld a, #0x02
out (_SPI_DATA), a
;src/esp32.c:64: SPI_DATA = reg;
ld a, c
out (_SPI_DATA), a
;src/esp32.c:65: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:66: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:67: while (size--) *d++ = SPI_DATA;
ld iy, #2
add iy, sp
ld c, 0 (iy)
00101$:
ld a, c
dec c
or a, a
jr z, 00103$
in a, (_SPI_DATA)
ld (de), a
inc de
jp 00101$
00103$:
;src/esp32.c:68: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:69: }
pop hl
inc sp
jp (hl)
;src/esp32.c:71: void esp_wr_reg8(u8 reg, u8 data)
; ---------------------------------
; Function esp_wr_reg8
; ---------------------------------
_esp_wr_reg8::
ld b, a
ld c, l
;src/esp32.c:73: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:74: SPI_DATA = ESP_SPI_CMD_WR_REGS;
ld a, #0x01
out (_SPI_DATA), a
;src/esp32.c:75: SPI_DATA = reg;
ld a, b
out (_SPI_DATA), a
;src/esp32.c:76: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:77: SPI_DATA = data;
ld a, c
out (_SPI_DATA), a
;src/esp32.c:78: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:79: }
ret
;src/esp32.c:81: void esp_wr_reg32(u8 reg, u32 data)
; ---------------------------------
; Function esp_wr_reg32
; ---------------------------------
_esp_wr_reg32::
ld c, a
;src/esp32.c:83: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:84: SPI_DATA = ESP_SPI_CMD_WR_REGS;
ld a, #0x01
out (_SPI_DATA), a
;src/esp32.c:85: SPI_DATA = reg;
ld a, c
out (_SPI_DATA), a
;src/esp32.c:86: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:87: SPI_DATA = (u8)data;
ld iy, #2
add iy, sp
ld a, 0 (iy)
out (_SPI_DATA), a
;src/esp32.c:88: SPI_DATA = (u8)(data >> 8);
ld a, 1 (iy)
out (_SPI_DATA), a
;src/esp32.c:89: SPI_DATA = (u8)(data >> 16);
ld a, 2 (iy)
out (_SPI_DATA), a
;src/esp32.c:90: SPI_DATA = (u8)(data >> 24);
ld a, 3 (iy)
out (_SPI_DATA), a
;src/esp32.c:91: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:92: }
pop hl
pop af
pop af
jp (hl)
;src/esp32.c:94: void esp_wr_end()
; ---------------------------------
; Function esp_wr_end
; ---------------------------------
_esp_wr_end::
;src/esp32.c:96: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:97: SPI_DATA = ESP_SPI_CMD_W_END;
ld a, #0x07
out (_SPI_DATA), a
;src/esp32.c:98: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:99: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:100: }
ret
;src/esp32.c:102: void esp_send_dma(u16 a, u8 p, u16 l, u16 n)
; ---------------------------------
; Function esp_send_dma
; ---------------------------------
_esp_send_dma::
ld a, l
;src/esp32.c:105: TS_DMASADDRL = (u8)a;
ld bc, #_TS_DMASADDRL
out (c), a
;src/esp32.c:106: TS_DMASADDRH = (u8)((u16)a >> 8);
ld a, h
ld bc, #_TS_DMASADDRH
out (c), a
;src/esp32.c:107: TS_DMASADDRX = p;
ld iy, #2
add iy, sp
ld a, 0 (iy)
ld bc, #_TS_DMASADDRX
out (c), a
;src/esp32.c:108: TS_DMALEN = (u8)((l >> 1) - 1);
ld a, 1 (iy)
ld c, 2 (iy)
inc iy
srl c
rr a
dec a
ld bc, #_TS_DMALEN
out (c), a
;src/esp32.c:109: TS_DMANUM = (u8)(n - 1);
ld a, 2 (iy)
dec a
ld bc, #_TS_DMANUM
out (c), a
;src/esp32.c:111: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:112: SPI_DATA = ESP_SPI_CMD_WR_DATA;
ld a, #0x03
out (_SPI_DATA), a
;src/esp32.c:113: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:114: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:115: TS_DMACTR = TS_DMA_RAM_SPI;
ld a, #0x82
ld bc, #_TS_DMACTR
out (c), a
;src/esp32.c:116: while (TS_DMASTATUS & 0x80);
00101$:
ld a, #>(_TS_DMASTATUS)
in a, (#<(_TS_DMASTATUS))
rlca
jr c, 00101$
;src/esp32.c:117: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:119: esp_wr_end();
call _esp_wr_end
;src/esp32.c:120: esp_wait_busy(60000);
ld de, #0xea60
ld hl, #0x0000
call _esp_wait_busy
;src/esp32.c:121: }
pop hl
pop af
pop af
inc sp
jp (hl)
;src/esp32.c:123: void esp_rd_end()
; ---------------------------------
; Function esp_rd_end
; ---------------------------------
_esp_rd_end::
;src/esp32.c:125: SPI_CTRL = SPI_ESP_CS_ON;
ld a, #0x13
out (_SPI_CTRL), a
;src/esp32.c:126: SPI_DATA = ESP_SPI_CMD_R_END;
ld a, #0x08
out (_SPI_DATA), a
;src/esp32.c:127: SPI_DATA; // dummy
in a, (_SPI_DATA)
;src/esp32.c:128: SPI_CTRL = SPI_ESP_CS_OFF;
ld a, #0x03
out (_SPI_CTRL), a
;src/esp32.c:129: }
ret
;src/esp32.c:131: u32 esp_wait_status(u8 status, u32 timeout)
; ---------------------------------
; Function esp_wait_status
; ---------------------------------
_esp_wait_status::
push ix
ld ix, #0
add ix, sp
ld c, a
;src/esp32.c:133: while (--timeout) if (esp_rd_reg8(ESP_REG_STATUS) == status) break;
ld e, 4 (ix)
ld d, 5 (ix)
ld l, 6 (ix)
ld h, 7 (ix)
00103$:
ld a, e
add a, #0xff
ld e, a
ld a, d
adc a, #0xff
ld d, a
ld a, l
adc a, #0xff
ld l, a
ld a, h
adc a, #0xff
ld h, a
or a, l
or a, d
or a, e
jr z, 00105$
push hl
push bc
push de
ld a, #0x01
call _esp_rd_reg8
pop de
pop bc
pop hl
sub a, c
jr nz, 00103$
00105$:
;src/esp32.c:135: return timeout;
;src/esp32.c:136: }
pop ix
ret
;src/esp32.c:138: u32 esp_wait_busy(u32 timeout)
; ---------------------------------
; Function esp_wait_busy
; ---------------------------------
_esp_wait_busy::
;src/esp32.c:140: while (--timeout) if (esp_rd_reg8(ESP_REG_STATUS) != ESP_ST_BUSY) break;
00103$:
ld a, e
add a, #0xff
ld e, a
ld a, d
adc a, #0xff
ld d, a
ld a, l
adc a, #0xff
ld l, a
ld a, h
adc a, #0xff
ld h, a
or a, l
or a, d
or a, e
ret z
push hl
push de
ld a, #0x01
call _esp_rd_reg8
pop de
pop hl
cp a, #0x02
jr z, 00103$
;src/esp32.c:142: return timeout;
;src/esp32.c:143: }
ret
;src/esp32.c:145: int esp_create_obj(u32 size, u8 type)
; ---------------------------------
; Function esp_create_obj
; ---------------------------------
_esp_create_obj::
;src/esp32.c:147: esp_wr_reg32(ESP_REG_DATA_SIZE, size);
push hl
push de
ld a, #0x03
call _esp_wr_reg32
;src/esp32.c:148: esp_wr_reg8(ESP_REG_OBJ_TYPE, type);
ld iy, #2
add iy, sp
ld l, 0 (iy)
ld a, #0x02
call _esp_wr_reg8
;src/esp32.c:149: esp_cmd(ESP_CMD_MAKE_OBJECT);
ld a, #0xe0
call _esp_cmd
;src/esp32.c:150: esp_wait_busy(20000);
ld de, #0x4e20
ld hl, #0x0000
call _esp_wait_busy
;src/esp32.c:153: return esp_rd_reg8(ESP_REG_OBJ_HANDLE);
ld a, #0x0b
call _esp_rd_reg8
ld e, a
ld d, #0x00
;src/esp32.c:154: }
pop hl
inc sp
jp (hl)
;src/main.c:143: bool esp_init()
; ---------------------------------
; Function esp_init
; ---------------------------------
_esp_init::
;src/main.c:145: esp_cmd(ESP_CMD_NOP);
xor a, a
call _esp_cmd
;src/main.c:146: esp_rd_end();
call _esp_rd_end
;src/main.c:147: esp_wr_end();
call _esp_wr_end
;src/main.c:151: return true;
ld a, #0x01
;src/main.c:152: }
ret
_err_no_esp:
.db #0x01 ; 1
.db #0x00 ; 0
.db #0x18 ; 24
.db #0x0a ; 10
.db #0x20 ; 32
.db #0x05 ; 5
.db #0x2f ; 47
.db #0x00 ; 0
.dw #0x0000
.db #0x00 ; 0
.db #0x00 ; 0
.dw __str_0
.dw __str_1
.dw __str_2
_err_out_of_mem:
.db #0x01 ; 1
.db #0x00 ; 0
.db #0xff ; 255
.db #0xff ; 255
.db #0x20 ; 32
.db #0x05 ; 5
.db #0x2f ; 47
.db #0x00 ; 0
.dw #0x0000
.db #0x00 ; 0
.db #0x00 ; 0
.dw __str_0
.dw __str_1
.dw __str_3
_err_playback:
.db #0x01 ; 1
.db #0x00 ; 0
.db #0xff ; 255
.db #0xff ; 255
.db #0x20 ; 32
.db #0x05 ; 5
.db #0x2f ; 47
.db #0x00 ; 0
.dw #0x0000
.db #0x00 ; 0
.db #0x00 ; 0
.dw __str_0
.dw __str_1
.dw __str_4
_win_xm:
.db #0x81 ; 129
.db #0x00 ; 0
.db #0x19 ; 25
.db #0x0a ; 10
.db #0x28 ; 40
.db #0x0b ; 11
.db #0x4f ; 79 'O'
.db #0x00 ; 0
.dw #0x0000
.db #0x00 ; 0
.db #0x00 ; 0
.dw __str_5
.dw __str_1
.dw __str_6
_win_about:
.db #0x01 ; 1
.db #0x00 ; 0
.db #0x16 ; 22
.db #0x0a ; 10
.db #0x24 ; 36
.db #0x05 ; 5
.db #0x4f ; 79 'O'
.db #0x00 ; 0
.dw #0x0000
.db #0x00 ; 0
.db #0x00 ; 0
.dw __str_7
.dw __str_1
.dw __str_8
__str_0:
.db 0x0e
.ascii " Error! "
.db 0x00
__str_1:
.db 0x00
__str_2:
.db 0x0e
.db 0x0c
.db 0x01
.ascii "No ESP32 detected!"
.db 0x00
__str_3:
.db 0x0e
.db 0x0c
.db 0x01
.ascii "Out of memory (file too big)"
.db 0x00
__str_4:
.db 0x0e
.db 0x0c
.db 0x01
.ascii "Playback error (bad file?)"
.db 0x00
__str_5:
.db 0x0e
.ascii " XM/XMZ/S3M Player "
.db 0x00
__str_6:
.db 0x0e
.db 0x0c
.db 0x01
.ascii "Playing..."
.db 0x00
__str_7:
.db 0x0e
.ascii " About "
.db 0x00
__str_8:
.db 0x0e
.db 0x0c
.db 0x01
.ascii "XM Player v1.0"
.db 0x00
;src/main.c:156: bool play_xm()
; ---------------------------------
; Function play_xm
; ---------------------------------
_play_xm::
push ix
ld ix, #0
add ix, sp
ld hl, #-20
add hl, sp
ld sp, hl
;src/main.c:158: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:159: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:160: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:161: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:164: switch (file_ext)
ld a, (_file_ext)
dec a
jr z, 00101$
ld a, (_file_ext)
sub a, #0x02
jr z, 00102$
jp 00103$
;src/main.c:166: case EXT_XMZ: obj_type = OBJ_TYPE_ZIP; break;
00101$:
ld a, #0x08
jp 00104$
;src/main.c:167: case EXT_S3M: obj_type = OBJ_TYPE_S3M; break;
00102$:
ld a, #0x0c
jp 00104$
;src/main.c:168: default: obj_type = OBJ_TYPE_XM; break;
00103$:
ld a, #0x05
;src/main.c:169: }
00104$:
;src/main.c:171: xm_handle = esp_create_obj(filesize, obj_type);
push af
inc sp
ld de, (_filesize)
ld hl, (_filesize + 2)
call _esp_create_obj
ld hl, #_xm_handle
ld (hl), e
;src/main.c:172: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:173: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00106$
;src/main.c:174: return false;
xor a, a
jp 00116$
00106$:
;src/main.c:176: u32 sz = filesize;
ld hl, #12
add hl, sp
ex de, hl
ld hl, #_filesize
ld bc, #4
ldir
;src/main.c:177: u32 offs = 0;
xor a, a
ld -4 (ix), a
ld -3 (ix), a
ld -2 (ix), a
ld -1 (ix), a
;src/main.c:179: while (sz)
00107$:
ld a, -5 (ix)
or a, -6 (ix)
or a, -7 (ix)
or a, -8 (ix)
jp z, 00109$
;src/main.c:181: u32 s = min(sz, FS_BUF_SIZE);
ld a, -7 (ix)
sub a, #0x10
ld a, -6 (ix)
sbc a, #0x00
ld a, -5 (ix)
sbc a, #0x00
jr nc, 00118$
ld hl, #0
add hl, sp
ex de, hl
ld hl, #12
add hl, sp
ld bc, #4
ldir
jp 00119$
00118$:
ld -20 (ix), #0x00
ld -19 (ix), #0x10
xor a, a
ld -18 (ix), a
ld -17 (ix), a
00119$:
ld hl, #5
add hl, sp
ex de, hl
ld hl, #0
add hl, sp
ld bc, #4
ldir
;src/main.c:182: u8 sec = (s + 511) >> 9;
ld a, -15 (ix)
add a, #0xff
ld a, -14 (ix)
adc a, #0x01
ld b, a
ld a, #0x00
adc a, #0x00
ld e, a
ld a, #0x00
adc a, #0x00
ld d, a
ld c, b
ld b, e
ld e, d
srl e
rr b
rr c
;src/main.c:184: wc_load512((u16)fs_buf, sec);
ld -9 (ix), c
ld a, c
push af
inc sp
ld hl, #_fs_buf
call _wc_load512
;src/main.c:186: esp_wr_reg32(ESP_REG_DATA_SIZE, s);
ld hl, #0x0
push hl
ld l, -15 (ix)
ld h, -14 (ix)
push hl
ld a, #0x03
call _esp_wr_reg32
;src/main.c:187: esp_wr_reg32(ESP_REG_DATA_OFFSET, offs);
ld l, -2 (ix)
ld h, -1 (ix)
push hl
ld l, -4 (ix)
ld h, -3 (ix)
push hl
ld a, #0x07
call _esp_wr_reg32
;src/main.c:188: esp_cmd(ESP_CMD_WRITE_OBJECT);
ld a, #0xe1
call _esp_cmd
;src/main.c:189: esp_wait_status(ESP_ST_DATA_M2S, 2000);
ld hl, #0x0000
push hl
ld hl, #0x07d0
push hl
ld a, #0x03
call _esp_wait_status
pop af
pop af
;src/main.c:190: esp_send_dma((u16)fs_buf, *(u8*)_PAGE2, 512, sec);
ld a, -9 (ix)
ld -11 (ix), a
ld -10 (ix), #0x00
ld a, (#0x6002)
ld -9 (ix), a
ld l, -11 (ix)
ld h, #0x00
push hl
ld hl, #0x0200
push hl
ld a, -9 (ix)
push af
inc sp
ld hl, #_fs_buf
call _esp_send_dma
;src/main.c:192: offs += s;
ld e, -15 (ix)
ld d, -14 (ix)
ld l, -4 (ix)
ld h, -3 (ix)
add hl, de
ld -4 (ix), l
ld -3 (ix), h
ld a, -2 (ix)
adc a, -13 (ix)
ld -2 (ix), a
jr nc, 00197$
inc -1 (ix)
00197$:
;src/main.c:193: sz -= s;
ld a, -8 (ix)
sub a, -15 (ix)
ld -8 (ix), a
ld a, -7 (ix)
sbc a, -14 (ix)
ld -7 (ix), a
ld a, -6 (ix)
sbc a, -13 (ix)
ld -6 (ix), a
ld a, -5 (ix)
sbc a, -12 (ix)
ld -5 (ix), a
jp 00107$
00109$:
;src/main.c:196: if (file_ext == EXT_XMZ)
ld a, (_file_ext)
dec a
jr nz, 00113$
;src/main.c:201: esp_wr_reg8(ESP_REG_OBJ_HANDLE, xm_handle);
ld a, (_xm_handle)
ld l, a
ld a, #0x0b
call _esp_wr_reg8
;src/main.c:202: esp_wr_reg8(ESP_REG_OBJ_TYPE, OBJ_TYPE_XM);
ld l, #0x05
ld a, #0x02
call _esp_wr_reg8
;src/main.c:203: esp_wr_reg32(ESP_REG_DATA_SIZE, filesize);
ld hl, (_filesize + 2)
push hl
ld hl, (_filesize)
push hl
ld a, #0x03
call _esp_wr_reg32
;src/main.c:204: esp_cmd(ESP_CMD_UNZIP);
ld a, #0xf2
call _esp_cmd
;src/main.c:205: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:207: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:208: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00113$
;src/main.c:209: return false;
xor a, a
jp 00116$
00113$:
;src/main.c:212: esp_cmd(ESP_CMD_TRACK_INIT);
ld a, #0xa0
call _esp_cmd
;src/main.c:220: esp_wait_busy(1000000);
ld de, #0x4240
ld hl, #0x000f
call _esp_wait_busy
;src/main.c:222: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:223: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00115$
;src/main.c:224: return false;
xor a, a
jp 00116$
00115$:
;src/main.c:229: esp_wr_reg8(ESP_REG_OBJ_HANDLE, xm_handle);
ld a, (_xm_handle)
ld l, a
ld a, #0x0b
call _esp_wr_reg8
;src/main.c:230: esp_wr_reg8(ESP_REG_TRACK_MAX_LOOP_COUNT, 1);
ld l, #0x01
ld a, #0x3a
call _esp_wr_reg8
;src/main.c:231: esp_cmd(ESP_CMD_TRACK_SET_PARAMS);
ld a, #0xa6
call _esp_cmd
;src/main.c:232: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:234: esp_cmd(ESP_CMD_TRACK_PLAY);
ld a, #0xa1
call _esp_cmd
;src/main.c:235: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:237: return true;
ld a, #0x01
00116$:
;src/main.c:238: }
ld sp, ix
pop ix
ret
;src/main.c:241: void wait_esc_key()
; ---------------------------------
; Function wait_esc_key
; ---------------------------------
_wait_esc_key::
;src/main.c:243: while (1)
00104$:
;src/main.c:247: __endasm;
halt
;src/main.c:249: if (wc_key_esc())
call _wc_key_esc
or a, a
jr z, 00104$
;src/main.c:250: break;
;src/main.c:252: }
ret
;src/main.c:254: void wait_frames(u8 n)
; ---------------------------------
; Function wait_frames
; ---------------------------------
_wait_frames::
ld c, a
;src/main.c:256: while (n--)
00101$:
ld a, c
dec c
or a, a
ret z
;src/main.c:260: __endasm;
halt
;src/main.c:262: }
jp 00101$
;src/main.c:264: void about()
; ---------------------------------
; Function about
; ---------------------------------
_about::
;src/main.c:266: wc_prwow(&win_about);
ld hl, #_win_about
call _wc_prwow
;src/main.c:267: wait_esc_key();
call _wait_esc_key
;src/main.c:268: wc_rresb(&win_about);
ld hl, #_win_about
call _wc_rresb
;src/main.c:269: wc_exit(WC_EXIT);
xor a, a
;src/main.c:270: }
jp _wc_exit
;src/main.c:272: void error_esp()
; ---------------------------------
; Function error_esp
; ---------------------------------
_error_esp::
;src/main.c:274: wc_prwow(&err_no_esp);
ld hl, #_err_no_esp
call _wc_prwow
;src/main.c:275: wait_esc_key();
call _wait_esc_key
;src/main.c:276: wc_rresb(&err_no_esp);
ld hl, #_err_no_esp
call _wc_rresb
;src/main.c:277: wc_exit(WC_EXIT);
xor a, a
;src/main.c:278: }
jp _wc_exit
;src/main.c:280: void error_oom()
; ---------------------------------
; Function error_oom
; ---------------------------------
_error_oom::
;src/main.c:282: wc_prwow(&err_out_of_mem);
ld hl, #_err_out_of_mem
call _wc_prwow
;src/main.c:283: wait_frames(50); // show the error for ~1 second (50Hz), then auto-advance
ld a, #0x32
call _wait_frames
;src/main.c:284: wc_rresb(&err_out_of_mem);
ld hl, #_err_out_of_mem
call _wc_rresb
;src/main.c:285: wc_exit(WC_NEXT_FILE);
ld a, #0x02
;src/main.c:286: }
jp _wc_exit
;src/main.c:288: void error_playback()
; ---------------------------------
; Function error_playback
; ---------------------------------
_error_playback::
;src/main.c:290: wc_prwow(&err_playback);
ld hl, #_err_playback
call _wc_prwow
;src/main.c:291: wait_frames(50); // show the error for ~1 second (50Hz), then auto-advance
ld a, #0x32
call _wait_frames
;src/main.c:292: wc_rresb(&err_playback);
ld hl, #_err_playback
call _wc_rresb
;src/main.c:293: wc_exit(WC_NEXT_FILE);
ld a, #0x02
;src/main.c:294: }
jp _wc_exit
;src/main.c:301: void copy_file_name()
; ---------------------------------
; Function copy_file_name
; ---------------------------------
_copy_file_name::
;src/main.c:303: u8 *src = (u8*)p_file_name;
ld bc, (_p_file_name)
;src/main.c:306: while (src[i] && i < sizeof(file_name) - 1)
ld e, #0x00
00102$:
ld l, e
ld h, #0x00
add hl, bc
ld d, (hl)
;src/main.c:308: file_name[i] = src[i];
ld a, #<(_file_name)
add a, e
ld l, a
ld a, #>(_file_name)
adc a, #0x00
ld h, a
;src/main.c:306: while (src[i] && i < sizeof(file_name) - 1)
ld a, d
or a, a
jr z, 00104$
ld a, e
sub a, #0x20
jr nc, 00104$
;src/main.c:308: file_name[i] = src[i];
ld (hl), d
;src/main.c:309: i++;
inc e
jp 00102$
00104$:
;src/main.c:311: file_name[i] = 0;
ld (hl), #0x00
;src/main.c:312: }
ret
;src/main.c:320: void xm_draw_static_labels()
; ---------------------------------
; Function xm_draw_static_labels
; ---------------------------------
_xm_draw_static_labels::
;src/main.c:322: wc_prsrw_attr(&win_xm, "File:", ROW_FILE, 1, 5, ATTR_CAPTION);
ld a, #0x45
push af
inc sp
ld hl, #0x0005
push hl
ld hl, #0x101
push hl
ld de, #___str_9
ld hl, #_win_xm
call _wc_prsrw_attr
;src/main.c:323: wc_prsrw(&win_xm, file_name, ROW_FILE, 7, strlen(file_name));
ld hl, #_file_name
call _strlen
push de
ld hl, #0x701
push hl
ld de, #_file_name
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:324: }
ret
___str_9:
.ascii "File:"
.db 0x00
;src/main.c:333: void put_hex2(char *dst, u8 val)
; ---------------------------------
; Function put_hex2
; ---------------------------------
_put_hex2::
push ix
ld ix, #0
add ix, sp
ex de, hl
;src/main.c:336: dst[0] = hexch[(val >> 4) & 0xF];
ld bc, #_put_hex2_hexch_10000_106+0
ld a, 4 (ix)
rlca
rlca
rlca
rlca
and a, #0xf
ld l, a
ld h, #0x00
add hl, bc
ld a, (hl)
ld (de), a
;src/main.c:337: dst[1] = hexch[val & 0xF];
inc de
ld a, 4 (ix)
and a, #0x0f
ld l, a
ld h, #0x00
add hl, bc
ld a, (hl)
ld (de), a
;src/main.c:338: }
pop ix
pop hl
inc sp
jp (hl)
_put_hex2_hexch_10000_106:
.ascii "0123456789ABCDEF"
.db 0x00
;src/main.c:340: void put_dec3(char *dst, u16 val)
; ---------------------------------
; Function put_dec3
; ---------------------------------
_put_dec3::
push ix
ld ix, #0
add ix, sp
push af
ld c, l
ld b, h
;src/main.c:342: dst[0] = '0' + (val / 100) % 10;
pop hl
push de
push bc
ld de, #0x0064
ld l, -2 (ix)
ld h, -1 (ix)
call __divuint
ex de, hl
ld de, #0x000a
call __moduint
pop bc
ld a, e
add a, #0x30
ld (bc), a
;src/main.c:343: dst[1] = '0' + (val / 10) % 10;
ld l, c
ld h, b
inc hl
push hl
push bc
ld de, #0x000a
ld l, -2 (ix)
ld h, -1 (ix)
call __divuint
ex de, hl
ld de, #0x000a
call __moduint
pop bc
pop hl
ld a, e
add a, #0x30
ld (hl), a
;src/main.c:344: dst[2] = '0' + val % 10;
inc bc
inc bc
push bc
ld de, #0x000a
ld l, -2 (ix)
ld h, -1 (ix)
call __moduint
pop bc
ld a, e
add a, #0x30
ld (bc), a
;src/main.c:345: }
ld sp, ix
pop ix
ret
;src/main.c:347: void put_time(char *dst, u32 sec)
; ---------------------------------
; Function put_time
; ---------------------------------
_put_time::
push ix
ld ix, #0
add ix, sp
push hl
;src/main.c:349: u8 m = (sec / 60) % 100;
ld hl, #0x0000
push hl
ld l, #0x3c
push hl
ld e, 4 (ix)
ld d, 5 (ix)
ld l, 6 (ix)
ld h, 7 (ix)
call __divulong
pop af
pop af
ld bc, #0x0000
push bc
ld c, #0x64
push bc
call __modulong
pop af
pop af
ld c, e
;src/main.c:350: u8 s = sec % 60;
push bc
ld hl, #0x0000
push hl
ld l, #0x3c
push hl
ld e, 4 (ix)
ld d, 5 (ix)
ld l, 6 (ix)
ld h, 7 (ix)
call __modulong
pop af
pop af
pop bc
;src/main.c:352: dst[0] = '0' + (m / 10) % 10;
ld d, c
push de
ld l, #0x0a
ld a, d
call __divuchar
ld a, e
ld l, #0x0a
call __moduchar
ld a, e
pop de
add a, #0x30
pop hl
push hl
ld (hl), a
;src/main.c:353: dst[1] = '0' + m % 10;
pop bc
push bc
inc bc
push bc
push de
ld l, #0x0a
ld a, d
call __moduchar
ld a, e
pop de
pop bc
add a, #0x30
ld (bc), a
;src/main.c:354: dst[2] = ':';
pop hl
push hl
inc hl
inc hl
ld (hl), #0x3a
;src/main.c:355: dst[3] = '0' + (s / 10) % 10;
pop bc
push bc
inc bc
inc bc
inc bc
push bc
push de
ld l, #0x0a
ld a, e
call __divuchar
ld a, e
ld l, #0x0a
call __moduchar
ld a, e
pop de
pop bc
add a, #0x30
ld (bc), a
;src/main.c:356: dst[4] = '0' + s % 10;
ld a, -2 (ix)
add a, #0x04
ld c, a
ld a, -1 (ix)
adc a, #0x00
ld b, a
push bc
ld l, #0x0a
ld a, e
call __moduchar
ld a, e
pop bc
add a, #0x30
ld (bc), a
;src/main.c:357: }
ld sp, ix
pop ix
pop hl
pop af
pop af
jp (hl)
;src/main.c:359: void xm_draw_stats_labels()
; ---------------------------------
; Function xm_draw_stats_labels
; ---------------------------------
_xm_draw_stats_labels::
;src/main.c:361: wc_prsrw(&win_xm, "Pattern:#", ROW_STATS, 1, 9);
ld hl, #0x0009
push hl
ld hl, #0x103
push hl
ld de, #___str_11
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:362: wc_prsrw(&win_xm, " Row:#", ROW_STATS, 12, 7);
ld hl, #0x0007
push hl
ld hl, #0xc03
push hl
ld de, #___str_12
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:363: wc_prsrw(&win_xm, " BPM:", ROW_STATS, 21, 6);
ld hl, #0x0006
push hl
ld hl, #0x1503
push hl
ld de, #___str_13
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:365: wc_prsrw(&win_xm, "Time:", ROW_TIME, 1, 5);
ld hl, #0x0005
push hl
ld hl, #0x105
push hl
ld de, #___str_14
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:366: wc_prsrw(&win_xm, " / ", ROW_TIME, 12, 3);
ld hl, #0x0003
push hl
ld hl, #0xc05
push hl
ld de, #___str_15
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:367: }
ret
___str_11:
.ascii "Pattern:#"
.db 0x00
___str_12:
.ascii " Row:#"
.db 0x00
___str_13:
.ascii " BPM:"
.db 0x00
___str_14:
.ascii "Time:"
.db 0x00
___str_15:
.ascii " / "
.db 0x00
;src/main.c:386: void draw_progress_bar(u32 samples, u32 total)
; ---------------------------------
; Function draw_progress_bar
; ---------------------------------
_draw_progress_bar::
push ix
ld ix, #0
add ix, sp
ld c, e
ld b, d
ex de, hl
;src/main.c:390: if (total)
ld a, 7 (ix)
or a, 6 (ix)
or a, 5 (ix)
or a, 4 (ix)
jr z, 00104$
;src/main.c:392: filled = (u16)(((u32)samples * BAR_WIDTH) / total);
push de
push bc
ld de, #0x0022
ld hl, #0x0000
call __mullong
pop af
pop af
ld c, 6 (ix)
ld b, 7 (ix)
push bc
ld c, 4 (ix)
ld b, 5 (ix)
push bc
call __divulong
pop af
pop af
;src/main.c:393: if (filled > BAR_WIDTH)
ld c,e
ld b,d
ld a, #0x22
cp a, e
ld a, #0x00
sbc a, d
jr nc, 00121$
;src/main.c:394: filled = BAR_WIDTH;
ld bc, #0x0022
jp 00121$
00104$:
;src/main.c:397: filled = 0; // total length unknown (measurement timed out) - show empty
ld bc, #0x0000
;src/main.c:399: for (i = 0; i < BAR_WIDTH; i++)
00121$:
ld de, #0x0000
00107$:
;src/main.c:400: barbuf[i] = (i < filled) ? BAR_FILLED_CH : BAR_EMPTY_CH;
ld hl, #_barbuf
add hl, de
ld a, e
sub a, c
ld a, d
sbc a, b
jr nc, 00111$
ld a, #0x3d
jp 00112$
00111$:
ld a, #0x2d
00112$:
ld (hl), a
;src/main.c:399: for (i = 0; i < BAR_WIDTH; i++)
inc de
ld l, e
ld h, d
ld a, l
sub a, #0x22
ld a, h
sbc a, #0x00
jr c, 00107$
;src/main.c:402: wc_prsrw(&win_xm, barbuf, ROW_BAR, BAR_X, BAR_WIDTH);
ld hl, #0x0022
push hl
ld hl, #0x106
push hl
ld de, #_barbuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:403: }
pop ix
pop hl
pop af
pop af
jp (hl)
;src/main.c:405: void xm_update_info()
; ---------------------------------
; Function xm_update_info
; ---------------------------------
_xm_update_info::
push ix
ld ix, #0
add ix, sp
ld hl, #-8
add hl, sp
ld sp, hl
;src/main.c:411: esp_wr_reg8(ESP_REG_OBJ_HANDLE, xm_handle);
ld a, (_xm_handle)
ld l, a
ld a, #0x0b
call _esp_wr_reg8
;src/main.c:412: esp_cmd(ESP_CMD_TRACK_GET_INFO);
ld a, #0xa8
call _esp_cmd
;src/main.c:413: esp_wait_busy(2000);
ld de, #0x07d0
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:418: status = esp_rd_reg8(ESP_REG_TRACK_STATUS);
ld a, #0x28
call _esp_rd_reg8
ld -1 (ix), a
;src/main.c:419: if (last_track_status == TRACK_OBJ_ST_PLAYING && status == TRACK_OBJ_ST_STOPPED)
ld a, (_last_track_status)
sub a, #0x21
jr nz, 00102$
ld a, -1 (ix)
sub a, #0x20
jr nz, 00102$
;src/main.c:421: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:422: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:423: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:424: wc_exit(WC_NEXT_FILE);
ld a, #0x02
call _wc_exit
00102$:
;src/main.c:426: last_track_status = status;
ld a, -1 (ix)
ld (#_last_track_status), a
;src/main.c:428: pattern = esp_rd_reg8(ESP_REG_TRACK_PATTERN);
ld a, #0x2b
call _esp_rd_reg8
ld -6 (ix), a
;src/main.c:429: row = esp_rd_reg8(ESP_REG_TRACK_ROW);
ld a, #0x2c
call _esp_rd_reg8
ld -5 (ix), a
;src/main.c:430: esp_rd_regs(ESP_REG_TRACK_BPM, &bpm, 2);
ld a, #0x02
push af
inc sp
ld hl, #1
add hl, sp
ex de, hl
ld a, #0x31
call _esp_rd_regs
;src/main.c:431: samples = esp_rd_reg32(ESP_REG_TRACK_SAMPLES);
ld a, #0x2d
call _esp_rd_reg32
ld -4 (ix), e
ld -3 (ix), d
ld -2 (ix), l
ld -1 (ix), h
;src/main.c:433: if (!total_samples)
ld a, (_total_samples+3)
ld iy, #_total_samples
or a, 2 (iy)
or a, 1 (iy)
or a, 0 (iy)
jr nz, 00105$
;src/main.c:434: total_samples = esp_rd_reg32(ESP_REG_TRACK_TOTAL_SAMPLES);
ld a, #0x36
call _esp_rd_reg32
ld (_total_samples), de
ld (_total_samples + 2), hl
00105$:
;src/main.c:436: put_hex2(hexbuf, pattern);
ld a, -6 (ix)
push af
inc sp
ld hl, #_hexbuf
call _put_hex2
;src/main.c:437: wc_prsrw(&win_xm, hexbuf, ROW_STATS, 10, 2);
ld hl, #0x0002
push hl
ld hl, #0xa03
push hl
ld de, #_hexbuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:439: put_hex2(hexbuf, row);
ld a, -5 (ix)
push af
inc sp
ld hl, #_hexbuf
call _put_hex2
;src/main.c:440: wc_prsrw(&win_xm, hexbuf, ROW_STATS, 19, 2);
ld hl, #0x0002
push hl
ld hl, #0x1303
push hl
ld de, #_hexbuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:442: put_dec3(decbuf, bpm);
pop de
push de
ld hl, #_decbuf
call _put_dec3
;src/main.c:443: wc_prsrw(&win_xm, decbuf, ROW_STATS, 27, 3);
ld hl, #0x0003
push hl
ld hl, #0x1b03
push hl
ld de, #_decbuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:445: put_time(timebuf, samples / 44100UL);
ld hl, #0x0000
push hl
ld hl, #0xac44
push hl
ld e, -4 (ix)
ld d, -3 (ix)
ld l, -2 (ix)
ld h, -1 (ix)
call __divulong
pop af
ex (sp),hl
push de
ld hl, #_timebuf
call _put_time
;src/main.c:446: wc_prsrw(&win_xm, timebuf, ROW_TIME, 7, 5);
ld hl, #0x0005
push hl
ld hl, #0x705
push hl
ld de, #_timebuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:448: put_time(timebuf, total_samples / 44100UL);
ld hl, #0x0000
push hl
ld hl, #0xac44
push hl
ld de, (_total_samples)
ld hl, (_total_samples + 2)
call __divulong
pop af
ex (sp),hl
push de
ld hl, #_timebuf
call _put_time
;src/main.c:449: wc_prsrw(&win_xm, timebuf, ROW_TIME, 15, 5);
ld hl, #0x0005
push hl
ld hl, #0xf05
push hl
ld de, #_timebuf
ld hl, #_win_xm
call _wc_prsrw
;src/main.c:451: draw_progress_bar(samples, total_samples);
ld hl, (_total_samples + 2)
push hl
ld hl, (_total_samples)
push hl
ld e, -4 (ix)
ld d, -3 (ix)
ld l, -2 (ix)
ld h, -1 (ix)
call _draw_progress_bar
;src/main.c:453: }
ld sp, ix
pop ix
ret
;src/main.c:455: void main_start()
; ---------------------------------
; Function main_start
; ---------------------------------
_main_start::
dec sp
;src/main.c:463: wc_set_freq_14mhz();
call _wc_set_freq_14mhz
;src/main.c:465: copy_file_name();
call _copy_file_name
;src/main.c:467: if (state_esp == 0xFF)
ld a, (_state_esp)
inc a
jr nz, 00102$
;src/main.c:468: state_esp = esp_init() ? 1 : 2;
call _esp_init
or a, a
ld a, #0x01
jr nz, 00124$
ld a, #0x02
00124$:
ld (#_state_esp), a
00102$:
;src/main.c:470: if (state_esp != 1)
ld a, (_state_esp)
dec a
jr z, 00104$
;src/main.c:472: error_esp();
inc sp
jp _error_esp
;src/main.c:473: return;
jp 00121$
00104$:
;src/main.c:476: total_samples = 0;
xor a, a
ld (_total_samples+0), a
ld (_total_samples+1), a
ld (_total_samples+2), a
ld (_total_samples+3), a
;src/main.c:478: if (!play_xm())
call _play_xm
or a, a
jr nz, 00109$
;src/main.c:480: if (last_esp_status == ESP_ERR_OUT_OF_MEMORY)
ld a, (_last_esp_status)
sub a, #0x99
jr nz, 00106$
;src/main.c:481: error_oom();
inc sp
jp _error_oom
jp 00121$
00106$:
;src/main.c:483: error_playback();
inc sp
;src/main.c:484: return;
jp _error_playback
00109$:
;src/main.c:490: wc_prwow(&win_xm);
ld hl, #_win_xm
call _wc_prwow
;src/main.c:491: xm_draw_static_labels();
call _xm_draw_static_labels
;src/main.c:492: xm_draw_stats_labels();
call _xm_draw_stats_labels
;src/main.c:493: last_track_status = TRACK_OBJ_ST_PLAYING;
ld hl, #_last_track_status
ld (hl), #0x21
;src/main.c:494: xm_update_info();
call _xm_update_info
;src/main.c:496: frame_ctr = 0;
ld iy, #0
add iy, sp
ld 0 (iy), #0x00
;src/main.c:499: while (1)
00119$:
;src/main.c:503: __endasm;
halt
;src/main.c:505: if (++frame_ctr >= 10) // ~5 updates/sec at 50Hz
ld iy, #0
add iy, sp
inc 0 (iy)
ld a, 0 (iy)
sub a, #0x0a
jr c, 00111$
;src/main.c:507: frame_ctr = 0;
ld 0 (iy), #0x00
;src/main.c:508: xm_update_info();
call _xm_update_info
00111$:
;src/main.c:511: if (wc_key_pgdn()) // PgDn - unload and go to next file
call _wc_key_pgdn
or a, a
jr z, 00113$
;src/main.c:513: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:514: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:515: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:516: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:517: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:518: wc_exit(WC_NEXT_FILE);
ld a, #0x02
call _wc_exit
00113$:
;src/main.c:521: if (wc_key_pgup()) // PgUp - unload and go to previous file
call _wc_key_pgup
or a, a
jr z, 00115$
;src/main.c:523: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:524: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:525: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:526: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:527: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:528: wc_exit(WC_PREV_FILE);
ld a, #0x04
call _wc_exit
00115$:
;src/main.c:531: if (wc_key_esc()) // Esc - unload and exit
call _wc_key_esc
or a, a
jr z, 00119$
;src/main.c:533: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:534: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:535: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:536: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:537: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:538: wc_exit(WC_EXIT);
xor a, a
call _wc_exit
jp 00119$
00121$:
;src/main.c:541: }
inc sp
ret
;src/main.c:544: void main()
; ---------------------------------
; Function main
; ---------------------------------
_main::
;src/main.c:554: __endasm;
ld (_ret_sp), sp
ld (_call_type), a
ld (_p_file_name), bc
ex af, af
ld (_file_ext), a
ld (_filesize), hl
ld (_filesize + 2), de
;src/main.c:556: switch (call_type)
ld a, (_call_type+0)
or a, a
jp z, _main_start
ld a, (_call_type)
sub a, #0x03
jp z, _about
;src/main.c:558: case WC_CALL_EXT:
;src/main.c:559: main_start();
;src/main.c:560: break;
;src/main.c:562: case WC_CALL_MENU:
;src/main.c:563: about();
;src/main.c:564: break;
;src/main.c:566: default:
;src/main.c:567: wc_exit(WC_EXIT);
xor a, a
;src/main.c:568: }
;src/main.c:569: }
jp _wc_exit
.area _CODE
.area _INITIALIZER
__xinit__state_esp:
.db #0xff ; 255
.area _CABS (ABS)
Reference in New Issue View Git Blame Copy Permalink