mirror of https://github.com/nmlgc/ReC98.git
69 lines
1.3 KiB
NASM
69 lines
1.3 KiB
NASM
|
; Assuming that the CDG image in the given [slot] was previously displayed
|
||
|
|
; centered at (⌊x_center/8⌋*8, y_center), this function clears the two lines
|
||
|
|
; at the bottom of that image, as well as the one line immediately below, from
|
||
|
|
; the VRAM's E plane.
|
||
|
|
|
||
|
|
; void cdg_unput_for_upwards_motion_e(int x, int y, int slot);
|
||
|
|
public _cdg_unput_for_upwards_motion_e
|
||
|
|
_cdg_unput_for_upwards_motion_e proc near
|
||
|
|
|
||
|
|
@@h = word ptr -4
|
||
|
|
@@w = word ptr -2
|
||
|
|
@@slot = word ptr 4
|
||
|
|
@@y_center = word ptr 6
|
||
|
|
@@x_center = word ptr 8
|
||
|
|
|
||
|
|
enter 4, 0
|
||
|
|
push si
|
||
|
|
push di
|
||
|
|
mov bx, [bp+@@slot]
|
||
|
|
shl bx, 4
|
||
|
|
mov ax, _cdg_slots.pixel_width[bx]
|
||
|
|
mov [bp+@@w], ax
|
||
|
|
mov bx, [bp+@@slot]
|
||
|
|
shl bx, 4
|
||
|
|
mov ax, _cdg_slots.pixel_height[bx]
|
||
|
|
mov [bp+@@h], ax
|
||
|
|
mov ax, [bp+@@w]
|
||
|
|
cwd
|
||
|
|
sub ax, dx
|
||
|
|
sar ax, 1
|
||
|
|
sub [bp+@@x_center], ax
|
||
|
|
mov ax, [bp+@@h]
|
||
|
|
cwd
|
||
|
|
sub ax, dx
|
||
|
|
sar ax, 1
|
||
|
|
add ax, -2
|
||
|
|
add [bp+@@y_center], ax
|
||
|
|
mov ax, [bp+@@x_center]
|
||
|
|
sar ax, 3
|
||
|
|
mov dx, [bp+@@y_center]
|
||
|
|
shl dx, 6
|
||
|
|
add ax, dx
|
||
|
|
mov dx, [bp+@@y_center]
|
||
|
|
shl dx, 4
|
||
|
|
add ax, dx
|
||
|
|
mov di, ax
|
||
|
|
mov ax, 0E000h
|
||
|
|
mov es, ax
|
||
|
|
assume es:nothing
|
||
|
|
mov dx, [bp+@@w]
|
||
|
|
shr dx, 4
|
||
|
|
mov si, (640 / 8)
|
||
|
|
sub si, dx
|
||
|
|
sub si, dx
|
||
|
|
xor ax, ax
|
||
|
|
mov cx, dx
|
||
|
|
rep stosw
|
||
|
|
add di, si
|
||
|
|
mov cx, dx
|
||
|
|
rep stosw
|
||
|
|
add di, si
|
||
|
|
mov cx, dx
|
||
|
|
rep stosw
|
||
|
|
pop di
|
||
|
|
pop si
|
||
|
|
leave
|
||
|
|
retn 6
|
||
|
|
_cdg_unput_for_upwards_motion_e endp
|