mirror of https://github.com/nmlgc/ReC98.git
38 lines
835 B
NASM
38 lines
835 B
NASM
; void pascal near bb_playchar_load(void);
|
|
public BB_PLAYCHAR_LOAD
|
|
bb_playchar_load proc near
|
|
push bp
|
|
mov bp, sp
|
|
les bx, _resident
|
|
mov al, es:[bx+resident_t.playchar_ascii]
|
|
les bx, _bb_playchar_bb_fn
|
|
mov es:[bx+2], al
|
|
les bx, _resident
|
|
les bx, _bb_playchar_cdg_fn
|
|
mov es:[bx+2], al
|
|
call file_ropen pascal, large [_bb_playchar_bb_fn]
|
|
call hmem_allocbyte pascal, BB_SIZE
|
|
mov _bb_playchar_seg, ax
|
|
call file_read pascal, ax, large BB_SIZE
|
|
call file_close
|
|
call cdg_load_single_noalpha pascal, 0, [_bb_playchar_cdg_fn], 0
|
|
pop bp
|
|
retn
|
|
bb_playchar_load endp
|
|
|
|
|
|
; void pascal near bb_playchar_free(void);
|
|
public BB_PLAYCHAR_FREE
|
|
bb_playchar_free proc near
|
|
push bp
|
|
mov bp, sp
|
|
cmp _bb_playchar_seg, 0
|
|
jz short @@ret
|
|
call hmem_free pascal, _bb_playchar_seg
|
|
mov _bb_playchar_seg, 0
|
|
|
|
@@ret:
|
|
pop bp
|
|
retn
|
|
bb_playchar_free endp
|