forked from KolibriOS/kolibrios
3eda462807
Programs: fasm updated to 1.67.14, small fixes in desktop, stackcfg, calc, board, pipes, freecell, big cleanup of unused programs, added some applications from 0.6.3.0 distr... git-svn-id: svn://kolibrios.org@205 a494cfbc-eb01-0410-851d-a64ba20cac60
444 lines
8.1 KiB
NASM
444 lines
8.1 KiB
NASM
; BGI Font Test
|
||
;
|
||
; Written in pure assembler by Ivushkin Andrey aka Willow
|
||
;
|
||
; Created: December 20, 2004
|
||
;
|
||
; Last changed: February 2, 2005
|
||
;
|
||
|
||
BGIFONT_PATH equ '/RD/1/FONTS/'
|
||
_X equ 340
|
||
_Y equ 240
|
||
|
||
BGI_WINDOW_CLIP equ 1
|
||
BGI_PRC_INFO equ pinfo
|
||
|
||
macro ListFonts
|
||
{
|
||
mov eax,lf_head
|
||
call PixelPrint
|
||
mov ebx,20 shl 16+60
|
||
mov ecx,(BGIfont_names_end-BGIfont_names)/4
|
||
mov esi,BGIfont_names
|
||
.l1:
|
||
pusha
|
||
pusha
|
||
mcall 4,,0x10777fac,esi,4
|
||
popa
|
||
mov edx,[esi]
|
||
BGIfont_GetID
|
||
mov dword[_BGIfont_Prepare.font],edx
|
||
mov ecx,eax
|
||
add ebx,140 shl 16
|
||
mov edx,ebx
|
||
mcall 47,0x80100,,,0x10ffffff
|
||
jecxz .nofont
|
||
lea ebx,[edx+80 shl 16+12]
|
||
mov edx,_BGIfont_Prepare.fontfullname
|
||
mov esi,_BGIfont_Prepare.fontattr-1
|
||
sub esi,edx
|
||
add ecx,0x3b800b8
|
||
BGIfont_Outtext
|
||
sub ebx,155 shl 16+12
|
||
mcall 4,,0x1000f000,load_ok,load_fail-load_ok
|
||
jmp .pop
|
||
.nofont:
|
||
lea ebx,[edx-80 shl 16]
|
||
mcall 4,,0x10f00010,load_fail,font_msg-load_fail
|
||
.pop:
|
||
popa
|
||
add esi,4
|
||
add ebx,39
|
||
loop .l2
|
||
jmp .ex
|
||
.l2:
|
||
jmp .l1
|
||
.ex:
|
||
}
|
||
use32
|
||
org 0x0
|
||
|
||
db 'MENUET01'
|
||
dd 0x01
|
||
dd START
|
||
dd I_END
|
||
dd 0x100000
|
||
dd 0x0cfff0
|
||
dd 0x0
|
||
not1strun dd 0x0
|
||
|
||
include 'lang.inc'
|
||
include 'macros.inc'
|
||
;include 'debug.inc'
|
||
include 'bgifont.inc'
|
||
|
||
START:
|
||
mov [help],0
|
||
mov ecx,(BGIfont_names_end-BGIfont_names)/4
|
||
mov esi,BGIfont_names
|
||
mov edi,I_END
|
||
BGIfont_Init
|
||
reset:
|
||
mov esi,[BGIfont_Ptr]
|
||
inc esi
|
||
mov edi,freeconst
|
||
movsd
|
||
mov esi,freeconst
|
||
mov edi,freetest
|
||
mov ecx,36
|
||
rep movsb
|
||
red:
|
||
mov eax,[freetest]
|
||
mov dword[title+19],eax
|
||
call draw_window
|
||
cmp [not1strun],0
|
||
jnz still
|
||
mcall 5,300
|
||
not [not1strun]
|
||
inc [help]
|
||
jmp red
|
||
still:
|
||
|
||
mov eax,10
|
||
int 0x40
|
||
|
||
cmp eax,1
|
||
je red
|
||
cmp eax,2
|
||
je key
|
||
cmp eax,3
|
||
je button
|
||
|
||
jmp still
|
||
|
||
button:
|
||
mov eax,17
|
||
int 0x40
|
||
cmp ah,1
|
||
jnz noclose
|
||
close:
|
||
xor eax,eax
|
||
dec eax
|
||
int 0x40
|
||
noclose:
|
||
jmp still
|
||
|
||
key:
|
||
mov eax,2
|
||
int 0x40
|
||
shr eax,8
|
||
cmp al,27 ; esc - close
|
||
je close
|
||
cmp al,32 ; Space - help
|
||
jne .noh
|
||
inc [help]
|
||
cmp [help],3
|
||
jne red
|
||
and [help],0
|
||
jmp red
|
||
.noh:
|
||
cmp [help],2
|
||
jne still
|
||
cmp al,50
|
||
jb .noff
|
||
cmp al,57
|
||
ja .noff
|
||
sub al,46
|
||
.gn:
|
||
movzx ecx,al
|
||
shl ecx,28
|
||
call BGIfont_GetName
|
||
mov [freetest],edx
|
||
jmp red
|
||
.noff:
|
||
mov ecx,4
|
||
mov edi,Fkeys
|
||
.fkey:
|
||
cmp al,[edi]
|
||
je .fndkey
|
||
inc edi
|
||
loop .fkey
|
||
jmp .notfnd
|
||
.fndkey:
|
||
lea eax,[edi-Fkeys+0xc]
|
||
jmp .gn
|
||
.notfnd:
|
||
cmp al,114 ; r - reset
|
||
je reset
|
||
cmp al,176
|
||
jne .nol ; left
|
||
sub dword[freetest+8],5
|
||
jmp red
|
||
.nol:
|
||
cmp al,179
|
||
jne .nor ; right
|
||
add dword[freetest+8],5
|
||
jmp red
|
||
.nor:
|
||
cmp al,105 ; i -italic
|
||
jne .noi
|
||
xor dword[freetest+32],BGI_ITALIC
|
||
jmp red
|
||
.noi:
|
||
cmp al,98 ; b -bold
|
||
jne .nob
|
||
xor dword[freetest+32],BGI_BOLD
|
||
jmp red
|
||
.nob:
|
||
mov ecx,2
|
||
mov esi,ali
|
||
.ol2:
|
||
cmp al,[esi]
|
||
jne .othl2
|
||
mov ax,[freetest+32]
|
||
add ax,[esi+3]
|
||
mov bx,ax
|
||
mov dx,[esi+1]
|
||
and bx,dx
|
||
cmp bx,dx
|
||
jne .ok
|
||
not dx
|
||
and ax,dx
|
||
.ok:
|
||
mov [freetest+32],ax
|
||
jmp red
|
||
.othl2:
|
||
add esi,5
|
||
loop .ol2
|
||
.other:
|
||
mov esi,delt
|
||
mov ecx,4
|
||
.ol:
|
||
cmp al,[esi]
|
||
jne .othl
|
||
fld dword[esi+1]
|
||
movzx eax,byte[esi+5]
|
||
fadd dword[freetest+eax]
|
||
fstp dword[freetest+eax]
|
||
jmp red
|
||
.othl:
|
||
add esi,6
|
||
loop .ol
|
||
jmp still
|
||
|
||
draw_window:
|
||
mov eax,12
|
||
mov ebx,1
|
||
int 0x40
|
||
|
||
xor eax,eax
|
||
mov ebx,10*65536+_X*2
|
||
mov ecx,100*65536+_Y*2
|
||
mov edx,0x03261212
|
||
mov esi,0x805080d0
|
||
mov edi,0x005080d0
|
||
int 0x40
|
||
|
||
mov eax,4
|
||
mov ebx,8*65536+8
|
||
mov ecx,0x10ddeeff
|
||
mov edx,title
|
||
mov esi,title_end-title
|
||
cmp [help],2
|
||
je .int
|
||
sub esi,12
|
||
.int:
|
||
int 0x40
|
||
|
||
cmp [help],0
|
||
jnz .help
|
||
cmp byte[I_END],0
|
||
jnz .fontsok
|
||
mov eax,font_msg
|
||
call PixelPrint
|
||
.fontsok:
|
||
ListFonts
|
||
jmp .eod
|
||
.help:
|
||
cmp [help],1
|
||
jne .nohelp
|
||
mov eax,helptxt
|
||
cmp byte[I_END],0
|
||
jnz .fontsok2
|
||
mov word[eax+2],_X-80
|
||
call PixelPrint
|
||
jmp .eod
|
||
.fontsok2:
|
||
mov word[eax+2],_X
|
||
call Print
|
||
jmp .eod
|
||
.nohelp:
|
||
mov edi,cross
|
||
mov eax,38
|
||
mov edx,0x4b331a
|
||
mov ebx,[edi]
|
||
mov ecx,[edi+4]
|
||
int 0x40
|
||
mov ebx,[edi+8]
|
||
mov ecx,[edi+12]
|
||
int 0x40
|
||
mov ebx,freetest
|
||
BGIfont_Freetext
|
||
.eod:
|
||
mov eax,12
|
||
mov ebx,2
|
||
int 0x40
|
||
ret
|
||
|
||
Print: ; eax-pointer to _txt struc
|
||
pusha
|
||
mov ebx,[eax]
|
||
movzx ecx,byte[eax+12]
|
||
lea edx,[eax+13]
|
||
mov edi,eax
|
||
.nextstr:
|
||
mov esi,[edx]
|
||
add edx,4
|
||
push ecx
|
||
mov ecx,[edi+8]
|
||
BGIfont_Outtext
|
||
add ebx,[edi+4]
|
||
pop ecx
|
||
and esi,0xfff
|
||
add edx,esi
|
||
loop .nextstr
|
||
popa
|
||
ret
|
||
|
||
PixelPrint: ; eax-pointer to _txt struc, but used differently
|
||
pusha
|
||
mov ebp,eax
|
||
mov ebx,[ebp]
|
||
movzx ecx,byte[ebp+12]
|
||
mov eax,4
|
||
lea edx,[ebp+17]
|
||
.l:
|
||
mov esi,[edx-4]
|
||
and esi,0xfff
|
||
push ecx
|
||
mov ecx,[ebp+8]
|
||
int 0x40
|
||
pop ecx
|
||
lea edx,[esi+edx+4]
|
||
add ebx,[ebp+4]
|
||
loop .l
|
||
popa
|
||
ret
|
||
|
||
macro _txt _xy,_vert,_color,_opt,[_str]
|
||
{
|
||
common
|
||
_counter=0
|
||
forward
|
||
_counter=_counter+1
|
||
common
|
||
dd _xy ; 0
|
||
dd _vert ; 4
|
||
dd _color ; 8
|
||
db _counter ;_str_count ; 12
|
||
forward
|
||
local .str_beg,.str_end
|
||
dd (.str_end-.str_beg) or _opt ; 13
|
||
.str_beg:
|
||
db _str ;17
|
||
.str_end:
|
||
}
|
||
|
||
title db 'BGIFONT.INC demo - FONT font'
|
||
title_end:
|
||
_M equ 30
|
||
cross dd _M shl 16+_X*2-_M,_Y shl 16+_Y,_X shl 16+_X,_M shl 16+_Y*2-_M
|
||
helptxt:
|
||
if lang eq ru
|
||
_txt _X shl 16+60,40,0x434ba010,BGI_HACENTER,\
|
||
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:",\
|
||
"<EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD><EFBFBD>/<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;",\
|
||
"<-> <EFBFBD><EFBFBD>५<EFBFBD><EFBFBD> - <EFBFBD><EFBFBD><EFBFBD>饭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>;",\
|
||
"V - <EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨪<EFBFBD><EFBFBD><EFBFBD>;",\
|
||
"H - <EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ਧ<EFBFBD><EFBFBD>⠫<EFBFBD>;",\
|
||
"[,] - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠡ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> X;",\
|
||
"A,Z - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠡ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> Y;",\
|
||
"B,I - <EFBFBD><EFBFBD><EFBFBD>㦨<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ᨢ;",\
|
||
"R - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ࠬ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;",\
|
||
"F1..F12 - <EFBFBD>롮<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;",\
|
||
"Esc - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ண<EFBFBD> :-("
|
||
alpha:
|
||
db "<22><><EFBFBD> <20>ਬ<EFBFBD><E0A8AC> ⥪<><E2A5AA><EFBFBD>!"
|
||
lf_head:
|
||
_txt 10 shl 16+30,85 shl 16,0x6e00f7,0,"<22><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>","ID",\
|
||
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> 䠩<EFBFBD><EFBFBD>"
|
||
load_ok:
|
||
db "<22><><EFBFBD><EFBFBD>㦥<EFBFBD>"
|
||
load_fail:
|
||
db "<22><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
font_msg:
|
||
_txt (_X+20) shl 16+180,25,0x10ff0000,0,\
|
||
"<EFBFBD> ᮦ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",\
|
||
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>୮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> *.CHR. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,",\
|
||
"<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD>",\
|
||
"BGIFONT_PATH <EFBFBD> <EFBFBD><EFBFBD>砫<EFBFBD> 䠩<EFBFBD><EFBFBD> BGITEST.ASM",\
|
||
"<EFBFBD> <EFBFBD><EFBFBD>४<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> :-("
|
||
else
|
||
_txt _X shl 16+60,40,0x434ba010, BGI_HACENTER,\
|
||
"HOT KEYS:",\
|
||
"Space - font list/this message/demo;",\
|
||
"<-> arrows - rotate text string;",\
|
||
"V - toggle vertical alignment;",\
|
||
"H - toggle horizontal alignment;",\
|
||
"[,] - scale on X axis;",\
|
||
"A,Z - scale on Y axis;",\
|
||
"B,I - toggle bold & italic mode;",\
|
||
"R - reset font options;",\
|
||
"F1..F12 - select font;",\
|
||
"Esc - close demo :-("
|
||
alpha:
|
||
db 'This is a Sample text!'
|
||
; db 'ABCDEFGHIGKLMNOPQRSTUVWXWZ'
|
||
lf_head:
|
||
_txt 10 shl 16+30,85 shl 16,0x6e00f7,0,"Font name","Status","ID",\
|
||
"Filename"
|
||
load_ok:
|
||
db "loaded"
|
||
load_fail:
|
||
db "not found"
|
||
font_msg:
|
||
_txt (_X+20) shl 16+180,25,0x10ff0000,0,\
|
||
"Sorry, no vector font *.CHR found.",\
|
||
"Maybe you should correct BGIFONT_PATH",\
|
||
"constant at the beginning of file",\
|
||
"BGITEST.ASM and recompile it :-("
|
||
end if
|
||
|
||
macro Deltas _key,_scale,_ofs
|
||
{
|
||
db _key
|
||
dd _scale
|
||
db _ofs
|
||
}
|
||
|
||
delt:
|
||
Deltas 91, -0.15,12
|
||
Deltas 93, 0.15,12
|
||
Deltas 97, 0.15,16
|
||
Deltas 122,-0.15,16
|
||
Fkeys db 48,49,68,255
|
||
|
||
macro Aligns _key,_mask,_add
|
||
{
|
||
db _key
|
||
dw _mask,_add
|
||
}
|
||
ali:
|
||
Aligns 118,BGI_VAMASK,BGI_VATOP
|
||
Aligns 104,BGI_HAMASK,BGI_HARIGHT
|
||
freeconst BGIfree 'FONT',_X shl 16+_Y,0, 1.0, 1.0, alpha,\
|
||
lf_head-alpha,0xb800e7,\
|
||
BGI_VACENTER or BGI_HACENTER
|
||
freetest BGIfree ?,?,?,?,?,?,?,?,?
|
||
help db ?
|
||
pinfo:
|
||
times 1024 db ?
|
||
rb 10000 ; reserve, unless process info will corrupt our fonts (why?)
|
||
I_END:
|