1264 lines
28 KiB
NASM
1264 lines
28 KiB
NASM
;Copyright (C) 1997-2001 ZSNES Team ( zsknight@zsnes.com / _demo_@zsnes.com )
|
|
;
|
|
;This program is free software; you can redistribute it and/or
|
|
;modify it under the terms of the GNU General Public License
|
|
;as published by the Free Software Foundation; either
|
|
;version 2 of the License, or (at your option) any later
|
|
;version.
|
|
;
|
|
;This program is distributed in the hope that it will be useful,
|
|
;but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;GNU General Public License for more details.
|
|
;
|
|
;You should have received a copy of the GNU General Public License
|
|
;along with this program; if not, write to the Free Software
|
|
;Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
%include "macros.mac"
|
|
|
|
EXTSYM curmosaicsz,curvidoffset,domosaic16b,winptrref,scaddset
|
|
EXTSYM mode7A,mode7B,mode7C,mode7D,mode7X0,mode7Y0,mode7set
|
|
EXTSYM pal16b,vram,vrama,winon,mode7tab,xtravbuf,drawmode7dcolor
|
|
EXTSYM cwinptr
|
|
|
|
|
|
NEWSYM Mode716EAsmStart
|
|
|
|
|
|
|
|
;*******************************************************
|
|
; Processes & Draws Mode 7
|
|
;*******************************************************
|
|
|
|
ALIGN16
|
|
|
|
NEWSYM drawmode716extbg
|
|
; test byte[scaddset],1
|
|
; jnz near drawmode7dcolor
|
|
mov esi,[cwinptr]
|
|
mov [winptrref],esi
|
|
cmp byte[curmosaicsz],1
|
|
jne .domosaic
|
|
cmp byte[winon],0
|
|
jne near drawmode716bwinonextbg
|
|
.domosaic
|
|
; mode 7, ax = curyposition, dx = curxposition (left side)
|
|
; draw center map coordinates at (X0-bg1scrolx,Y0-bg1scroly) on screen
|
|
; center map coordinates = (X0,Y0)
|
|
; 1.) cx=X0-bg1scrolx, cy =Y0-ax
|
|
|
|
mov bx,[mode7X0]
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonega
|
|
or bx,1110000000000000b
|
|
.nonega
|
|
mov [.cxloc],bx
|
|
mov bx,dx
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegb
|
|
or bx,1110000000000000b
|
|
.nonegb
|
|
sub [.cxloc],bx
|
|
mov bx,ax
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegc
|
|
or bx,1110000000000000b
|
|
.nonegc
|
|
mov [.cyloc],bx
|
|
mov bx,[mode7Y0]
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegd
|
|
or bx,1110000000000000b
|
|
.nonegd
|
|
sub word[.cyloc],bx
|
|
|
|
; 2.) Find position at scaled y, centered x at SCX=X0-(cy*C),SCY=Y0-(cy*D)
|
|
|
|
movsx eax,word[mode7B]
|
|
movsx ebx,word[.cyloc]
|
|
imul eax,ebx
|
|
mov [.mode7xpos],eax
|
|
mov bx,word[mode7X0]
|
|
add [.mode7xpos+1],bx
|
|
|
|
movsx ebx,word[.cyloc]
|
|
movsx eax,word[mode7D]
|
|
imul eax,ebx
|
|
mov [.mode7ypos],eax
|
|
mov bx,word[mode7Y0]
|
|
add [.mode7ypos+1],bx
|
|
|
|
; 3.) Find left scaled location : SCX=SCX-(cx*A),SCY=SCY-(cx*B)
|
|
|
|
movsx ebx,word[.cxloc]
|
|
movsx eax,word[mode7A]
|
|
mov [.mode7xadder],eax
|
|
imul eax,ebx
|
|
neg eax
|
|
add [.mode7xpos],eax
|
|
|
|
movsx eax,word[mode7C]
|
|
movsx ebx,word[.cxloc]
|
|
neg eax
|
|
mov [.mode7yadder],eax
|
|
imul eax,ebx
|
|
add [.mode7ypos],eax
|
|
|
|
test byte[mode7set],1
|
|
jz .nohflip
|
|
mov eax,[.mode7xadder]
|
|
shl eax,8
|
|
add [.mode7xpos],eax
|
|
neg dword[.mode7xadder]
|
|
mov eax,[.mode7yadder]
|
|
shl eax,8
|
|
sub [.mode7ypos],eax
|
|
neg dword[.mode7yadder]
|
|
.nohflip
|
|
|
|
; esi = pointer to video buffer
|
|
mov esi,[curvidoffset] ; esi = [vidbuffer] + curypos * 288 + 16
|
|
mov edi,[vram]
|
|
|
|
cmp byte[curmosaicsz],1
|
|
je .nomosaic
|
|
mov esi,xtravbuf+32
|
|
mov ecx,128
|
|
.clearnext
|
|
mov dword[esi],0
|
|
add esi,4
|
|
dec ecx
|
|
jnz .clearnext
|
|
mov esi,xtravbuf+32
|
|
.nomosaic
|
|
|
|
; esi = pointer to video buffer
|
|
; edi = pointer to vram
|
|
; [.mode7xadder] = dword value to add to x value (decimal between 7 & 8bit)
|
|
; [.mode7yadder] = dword value to add to y value (decimal between 7 & 8bit)
|
|
; [.mode7xpos] = dword value of x position, decimal between 7 & 8bit
|
|
; [.mode7xpos+1] = word value of x position
|
|
; [.mode7ypos] = dword value of y position, decimal between 7 & 8bit
|
|
; [.mode7ypos+1] = word value of y position
|
|
mov byte[.temp],0
|
|
xor ebx,ebx
|
|
xor edx,edx
|
|
xor ecx,ecx
|
|
mov dword[.mode7xadd2],800h
|
|
mov byte[.mode7xinc],2
|
|
mov byte[.mode7xincc],0
|
|
test dword[.mode7xadder],80000000h
|
|
jz .noneg
|
|
mov dword[.mode7xadd2],-800h
|
|
mov byte[.mode7xinc],-2
|
|
mov byte[.mode7xincc],0FEh
|
|
.noneg
|
|
mov dword[.mode7yadd2],800h
|
|
mov byte[.mode7yinc],1
|
|
test dword[.mode7yadder],80000000h
|
|
jz .noneg2
|
|
mov dword[.mode7yadd2],-800h
|
|
mov byte[.mode7yinc],-1
|
|
.noneg2
|
|
|
|
mov edi,[vram]
|
|
cmp dword[.mode7xadder],7F0h
|
|
jg near .nextval3
|
|
cmp dword[.mode7xadder],-7F0h
|
|
jl near .nextval3
|
|
cmp dword[.mode7yadder],7F0h
|
|
jg near .nextval3
|
|
cmp dword[.mode7yadder],-7F0h
|
|
jl near .nextval3
|
|
|
|
test byte[mode7set],80h
|
|
jnz near .norep2
|
|
|
|
mov eax,[.mode7xpos]
|
|
and eax,7FFh
|
|
mov [.mode7xrpos],eax
|
|
mov eax,[.mode7ypos]
|
|
and eax,7FFh
|
|
mov [.mode7yrpos],eax
|
|
|
|
; get tile data offset into edi
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
shl ebx,5
|
|
shr eax,3
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
mov edi,[vram]
|
|
xor ch,ch
|
|
mov [.mode7ptr],ebx
|
|
mov cl,[edi+ebx]
|
|
shl ecx,7
|
|
add edi,ecx
|
|
|
|
.nextval
|
|
test byte[.mode7xrpos+1],08h
|
|
jnz .rposoffx
|
|
.nextposx
|
|
test byte[.mode7yrpos+1],08h
|
|
jnz near .rposoffy
|
|
.nextposy
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawb
|
|
test dl,0FFh
|
|
jz .nodrawb
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawb
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .nextval
|
|
jmp .finishmode7
|
|
.rposoffx
|
|
mov al,[.mode7xinc]
|
|
mov edi,[vram]
|
|
add [.mode7ptr],al
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadd2]
|
|
shl ecx,7
|
|
sub [.mode7xrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposx
|
|
.rposoffy
|
|
mov al,[.mode7yinc]
|
|
mov edi,[vram]
|
|
sub [.mode7ptr+1],al
|
|
and byte[.mode7ptr+1],7Fh
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7yadd2]
|
|
shl ecx,7
|
|
add [.mode7yrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposy
|
|
.finishmode7
|
|
xor eax,eax
|
|
mov dh,byte[curmosaicsz]
|
|
cmp dh,1
|
|
jne near domosaic16b
|
|
ret
|
|
|
|
;**********************************************************
|
|
; Mode 7, no repetition mode
|
|
;**********************************************************
|
|
|
|
.norep2
|
|
test byte[mode7set],40h
|
|
jnz .tilerep2
|
|
.nextvalb2
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr2
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscr3
|
|
.offscr2
|
|
mov eax,[.mode7xadder]
|
|
mov ebx,[.mode7yadder]
|
|
add [.mode7xpos],eax
|
|
sub [.mode7ypos],ebx
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz near .nextvalb2
|
|
jmp .finishmode7
|
|
.tilerep2
|
|
.nextvalb3
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr2b
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe .offscr3
|
|
.offscr2b
|
|
mov ch,[.mode7xpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov cl,[.mode7ypos+1]
|
|
mov ebx,[.mode7yadder]
|
|
mov dl,[mode7tab+ecx]
|
|
add [.mode7xpos],eax
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7ypos],ebx
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2trb2
|
|
test dl,0FFh
|
|
jz .nodraw2trb2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2trb2
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .nextvalb3
|
|
jmp .finishmode7
|
|
.offscr3
|
|
mov eax,[.mode7xpos]
|
|
and eax,7FFh
|
|
mov [.mode7xrpos],eax
|
|
mov eax,[.mode7ypos]
|
|
and eax,7FFh
|
|
mov [.mode7yrpos],eax
|
|
|
|
; get tile data offset into edi
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
shl ebx,5
|
|
shr eax,3
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
mov edi,[vram]
|
|
xor ch,ch
|
|
mov [.mode7ptr],ebx
|
|
mov cl,[edi+ebx]
|
|
shl ecx,7
|
|
add edi,ecx
|
|
|
|
.nextvalr
|
|
test byte[.mode7xrpos+1],08h
|
|
jnz .rposoffxr
|
|
.nextposxr
|
|
test byte[.mode7yrpos+1],08h
|
|
jnz near .rposoffyr
|
|
.nextposyr
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawbr
|
|
test dl,0FFh
|
|
jz .nodrawbr
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawbr
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .nextvalr
|
|
jmp .finishmode7
|
|
.rposoffxr
|
|
mov al,[.mode7xinc]
|
|
mov edi,[vram]
|
|
add [.mode7ptr],al
|
|
mov cl,byte[.mode7xincc]
|
|
cmp byte[.mode7ptr],cl
|
|
je .roff
|
|
.roffxretb
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadd2]
|
|
shl ecx,7
|
|
sub [.mode7xrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposxr
|
|
.rposoffyr
|
|
mov al,[.mode7yinc]
|
|
mov edi,[vram]
|
|
sub [.mode7ptr+1],al
|
|
js .roff
|
|
.roffyretb
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7yadd2]
|
|
shl ecx,7
|
|
add [.mode7yrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposyr
|
|
.roff
|
|
test byte[mode7set],40h
|
|
jnz .tilerep3
|
|
jmp .finishmode7
|
|
.tilerep3
|
|
and byte[.mode7yrpos+1],07h
|
|
and byte[.mode7xrpos+1],07h
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawbr2
|
|
test dl,0FFh
|
|
jz .nodrawbr2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawbr2
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .tilerep3
|
|
jmp .finishmode7
|
|
|
|
;**********************************************************
|
|
; Mode 7, old routines
|
|
;**********************************************************
|
|
|
|
.nextval3
|
|
test byte[mode7set],80h
|
|
jnz near .norep
|
|
.nextval2
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw
|
|
test dl,0FFh
|
|
jz .nodraw
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .nextval2
|
|
xor eax,eax
|
|
mov dh,byte[curmosaicsz]
|
|
cmp dh,1
|
|
jne near domosaic16b
|
|
ret
|
|
; Color repetition
|
|
.norep
|
|
test byte[mode7set],40h
|
|
jnz near .tilerep
|
|
.nextvalb
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
cmp byte[.mode7ypos+2],3
|
|
ja near .offscr
|
|
cmp byte[.mode7xpos+2],3
|
|
ja near .offscr
|
|
.offscrb
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2
|
|
test dl,0FFh
|
|
jz .nodraw2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz near .nextvalb
|
|
jmp .goon
|
|
.offscrc
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscrb
|
|
.offscr
|
|
mov eax,[.mode7xadder]
|
|
mov ebx,[.mode7yadder]
|
|
add [.mode7xpos],eax
|
|
sub [.mode7ypos],ebx
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .offscrc
|
|
.goon
|
|
xor eax,eax
|
|
mov dh,byte[curmosaicsz]
|
|
cmp dh,1
|
|
jne near domosaic16b
|
|
ret
|
|
|
|
.tilerep
|
|
.nextvalbtr
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
cmp byte[.mode7ypos+2],3
|
|
ja near .offscrtr
|
|
cmp byte[.mode7xpos+2],3
|
|
ja near .offscrtr
|
|
.offscrtrb
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2tr
|
|
test dl,0FFh
|
|
jz .nodraw2tr
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2tr
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz near .nextvalbtr
|
|
jmp .goon
|
|
.offscrtrc
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscrtr
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscrtrb
|
|
.offscrtr
|
|
mov ch,[.mode7xpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov cl,[.mode7ypos+1]
|
|
mov ebx,[.mode7yadder]
|
|
mov dl,[mode7tab+ecx]
|
|
add [.mode7xpos],eax
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7ypos],ebx
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2trb
|
|
test dl,0FFh
|
|
jz .nodraw2trb
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2trb
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz near .offscrtrc
|
|
jmp .goon
|
|
|
|
ALIGN32
|
|
.temp dd 0 ; for byte move left
|
|
.mode7xpos dd 0 ; x position
|
|
.tempa2 dd 0 ; keep this blank!
|
|
.mode7xrpos dd 0 ; x position
|
|
.tempa dd 0 ; keep this blank!
|
|
.mode7ypos dd 0 ; y position
|
|
.tempb2 dd 0 ; keep this blank!
|
|
.mode7yrpos dd 0 ; y position
|
|
.tempb dd 0 ; keep this blank!
|
|
.mode7xadder dd 0 ; number to add for x
|
|
.tempc2 dd 0 ; keep this blank!
|
|
.mode7xadd2 dd 0 ; number to add for x
|
|
.tempc dd 0 ; keep this blank!
|
|
.mode7yadder dd 0 ; number to add for y
|
|
.tempd2 dd 0 ; keep this blank!
|
|
.mode7yadd2 dd 0 ; number to add for y
|
|
.tempd dd 0 ; keep this blank!
|
|
.mode7ptr dd 0 ; pointer value
|
|
.mode7xinc dd 0 ; number to add for x
|
|
.mode7xincc dd 0 ; range check for x
|
|
.mode7yinc dd 0 ; number to add for y
|
|
.mode7xsloc dd 0 ; which screen x
|
|
.mode7ysloc dd 0 ; which screen y
|
|
.mode7xsrl dd 0 ; which relative screen x
|
|
.mode7ysrl dd 0 ; which relative screen y
|
|
.cxloc dd 0 ; cx location
|
|
.cyloc dd 0 ; cy location
|
|
|
|
NEWSYM drawmode716bwinonextbg
|
|
|
|
; mode 7, ax = curyposition, dx = curxposition (left side)
|
|
; draw center map coordinates at (X0-bg1scrolx,Y0-bg1scroly) on screen
|
|
; center map coordinates = (X0,Y0)
|
|
; 1.) cx=X0-bg1scrolx, cy =Y0-ax
|
|
|
|
mov bx,[mode7X0]
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonega
|
|
or bx,1110000000000000b
|
|
.nonega
|
|
mov [.cxloc],bx
|
|
mov bx,dx
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegb
|
|
or bx,1110000000000000b
|
|
.nonegb
|
|
sub [.cxloc],bx
|
|
mov bx,ax
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegc
|
|
or bx,1110000000000000b
|
|
.nonegc
|
|
mov [.cyloc],bx
|
|
mov bx,[mode7Y0]
|
|
and bx,0001111111111111b ; 13 -> 16 bit signed value
|
|
test bx,0001000000000000b
|
|
jz .nonegd
|
|
or bx,1110000000000000b
|
|
.nonegd
|
|
sub word[.cyloc],bx
|
|
|
|
; 2.) Find position at scaled y, centered x at SCX=X0-(cy*C),SCY=Y0-(cy*D)
|
|
|
|
movsx ebx,word[.cyloc]
|
|
movsx eax,word[mode7C]
|
|
imul eax,ebx
|
|
neg eax
|
|
mov [.mode7xpos],eax
|
|
mov bx,word[mode7X0]
|
|
add [.mode7xpos+1],bx
|
|
|
|
movsx ebx,word[.cyloc]
|
|
movsx eax,word[mode7D]
|
|
imul eax,ebx
|
|
; neg ax
|
|
mov [.mode7ypos],eax
|
|
mov bx,word[mode7Y0]
|
|
add [.mode7ypos+1],bx
|
|
|
|
; 3.) Find left scaled location : SCX=SCX-(cx*A),SCY=SCY-(cx*B)
|
|
|
|
movsx ebx,word[.cxloc]
|
|
movsx eax,word[mode7A]
|
|
mov [.mode7xadder],eax
|
|
imul eax,ebx
|
|
neg eax
|
|
add [.mode7xpos],eax
|
|
|
|
movsx ebx,word[.cxloc]
|
|
movsx eax,word[mode7B]
|
|
mov [.mode7yadder],eax
|
|
imul eax,ebx
|
|
add [.mode7ypos],eax
|
|
|
|
; esi = pointer to video buffer
|
|
mov esi,[curvidoffset] ; esi = [vidbuffer] + curypos * 288 + 16
|
|
mov edi,[vram]
|
|
|
|
; esi = pointer to video buffer
|
|
; edi = pointer to vram
|
|
; [.mode7xadder] = dword value to add to x value (decimal between 7 & 8bit)
|
|
; [.mode7yadder] = dword value to add to y value (decimal between 7 & 8bit)
|
|
; [.mode7xpos] = dword value of x position, decimal between 7 & 8bit
|
|
; [.mode7xpos+1] = word value of x position
|
|
; [.mode7ypos] = dword value of y position, decimal between 7 & 8bit
|
|
; [.mode7ypos+1] = word value of y position
|
|
mov byte[.temp],0
|
|
xor ebx,ebx
|
|
xor edx,edx
|
|
xor ecx,ecx
|
|
mov dword[.mode7xadd2],800h
|
|
mov byte[.mode7xinc],2
|
|
mov byte[.mode7xincc],0
|
|
test dword[.mode7xadder],80000000h
|
|
jz .noneg
|
|
mov dword[.mode7xadd2],-800h
|
|
mov byte[.mode7xinc],-2
|
|
mov byte[.mode7xincc],0FEh
|
|
.noneg
|
|
mov dword[.mode7yadd2],800h
|
|
mov byte[.mode7yinc],1
|
|
test dword[.mode7yadder],80000000h
|
|
jz .noneg2
|
|
mov dword[.mode7yadd2],-800h
|
|
mov byte[.mode7yinc],-1
|
|
.noneg2
|
|
|
|
mov edi,[vram]
|
|
mov ebp,[cwinptr]
|
|
|
|
cmp dword[.mode7xadder],7F0h
|
|
jg near .nextval3
|
|
cmp dword[.mode7xadder],-7F0h
|
|
jl near .nextval3
|
|
cmp dword[.mode7yadder],7F0h
|
|
jg near .nextval3
|
|
cmp dword[.mode7yadder],-7F0h
|
|
jl near .nextval3
|
|
|
|
test byte[mode7set],80h
|
|
jnz near .norep2
|
|
|
|
mov eax,[.mode7xpos]
|
|
and eax,7FFh
|
|
mov [.mode7xrpos],eax
|
|
mov eax,[.mode7ypos]
|
|
and eax,7FFh
|
|
mov [.mode7yrpos],eax
|
|
|
|
; get tile data offset into edi
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
shl ebx,5
|
|
shr eax,3
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
mov edi,[vram]
|
|
xor ch,ch
|
|
mov [.mode7ptr],ebx
|
|
mov cl,[edi+ebx]
|
|
shl ecx,7
|
|
add edi,ecx
|
|
|
|
.nextval
|
|
test byte[.mode7xrpos+1],08h
|
|
jnz .rposoffx
|
|
.nextposx
|
|
test byte[.mode7yrpos+1],08h
|
|
jnz near .rposoffy
|
|
.nextposy
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawb
|
|
test dl,0FFh
|
|
jz .nodrawb
|
|
test byte[ebp],0FFh
|
|
jnz .nodrawb
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawb
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz .nextval
|
|
jmp .finishmode7
|
|
.rposoffx
|
|
mov al,[.mode7xinc]
|
|
mov edi,[vram]
|
|
add [.mode7ptr],al
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadd2]
|
|
shl ecx,7
|
|
sub [.mode7xrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposx
|
|
.rposoffy
|
|
mov al,[.mode7yinc]
|
|
mov edi,[vram]
|
|
sub [.mode7ptr+1],al
|
|
and byte[.mode7ptr+1],7Fh
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7yadd2]
|
|
shl ecx,7
|
|
add [.mode7yrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposy
|
|
.finishmode7
|
|
xor eax,eax
|
|
ret
|
|
|
|
;**********************************************************
|
|
; Mode 7, no repetition mode
|
|
;**********************************************************
|
|
|
|
.norep2
|
|
test byte[mode7set],40h
|
|
jnz .tilerep2
|
|
.nextvalb2
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr2
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscr3
|
|
.offscr2
|
|
mov eax,[.mode7xadder]
|
|
mov ebx,[.mode7yadder]
|
|
add [.mode7xpos],eax
|
|
sub [.mode7ypos],ebx
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz near .nextvalb2
|
|
jmp .finishmode7
|
|
.tilerep2
|
|
.nextvalb3
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr2b
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe .offscr3
|
|
.offscr2b
|
|
mov ch,[.mode7xpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov cl,[.mode7ypos+1]
|
|
mov ebx,[.mode7yadder]
|
|
mov dl,[mode7tab+ecx]
|
|
add [.mode7xpos],eax
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7ypos],ebx
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2trb2
|
|
test dl,0FFh
|
|
jz .nodraw2trb2
|
|
test byte[ebp],0FFh
|
|
jnz .nodraw2trb2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2trb2
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz .nextvalb3
|
|
jmp .finishmode7
|
|
.offscr3
|
|
mov eax,[.mode7xpos]
|
|
and eax,7FFh
|
|
mov [.mode7xrpos],eax
|
|
mov eax,[.mode7ypos]
|
|
and eax,7FFh
|
|
mov [.mode7yrpos],eax
|
|
|
|
; get tile data offset into edi
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
shl ebx,5
|
|
shr eax,3
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
mov edi,[vram]
|
|
xor ch,ch
|
|
mov [.mode7ptr],ebx
|
|
mov cl,[edi+ebx]
|
|
shl ecx,7
|
|
add edi,ecx
|
|
|
|
.nextvalr
|
|
test byte[.mode7xrpos+1],08h
|
|
jnz .rposoffxr
|
|
.nextposxr
|
|
test byte[.mode7yrpos+1],08h
|
|
jnz near .rposoffyr
|
|
.nextposyr
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawbr
|
|
test dl,0FFh
|
|
jz .nodrawbr
|
|
test byte[ebp],0FFh
|
|
jnz .nodrawbr
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawbr
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz .nextvalr
|
|
jmp .finishmode7
|
|
.rposoffxr
|
|
mov al,[.mode7xinc]
|
|
mov edi,[vram]
|
|
add [.mode7ptr],al
|
|
mov cl,byte[.mode7xincc]
|
|
cmp byte[.mode7ptr],cl
|
|
je .roff
|
|
.roffxretb
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadd2]
|
|
shl ecx,7
|
|
sub [.mode7xrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposxr
|
|
.rposoffyr
|
|
mov al,[.mode7yinc]
|
|
mov edi,[vram]
|
|
sub [.mode7ptr+1],al
|
|
js .roff
|
|
.roffyretb
|
|
mov ebx,[.mode7ptr]
|
|
xor ecx,ecx
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7yadd2]
|
|
shl ecx,7
|
|
add [.mode7yrpos],eax
|
|
add edi,ecx
|
|
jmp .nextposyr
|
|
.roff
|
|
test byte[mode7set],40h
|
|
jnz .tilerep3
|
|
jmp .finishmode7
|
|
.tilerep3
|
|
and byte[.mode7yrpos+1],07h
|
|
and byte[.mode7xrpos+1],07h
|
|
mov cl,[.mode7yrpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov ch,[.mode7xrpos+1]
|
|
add [.mode7xrpos],eax
|
|
mov dl,[mode7tab+ecx]
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7yrpos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodrawbr2
|
|
test dl,0FFh
|
|
jz .nodrawbr2
|
|
test byte[ebp],0FFh
|
|
jnz .nodrawbr2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodrawbr2
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz .tilerep3
|
|
jmp .finishmode7
|
|
|
|
;**********************************************************
|
|
; Mode 7, old routines
|
|
;**********************************************************
|
|
|
|
.nextval3
|
|
test byte[mode7set],80h
|
|
jnz near .norep
|
|
.nextval2
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw
|
|
test dl,0FFh
|
|
jz .nodraw
|
|
test byte[ebp],0FFh
|
|
jnz .nodraw
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz .nextval2
|
|
xor eax,eax
|
|
ret
|
|
; Color repetition
|
|
.norep
|
|
test byte[mode7set],40h
|
|
jnz near .tilerep
|
|
.nextvalb
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
cmp byte[.mode7ypos+2],3
|
|
ja near .offscr
|
|
cmp byte[.mode7xpos+2],3
|
|
ja near .offscr
|
|
.offscrb
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2
|
|
test dl,0FFh
|
|
jz .nodraw2
|
|
test byte[ebp],0FFh
|
|
jnz .nodraw2
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz near .nextvalb
|
|
jmp .goon
|
|
.offscrc
|
|
cmp byte[.mode7ypos+2],3
|
|
ja .offscr
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscrb
|
|
.offscr
|
|
mov eax,[.mode7xadder]
|
|
mov ebx,[.mode7yadder]
|
|
add [.mode7xpos],eax
|
|
sub [.mode7ypos],ebx
|
|
add esi,2
|
|
dec byte[.temp]
|
|
jnz .offscrc
|
|
.goon
|
|
xor eax,eax
|
|
ret
|
|
|
|
.tilerep
|
|
.nextvalbtr
|
|
; get tile # @ ([.mode7xpos],[.mode7ypos])
|
|
; get tile location in vram (tileloc=x*2+y*256)
|
|
cmp byte[.mode7ypos+2],3
|
|
ja near .offscrtr
|
|
cmp byte[.mode7xpos+2],3
|
|
ja near .offscrtr
|
|
.offscrtrb
|
|
mov ebx,[.mode7ypos+1]
|
|
mov eax,[.mode7xpos+1]
|
|
mov cl,bl
|
|
mov ch,al
|
|
shl ebx,5
|
|
shr eax,3
|
|
mov dl,[mode7tab+ecx]
|
|
and ebx,07FF8h
|
|
shl al,1
|
|
mov bl,al
|
|
xor ch,ch
|
|
mov cl,[edi+ebx]
|
|
mov eax,[.mode7xadder]
|
|
shl ecx,7
|
|
add [.mode7xpos],eax
|
|
add ecx,edx
|
|
mov eax,[.mode7yadder]
|
|
mov dl,[edi+ecx]
|
|
sub [.mode7ypos],eax
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2tr
|
|
test dl,0FFh
|
|
jz .nodraw2tr
|
|
test byte[ebp],0FFh
|
|
jnz .nodraw2tr
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2tr
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz near .nextvalbtr
|
|
jmp .goon
|
|
.offscrtrc
|
|
cmp byte[.mode7ypos+2],3
|
|
ja near .offscrtr
|
|
cmp byte[.mode7xpos+2],3
|
|
jbe near .offscrtrb
|
|
.offscrtr
|
|
mov ch,[.mode7xpos+1]
|
|
mov eax,[.mode7xadder]
|
|
mov cl,[.mode7ypos+1]
|
|
mov ebx,[.mode7yadder]
|
|
mov dl,[mode7tab+ecx]
|
|
add [.mode7xpos],eax
|
|
mov dl,[vrama+edx]
|
|
sub [.mode7ypos],ebx
|
|
mov [esi+288*2],dl
|
|
test dl,80h
|
|
jnz .nodraw2trb
|
|
test dl,0FFh
|
|
jz .nodraw2trb
|
|
test byte[ebp],0FFh
|
|
jnz .nodraw2trb
|
|
mov ecx,[pal16b+edx*4]
|
|
mov [esi],cx
|
|
.nodraw2trb
|
|
add esi,2
|
|
inc ebp
|
|
dec byte[.temp]
|
|
jnz near .offscrtrc
|
|
jmp .goon
|
|
|
|
ALIGN32
|
|
.temp dd 0 ; for byte move left
|
|
.mode7xpos dd 0 ; x position
|
|
.tempa2 dd 0 ; keep this blank!
|
|
.mode7xrpos dd 0 ; x position
|
|
.tempa dd 0 ; keep this blank!
|
|
.mode7ypos dd 0 ; y position
|
|
.tempb2 dd 0 ; keep this blank!
|
|
.mode7yrpos dd 0 ; y position
|
|
.tempb dd 0 ; keep this blank!
|
|
.mode7xadder dd 0 ; number to add for x
|
|
.tempc2 dd 0 ; keep this blank!
|
|
.mode7xadd2 dd 0 ; number to add for x
|
|
.tempc dd 0 ; keep this blank!
|
|
.mode7yadder dd 0 ; number to add for y
|
|
.tempd2 dd 0 ; keep this blank!
|
|
.mode7yadd2 dd 0 ; number to add for y
|
|
.tempd dd 0 ; keep this blank!
|
|
.mode7ptr dd 0 ; pointer value
|
|
.mode7xinc dd 0 ; number to add for x
|
|
.mode7xincc dd 0 ; range check for x
|
|
.mode7yinc dd 0 ; number to add for y
|
|
.mode7xsloc dd 0 ; which screen x
|
|
.mode7ysloc dd 0 ; which screen y
|
|
.mode7xsrl dd 0 ; which relative screen x
|
|
.mode7ysrl dd 0 ; which relative screen y
|
|
.cxloc dd 0 ; cx location
|
|
.cyloc dd 0 ; cy location
|
|
|
|
NEWSYM drawmode716extbg2
|
|
mov esi,[cwinptr]
|
|
mov [winptrref],esi
|
|
|
|
; esi = pointer to video buffer
|
|
mov esi,[curvidoffset] ; esi = [vidbuffer] + curypos * 288 + 16
|
|
mov edi,[vram]
|
|
cmp byte[curmosaicsz],1
|
|
je .nomosaic
|
|
mov esi,xtravbuf+32
|
|
mov ecx,128
|
|
.clearnext
|
|
mov dword[esi],0
|
|
add esi,4
|
|
dec ecx
|
|
jnz .clearnext
|
|
mov esi,xtravbuf+32
|
|
.nomosaic
|
|
|
|
cmp byte[curmosaicsz],1
|
|
jne .domosaic
|
|
cmp byte[winon],0
|
|
jne near .drawwin
|
|
.domosaic
|
|
mov ecx,256
|
|
xor eax,eax
|
|
.loop
|
|
mov al,[esi+288*2]
|
|
test al,80h
|
|
jz .nopr2
|
|
and al,7Fh
|
|
mov ebx,[pal16b+eax*4]
|
|
mov [esi],bx
|
|
.nopr2
|
|
add esi,2
|
|
dec ecx
|
|
jnz .loop
|
|
xor eax,eax
|
|
mov dh,byte[curmosaicsz]
|
|
cmp dh,1
|
|
jne near domosaic16b
|
|
ret
|
|
.drawwin
|
|
mov ebp,[cwinptr]
|
|
mov byte[esi],cl
|
|
.nodrawbw
|
|
mov ecx,256
|
|
xor eax,eax
|
|
.loop2
|
|
mov al,[esi+288*2]
|
|
test byte[ebp],0FFh
|
|
jnz .nopr2b
|
|
test al,80h
|
|
jz .nopr2b
|
|
and al,7Fh
|
|
mov ebx,[pal16b+eax*4]
|
|
mov [esi],bx
|
|
.nopr2b
|
|
add esi,2
|
|
inc ebp
|
|
dec ecx
|
|
jnz .loop2
|
|
xor eax,eax
|
|
mov dh,byte[curmosaicsz]
|
|
cmp dh,1
|
|
jne near domosaic16b
|
|
ret
|
|
NEWSYM Mode716EAsmEnd
|