/programs/other/rtfread/trunk/bgifont.inc |
---|
4,7 → 4,7 |
; |
; Created: December 16, 2004 |
; |
; Last changed: February 2, 2005 |
; Last changed: August 27, 2006 |
; |
; Compile with FASM |
237,18 → 237,16 |
mov esi,edi ; esi->FontName |
mov [.dest],edi ; ptr to load font |
if ~ BGI_LEVEL eq KERNEL |
mov [.fsize],1 |
mov eax,58 |
mov ebx,.fontinfo |
mov eax, 70 |
mov ebx, .fontattr |
int 0x40 |
test eax,eax |
jnz .fail |
dps2 '1' |
shr ebx,9 |
inc ebx |
mov [.fsize],ebx |
mov eax, [.fileattr+32] |
mov [.fsize], eax |
mov ebx,.fontinfo |
mov eax,58 |
mov eax,70 |
int 0x40 ; ebx - file size |
else |
push edi esi edx |
340,11 → 338,22 |
.fontinfo: |
dd 0 |
dd 0 |
dd 0 |
.fsize dd 0 |
.dest dd 0 |
dd 0x10000 |
.fontfullname: |
db BGIFONT_PATH |
.font db 'FONT.CHR',0 |
.fontattr: |
dd 5 |
dd 0 |
dd 0 |
dd 0 |
dd .fileattr |
db 0 |
dd .fontfullname |
.fileattr rd 40/4 |
else |
.dest dd 0 |
.font db 'FONT CHR' |
/programs/other/rtfread/trunk/rtf_lite.inc |
---|
14,10 → 14,10 |
mov ecx,[cur_block] |
mov ebx,fileinfo |
mov eax,ecx |
shl eax,7 |
shl eax,16 |
mov [ebx+4],eax |
; mov [ebx+12],esi |
mcall 58 |
mcall 70 |
if DEBUG_BLOCK eq 1 |
; dps 'B=' |
; dpd ecx |
72,7 → 72,7 |
pop [RetroGroup] |
and [mode],not RTF_BLIND |
mov [listptr],save_stack |
mov [fileinfo.size],128 |
mov [fileinfo.size],128*512 |
; test ebp,RTF_HELP |
test [mode],RTF_HELP |
jne .noread |
/programs/other/rtfread/trunk/rtfread.asm |
---|
91,23 → 91,17 |
mov esi,fname_buf |
rep movsd |
load_file: |
xor eax,eax |
mov ebx,fileinfo |
mov [ebx+4],eax |
inc eax |
mov [fileinfo.size],eax |
mcall 58 |
dpd ebx |
and [wSave],0 |
mov [HClick],-100 |
load_help: |
mov eax, 70 |
and [fileattr+32], 0 |
mov ebx, attrinfo |
int 0x40 |
mov ebx, [fileattr+32] |
test eax,eax |
jz .sizok |
cmp eax,5 |
je .sizok |
.nosizok: |
mov dword[fileinfo.name],N_A |
.sizok: |
and [wSave],0 |
mov [HClick],-100 |
mov eax,ebx |
and eax,RTFSIZE-1 |
add eax,I_END |
500,13 → 494,22 |
db '< > L A C H' |
btn_end: |
attrinfo: |
dd 5 |
dd 0 |
dd 0 |
dd 0 |
dd fileattr |
db 0 |
dd fileinfo.name |
fileinfo: |
dd 0 |
.block: |
dd 0 |
dd 0 |
.size dd 1 |
dd I_END |
dd sys_mem |
.name: |
; db '//' |
; db ' /HD/1/RTF/texts/FASM.TXT',0 |
549,6 → 552,7 |
I_END0: |
fname_buf: |
rb 1024+16 |
fileattr rd 40/4 |
if BENCH eq 1 |
bench dd ? |
end if |