mirror of https://github.com/nmlgc/ReC98.git
62 lines
1.0 KiB
NASM
62 lines
1.0 KiB
NASM
; (identical to the already decompiled TH02 version, except for the first X
|
|
; coordinate)
|
|
|
|
public DRAW_CMT
|
|
draw_cmt proc near
|
|
|
|
@@track = word ptr 4
|
|
|
|
push bp
|
|
mov bp, sp
|
|
push si
|
|
push di
|
|
call music_cmt_load pascal, [bp+@@track]
|
|
call screen_back_B_put
|
|
call cmt_back_put
|
|
push 1300040h
|
|
push 1Fh
|
|
push ds
|
|
push offset _music_cmt
|
|
call graph_putsa_fx
|
|
mov di, 1
|
|
jmp short loc_ABDC
|
|
; ---------------------------------------------------------------------------
|
|
|
|
loc_ABC0:
|
|
push 130h
|
|
lea ax, [di+4]
|
|
shl ax, 4
|
|
push ax
|
|
push 1Dh
|
|
push ds
|
|
mov ax, di
|
|
imul ax, MUSIC_CMT_LINE_LEN
|
|
add ax, offset _music_cmt
|
|
push ax
|
|
call graph_putsa_fx
|
|
inc di
|
|
|
|
loc_ABDC:
|
|
cmp di, MUSIC_CMT_LINE_COUNT
|
|
jl short loc_ABC0
|
|
xor si, si
|
|
jmp short loc_ABFA
|
|
; ---------------------------------------------------------------------------
|
|
|
|
loc_ABE5:
|
|
les bx, _VRAM_PLANE_B
|
|
add bx, si
|
|
mov eax, es:[bx]
|
|
mov es, _screen_back_B
|
|
mov es:[si], eax
|
|
add si, 4
|
|
|
|
loc_ABFA:
|
|
cmp si, PLANE_SIZE
|
|
jl short loc_ABE5
|
|
pop di
|
|
pop si
|
|
pop bp
|
|
retn 2
|
|
draw_cmt endp
|