mirror of https://github.com/nmlgc/ReC98.git
75 lines
1.5 KiB
NASM
75 lines
1.5 KiB
NASM
; Displays the n-th 320x200 [quarter], counted from the top left, of the PI
|
|
; image in slot #[slot] at [x],[y].
|
|
|
|
; int DEFCONV pi_slot_put_quarter(int x, int y, int slot, int quarter)
|
|
proc_defconv pi_slot_put_quarter
|
|
arg @@x:word, @@y:word, @@slot:word, @@quarter:word
|
|
local @@row_num:word, @@row_buf:dword
|
|
|
|
push si
|
|
push di
|
|
mov si, @@y
|
|
mov di, @@quarter
|
|
mov bx, @@slot
|
|
shl bx, 2
|
|
mov ax, word ptr (_pi_slot_buffers+2)[bx]
|
|
mov dx, word ptr _pi_slot_buffers[bx]
|
|
mov word ptr @@row_buf+2, ax
|
|
mov word ptr @@row_buf, dx
|
|
cmp di, 1
|
|
jnz short @@bottom_left?
|
|
add word ptr @@row_buf, (320 / 2)
|
|
jmp short @@first
|
|
|
|
@@bottom_left?:
|
|
cmp di, 2
|
|
jnz short @@bottom_right?
|
|
add word ptr @@row_buf, (640 * 200) / 2
|
|
jmp short @@first
|
|
|
|
@@bottom_right?:
|
|
cmp di, 3
|
|
jnz short @@first
|
|
add word ptr @@row_buf, ((640 * 200) + 320) / 2
|
|
|
|
@@first:
|
|
mov eax, @@row_buf
|
|
shr eax, 10h
|
|
mov dx, word ptr @@row_buf
|
|
shr dx, 4
|
|
add ax, dx
|
|
mov dx, word ptr @@row_buf
|
|
and dx, 0Fh
|
|
mov word ptr @@row_buf+2, ax
|
|
mov word ptr @@row_buf, dx
|
|
mov @@row_num, 0
|
|
jmp short @@check
|
|
|
|
@@put:
|
|
call graph_pack_put_8 pascal, @@x, si, @@row_buf, 320
|
|
inc si
|
|
cmp si, 400
|
|
jl short @@next_row
|
|
sub si, 400
|
|
|
|
@@next_row:
|
|
add word ptr @@row_buf, 320
|
|
mov eax, @@row_buf
|
|
shr eax, 10h
|
|
mov dx, word ptr @@row_buf
|
|
shr dx, 4
|
|
add ax, dx
|
|
mov dx, word ptr @@row_buf
|
|
and dx, 0Fh
|
|
mov word ptr @@row_buf+2, ax
|
|
mov word ptr @@row_buf, dx
|
|
inc @@row_num
|
|
|
|
@@check:
|
|
cmp @@row_num, 200
|
|
jl short @@put
|
|
pop di
|
|
pop si
|
|
ret
|
|
endp_defconv
|