Rev 3944 | Rev 7434 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3944 | Rev 7433 | ||
---|---|---|---|
Line 13... | Line 13... | ||
13 | CHARH equ 11 |
13 | CHARH equ 11 |
14 | WINW equ 600 |
14 | WINW equ 600 |
15 | WINH equ 450 |
15 | WINH equ 450 |
16 | WIN_COLOR equ 0x73f0f0f0 |
16 | WIN_COLOR equ 0x73f0f0f0 |
17 | DEFCOLOR equ 0x303030 |
17 | DEFCOLOR equ 0x303030 |
18 | ;RENDER equ PIX |
- | |
19 | ;RENDER equ BGI |
- | |
20 | RENDER equ FREE |
18 | RENDER equ FREE |
Line 21... | Line 19... | ||
21 | 19 | ||
22 | BGIFONT_PATH equ '/sys/fonts/' |
20 | BGIFONT_PATH equ '/sys/fonts/' |
23 | FONT_NAME equ 'LITT' |
21 | FONT_NAME equ 'LITT' |
Line 54... | Line 52... | ||
54 | dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1) |
52 | dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1) |
55 | dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë |
53 | dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë |
56 | dd I_END0 ; à §¬¥à ¯à®£à ¬¬ë |
54 | dd I_END0 ; à §¬¥à ¯à®£à ¬¬ë |
57 | dd esp_end ; ª®«¨ç¥á⢮ ¯ ¬ï⨠|
55 | dd esp_end ; ª®«¨ç¥á⢮ ¯ ¬ï⨠|
58 | dd sys_mem ; ¤à¥á ¢¥àè¨ë áâíª |
56 | dd sys_mem ; ¤à¥á ¢¥àè¨ë áâíª |
59 | dd fname_buf ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï) |
57 | dd fname_buf ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ |
60 | dd cur_dir_path ; § १¥à¢¨à®¢ ® |
58 | dd cur_dir_path ; ¯ãâì ª ¯à®£à ¬¬¥ |
Line 61... | Line 59... | ||
61 | 59 | ||
62 | include '../../../config.inc' ;for nightbuild |
60 | include '../../../config.inc' ;for nightbuild |
63 | include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢! |
61 | include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢! |
64 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
62 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
Line 65... | Line -... | ||
65 | include '../../../develop/libraries/box_lib/load_lib.mac' |
- | |
66 | - | ||
67 | ;include 'MACROS.INC' |
- | |
68 | ;include 'load_lib.mac' |
63 | include '../../../develop/libraries/box_lib/load_lib.mac' |
Line 69... | Line 64... | ||
69 | 64 | ||
Line 70... | Line -... | ||
70 | @use_library |
- | |
71 | 65 | @use_library |
|
72 | ;include '../../../debug.inc' |
66 | |
73 | - | ||
74 | if ~ RENDER eq PIX |
67 | ; include '../../../debug.inc' |
75 | TOP=TOP+4 |
- | |
76 | include 'bgifont.inc' |
68 | |
77 | end if |
69 | TOP=TOP+4 |
78 | include 'rtf_lite.inc' |
70 | include 'bgifont.inc' |
79 | ;include 'ascl.inc' |
- | |
80 | ;--------------------------------------------------------------------- |
- | |
81 | ;--- ---------------------------------------------- |
- | |
82 | ;--------------------------------------------------------------------- |
- | |
83 | help_file: |
71 | include 'rtf_lite.inc' |
84 | file 'reader.rtf' |
72 | ;--------------------------------------------------------------------- |
85 | help_end: |
73 | ;--- ---------------------------------------------- |
Line 86... | Line 74... | ||
86 | 74 | ;--------------------------------------------------------------------- |
|
Line 93... | Line 81... | ||
93 | ;OpenDialog initialisation |
81 | ;OpenDialog initialisation |
94 | push dword OpenDialog_data |
82 | push dword OpenDialog_data |
95 | call [OpenDialog_Init] |
83 | call [OpenDialog_Init] |
Line 96... | Line 84... | ||
96 | 84 | ||
97 | mov [pitch],2 |
- | |
98 | if ~ RENDER eq PIX |
85 | mov [pitch],2 |
99 | mov edx,FONT_NAME |
86 | mov edx,FONT_NAME |
100 | mov edi,save_limit |
87 | mov edi,save_limit |
101 | BGIfont_Prepare |
- | |
102 | end if |
88 | BGIfont_Prepare |
103 | start2: |
89 | start2: |
104 | cmp byte[fname_buf],0 |
90 | cmp byte[fname_buf],0 |
105 | je load_file;top_red |
91 | je load_file;top_red |
106 | jmp noactivate |
92 | jmp noactivate |
Line 319... | Line 305... | ||
319 | ; mov [top],TOP |
305 | ; mov [top],TOP |
320 | ; cmp cx,[top] |
306 | ; cmp cx,[top] |
321 | ; je still |
307 | ; je still |
322 | jmp red |
308 | jmp red |
323 | .noarup: |
309 | .noarup: |
324 | if RENDER eq FREE |
- | |
325 | cmp ah,56 ;zoom+ |
310 | cmp ah,56 ;zoom+ |
326 | jne .noplus |
311 | jne .noplus |
327 | .zplus: |
312 | .zplus: |
328 | fld [FreeFontscale] |
313 | fld [FreeFontscale] |
329 | fmul [Zoomscale] |
314 | fmul [Zoomscale] |
Line 336... | Line 321... | ||
336 | .zminus: |
321 | .zminus: |
337 | fld [FreeFontscale] |
322 | fld [FreeFontscale] |
338 | fdiv [Zoomscale] |
323 | fdiv [Zoomscale] |
339 | jmp .zoom |
324 | jmp .zoom |
340 | .nominus: |
325 | .nominus: |
341 | end if |
- | |
342 | cmp ah,0xB5 ; end |
326 | cmp ah,0xB5 ; end |
343 | jne .pre_file_open |
327 | jne .pre_file_open |
344 | .end: |
328 | .end: |
Line 345... | Line 329... | ||
345 | 329 | ||
Line 670... | Line 654... | ||
670 | .l0: |
654 | .l0: |
671 | push ecx |
655 | push ecx |
672 | mov ecx,16 |
656 | mov ecx,16 |
673 | .l1: |
657 | .l1: |
674 | push ecx |
658 | push ecx |
675 | if RENDER eq BGI |
- | |
676 | mov edx,char |
- | |
677 | mov ecx,0x48000000 |
- | |
678 | mov esi,1 |
- | |
679 | BGIfont_Outtext |
- | |
680 | else |
- | |
681 | mcall 4,,0x10000000,char,1 |
659 | mcall 4,,0x10000000,char,1 |
682 | end if |
- | |
683 | pop ecx |
660 | pop ecx |
684 | inc [char] |
661 | inc [char] |
685 | add ebx,(CHARW+3) shl 16 |
662 | add ebx,(CHARW+3) shl 16 |
686 | loop .l1 |
663 | loop .l1 |
687 | pop ecx |
664 | pop ecx |
Line 1070... | Line 1047... | ||
1070 | .all_redraw dd 0 ;+80 |
1047 | .all_redraw dd 0 ;+80 |
1071 | .ar_offset dd AR_OFFSET ;+84 |
1048 | .ar_offset dd AR_OFFSET ;+84 |
Line 1072... | Line 1049... | ||
1072 | 1049 | ||
1073 | ;--------------------------------------------------------------------- |
1050 | ;--------------------------------------------------------------------- |
1074 | ;blind db ? |
- | |
1075 | if RENDER eq PIX |
- | |
1076 | ; rd 2 |
- | |
1077 | Free rd 9 |
- | |
1078 | else |
- | |
1079 | if RENDER eq BGI |
- | |
1080 | FreeFontscale dd 0.07 |
1051 | ;blind db ? |
1081 | else |
1052 | |
1082 | Zoomscale dd 1.15 |
1053 | Zoomscale dd 1.15 |
1083 | FreeFontscale dd 0.04 |
1054 | FreeFontscale dd 0.04 |
1084 | end if |
1055 | |
- | 1056 | Free BGIfree FONT_NAME,0,0,1.0,1.0,char,1,0x44000000,0 |
|
1085 | Free BGIfree FONT_NAME,0,0,1.0,1.0,char,1,0x44000000,0 |
1057 | |
1086 | end if |
1058 | |
1087 | I_END0: |
1059 | I_END0: |
1088 | fname_buf: |
1060 | fname_buf: |
1089 | rb 1024+16 |
1061 | rb 1024+16 |
1090 | fileattr rd 40/4 |
1062 | fileattr rd 40/4 |
Line 1139... | Line 1111... | ||
1139 | listptr dd ? |
1111 | listptr dd ? |
1140 | szKeyword rb 31 |
1112 | szKeyword rb 31 |
1141 | szParameter rb 21 |
1113 | szParameter rb 21 |
1142 | block_end dd ? |
1114 | block_end dd ? |
Line -... | Line 1115... | ||
- | 1115 | ||
- | 1116 | help_file: |
|
- | 1117 | file 'reader.rtf' |
|
- | 1118 | help_end: |
|
- | 1119 | ||
- | 1120 | litt_file: |
|
- | 1121 | file 'litt.chr' |
|
- | 1122 | litt_end: |
|
1143 | 1123 | ||
1144 | ;--------------------------------------------------------------------- |
1124 | ;--------------------------------------------------------------------- |
1145 | I_END: ; ¬¥âª ª®æ ¯à®£à ¬¬ë |
1125 | I_END: ; ¬¥âª ª®æ ¯à®£à ¬¬ë |
1146 | rb RTFSIZE |
1126 | rb RTFSIZE |
1147 | esp1: |
1127 | esp1: |