alex/xmplayer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6163d0c8ca3ce2d6f2000464de9ce1b1a8b331cd
xmplayer/obj/out.asm
T
alex 6163d0c8ca Initial commit
2026-08-30 19:47:39 +03:00

1821 lines
36 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 _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_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 _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 _state_esp
.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
_state_esp::
.ds 1
_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
_hexbuf:
.ds 2
_decbuf:
.ds 3
_timebuf:
.ds 5
;--------------------------------------------------------
; ram data
;--------------------------------------------------------
.area _INITIALIZED
;--------------------------------------------------------
; 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/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:129: bool esp_init()
; ---------------------------------
; Function esp_init
; ---------------------------------
_esp_init::
;src/main.c:131: esp_cmd(ESP_CMD_NOP);
xor a, a
call _esp_cmd
;src/main.c:132: esp_rd_end();
call _esp_rd_end
;src/main.c:133: esp_wr_end();
call _esp_wr_end
;src/main.c:137: return true;
ld a, #0x01
;src/main.c:138: }
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:142: 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:144: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:145: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:146: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:147: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:150: 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:152: case EXT_XMZ: obj_type = OBJ_TYPE_ZIP; break;
00101$:
ld a, #0x08
jp 00104$
;src/main.c:153: case EXT_S3M: obj_type = OBJ_TYPE_S3M; break;
00102$:
ld a, #0x0c
jp 00104$
;src/main.c:154: default: obj_type = OBJ_TYPE_XM; break;
00103$:
ld a, #0x05
;src/main.c:155: }
00104$:
;src/main.c:157: 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:158: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:159: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00106$
;src/main.c:160: return false;
xor a, a
jp 00116$
00106$:
;src/main.c:162: u32 sz = filesize;
ld hl, #12
add hl, sp
ex de, hl
ld hl, #_filesize
ld bc, #4
ldir
;src/main.c:163: 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:165: 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:167: 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:168: 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:170: 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:172: 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:173: 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:174: esp_cmd(ESP_CMD_WRITE_OBJECT);
ld a, #0xe1
call _esp_cmd
;src/main.c:175: 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:176: 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:178: 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:179: 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:182: if (file_ext == EXT_XMZ)
ld a, (_file_ext)
dec a
jr nz, 00113$
;src/main.c:187: 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:188: esp_wr_reg8(ESP_REG_OBJ_TYPE, OBJ_TYPE_XM);
ld l, #0x05
ld a, #0x02
call _esp_wr_reg8
;src/main.c:189: 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:190: esp_cmd(ESP_CMD_UNZIP);
ld a, #0xf2
call _esp_cmd
;src/main.c:191: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:193: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:194: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00113$
;src/main.c:195: return false;
xor a, a
jp 00116$
00113$:
;src/main.c:198: esp_cmd(ESP_CMD_TRACK_INIT);
ld a, #0xa0
call _esp_cmd
;src/main.c:199: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:201: last_esp_status = esp_rd_reg8(ESP_REG_STATUS);
ld a, #0x01
call _esp_rd_reg8
ld (#_last_esp_status), a
;src/main.c:202: if (last_esp_status != ESP_ST_READY)
ld a, (_last_esp_status)
dec a
jr z, 00115$
;src/main.c:203: return false;
xor a, a
jp 00116$
00115$:
;src/main.c:205: esp_cmd(ESP_CMD_TRACK_PLAY);
ld a, #0xa1
call _esp_cmd
;src/main.c:206: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:208: return true;
ld a, #0x01
00116$:
;src/main.c:209: }
ld sp, ix
pop ix
ret
;src/main.c:212: void wait_esc_key()
; ---------------------------------
; Function wait_esc_key
; ---------------------------------
_wait_esc_key::
;src/main.c:214: while (1)
00104$:
;src/main.c:218: __endasm;
halt
;src/main.c:220: if (wc_key_esc())
call _wc_key_esc
or a, a
jr z, 00104$
;src/main.c:221: break;
;src/main.c:223: }
ret
;src/main.c:225: void wait_frames(u8 n)
; ---------------------------------
; Function wait_frames
; ---------------------------------
_wait_frames::
ld c, a
;src/main.c:227: while (n--)
00101$:
ld a, c
dec c
or a, a
ret z
;src/main.c:231: __endasm;
halt
;src/main.c:233: }
jp 00101$
;src/main.c:235: void about()
; ---------------------------------
; Function about
; ---------------------------------
_about::
;src/main.c:237: wc_prwow(&win_about);
ld hl, #_win_about
call _wc_prwow
;src/main.c:238: wait_esc_key();
call _wait_esc_key
;src/main.c:239: wc_rresb(&win_about);
ld hl, #_win_about
call _wc_rresb
;src/main.c:240: wc_exit(WC_EXIT);
xor a, a
;src/main.c:241: }
jp _wc_exit
;src/main.c:243: void error_esp()
; ---------------------------------
; Function error_esp
; ---------------------------------
_error_esp::
;src/main.c:245: wc_prwow(&err_no_esp);
ld hl, #_err_no_esp
call _wc_prwow
;src/main.c:246: wait_esc_key();
call _wait_esc_key
;src/main.c:247: wc_rresb(&err_no_esp);
ld hl, #_err_no_esp
call _wc_rresb
;src/main.c:248: wc_exit(WC_EXIT);
xor a, a
;src/main.c:249: }
jp _wc_exit
;src/main.c:251: void error_oom()
; ---------------------------------
; Function error_oom
; ---------------------------------
_error_oom::
;src/main.c:253: wc_prwow(&err_out_of_mem);
ld hl, #_err_out_of_mem
call _wc_prwow
;src/main.c:254: wait_frames(50); // show the error for ~1 second (50Hz), then auto-advance
ld a, #0x32
call _wait_frames
;src/main.c:255: wc_rresb(&err_out_of_mem);
ld hl, #_err_out_of_mem
call _wc_rresb
;src/main.c:256: wc_exit(WC_NEXT_FILE);
ld a, #0x02
;src/main.c:257: }
jp _wc_exit
;src/main.c:259: void error_playback()
; ---------------------------------
; Function error_playback
; ---------------------------------
_error_playback::
;src/main.c:261: wc_prwow(&err_playback);
ld hl, #_err_playback
call _wc_prwow
;src/main.c:262: wait_frames(50); // show the error for ~1 second (50Hz), then auto-advance
ld a, #0x32
call _wait_frames
;src/main.c:263: wc_rresb(&err_playback);
ld hl, #_err_playback
call _wc_rresb
;src/main.c:264: wc_exit(WC_NEXT_FILE);
ld a, #0x02
;src/main.c:265: }
jp _wc_exit
;src/main.c:272: void copy_file_name()
; ---------------------------------
; Function copy_file_name
; ---------------------------------
_copy_file_name::
;src/main.c:274: u8 *src = (u8*)p_file_name;
ld bc, (_p_file_name)
;src/main.c:277: 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:279: 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:277: 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:279: file_name[i] = src[i];
ld (hl), d
;src/main.c:280: i++;
inc e
jp 00102$
00104$:
;src/main.c:282: file_name[i] = 0;
ld (hl), #0x00
;src/main.c:283: }
ret
;src/main.c:291: void xm_draw_static_labels()
; ---------------------------------
; Function xm_draw_static_labels
; ---------------------------------
_xm_draw_static_labels::
;src/main.c:293: 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:294: 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:295: }
ret
___str_9:
.ascii "File:"
.db 0x00
;src/main.c:304: 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:307: dst[0] = hexch[(val >> 4) & 0xF];
ld bc, #_put_hex2_hexch_10000_105+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:308: 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:309: }
pop ix
pop hl
inc sp
jp (hl)
_put_hex2_hexch_10000_105:
.ascii "0123456789ABCDEF"
.db 0x00
;src/main.c:311: 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:313: 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:314: 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:315: 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:316: }
ld sp, ix
pop ix
ret
;src/main.c:318: 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:320: 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:321: 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:323: 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:324: 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:325: dst[2] = ':';
pop hl
push hl
inc hl
inc hl
ld (hl), #0x3a
;src/main.c:326: 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:327: 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:328: }
ld sp, ix
pop ix
pop hl
pop af
pop af
jp (hl)
;src/main.c:330: void xm_draw_stats_labels()
; ---------------------------------
; Function xm_draw_stats_labels
; ---------------------------------
_xm_draw_stats_labels::
;src/main.c:332: 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:333: 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:334: 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:336: 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:337: 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:338: }
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:353: 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:359: 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:360: esp_cmd(ESP_CMD_TRACK_GET_INFO);
ld a, #0xa8
call _esp_cmd
;src/main.c:361: esp_wait_busy(2000);
ld de, #0x07d0
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:363: pattern = esp_rd_reg8(ESP_REG_TRACK_PATTERN);
ld a, #0x2b
call _esp_rd_reg8
ld -6 (ix), a
;src/main.c:364: row = esp_rd_reg8(ESP_REG_TRACK_ROW);
ld a, #0x2c
call _esp_rd_reg8
ld -5 (ix), a
;src/main.c:365: 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:366: 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:368: 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, 00102$
;src/main.c:369: 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
00102$:
;src/main.c:371: put_hex2(hexbuf, pattern);
ld a, -6 (ix)
push af
inc sp
ld hl, #_hexbuf
call _put_hex2
;src/main.c:372: 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:374: put_hex2(hexbuf, row);
ld a, -5 (ix)
push af
inc sp
ld hl, #_hexbuf
call _put_hex2
;src/main.c:375: 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:377: put_dec3(decbuf, bpm);
pop de
push de
ld hl, #_decbuf
call _put_dec3
;src/main.c:378: 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:380: 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:381: 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:383: 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:384: 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:388: }
ld sp, ix
pop ix
ret
;src/main.c:390: void main_start()
; ---------------------------------
; Function main_start
; ---------------------------------
_main_start::
;src/main.c:394: copy_file_name();
call _copy_file_name
;src/main.c:396: if (!state_esp)
ld a, (_state_esp+0)
or a, a
jr nz, 00102$
;src/main.c:397: state_esp = esp_init() ? 1 : 2;
call _esp_init
or a, a
ld a, #0x01
jr nz, 00122$
ld a, #0x02
00122$:
ld (#_state_esp), a
00102$:
;src/main.c:399: if (state_esp != 1)
ld a, (_state_esp)
;src/main.c:401: error_esp();
;src/main.c:402: return;
;src/main.c:405: total_samples = 0;
dec a
jp nz,_error_esp
ld (_total_samples+0), a
ld (_total_samples+1), a
ld (_total_samples+2), a
ld (_total_samples+3), a
;src/main.c:407: if (!play_xm())
call _play_xm
or a, a
jr nz, 00109$
;src/main.c:409: if (last_esp_status == ESP_ERR_OUT_OF_MEMORY)
ld a, (_last_esp_status)
sub a, #0x99
jp z, _error_oom
;src/main.c:410: error_oom();
;src/main.c:412: error_playback();
;src/main.c:413: return;
jp _error_playback
00109$:
;src/main.c:419: wc_prwow(&win_xm);
ld hl, #_win_xm
call _wc_prwow
;src/main.c:420: xm_draw_static_labels();
call _xm_draw_static_labels
;src/main.c:421: xm_draw_stats_labels();
call _xm_draw_stats_labels
;src/main.c:422: xm_update_info(); // single call for now - periodic re-calling is a separate step, once this is confirmed stable
call _xm_update_info
;src/main.c:427: while (1)
00117$:
;src/main.c:431: __endasm;
halt
;src/main.c:442: if (wc_key_pgdn()) // PgDn - unload and go to next file
call _wc_key_pgdn
or a, a
jr z, 00111$
;src/main.c:444: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:445: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:446: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:447: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:448: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:449: wc_exit(WC_NEXT_FILE);
ld a, #0x02
call _wc_exit
00111$:
;src/main.c:452: if (wc_key_pgup()) // PgUp - unload and go to previous file
call _wc_key_pgup
or a, a
jr z, 00113$
;src/main.c:454: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:455: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:456: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:457: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:458: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:459: wc_exit(WC_PREV_FILE);
ld a, #0x04
call _wc_exit
00113$:
;src/main.c:462: if (wc_key_esc()) // Esc - unload and exit
call _wc_key_esc
or a, a
jr z, 00117$
;src/main.c:464: esp_cmd(ESP_CMD_TRACK_STOP);
ld a, #0xa2
call _esp_cmd
;src/main.c:465: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:466: esp_cmd(ESP_CMD_KILL_OBJECTS);
ld a, #0xe4
call _esp_cmd
;src/main.c:467: esp_wait_busy(10000);
ld de, #0x2710
ld hl, #0x0000
call _esp_wait_busy
;src/main.c:468: wc_rresb(&win_xm);
ld hl, #_win_xm
call _wc_rresb
;src/main.c:469: wc_exit(WC_EXIT);
xor a, a
call _wc_exit
;src/main.c:472: }
jp 00117$
;src/main.c:475: void main()
; ---------------------------------
; Function main
; ---------------------------------
_main::
;src/main.c:485: __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:487: 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:489: case WC_CALL_EXT:
;src/main.c:490: main_start();
;src/main.c:491: break;
;src/main.c:493: case WC_CALL_MENU:
;src/main.c:494: about();
;src/main.c:495: break;
;src/main.c:497: default:
;src/main.c:498: wc_exit(WC_EXIT);
xor a, a
;src/main.c:499: }
;src/main.c:500: }
jp _wc_exit
.area _CODE
.area _INITIALIZER
.area _CABS (ABS)
Reference in New Issue View Git Blame Copy Permalink