Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 134 → Rev 139

/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