First release of ZSNES sources

zsnes/src/gui/guicombo.inc

@@ -0,0 +1,190 @@
+;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.
+
+
+
+
+
+
+
+ComboClip:
+    xor eax,eax
+    mov al,[GUINumCombo]
+.next
+    cmp al,42
+    jae .excess
+    mov byte[GUIComboData+eax],0
+    inc eax
+    jmp .next
+.excess
+    ret
+
+ComboAdder:
+    cmp byte[romloadskip],0
+    je .romloaded
+    cmp byte[GUIComboGameSpec],0
+    jne near .skipall
+.romloaded
+    pushad
+    call ComboClip
+    mov eax,[NumCombo]
+    shl eax,6
+    add eax,[NumCombo]
+    add eax,[NumCombo]
+    add eax,CombinDataGlob
+    cmp byte[GUIComboGameSpec],0
+    je .nogamespec
+    sub eax,CombinDataGlob
+    add eax,CombinDataLocl
+.nogamespec
+    ; copy data to eax
+    mov ecx,20  ; copy name
+    mov ebx,GUIComboTextH
+.loop
+    mov dl,[ebx]
+    mov [eax],dl
+    inc ebx
+    inc eax
+    loop .loop
+    mov ecx,42  ; copy combination code
+    mov ebx,GUIComboData
+.loop2
+    mov dl,[ebx]
+    mov [eax],dl
+    inc ebx
+    inc eax
+    loop .loop2
+    mov dx,[GUIComboKey]
+    mov [eax],dx
+    mov dl,[GUIComboPNum]
+    mov [eax+2],dl
+    mov dl,[GUIComboLHorz]
+    mov [eax+3],dl
+    mov eax,[NumCombo]
+    mov [GUIccombcursloc],eax
+    sub eax,7
+    cmp [GUIccombviewloc],eax
+    jge .rangeokay
+    mov [GUIccombviewloc],eax
+.rangeokay
+    inc dword[NumCombo]
+    mov eax,[NumCombo]
+    cmp byte[GUIComboGameSpec],0
+    jne .local
+    mov [NumComboGlob],eax
+    jmp .global
+.local
+    mov [NumComboLocl],eax
+.global
+    popad
+    mov byte[GUIComboTextH],0
+    mov byte[GUINumCombo],0
+    mov dword[GUIComboKey],0
+.skipall
+    ret
+
+ComboReplace:
+    pushad
+    call ComboClip
+    mov eax,[GUIccombcursloc]
+    shl eax,6
+    add eax,[GUIccombcursloc]
+    add eax,[GUIccombcursloc]
+    add eax,CombinDataGlob
+    cmp byte[GUIComboGameSpec],0
+    je .nogamespec
+    sub eax,CombinDataGlob
+    add eax,CombinDataLocl
+.nogamespec
+    ; copy data to eax
+    mov ecx,20  ; copy name
+    mov ebx,GUIComboTextH
+.loop
+    mov dl,[ebx]
+    mov [eax],dl
+    inc ebx
+    inc eax
+    loop .loop
+    mov ecx,42  ; copy combination code
+    mov ebx,GUIComboData
+.loop2
+    mov dl,[ebx]
+    mov [eax],dl
+    inc ebx
+    inc eax
+    loop .loop2
+    mov dx,[GUIComboKey]
+    mov [eax],dx
+    mov dl,[GUIComboPNum]
+    mov [eax+2],dl
+    mov dl,[GUIComboLHorz]
+    mov [eax+3],dl
+    popad
+    ret
+
+ComboRemoval:
+    pushad
+    mov eax,[GUIccombcursloc]
+    shl eax,6
+    add eax,[GUIccombcursloc]
+    add eax,[GUIccombcursloc]
+    add eax,CombinDataGlob
+    cmp byte[GUIComboGameSpec],0
+    je .nogamespec
+    sub eax,CombinDataGlob
+    add eax,CombinDataLocl
+.nogamespec
+    mov ecx,[NumCombo]
+    sub ecx,[GUIccombcursloc]
+    dec ecx
+    cmp ecx,0
+    jle .nomove
+.loop2
+    mov ebx,66
+.loop
+    mov dl,[eax+66]
+    mov [eax],dl
+    inc eax
+    dec ebx
+    jnz .loop
+    loop .loop2
+.nomove
+    dec dword[NumCombo]
+    mov eax,[NumCombo]
+    or eax,eax
+    jz .yeszero
+    dec eax
+.yeszero
+    cmp [GUIccombviewloc],eax
+    jbe .notequal
+    mov [GUIccombviewloc],eax
+.notequal
+    cmp [GUIccombcursloc],eax
+    jbe .notequal2
+    mov [GUIccombcursloc],eax
+.notequal2
+    mov eax,[NumCombo]
+    cmp byte[GUIComboGameSpec],0
+    jne .local
+    mov [NumComboGlob],eax
+    jmp .global
+.local
+    mov [NumComboLocl],eax
+.global
+    popad
+    ret
+

zsnes/src/gui/guimisc.inc

@@ -0,0 +1,499 @@
+;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.
+
+
+
+; Movie, Joystick setting (display) routines, SNES Reset Function
+
+MovieRecord:
+    mov byte[GUICBHold],0
+    mov dword[MovieCounter],0
+    cmp byte[MovieProcessing],0
+    jne near .dontrecord
+    ; check if movie exists already
+    mov ebx,[statefileloc]
+    mov eax,[fnamest+ebx-3]
+    push eax
+    mov dword[fnamest+ebx-3],'.ZMV'
+    mov al,[CMovieExt]
+    mov byte[fnamest+ebx],al
+
+    ; check if file exists
+    cmp byte[MovieRecordWinVal],1
+    je .nocheck
+    mov edx,fnamest+1
+    call Open_File
+    jc .nocheck
+    mov bx,ax
+    call Close_File
+    mov byte[MovieRecordWinVal],1
+    jmp .skipstate
+.nocheck
+    mov dword[CFWriteHead],0
+    mov dword[CReadHead],0
+    mov dword[ReadHead],0
+    mov dword[CFWriteStart],64
+    mov byte[MovieRecordWinVal],0
+    call ChangetoSRAMdir
+    mov byte[NoPictureSave],1
+    call statesaver
+    mov byte[NoPictureSave],0
+    mov edx,fnamest+1
+    call Open_File_Write
+    mov bx,ax
+    mov [MovieFileHand],bx
+    mov cx,0
+    mov dx,0
+    call File_Seek_End
+    mov al,[soundon]
+    mov [RecData],al
+    mov eax,[welcome+8]
+    mov [RecData+1],eax
+    mov byte[RecData+2],1
+    mov eax,[timer2upd]
+    mov [RecData+3],eax
+    mov eax,[curexecstate]
+    mov [RecData+7],eax
+    mov edx,RecData
+    mov ecx,16
+    call Write_File
+    cmp dword[ramsize],0
+    je .noram
+    mov edx,[sram]
+    mov ecx,[ramsize]
+    call Write_File
+.noram
+    mov byte[MovieProcessing],2
+    mov dword[MovieBuffSize],0
+    mov dword[MovieBuffFrame],0
+    mov byte[RepeatFrame],0
+    cmp byte[CNetType],20
+    je near .netstuff
+    cmp byte[CNetType],21
+    je near .netstuff
+    mov dword[nmiprevaddrl],0
+    mov dword[nmiprevaddrh],0
+    mov dword[nmirept],0
+    mov dword[nmiprevline],224
+    mov dword[nmistatus],0
+    mov byte[spcnumread],0
+    mov byte[NextLineCache],0
+    mov dword[PJoyAOrig],0
+    mov dword[PJoyBOrig],0
+    mov dword[PJoyCOrig],0
+    mov dword[PJoyDOrig],0
+    mov dword[PJoyEOrig],0
+    mov byte[DSPMem+08h],0
+    mov byte[DSPMem+18h],0
+    mov byte[DSPMem+28h],0
+    mov byte[DSPMem+38h],0
+    mov byte[DSPMem+48h],0
+    mov byte[DSPMem+58h],0
+    mov byte[DSPMem+68h],0
+    mov byte[DSPMem+78h],0
+.netstuff
+    call ChangetoLOADdir
+.skipstate
+    pop eax
+    mov ebx,[statefileloc]
+    mov [fnamest+ebx-3],eax
+.dontrecord
+    ret
+
+MovieRecordWinVal db 0
+NEWSYM MovieProcessing, db 0
+NEWSYM MovieFileHand, dw 0
+NEWSYM RepeatFrame, db 0
+NEWSYM RecData, times 16 db 0
+NEWSYM NoPictureSave, db 0
+
+SkipMovie:
+    mov byte[MovieRecordWinVal],0
+    mov byte[GUICBHold],0
+    ret
+
+MovieStop:
+    mov byte[GUICBHold],0
+    cmp byte[MovieProcessing],0
+    je .skipfileend
+    mov bx,[MovieFileHand]
+    mov byte[MovieProcessing],0
+    call Close_File
+.skipfileend
+    ret
+
+CalibrateDispA:
+    xor ebx,ebx
+    mov ecx,256
+.a
+    mov byte[pressed+ebx],0
+    inc ebx
+    loop .a
+    call GUIUnBuffer
+    call DisplayBoxes
+    call DisplayMenu
+    GUIBox 75,103,192,135,160
+    GUIBox 75,103,192,103,162
+    GUIBox 75,103,75,135,161
+    GUIBox 192,103,192,135,159
+    GUIBox 75,135,192,135,158
+    GUIOuttext 81,109,guicalberror1,220-15
+    GUIOuttext 80,108,guicalberror1,220
+    GUIOuttext 81,117,guicalberror2,220-15
+    GUIOuttext 80,116,guicalberror2,220
+    GUIOuttext 81,125,guicalberror3,220-15
+    GUIOuttext 80,124,guicalberror3,220
+    call vidpastecopyscr
+    call WaitForKey
+    ret
+
+CalibrateDispB:
+    xor ebx,ebx
+    mov ecx,256
+.a
+    mov byte[pressed+ebx],0
+    inc ebx
+    loop .a
+    call GUIUnBuffer
+    call DisplayBoxes
+    call DisplayMenu
+    GUIBox 75,103,192,143,160
+    GUIBox 75,103,192,103,162
+    GUIBox 75,103,75,143,161
+    GUIBox 192,103,192,143,159
+    GUIBox 75,143,192,143,158
+    GUIOuttext 81,109,guicalberror4,220-15
+    GUIOuttext 80,108,guicalberror4,220
+    GUIOuttext 81,117,guicalberror5,220-15
+    GUIOuttext 80,116,guicalberror5,220
+    GUIOuttext 81,125,guicalberror6,220-15
+    GUIOuttext 80,124,guicalberror6,220
+    GUIOuttext 81,133,guicalberror7,220-15
+    GUIOuttext 80,132,guicalberror7,220
+    call vidpastecopyscr
+    call WaitForKey
+    ret
+
+guicalberror1 db 'PRESS THE TOP LEFT',0
+guicalberror2 db 'CORNER AND PRESS A',0
+guicalberror3 db 'BUTTON OR KEY',0
+guicalberror4 db 'PRESS THE BOTTOM',0
+guicalberror5 db 'RIGHT CORNER AND',0
+guicalberror6 db 'PRESS A BUTTON OR',0
+guicalberror7 db 'KEY',0
+
+
+SetAllKeys:
+    xor ebx,ebx
+    mov ecx,256+128+64
+.a
+    mov byte[pressed+ebx],0
+    inc ebx
+    loop .a
+
+    mov byte[GUICBHold],0
+    mov edi,pl1selk
+    cmp byte[cplayernum],1
+    jne .nopl2
+    mov edi,pl2selk
+.nopl2
+    cmp byte[cplayernum],2
+    jne .nopl3
+    mov edi,pl3selk
+.nopl3
+    cmp byte[cplayernum],3
+    jne .nopl4
+    mov edi,pl4selk
+.nopl4
+    cmp byte[cplayernum],4
+    jne .nopl5
+    mov edi,pl5selk
+.nopl5
+    mov dword[guicpressptr],edi
+    xor ebx,ebx
+    mov ecx,12
+    mov dword[guipressptr],guipresstext4b
+.loop
+    mov eax,[.ordercalb+ebx*4]
+    shl eax,2
+    add dword[guicpressptr],eax
+    push ebx
+    push ecx
+    call guipresstestb
+    pop ecx
+    pop ebx
+    add dword[guipressptr],21
+    mov eax,[.ordercalb+ebx*4]
+    shl eax,2
+    sub dword[guicpressptr],eax
+    inc ebx
+    dec ecx
+    jnz .loop
+    ret
+.ordercalb dd 2,3,4,5,1,0,7,10,6,9,8,11
+
+CalibrateDev1:
+    xor eax,eax
+    mov al,[cplayernum]
+    mov ebx,[GUIInputRefP+eax*4]
+    mov bl,[ebx]
+    mov byte[GUICBHold],0
+    cmp byte[pl1p209+eax],0
+    jne near .port209
+    cmp bl,1
+    jbe .nojoy
+    cmp bl,18
+    je near .6button
+    cmp bl,5
+    je near .6button
+    cmp bl,6
+    jae .nojoy
+    mov dx,201h
+    call GetCoords
+    mov eax,[JoyX]
+    mov [.joybcx],eax
+    mov eax,[JoyY]
+    mov [.joybcy],eax
+    call CalibrateDispA
+    mov dx,201h
+    call GetCoords
+    mov eax,[JoyX]
+    mov [.joyblx],eax
+    mov eax,[JoyY]
+    mov [.joybly],eax
+    call CalibrateDispB
+    mov dx,201h
+    call GetCoords
+    jmp .procdir
+.nojoy
+    ret
+.6button
+    mov dx,201h
+    call GetCoords3
+    mov eax,[JoyX]
+    mov [.joybcx],eax
+    mov eax,[JoyY]
+    mov [.joybcy],eax
+    call CalibrateDispA
+    mov dx,201h
+    call GetCoords3
+    mov eax,[JoyX]
+    mov [.joyblx],eax
+    mov eax,[JoyY]
+    mov [.joybly],eax
+    call CalibrateDispB
+    mov dx,201h
+    call GetCoords3
+.procdir
+    mov eax,[.joybcx]
+    add eax,[.joyblx]
+    shr eax,1
+    mov [JoyMinX],eax
+    mov [CalibXmin],eax
+    mov eax,[.joybcy]
+    add eax,[.joybly]
+    shr eax,1
+    mov [JoyMinY],eax
+    mov [CalibYmin],eax
+    mov eax,[.joybcx]
+    add eax,[JoyX]
+    shr eax,1
+    mov [JoyMaxX],eax
+    mov [CalibXmax],eax
+    mov eax,[.joybcy]
+    add eax,[JoyY]
+    shr eax,1
+    mov [JoyMaxY],eax
+    mov [CalibYmax],eax
+    ret
+.port209
+    cmp bl,1
+    jbe .nojoy209
+    cmp bl,18
+    je near .6button209
+    cmp bl,5
+    je near .6button209
+    cmp bl,6
+    jae .nojoy209
+    mov dx,209h
+    call GetCoords
+    mov eax,[JoyX]
+    mov [.joybcx],eax
+    mov eax,[JoyY]
+    mov [.joybcy],eax
+    call CalibrateDispA
+    mov dx,209h
+    call GetCoords
+    mov eax,[JoyX]
+    mov [.joyblx],eax
+    mov eax,[JoyY]
+    mov [.joybly],eax
+    call CalibrateDispB
+    mov dx,209h
+    call GetCoords
+    jmp .procdir209
+.nojoy209
+    ret
+.6button209
+    mov dx,209h
+    call GetCoords3
+    mov eax,[JoyX]
+    mov [.joybcx],eax
+    mov eax,[JoyY]
+    mov [.joybcy],eax
+    call CalibrateDispA
+    mov dx,209h
+    call GetCoords3
+    mov eax,[JoyX]
+    mov [.joyblx],eax
+    mov eax,[JoyY]
+    mov [.joybly],eax
+    call CalibrateDispB
+    mov dx,209h
+    call GetCoords3
+.procdir209
+    mov eax,[.joybcx]
+    add eax,[.joyblx]
+    shr eax,1
+    mov [JoyMinX209],eax
+    mov [CalibXmin209],eax
+    mov eax,[.joybcy]
+    add eax,[.joybly]
+    shr eax,1
+    mov [JoyMinY209],eax
+    mov [CalibYmin209],eax
+    mov eax,[.joybcx]
+    add eax,[JoyX]
+    shr eax,1
+    mov [JoyMaxX209],eax
+    mov [CalibXmax209],eax
+    mov eax,[.joybcy]
+    add eax,[JoyY]
+    shr eax,1
+    mov [JoyMaxY209],eax
+    mov [CalibYmax209],eax
+    ret
+.joyblx dd 0
+.joybly dd 0
+.joybcx dd 0
+.joybcy dd 0
+
+
+SetDevice:
+    mov byte[GUICBHold],0
+    xor eax,eax
+    mov al,[cplayernum]
+    cmp byte[OSPort],1
+    ja .notdos
+    cmp byte[pl1p209+eax],0
+    jne .port209
+.notdos
+    mov dword[CalibXmin],0
+    mov ecx,[DevicePtr+eax*4]
+    mov eax,[GUIInputRefP+eax*4]
+    mov ebx,[GUIcurrentinputcursloc]
+    mov bl,[GUIInputRefF+ebx]
+    mov [eax],bl
+    mov eax,ecx
+    mov bh,[cplayernum]
+    call SetInputDevice
+    call UpdateDevices
+    jmp .procmtap
+.port209
+    mov dword[CalibXmin209],0
+    mov ecx,[DevicePtr+eax*4]
+    mov eax,[GUIInputRefP+eax*4]
+    mov ebx,[GUIcurrentinputcursloc]
+    mov bl,[GUIInputRefF+ebx]
+    mov [eax],bl
+    mov eax,ecx
+    mov bh,[cplayernum]
+    call SetInputDevice209
+    call UpdateDevices
+.procmtap
+    mov byte[MultiTap],1
+    cmp byte[SFXEnable],1
+    je .dismtap
+    cmp byte[pl3contrl],0
+    jne .mtap
+    cmp byte[pl4contrl],0
+    jne .mtap
+    cmp byte[pl5contrl],0
+    jne .mtap
+.dismtap
+    mov byte[MultiTap],0
+.mtap
+    ret
+
+NEWSYM GUIDoReset
+    call ClearScreen
+;    mov byte[NetPlayNoMore],1
+    mov byte[RestoreValues],0
+
+    cmp byte[MovieProcessing],0
+    je .skipfileend
+    mov bx,[MovieFileHand]
+    mov byte[MovieProcessing],0
+    call Close_File
+.skipfileend
+    call RestoreSystemVars
+    ; clear spc700 ram
+    mov al,0FFh
+    mov edi,spcRam
+    mov ecx,65472
+    rep stosb
+    ; clear dsp ram
+    xor al,al
+    mov edi,DSPMem
+    mov ecx,256
+    rep stosb
+
+    ; reset the snes
+    call init65816
+    call procexecloop
+
+    mov eax,spcRam
+    mov edx,0EFh
+.loop
+    mov byte[eax],0
+    inc eax
+    dec edx
+    jnz .loop
+
+    xor eax,eax
+    mov edx,spcRam
+    mov ax,0FFC9h
+    add edx,eax
+    mov [spcPCRam],edx
+    mov dword [spcS],1EFh
+    mov dword [spcRamDP],spcRam
+    mov byte[spcA],0
+    mov byte[spcX],0
+    mov byte[spcY],0
+    mov byte[spcP],0
+    mov byte[spcNZ],0
+    mov byte[Voice0Status],0
+    mov byte[Voice1Status],0
+    mov byte[Voice2Status],0
+    mov byte[Voice3Status],0
+    mov byte[Voice4Status],0
+    mov byte[Voice5Status],0
+    mov byte[Voice6Status],0
+    mov byte[Voice7Status],0
+    mov byte[GUIQuit],2
+    ret
+

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
+