First release of ZSNES sources

zsnes/src/gui/guitools.inc

@@ -0,0 +1,836 @@
+;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.
+
+
+
+
+
+
+
+; Tools for the GUI (string functions are also used elsewhere)
+
+NEWSYM CopyString
+    push eax
+.again
+    mov dl,[eax]
+    mov [ebx],dl
+    inc eax
+    inc ebx
+    or dl,dl
+    jnz .again
+    pop eax
+    ret
+
+NEWSYM StringLength
+    xor ecx,ecx
+    push eax
+.loop
+    cmp byte[eax],0
+    je .done
+    inc eax
+    inc ecx
+    jmp .loop
+.done
+    pop eax
+    ret
+
+NEWSYM ClipString
+    ; clip string eax by bl characters
+.next
+    push eax
+.again
+    mov dl,[eax+1]
+    mov [eax],dl
+    inc eax
+    or dl,dl
+    jnz .again
+    pop eax
+    dec bl
+    jnz .next
+    ret
+
+NEWSYM ConcatString
+    ; concat eax in front of ebx, store in ebx
+    ; move string forward by length of eax
+    pushad
+    mov esi,eax
+    cmp byte[esi],0
+    je near .nomore3
+.next
+    inc esi
+    cmp byte[esi],0
+    jne .next
+    dec esi
+.again
+    mov dl,[esi]
+    push ebx
+    xor ecx,ecx
+.loop
+    cmp byte[ebx],0
+    je .nomore
+    inc ebx
+    inc ecx
+    jmp .loop
+.nomore
+    inc ebx
+    inc ecx
+.loop2
+    or ecx,ecx
+    jz .nomore2
+    mov dh,[ebx-1]
+    mov [ebx],dh
+    dec ebx
+    dec ecx
+    jmp .loop2
+.nomore2
+    pop ebx
+    mov [ebx],dl
+    cmp eax,esi
+    je .nomore3
+    dec esi
+    jmp .again
+.nomore3
+    popad
+    ret
+
+GUIoutputchar:
+    push edi
+    push esi
+    push eax
+    xor ebx,ebx
+    mov bl,al
+    mov edi,GUIFontData
+    lea ebx,[ebx*5]
+    add edi,ebx
+    mov cl,5
+.loopa
+    mov ah,[edi]
+    mov ch,5
+.loopb
+    test ah,80h
+    jz .nowrite
+    mov al,[GUItextcolor]
+    sub al,cl
+    sub al,ch
+    mov byte[esi],al
+.nowrite
+    shl ah,1
+    inc esi
+    dec ch
+    jnz .loopb
+    add esi,283
+    inc edi
+    dec cl
+    jnz .loopa
+    pop eax
+    pop esi
+    pop edi
+    ret
+
+GUIOutputString:
+    xor eax,eax
+.more
+    mov al,[edi]
+    or al,al
+    jz .nomore
+    mov al,[ASCII2Font+eax]
+    call GUIoutputchar
+    add esi,6
+    inc edi
+    jmp .more
+.nomore
+    ret
+
+%macro GUIOuttext 4
+    mov edi,%2
+    mov esi,edi
+    shl esi,8
+    shl edi,5
+    add esi,edi
+    add esi,[vidbuffer]
+    add esi,%1
+    add esi,16
+    mov edi,%3
+    mov byte[GUItextcolor],%4
+    call GUIOutputString
+%endmacro
+
+GUIDrawBox:
+.loop
+    push edi
+    push ecx
+    rep stosb
+    pop ecx
+    pop edi
+    add edi,288
+    dec edx
+    jnz .loop
+    ret
+
+%macro GUIBox 5
+    mov edi,[vidbuffer]
+    add edi,%1
+    mov edx,%2
+    mov ecx,edx
+    shl edx,8
+    shl ecx,5
+    add edx,ecx
+    add edi,edx
+    add edi,16
+    mov ecx,%3
+    sub ecx,%1
+    inc ecx
+    mov edx,%4
+    sub edx,%2
+    inc edx
+    mov al,%5
+    call GUIDrawBox
+%endmacro
+
+GUIHLines:
+    cmp ecx,0
+    jl near .nodraw
+    cmp eax,255
+    jg near .nodraw
+    cmp eax,0
+    jnl .noofx
+    mov eax,0
+.noofx
+    cmp ecx,255
+    jng .noofx2
+    mov ecx,255
+.noofx2
+    cmp ebx,0
+    jl .nodraw
+    cmp ebx,223
+    jg .nodraw
+
+    sub ecx,eax
+    inc ecx
+
+    mov edi,[vidbuffer]
+    add edi,eax
+    add edi,16
+
+    mov eax,ebx
+    shl eax,8
+    add edi,eax
+    mov eax,ebx
+    shl eax,5
+    add edi,eax
+    mov eax,edx
+.loop
+    mov [edi],ah
+    add eax,[GUIcolscaleval]
+    inc edi
+    dec ecx
+    jnz .loop
+
+.nodraw
+    ret
+
+GUIHLine:
+    cmp ecx,0
+    jl near .nodraw
+    cmp eax,255
+    jg near .nodraw
+    cmp eax,0
+    jnl .noofx
+    mov eax,0
+.noofx
+    cmp ecx,255
+    jng .noofx2
+    mov ecx,255
+.noofx2
+    cmp ebx,0
+    jl .nodraw
+    cmp ebx,223
+    jg .nodraw
+    sub ecx,eax
+    inc ecx
+    mov edi,[vidbuffer]
+    add edi,eax
+    add edi,16
+    mov eax,ebx
+    shl eax,8
+    add edi,eax
+    mov eax,ebx
+    shl eax,5
+    add edi,eax
+    mov eax,edx
+    rep stosb
+.nodraw
+    ret
+
+%macro GUIPal 4
+    mov dx,03C8h
+    mov al,%1
+    out dx,al
+    inc dx
+    mov al,%2
+    out dx,al
+    mov al,%3
+    out dx,al
+    mov al,%4
+    out dx,al
+%endmacro
+
+GUIDrawShadow:
+.loop
+    push edi
+    push ecx
+.loop2
+    mov al,[edi-3*288-3]
+    cmp al,148
+    jb .nomidshad
+    cmp al,167
+    ja .mid2
+    add byte[edi-3*288-3],20
+    jmp .noshadow
+.mid2
+    cmp al,189
+    jb .nomidshad
+    cmp al,220
+    ja .nomidshad
+    sub al,189
+    shr al,1
+    add al,189
+    mov byte[edi-288*3-3],al
+    jmp .noshadow
+.nomidshad
+    mov al,[edi]
+    cmp al,32
+    jae .noshadow
+    add al,96
+    mov [edi],al
+.noshadow
+    inc edi
+    dec ecx
+    jnz .loop2
+    pop ecx
+    pop edi
+    add edi,288
+    dec edx
+    jnz near .loop
+    ret
+
+%macro GUIShadow 4
+    mov edi,[vidbuffer]
+    add edi,%1+%2*288+16
+    mov ecx,%3-%1+1
+    mov edx,%4-%2+1
+    call GUIDrawShadow
+%endmacro
+
+
+GUIDrawShadow2:
+.loop
+    push edi
+    push ecx
+.loop2
+    mov al,[edi]
+    cmp al,32
+    jae .noshadow
+    add al,96
+    mov [edi],al
+.noshadow
+    inc edi
+    dec ecx
+    jnz .loop2
+    pop ecx
+    pop edi
+    add edi,288
+    dec ebx
+    jnz .loop
+    ret
+
+GUIoutputcharwin:
+    push edi
+    push esi
+    push eax
+    xor ebx,ebx
+    mov bl,al
+    mov edi,GUIFontData
+    lea ebx,[ebx*5]
+    add edi,ebx
+    mov cl,5
+.loopa
+    mov ah,[edi]
+    mov ch,5
+    cmp esi,[vidbuffer]
+    jb .below
+    mov edx,[vidbuffer]
+    add edx,224*288
+    cmp esi,edx
+    jb .loopb
+.below
+    add esi,5
+    jmp .nowrite2
+.loopb
+    test ah,80h
+    jz .nowrite
+    mov al,[GUItextcolor]
+    mov byte[esi],al
+.nowrite
+    shl ah,1
+    inc esi
+    dec ch
+    jnz .loopb
+.nowrite2
+    add esi,283
+    inc edi
+    dec cl
+    jnz .loopa
+    pop eax
+    pop esi
+    pop edi
+    ret
+
+GUIOutputStringwin:
+    xor eax,eax
+.more
+    mov al,[edi]
+    or al,al
+    jz .nomore
+    mov al,[ASCII2Font+eax]
+    cmp edx,-8
+    jl .nodraw
+    cmp edx,255
+    jg .nodraw
+    push esi
+    push edx
+    add esi,edx
+    call GUIoutputcharwin
+    pop edx
+    pop esi
+.nodraw
+    add edx,6
+    inc edi
+    jmp .more
+.nomore
+    ret
+
+GUIOutputStringwinl:
+    xor eax,eax
+    mov ecx,[cloadmaxlen]
+.more
+    mov al,[edi]
+    cmp byte[OSPort],1
+    jbe .noperc
+    cmp al,'%'
+    jne .noperc
+    call ConvertPercValue
+.noperc
+    or al,al
+    jz .nomore
+    mov al,[ASCII2Font+eax]
+    cmp edx,-8
+    jl .nodraw
+    cmp edx,255
+    jg .nodraw
+    push esi
+    push edx
+    push ecx
+    add esi,edx
+    call GUIoutputcharwin
+    pop ecx
+    pop edx
+    pop esi
+.nodraw
+    add edx,6
+    inc edi
+    dec ecx
+    jz .nomore
+    jmp .more
+.nomore
+    ret
+
+ConvertPercValue:
+    mov al,[edi+2]
+    cmp al,'a'
+    jb .notlower
+    cmp al,'z'
+    ja .notlower
+    sub al,'a'-'A'
+.notlower
+    mov ah,[edi+1]
+    cmp ah,'a'
+    jb .notlowerb
+    cmp ah,'z'
+    ja .notlowerb
+    sub ah,'a'-'A'
+.notlowerb
+    cmp al,'0'
+    jb .noperc
+    cmp al,'9'
+    jbe .yesperc
+    cmp al,'F'
+    ja .noperc
+    cmp al,'A'
+    jb .noperc
+.yesperc
+    cmp ah,'0'
+    jb .noperc
+    cmp ah,'9'
+    jbe .yesperc2
+    cmp ah,'F'
+    ja .noperc
+    cmp ah,'A'
+    jb .noperc
+.yesperc2
+    sub al,'0'
+    cmp al,9
+    jbe .nodec
+    sub al,'A'-'0'-10
+.nodec
+    sub ah,'0'
+    cmp ah,9
+    jbe .nodecb
+    sub ah,'A'-'0'-10
+.nodecb
+    shl ah,4
+    or al,ah
+    add edi,2
+    and eax,0FFh
+    ret
+.noperc
+    xor eax,eax
+    mov al,[edi]
+    ret
+
+OutputUnder:
+    cmp edx,-8
+    jl .nodraw
+    cmp edx,255
+    jg .nodraw
+    mov dword[esi+edx+5*288-1],0E8E8E8E8h
+    mov byte[esi+edx+5*288+3],0E8h
+.nodraw
+    ret
+
+%macro GUIOuttextwin 1
+    mov esi,ebx
+    mov eax,ebx
+    shl esi,8
+    shl eax,5
+    add esi,eax
+    add esi,16
+    add esi,[vidbuffer]
+    mov edi,%1
+    call GUIOutputStringwin
+%endmacro
+
+%macro GUIOuttextwin2 4
+    mov edx,dword[GUIwinposx+%1*4]
+    mov ebx,dword[GUIwinposy+%1*4]
+    add edx,%2
+    add ebx,%3
+
+    mov esi,ebx
+    mov eax,ebx
+    shl esi,8
+    shl eax,5
+    add esi,eax
+    add esi,16
+    add esi,[vidbuffer]
+    mov edi,%4
+    call GUIOutputStringwin
+%endmacro
+
+%macro GUIOuttextwin2l 4
+    mov edx,dword[GUIwinposx+%1*4]
+    mov ebx,dword[GUIwinposy+%1*4]
+    add edx,%2
+    add ebx,%3
+
+    mov esi,ebx
+    mov eax,ebx
+    shl esi,8
+    shl eax,5
+    add esi,eax
+    add esi,16
+    add esi,[vidbuffer]
+    mov edi,%4
+    call GUIOutputStringwinl
+%endmacro
+
+%macro GUIOuttextwin2u 5
+    mov edx,dword[GUIwinposx+%1*4]
+    mov ebx,dword[GUIwinposy+%1*4]
+    add edx,%2
+    add ebx,%3
+
+    mov esi,ebx
+    mov eax,ebx
+    shl esi,8
+    shl eax,5
+    add esi,eax
+    add esi,16
+    add esi,[vidbuffer]
+    mov edi,%4
+    add edx,%5*6
+    call OutputUnder
+    sub edx,%5*6
+    call GUIOutputStringwin
+%endmacro
+
+GUIoutputiconwin:
+    cmp eax,-9
+    jl .nodraw
+    cmp eax,256
+    jl .draw
+.nodraw
+    ret
+.draw
+    mov esi,ebx
+    mov ecx,ebx
+    shl esi,8
+    shl ecx,5
+    add esi,ecx
+    add esi,16
+    add esi,[vidbuffer]
+    add esi,eax
+    mov cl,10
+.loopa
+    mov ch,10
+    cmp esi,[vidbuffer]
+    jb .below
+    mov edx,[vidbuffer]
+    add edx,224*288
+    cmp esi,edx
+    jb .loopb
+.below
+    add esi,10
+    jmp .nowrite2
+.loopb
+    mov al,[edi]
+    or al,al
+    jz .transp
+    cmp al,189
+    ja .col2
+    cmp byte[GUIWincoladd],0
+    je .col3
+    inc al
+    jmp .col3
+.col2
+    sub al,[GUIWincoladd]
+    dec al
+.col3
+    mov [esi],al
+.transp
+    inc edi
+    inc esi
+    dec ch
+    jnz .loopb
+.nowrite2
+    add esi,278
+    dec cl
+    jnz .loopa
+    ret
+
+%macro GUIDisplayIcon 1
+    mov edi,%1
+    call GUIoutputiconwin
+%endmacro
+
+%macro GUIDisplayIconWin 4
+    mov eax,dword[GUIwinposx+%1*4]
+    mov ebx,dword[GUIwinposy+%1*4]
+    add eax,%2
+    add ebx,%3
+    mov edi,%4
+    call GUIoutputiconwin
+%endmacro
+
+GUIDrawSlideBar:
+    cmp eax,-10
+    jl .ret
+    cmp eax,256
+    jg .ret
+    jmp .noret
+.ret
+    ret
+.noret
+    mov edi,[vidbuffer]
+    mov [vbuflimtop],edi
+    mov edi,[vidbuffer]
+    add edi,288*224
+    sub edi,16
+    mov [vbuflimbot],edi
+    mov edi,eax
+    mov eax,ebx
+    shl ebx,8
+    shl eax,5
+    add edi,ebx
+    add edi,eax
+    add edi,[vidbuffer]
+    add edi,16
+    xor eax,eax
+    dec ecx
+.loop
+    cmp edx,0
+    je near .toparea
+    cmp ecx,0
+    je near .bottomarea
+    cmp ah,1
+    je .filleddisp
+    cmp edi,[vbuflimtop]
+    jb near .nodraw
+    cmp edi,[vbuflimbot]
+    ja near .nodraw
+    mov al,197
+    sub al,byte[GUIWincoladd]
+    mov [edi],al
+    sub al,2
+    mov [edi+1],al
+    dec al
+    mov [edi+2],al
+    dec al
+    mov [edi+3],al
+    mov [edi+4],al
+    inc al
+    mov [edi+5],al
+    inc al
+    mov [edi+6],al
+    add al,2
+    mov [edi+7],al
+    jmp .fin
+.filleddisp
+    cmp edi,[vbuflimtop]
+    jb near .nodraw
+    cmp edi,[vbuflimbot]
+    ja near .nodraw
+    mov al,202
+    sub al,byte[GUIWincoladd]
+    mov [edi],al
+    sub al,2
+    mov [edi+1],al
+    mov [edi+2],al
+    mov [edi+3],al
+    mov [edi+4],al
+    mov [edi+5],al
+    mov [edi+6],al
+    sub al,2
+    mov [edi+7],al
+    jmp .fin
+.toparea
+    cmp edi,[vbuflimtop]
+    jb near .nodraw
+    cmp edi,[vbuflimbot]
+    ja near .nodraw
+    mov al,202
+    sub al,byte[GUIWincoladd]
+    mov [edi],al
+    add al,2
+    mov [edi+1],al
+    mov [edi+2],al
+    mov [edi+3],al
+    mov [edi+4],al
+    mov [edi+5],al
+    mov [edi+6],al
+    mov [edi+7],al
+    mov ah,1
+    jmp .fin
+.bottomarea
+    cmp edi,[vbuflimtop]
+    jb near .nodraw
+    cmp edi,[vbuflimbot]
+    ja near .nodraw
+    mov al,6
+    mov al,196
+    sub al,byte[GUIWincoladd]
+    mov [edi],al
+    mov [edi+1],al
+    mov [edi+2],al
+    mov [edi+3],al
+    mov [edi+4],al
+    mov [edi+5],al
+    mov [edi+6],al
+    add al,2
+    mov [edi+7],al
+    mov ah,0
+.fin
+.nodraw
+    add edi,288
+    dec ecx
+    dec edx
+    dec esi
+    jnz near .loop
+    ret
+
+%macro DrawSlideBarWin 8
+    ; win#,X,Y start, %4-List Loc, %5-List size, %6-Screen size, %7-Bar Size
+    mov ebx,%5
+    mov ecx,%4
+    ; if (Screen Size > List Size) List Size = Screen Size
+    cmp ebx,%6
+    jae %%noscrbig
+    mov ebx,%6
+%%noscrbig
+    ; If (ListLoc + ScreenSize > ListSize) ListLoc = ListSize - ScreenSize
+    mov eax,ecx
+    add eax,%6
+    cmp eax,ebx
+    jbe %%nosetlloc
+    mov ecx,ebx
+    sub ecx,%6
+%%nosetlloc
+    ; Scrollbarsize = (Screen Size/List size)*Bar Size
+    push ebx
+    mov eax,%6
+    mov ebx,%7
+    mul ebx
+    pop ebx
+    div ebx
+    ; If (Scrollbarsize < 5) Scrollbarsize = 5
+    cmp eax,5
+    jae %%validscroll
+    mov eax,5
+%%validscroll
+    ; StartY = (Bar Size-Scrollbarsize)*(List Loc/(List size-ScreenSize))
+    push eax
+    sub eax,%7
+    neg eax
+    mul ecx
+    sub ebx,%6
+    cmp ebx,0
+    je %%zero
+    div ebx
+    jmp %%notzero
+%%zero
+    xor eax,eax
+%%notzero
+    mov edx,eax
+    pop eax
+    mov ecx,eax
+    add ecx,edx
+    ; ecx = endy, edx = starty
+    mov esi,%7
+    sub esi,ecx
+    add esi,edx
+    dec esi
+    mov [%8],esi
+    mov [%8+4],edx
+    mov [%8+8],ecx
+    mov eax,dword[GUIwinposx+%1*4]
+    mov ebx,dword[GUIwinposy+%1*4]
+    add eax,%2
+    add ebx,%3
+    mov esi,%7
+    call GUIDrawSlideBar
+%endmacro
+