| /programs/other/rtfread/trunk/bgifont.inc |
|---|
| 4,7 → 4,7 |
| ; |
| ; Created: December 16, 2004 |
| ; |
| ; Last changed: August 27, 2006 |
| ; Last changed: February 2, 2005 |
| ; |
| ; Compile with FASM |
| 237,16 → 237,18 |
| mov esi,edi ; esi->FontName |
| mov [.dest],edi ; ptr to load font |
| if ~ BGI_LEVEL eq KERNEL |
| mov eax, 70 |
| mov ebx, .fontattr |
| mov [.fsize],1 |
| mov eax,58 |
| mov ebx,.fontinfo |
| int 0x40 |
| test eax, eax |
| jnz .fail |
| dps2 '1' |
| mov eax, [.fileattr+32] |
| mov [.fsize], eax |
| shr ebx,9 |
| inc ebx |
| mov [.fsize],ebx |
| mov ebx,.fontinfo |
| mov eax,70 |
| mov eax,58 |
| int 0x40 ; ebx - file size |
| else |
| push edi esi edx |
| 338,22 → 340,11 |
| .fontinfo: |
| dd 0 |
| dd 0 |
| dd 0 |
| .fsize dd 0 |
| .dest dd 0 |
| .fontfullname: |
| dd 0x10000 |
| 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/rtfread.asm |
|---|
| 91,17 → 91,23 |
| mov esi,fname_buf |
| rep movsd |
| load_file: |
| mov eax, 70 |
| and [fileattr+32], 0 |
| mov ebx, attrinfo |
| int 0x40 |
| mov ebx, [fileattr+32] |
| 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: |
| 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 |
| 494,22 → 500,13 |
| 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 |
| 552,7 → 549,6 |
| I_END0: |
| fname_buf: |
| rb 1024+16 |
| fileattr rd 40/4 |
| if BENCH eq 1 |
| bench dd ? |
| end if |
| /programs/other/rtfread/trunk/rtf_lite.inc |
|---|
| 14,10 → 14,10 |
| mov ecx,[cur_block] |
| mov ebx,fileinfo |
| mov eax,ecx |
| shl eax,16 |
| shl eax,7 |
| mov [ebx+4],eax |
| ; mov [ebx+12],esi |
| mcall 70 |
| mcall 58 |
| 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*512 |
| mov [fileinfo.size],128 |
| ; test ebp,RTF_HELP |
| test [mode],RTF_HELP |
| jne .noread |