/programs/other/archer/trunk/macros.inc |
---|
File deleted |
\ No newline at end of file |
Property changes: |
Deleted: svn:eol-style |
-native |
\ No newline at end of property |
/programs/other/archer/trunk/@RCHER.ASM |
---|
77,7 → 77,7 |
end if |
;match =meos,SYS |
;{ |
include "macros.inc" |
include "..\..\..\macros.inc" |
; purge mov |
include "debug.inc" |
include 'dump.inc' |
/programs/other/archer/trunk/arcmacro.inc |
---|
302,7 → 302,7 |
mov ebx,1 ; define IPC |
mov ecx,path ; offset of area |
mov edx,1024+16 ; size |
int 0x40 |
mcall |
mcall 40,1000111b |
; |
317,7 → 317,7 |
getmesloop: |
mov eax,23 |
mov ebx,50 ;0.5 sec |
int 0x40 |
mcall |
dec eax |
jz mred |
dec eax |
360,11 → 360,11 |
jmp getmesloop |
mbutton: |
mov eax,17 ; get id |
int 0x40 |
mcall |
cmp ah,1 ; button id=1 ? |
jne getmesloop |
mov eax,-1 ; close this program |
int 0x40 |
mcall |
mgetmes: |
; If dlg_pid_get then second message get jmp to still |
cmp [dlg_pid_get],dword 1 |
/programs/other/archer/trunk/debug.inc |
---|
55,7 → 55,7 |
mov cl,al |
mov eax,63 |
mov ebx,1 |
int 0x40 |
mcall |
popad |
popf |
ret |
/programs/other/archer/trunk/sys.inc |
---|
168,7 → 168,7 |
add esi,30 |
mcall 67 |
mcall 7,outfile,[outfile.size],10 shl 16+15 |
.ex: |
.ext: |
ret |
MIN_WIDTH equ 300 |
/programs/other/calc/trunk/macros.inc |
---|
File deleted |
\ No newline at end of file |
Property changes: |
Deleted: svn:eol-style |
-native |
\ No newline at end of property |
/programs/other/calc/trunk/calc.asm |
---|
1,14 → 1,14 |
;; Calculator for MenuetOS (c) Ville Turjanmaa |
;; |
;; Compile with FASM for Menuet |
;; Compile with FASM |
;; |
;; Pavel Rymovski (Heavyiron) - kolibri version |
;; Pavel Rymovski (Heavyiron) - version for KolibriOS |
;; |
;; What's new: |
;; Calc 1.1 |
;; 1) changed design |
;; 2) new procedure of draw window (10 decimal digits, 23 binary, "+" not displayed now) |
;; 3) window with skin |
;; 4) used macroses |
;; Calc 1.2 |
;; 1)added some useful functions, such as arcsin, arccos, arctg, 1/x, x^2 |
;; Calc 1.31 |
31,7 → 31,7 |
dd 0x1000 ; esp |
dd 0x0,0x0 ; I_Param , I_Icon |
include 'macros.inc' |
include '..\..\..\macros.inc' |
START: |
39,7 → 39,7 |
mov ebx,3 |
mov ecx,sc |
mov edx,sizeof.system_colors |
int 0x40 |
mcall |
red: |
call draw_window |
47,7 → 47,8 |
still: |
push 10 |
pop eax |
int 40h |
mcall |
dec eax |
jz red |
dec eax |
55,13 → 56,13 |
button: |
mov al,17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª®¯ª¨ |
int 0x40 |
mcall |
shr eax,8 |
jmp testbut |
key: |
mov al,2 ; ¯®«ãç¨âì ASCII-ª®¤ ¦ ⮩ ª« ¢¨è¨ |
int 0x40 |
mcall |
shr eax,8 |
mov edi,asci ; ¯¥à¥¢®¤ ASCII ¢ ¨¤¥â¨ä¨ª â®à ª®¯ª¨ |
mov ecx,18 |
78,7 → 79,7 |
cmp eax,1 ; ª®¯ª 1 - § ªàë⨥ ¯à®£à ¬¬ë |
jne noclose |
or eax,-1 |
int 0x40 |
mcall |
noclose: |
cmp eax,2 |
649,7 → 650,7 |
mov eax,12 |
mov ebx,1 |
int 0x40 |
mcall |
xor eax,eax |
mov ebx,200 shl 16+255 |
656,8 → 657,8 |
mov ecx,200 shl 16+180 |
mov edx,[sc.work] |
or edx,0x33000000 |
mov edi,header |
int 0x40 |
mov edi,title |
mcall |
mov eax,8 |
mov ebx,19 shl 16+28 |
672,7 → 673,7 |
mov ebx,19 shl 16+28 |
add ecx,20 shl 16 |
no_new_row: |
int 0x40 |
mcall |
add ebx,30 shl 16 |
inc edx |
cmp edx,39 |
687,7 → 688,7 |
mov edx,text |
mov esi,33 |
newline: |
int 0x40 |
mcall |
add ebx,20 |
add edx,33 |
cmp [edx],byte 'x' |
697,7 → 698,7 |
mov eax,12 |
mov ebx,2 |
int 0x40 |
mcall |
ret |
712,7 → 713,7 |
mov edx,calc |
mov esi,1 |
mov edi,[sc.work] |
int 0x40 |
mcall |
mov ebx,198 shl 16+8 |
mov edx,[display_type] |
720,7 → 721,7 |
add edx,display_type_text |
mov esi,3 |
mov edi,[sc.work] |
int 0x40 |
mcall |
cmp [dsign],byte '+' |
je positive |
728,7 → 729,7 |
mov ecx,0x0 |
mov edx,dsign |
mov esi,1 |
int 0x40 |
mcall |
positive: |
cmp [display_type],0 |
740,7 → 741,7 |
mov ecx,0x0 |
mov edx,dot |
mov esi,1 |
int 0x40 |
mcall |
mov eax,47 |
mov ebx,10 shl 16 |
747,13 → 748,13 |
mov ecx,[integer] |
mov edx,120 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
mov ebx,6 shl 16 |
mov ecx,[decimal] |
mov edx,187 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
popa |
ret |
763,7 → 764,7 |
mov ecx,0x0 |
mov edx,dot |
mov esi,1 |
int 0x40 |
mcall |
cmp [integer],0 |
je null |
773,7 → 774,7 |
mov ecx,[integer] |
mov edx,160 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
popa |
ret |
789,7 → 790,7 |
mov ecx,[integer] |
mov edx,173 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
popa |
ret |
803,7 → 804,7 |
mov ecx,[integer] |
mov edx,32 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
popa |
ret |
814,7 → 815,7 |
mov ecx,0 |
mov edx,214 shl 16+22 |
mov esi,0x0 |
int 0x40 |
mcall |
popa |
ret |
843,7 → 844,7 |
;data |
header db appname,version,0 |
title db appname,version,0 |
display_type dd 0 ; 0 = decimal, 1 = hexadecimal, 2= binary |
entry_multiplier dd 10 |
/programs/other/mhc/trunk/macros.inc |
---|
File deleted |
\ No newline at end of file |
Property changes: |
Deleted: svn:eol-style |
-native |
\ No newline at end of property |
/programs/other/mhc/trunk/mhc.asm |
---|
40,7 → 40,7 |
dd 0x0 |
include 'lang.inc' |
include 'macros.inc' |
include '..\..\..\macros.inc' |
; CODE AREA |
ENTRANCE: |
53,7 → 53,7 |
still: |
mov eax,10 ; wait for event |
int 0x40 |
mcall |
cmp eax,1 ; redraw? |
jnz no_redraw |
72,7 → 72,7 |
key: |
mov eax,2 ; read it |
int 0x40 |
mcall |
shr eax,8 |
cmp byte [editstate],0 |
132,12 → 132,12 |
button: |
mov eax,17 |
int 0x40 |
mcall |
cmp ah,1 |
jnz no_quit |
mov eax,-1 |
int 0x40 |
mcall |
no_quit: |
cmp ah,4 |
181,7 → 181,7 |
pusha |
mov eax,32 |
mov ebx,iofile |
int 0x40 |
mcall |
popa |
no_delete_io: |
190,7 → 190,7 |
pusha |
mov eax,32 |
mov ebx,cmfile |
int 0x40 |
mcall |
popa |
no_delete_archive: |
202,7 → 202,7 |
mov eax,12 ; Start redrawing |
mov ebx,1 |
int 0x40 |
mcall |
xor eax,eax ; Define window |
mov ebx,100*65536+240 |
210,7 → 210,7 |
mov edx,0x03AAAAAA |
mov esi,0x80777777 |
mov edi,0x00777777 |
int 0x40 |
mcall |
mov eax,4 ; Draw all needed texts |
mov ebx,8*65536+8 |
217,18 → 217,18 |
mov ecx,0x00FFFFFF |
mov edx,title |
mov esi,arclab-title |
int 0x40 |
mcall |
xor ecx,ecx |
mov edx,arclab |
mov esi,unplab-arclab |
add ebx,10*65536+28 |
int 0x40 |
mcall |
mov edx,unplab |
mov esi,fin_text-unplab |
add ebx,18 |
int 0x40 |
mcall |
pusha |
237,35 → 237,35 |
; mov ecx,6*65536+10 |
; mov edx,1 |
; mov esi,0x555555 |
; int 0x40 |
; mcall |
mov eax,8 |
mov ebx,15*65536+100 |
mov ecx,70*65536+13 |
mov edx,2 |
int 0x40 |
mcall |
inc edx |
add ebx,110*65536 |
int 0x40 |
mcall |
inc edx |
mov ebx,214*65536+11 |
mov ecx,33*65536+11 |
int 0x40 |
mcall |
inc edx |
add ecx,18*65536 |
int 0x40 |
mcall |
inc edx |
mov ebx,15*65536+100 |
mov ecx,86*65536+13 |
int 0x40 |
mcall |
inc edx |
add ebx,110*65536 |
int 0x40 |
mcall |
popa |
273,18 → 273,18 |
mov edx,keylab |
mov esi,dellab-keylab |
add ebx,19 |
int 0x40 |
mcall |
mov edx,dellab |
mov esi,title-dellab |
add ebx,16 |
int 0x40 |
mcall |
call draw_info |
mov eax,12 ; Finish redrawing |
mov ebx,2 |
int 0x40 |
mcall |
ret |
298,7 → 298,7 |
mov ebx,127*65536+85 |
mov ecx,33*65536+33 |
mov edx,0x00AAAAAA |
int 0x40 |
mcall |
mov eax,4 ; Draw filenames |
mov ebx,134*65536+36 |
309,7 → 309,7 |
jnz no_active_1 |
mov ecx,activecolor |
no_active_1: |
int 0x40 |
mcall |
xor ecx,ecx |
cmp byte [editstate],2 |
jnz no_active_2 |
317,13 → 317,13 |
no_active_2: |
add ebx,18 |
add edx,12 |
int 0x40 |
mcall |
mov eax,13 ; Clean info area |
mov ebx,14*65536+210 |
mov ecx,107*65536+14 |
mov edx,0x00AAAAAA |
int 0x40 |
mcall |
cmp byte [msgid],0 ; Draw info string |
jz notype |
338,7 → 338,7 |
mov dx,ax |
add edx,msgtable |
mov eax,4 |
int 0x40 |
mcall |
notype: |
popa ; Restore registers |
409,7 → 409,7 |
mov edx,ecx |
not edx |
mov esi,ifile |
int 0x40 |
mcall |
cmp eax,0xFFFFFFFF |
jnz compress_filefound ; i/o file not found |
429,7 → 429,7 |
mov eax,32 |
mov ebx,cmfile |
int 0x40 |
mcall |
mov eax,33 |
pop edx |
436,7 → 436,7 |
mov ebx,cmfile |
mov ecx,ofile |
xor esi,esi |
int 0x40 |
mcall |
mov byte [msgid],0 |
call draw_info |
454,7 → 454,7 |
mov edx,ecx |
not edx |
mov esi,ofile |
int 0x40 |
mcall |
cmp eax,0xFFFFFFFF |
jnz decompress_filefound ; *.mhc file not found |
481,7 → 481,7 |
mov eax,32 |
mov ebx,iofile |
int 0x40 |
mcall |
mov eax,33 |
pop edx |
488,7 → 488,7 |
mov ebx,iofile |
mov ecx,ifile |
xor esi,esi |
int 0x40 |
mcall |
mov byte [msgid],0 |
call draw_info |
/programs/other/period/trunk/MACROS.INC |
---|
File deleted |
\ No newline at end of file |
/programs/other/period/trunk/period.asm |
---|
9,7 → 9,7 |
;; |
;; ¬ ªà®á ¤«ï ᮧ¤ ¨ï ¬ áᨢ 㪠§ ⥫¥© ASCIIZ-áâப¨ |
include 'macros.inc' |
include '..\..\..\macros.inc' |
macro strtbl name,[string] |
{ |
common |
36,6 → 36,13 |
re_ID dd 0x00000001 ;¤«ï åà ¥¨ï ®¬¥à ⥪ã饣® ¢ë¢®¤¨¬®£® í«¥¬¥â |
START: |
mov eax,48 |
mov ebx,3 |
mov ecx,sc |
mov edx,sizeof.system_colors |
mcall |
red: |
call draw_window |
42,7 → 49,8 |
still: ;®á®¢®© 横« ¯à®£à ¬¬ë |
push 10 ;®¦¨¤ ¨¥ ᮡëâ¨ï |
pop eax |
int 0x40 |
mcall |
dec eax |
je red |
dec eax |
50,18 → 58,18 |
key: |
mov al,2 |
int 0x40 |
mcall |
jmp still |
button: |
mov al,17 ;¯®«ãç ¥¬ ID ¦ ⮩ ª®¯ª¨ |
int 0x40 |
mcall |
shr eax,8 ; eax=24-¡¨âë© ButtonID |
cmp eax,1 ; ¦ â «¨ " ªàëâì" [x] |
jne noclose |
or eax,-1 |
int 0x40 |
mcall |
noclose: |
cmp eax,200 |
70,91 → 78,85 |
no_H: |
mov [re_ID],eax |
;; <mistifi(ator> |
call VYVOD |
call draw_text |
;; </mistifi(ator> |
jmp still |
draw_window: |
mov eax,48 |
mov ebx,3 |
mov ecx,sc |
mov edx,sizeof.system_colors |
int 0x40 |
mov eax,12 ;begin drawing |
xor ebx,ebx |
inc ebx |
int 0x40 |
mcall |
; DRAW WINDOW |
xor eax,eax |
mov ebx,50*65536+550 ;x |
mov ecx,30*65536+450 ;y |
mov ebx,50*65536+555 ;x |
mov ecx,30*65536+455 ;y |
mov edx,[sc.work] |
or edx,0x13000000 ;style |
mov edi,Caption |
int 0x40 |
or edx,0x33000000 ;style |
mov edi,caption |
mcall |
Nadpisi_v_okne: |
text_in_window: |
mov eax,4 ;¢ë¢®¤ ⥪áâ |
mov ecx,0x80000000 ;asciiz, !!! |
mov ebx,40*65536+225 ;« â ®¨¤ë |
mov ebx,40*65536+200 ;« â ®¨¤ë |
mov edx,Lantanoid_text |
int 0x40 |
mcall |
add ebx,20 ; ªâ¨®¨¤ë |
mov edx,Actinoid_text |
int 0x40 |
mcall |
mov ebx,150*65536+280 |
mov edx,Por_nomer |
int 0x40 |
mov ebx,150*65536+255 |
mov edx,number |
mcall |
add ebx,15 |
mov edx,Nazvanie |
int 0x40 |
mov edx,name |
mcall |
add ebx,15 |
mov edx,Angl_nazv |
int 0x40 |
mov edx,eng_name |
mcall |
add ebx,15 |
mov edx,Atomic_massa |
int 0x40 |
mcall |
add ebx,15 |
mov edx,Plotnost_caption |
int 0x40 |
mov edx,density |
mcall |
add ebx,15 |
mov edx,Step_okisl |
int 0x40 |
mcall |
add ebx,15 |
mov edx,Electrootr |
int 0x40 |
mcall |
add ebx,15 |
mov edx,T_pl |
int 0x40 |
mcall |
add ebx,15 |
mov edx,T_kip |
int 0x40 |
mcall |
add ebx,15 |
mov edx,Raspr |
int 0x40 |
mcall |
add ebx,15 |
mov edx,Otkrytie |
int 0x40 |
mcall |
; |
mov ebx,30*65536+68 |
mov ebx,30*65536+43 |
mov edx,Period_text ;1 |
int 0x40 |
mcall |
call @f ;2 |
call @f ;3 |
167,393 → 169,393 |
@@: |
add ebx,20 |
add edx,4 ;â.ª. áâப = 4 ¡ ©â ¬(á ã«ñ¬) |
int 0x40 |
mcall |
ret |
Table: ;âà¨á®¢ª â ¡«¨æë ¢ ¢¨¤¥ ª®®¯®ç¥ª |
table_rjad_1: |
table_row_1: |
shl eax,1 |
mov ebx,50*65536+25 |
mov ecx,60*65536+20 |
mov ecx,35*65536+20 |
mov edx,200 |
mov esi,0xE19123 |
int 0x40 |
mcall |
He_: |
mov ebx,491*65536+25 |
mov esi,0x0f0c314 |
mov edx,2 |
int 0x40 |
table_rjad_2: |
mcall |
table_row_2: |
Li: |
mov ebx,50*65536+25 |
mov ecx,81*65536+20 |
mov ecx,56*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
Be: |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
B_: |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,4 |
table_rjad_2_loop: |
table_row_2_loop: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_2_loop |
table_rjad_3: |
jns table_row_2_loop |
table_row_3: |
Na: |
mov ebx,50*65536+25 |
mov ecx,102*65536+20 |
mov ecx,77*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,4 |
table_rjad_3_loop: |
table_row_3_loop: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_3_loop |
jns table_row_3_loop |
Table_rjad_4: |
Table_row_4: |
K_: |
mov ebx,50*65536+25 |
mov ecx,123*65536+20 |
mov ecx,98*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
Ca: |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
Sc: |
mov ebx,102*65536+25 |
inc edx |
mov esi,0x559beb |
int 0x40 |
mcall |
mov edi,8 |
Table_rjad_4_loop1: |
Table_row_4_loop1: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns Table_rjad_4_loop1 |
jns Table_row_4_loop1 |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,4 |
table_rjad_4_loop2: |
table_row_4_loop2: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_4_loop2 |
jns table_row_4_loop2 |
Table_rjad_5: |
Table_row_5: |
Rb_: |
mov ebx,50*65536+25 |
mov ecx,144*65536+20 |
mov ecx,119*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
Sr_: |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
Y_: |
mov ebx,102*65536+25 |
inc edx |
mov esi,0x559beb |
int 0x40 |
mcall |
mov edi,8 |
Table_rjad_5_loop1: |
Table_row_5_loop1: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns Table_rjad_5_loop1 |
jns Table_row_5_loop1 |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,4 |
table_rjad_5_loop2: |
table_row_5_loop2: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_5_loop2 |
jns table_row_5_loop2 |
Table_rjad_6: |
Table_row_6: |
Cs_: |
mov ebx,50*65536+25 |
mov ecx,165*65536+20 |
mov ecx,140*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
Ba_: |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
La_: |
mov ebx,102*65536+25 |
inc edx |
mov esi,0x559beb |
int 0x40 |
mcall |
mov edx,71 |
mov edi,8 |
Table_rjad_6_loop1: |
Table_row_6_loop1: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns Table_rjad_6_loop1 |
jns Table_row_6_loop1 |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,4 |
table_rjad_6_loop2: |
table_row_6_loop2: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_6_loop2 |
jns table_row_6_loop2 |
Table_rjad_7: |
Table_row_7: |
Fr_: |
mov ebx,50*65536+25 |
mov ecx,186*65536+20 |
mov ecx,161*65536+20 |
mov esi,0xE19123 |
inc edx |
int 0x40 |
mcall |
Ra_: |
mov ebx,76*65536+25 |
inc edx |
int 0x40 |
mcall |
Ac_: |
mov ebx,102*65536+25 |
inc edx |
mov esi,0x559beb |
int 0x40 |
mcall |
mov edx,103 |
mov edi,8 |
Table_rjad_7_loop1: |
Table_row_7_loop1: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns Table_rjad_7_loop1 |
jns Table_row_7_loop1 |
mov ebx,361*65536+25 |
inc edx |
mov esi,0x0f0c314 |
int 0x40 |
mcall |
mov edi,2 |
table_rjad_7_loop2: |
table_row_7_loop2: |
add ebx,26*65536 |
inc edx |
int 0x40 |
mcall |
dec edi |
jns table_rjad_7_loop2 |
jns table_row_7_loop2 |
Rjad_1: |
row_1: |
Cerium_: |
mov ebx,102*65536+25 |
mov ecx,215*65536+20 |
mov ecx,190*65536+20 |
mov edx,58 |
mov esi,0x73beeb |
int 0x40 |
mcall |
mov edi,12 |
Rjad_1_loop: |
row_1_loop: |
add ebx,26*65536 |
inc edx |
dec edi |
int 0x40 |
jns Rjad_1_loop |
Rjad_2: |
mcall |
jns row_1_loop |
row_2: |
dgfsfHe_: |
mov ebx,102*65536+25 |
mov ecx,236*65536+20 |
mov ecx,211*65536+20 |
mov edx,90 |
int 0x40 |
mcall |
mov edi,12 |
Rjad_2_loop: |
row_2_loop: |
add ebx,26*65536 |
inc edx |
dec edi |
int 0x40 |
jns Rjad_2_loop |
mcall |
jns row_2_loop |
Nadpisi_na_knopkah: |
nadp_rjad1: |
text_on_buttons: |
text_row1: |
;H |
shr eax,1 |
mov ebx,62*65536+68 |
mov ebx,62*65536+43 |
mov ecx,0x00000000 |
mov edx,Symbols |
mov esi,3 |
int 0x40 |
mcall |
;Ne |
mov ebx,500*65536+68 |
mov ebx,500*65536+43 |
add edx,3 |
int 0x40 |
nadp_rjad2_1: |
mov ebx,60*65536+88 |
mcall |
text_row2_1: |
mov ebx,60*65536+63 |
add edx,3 |
int 0x40 |
mcall |
mov ebx,85*65536+88 |
mov ebx,85*65536+63 |
add edx,3 |
int 0x40 |
nadp_rjad2_2: |
mov ebx,374*65536+88 |
mcall |
text_row2_2: |
mov ebx,374*65536+63 |
add edx,3 |
int 0x40 |
mcall |
mov edi,4 |
nadp_rjad2_2_loop: |
text_row2_2_loop: |
add ebx,25*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad2_2_loop |
nadp_rjad3_1: |
mov ebx,60*65536+108 |
jns text_row2_2_loop |
text_row3_1: |
mov ebx,60*65536+83 |
add edx,3 |
int 0x40 |
mcall |
mov ebx,85*65536+108 |
mov ebx,85*65536+83 |
add edx,3 |
int 0x40 |
nadp_rjad3_2: |
mov ebx,374*65536+108 |
mcall |
text_row3_2: |
mov ebx,374*65536+83 |
add edx,3 |
int 0x40 |
mcall |
mov edi,4 |
nadp_rjad3_2_loop: |
text_row3_2_loop: |
add ebx,25*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad3_2_loop |
nadp_rjad4: |
mov ebx,60*65536+129 |
jns text_row3_2_loop |
text_row4: |
mov ebx,60*65536+104 |
add edx,3 |
int 0x40 |
mcall |
mov edi,16 |
nadp_rjad4_loop: |
text_row4_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad4_loop |
nadp_rjad5: |
mov ebx,60*65536+150 |
jns text_row4_loop |
text_row5: |
mov ebx,60*65536+125 |
add edx,3 |
int 0x40 |
mcall |
mov edi,16 |
nadp_rjad5_loop: |
text_row5_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad5_loop |
nadp_rjad6: |
mov ebx,60*65536+171 |
jns text_row5_loop |
text_row6: |
mov ebx,60*65536+146 |
add edx,3 |
int 0x40 |
mcall |
mov edi,16 |
nadp_rjad6_loop: |
text_row6_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad6_loop |
nadp_rjad7: |
mov ebx,60*65536+192 |
jns text_row6_loop |
text_row7: |
mov ebx,60*65536+167 |
add edx,3 |
int 0x40 |
mcall |
mov edi,9 |
nadp_rjad7_loop: |
text_row7_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad7_loop |
jns text_row7_loop |
mov edi,4 |
nadp_rjad7_loop2: |
text_row7_loop2: |
add ebx,24*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad7_loop2 |
jns text_row7_loop2 |
nadp_rjad8: |
mov ebx,111*65536+222 |
text_row8: |
mov ebx,111*65536+197 |
add edx,3 |
int 0x40 |
mcall |
mov edi,12 |
nadp_rjad8_loop: |
text_row8_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad8_loop |
jns text_row8_loop |
nadp_rjad9: |
mov ebx,111*65536+242 |
text_row9: |
mov ebx,111*65536+217 |
add edx,3 |
int 0x40 |
mcall |
mov edi,12 |
nadp_rjad9_loop: |
text_row9_loop: |
add ebx,26*65536 |
add edx,3 |
int 0x40 |
mcall |
dec edi |
jns nadp_rjad9_loop |
jns text_row9_loop |
;; <mistifi(ator> - ª®à®ç¥ ¢ë®á¨¬ ¢ ®â¤¥«ìãî ¯à®æ¥¤ãàã |
call VYVOD |
call draw_text |
;; </mistifi(ator> |
finish: |
mov eax,12 ;end drawing |
mov ebx,2 |
int 0x40 |
mcall |
ret |
VYVOD: |
draw_text: |
; 1 ¢ë¢®¤ ¯®à浪®¢®£® ®¬¥à [optmzd-mem] |
; 2 ¢ë¢®¤ àãá᪮£® §¢ ¨ï [optmzd-mem] |
570,9 → 572,9 |
;; <mistifi(ator> - § ªà ᪠, çâ®-¡ë ¥ ¡ë«® «®¦¥¨ï ¯à¨ ¯à®à¨á®¢ª¥ ⥪áâ |
mov eax,13 |
mov ebx,320*65536+210 |
mov ecx,280*65536+(15*11) |
mov ecx,255*65536+(15*11) |
mov edx,[sc.work] |
int 0x40 |
mcall |
;; </mistifi(ator> |
579,13 → 581,12 |
push edi ; çâ®¡ë ®¯â¨¬¨§¨à®¢ âì ¨§¬¥¥¨ï ebx |
; 1 ¢ë¢®¤ ¯®à浪®¢®£® ®¬¥à [optmzd-mem] |
xor ebx,ebx |
or ebx,00000000000000110000000000000000b |
mov ebx,0x30000 ;¢ë¢®¤¨âì 3 æ¨äàë |
mov ecx,[re_ID] |
mov edx,320*65536+280+15*0 |
mov edx,320*65536+255 |
xor esi,esi |
mov eax,47 |
int 0x40 |
mcall |
; ! ð ! [ᤥ« ® ¤«ï ᮪à é¥¨ï ª®¤ 20 ¡ ©â :)))] |
mov ecx,[sc.work_text] ; |
594,7 → 595,7 |
; 2 ¢ë¢®¤ [optmzd-mem] |
mov edi,Rus_nazv ;㪠§ ⥫ì ç «® ¬ áᨢ 㪠§ ⥫¥© ;) |
mov ebx,320*65536+280+15*0 ;§¤¥áì ¢®áïâáï ª®®à¤¨ âë, ¤ «ìè¥ ¡ã¤¥â «¨èì add ebx,15 |
mov ebx,320*65536+255 ;§¤¥áì ¢®áïâáï ª®®à¤¨ âë, ¤ «ìè¥ ¡ã¤¥â «¨èì add ebx,15 |
call out_asciiz_item |
xor ecx,ecx ;color |
606,7 → 607,7 |
imul edi,esi ;áç¨â ¥¬ 㪠§ ⥫ì ã¦ãî áâபã |
add edx,edi |
add ebx,15 ; 㢥«¨ç¨¢ ¥¬ y-ª®®à¤¨ âã ⥪áâ 15 ¯¨ªá¥«¥© |
int 0x40 |
mcall |
; 4 ¢ë¢®¤ ⮬®© ¬ ááë [optmzd-spd] |
mov edx,MassNo |
616,7 → 617,7 |
imul edi,esi ;áç¨â ¥¬ 㪠§ ⥫ì ã¦ãî áâபã |
add edx,edi |
add ebx,15 |
int 0x40 |
mcall |
mov ecx,0x80000000 ;asciiz, !!! |
; 5 ¢ë¢®¤ [optmzd-mem] |
636,7 → 637,7 |
shl edi,2 |
add edx,edi |
add ebx,15 |
int 0x40 |
mcall |
mov ecx,0x80000000 ;asciiz, !!! |
; 8 ¢ë¢®¤ [optmzd-mem] |
665,7 → 666,7 |
shl edx,2 ;㬮¦¨âì 4 (à §¬¥à 㪠§ ⥫ï) |
mov edx,[edx+edi] ;㪠§ ⥫ì áâப㠢 edx |
add ebx,15 |
int 0x40 |
mcall |
ret |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
674,11 → 675,11 |
;; ;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;---- begin ---- ë¥ ¤«ï ®ª -------------------------- |
Caption db '¥à¨®¤¨ç¥áª ï á¨á⥬ ..¥¤¥«¥¥¢ by [navanax] & [Johnny_B]',0 |
Plotnost_caption db '«®â®áâì',0 |
caption db '¥à¨®¤¨ç¥áª ï á¨á⥬ ..¥¤¥«¥¥¢ by [navanax] & [Johnny_B]',0 |
density db '«®â®áâì',0 |
Atomic_massa db '⮬ ï ¬ áá ',0 |
Nazvanie db ' §¢ ¨¥',0 |
Angl_nazv db '£«. §¢ ¨¥',0 |
name db ' §¢ ¨¥',0 |
eng_name db '£«. §¢ ¨¥',0 |
T_pl db '¥¬¯¥à âãà ¯«.',0 |
T_kip db '¥¬¯¥à âãà ª¨¯.',0 |
Electrootr db '«¥ªâà®®âà¨æ ⥫ì®áâì',0 |
685,7 → 686,7 |
Raspr db ' á¯à¥¤¥«¥¨¥ ¢ §¥¬. ª®à¥',0 |
Step_okisl db '⥯¥ì ®ª¨á«¥¨ï',0 |
Otkrytie db 'âªàë⨥',0 |
Por_nomer db '®à浪®¢ë© ®¬¥à',0 |
number db '®à浪®¢ë© ®¬¥à',0 |
Period_text: |
db ' I',0 |
db ' II',0 |
948,12 → 949,12 |
; |
MassNo: ;116 í«¥¬¥â®¢ |
db '1.00797' ; 1 |
db '1.00794' ; 1 |
db '4.0026 ' |
db '6.939 ' |
db '9.0122 ' |
db '6.941 ' |
db '9.01218' |
db '10.811 ' |
db '12.0112' |
db '12.0107' |
db '14.0067' |
db '15.9994' |
db '18.9984' |
961,21 → 962,21 |
db '22.9898' |
db '24.305 ' |
db '26.9815' |
db '28.086 ' |
db '28.0855' |
db '30.9738' |
db '32.066 ' |
db '35.453 ' |
db '39.948 ' |
db '39.102 ' |
db '40.08 ' ; 20 |
db '44.958 ' |
db '39.0983' |
db '40.078 ' ; 20 |
db '44.9559' |
db '47.88 ' |
db '50.942 ' |
db '50.9415' |
db '51.996 ' |
db '54.938 ' |
db '55.847 ' |
db '58.9332' |
db '58.69 ' |
db '58.6934' |
db '63.546 ' |
db '65.39 ' ; 30 |
db '69.723 ' |
/programs/other/rtfread/trunk/macros.inc |
---|
File deleted |
\ No newline at end of file |
Property changes: |
Deleted: svn:eol-style |
-native |
\ No newline at end of property |
/programs/other/rtfread/trunk/ascl.inc |
---|
48,7 → 48,7 |
mov dword [fileinfo+8],1 ; how many blocks to read (1) |
mov eax,58 |
mov ebx,fileinfo |
int 0x40 |
mcall |
mov eax,[file_load_area+2] |
shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ã稬 ç¨á«® ¡«®ª®¢ |
inc eax |
55,7 → 55,7 |
mov dword [fileinfo+8],eax |
mov eax,58 |
mov ebx,fileinfo |
int 0x40 |
mcall |
} |
90,7 → 90,7 |
mov edx,id |
mov esi,bcolor |
mov eax,8 |
int 0x40 |
mcall |
mov eax,asd-lab ;calc size |
mov ebx,6 |
115,7 → 115,7 |
mov edx,lab |
mov esi,asd-lab ;calc size |
mov eax,4 |
int 0x40 |
mcall |
} |
144,7 → 144,7 |
mov eax,9 |
mov ebx,procinfo |
mov ecx,-1 |
int 0x40 |
mcall |
; convert eax bin to param dec |
mov eax,dword [procinfo+30] ;offset of myPID |
178,12 → 178,12 |
mov ebx,1 ; define IPC |
mov ecx,path ; offset of area |
mov edx,1024+16 ; size |
int 0x40 |
mcall |
; change wanted events list 7-bit IPC event |
mov eax,40 |
mov ebx,01000111b |
int 0x40 |
mcall |
; |
; STEP 3 run SYSTEM XTREE with parameters |
191,7 → 191,7 |
mov eax,70 |
mov ebx,run_fileinfo |
int 0x40 |
mcall |
call redproc |
199,7 → 199,7 |
getmesloop: |
mov eax,23 |
mov ebx,50 ;0.5 sec |
int 0x40 |
mcall |
dec eax |
jz mred |
dec eax |
213,7 → 213,7 |
mov ebx,procinfo |
mov ecx,-1 |
mov eax,9 |
int 0x40 |
mcall |
mov ebp,eax |
loox: |
220,7 → 220,7 |
mov eax,9 |
mov ebx,procinfo |
mov ecx,ebp |
int 0x40 |
mcall |
mov eax,[DLGPID] |
cmp [procinfo+30],eax ;IF Dialog find |
je dlg_is_work ;jmp to dlg_is_work |
245,15 → 245,15 |
jmp getmesloop |
mkey: |
mov eax,2 |
int 0x40 ; read (eax=2) |
mcall ; read (eax=2) |
jmp getmesloop |
mbutton: |
mov eax,17 ; get id |
int 0x40 |
mcall |
cmp ah,1 ; button id=1 ? |
jne getmesloop |
mov eax,-1 ; close this program |
int 0x40 |
mcall |
mgetmes: |
; If dlg_pid_get then second message get jmp to still |
355,7 → 355,7 |
mov eax,9 |
mov ebx,procinfo |
mov ecx,-1 |
int 0x40 |
mcall |
; convert eax bin to param dec |
mov eax,dword [procinfo+30] ;offset of myPID |
389,12 → 389,12 |
mov ebx,1 ; define IPC |
mov ecx,path ; offset of area |
mov edx,1024+16 ; size |
int 0x40 |
mcall |
; change wanted events list 7-bit IPC event |
mov eax,40 |
mov ebx,01000111b |
int 0x40 |
mcall |
; |
; STEP 3 run SYSTEM XTREE with parameters |
402,7 → 402,7 |
mov eax,70 |
mov ebx,run_fileinfo |
int 0x40 |
mcall |
call redproc |
410,7 → 410,7 |
getmesloop: |
mov eax,23 |
mov ebx,50 ;0.5 sec |
int 0x40 |
mcall |
dec eax |
jz mred |
dec eax |
424,7 → 424,7 |
mov ebx,procinfo |
mov ecx,-1 |
mov eax,9 |
int 0x40 |
mcall |
mov ebp,eax |
loox: |
431,7 → 431,7 |
mov eax,9 |
mov ebx,procinfo |
mov ecx,ebp |
int 0x40 |
mcall |
mov eax,[DLGPID] |
cmp [procinfo+30],eax ;IF Dialog find |
je dlg_is_work ;jmp to dlg_is_work |
456,15 → 456,15 |
jmp getmesloop |
mkey: |
mov eax,2 |
int 0x40 ; read (eax=2) |
mcall ; read (eax=2) |
jmp getmesloop |
mbutton: |
mov eax,17 ; get id |
int 0x40 |
mcall |
cmp ah,1 ; button id=1 ? |
jne getmesloop |
mov eax,-1 ; close this program |
int 0x40 |
mcall |
mgetmes: |
; If dlg_pid_get then second message get jmp to still |
617,7 → 617,7 |
macro scank |
{ |
mov eax,10 |
int 0x40 |
mcall |
} |
macro putpix x,y,color |
626,7 → 626,7 |
mov ecx,y |
mov edx,color |
mov eax,1 |
int 0x40 |
mcall |
} |
macro puttxt x,y,offs,size,color |
639,7 → 639,7 |
mov edx,offs |
mov esi,size |
mov eax,4 |
int 0x40 |
mcall |
} |
macro outcount data, x, y, color, numtype |
651,7 → 651,7 |
wordstoreg edx,x,y |
mov esi,color |
mov eax,47 |
int 0x40 |
mcall |
} |
; SCEVENT - Scan event |
659,7 → 659,7 |
macro scevent red,key,but |
{ |
mov eax,11 |
int 0x40 |
mcall |
dec eax |
jz red |
dec eax |
673,7 → 673,7 |
macro wtevent red,key,but |
{ |
mov eax,10 |
int 0x40 |
mcall |
dec eax |
jz red |
dec eax |
688,7 → 688,7 |
{ |
mov eax,23 |
mov ebx,xfps |
int 0x40 |
mcall |
cmp eax,0 |
je noevent |
dec eax |
705,7 → 705,7 |
macro close |
{ |
mov eax,-1 |
int 0x40 |
mcall |
} |
; DELAY - Create delay 1/100 sec |
716,7 → 716,7 |
{ |
mov eax,5 |
mov ebx,arg1 |
int 0x40 |
mcall |
} |
; WINDOW - Draw window |
731,7 → 731,7 |
wordstoreg ecx,arg2,arg4 |
mov edx,arg5 |
mov eax,0 |
int 0x40 |
mcall |
} |
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7 |
742,7 → 742,7 |
mov esi,arg6 |
mov edi,arg7 |
mov eax,0 |
int 0x40 |
mcall |
} |
752,7 → 752,7 |
{ |
mov eax,12 |
mov ebx,1 |
int 0x40 |
mcall |
} |
; ENDWD - End window draw |
761,7 → 761,7 |
{ |
mov eax,12 |
mov ebx,2 |
int 0x40 |
mcall |
} |
; LABEL - Put text to frame |
768,22 → 768,6 |
; (SYNTAX) LABEL Xstart,Ystart,'Text',Color |
; (SAMPLE) LABEL 10,12,'Hello World!',cl_Green+font_Big |
macro label arg1,arg2,arg3,arg4 |
{ |
local asd,lab |
jmp asd |
lab db arg3 ;arg label |
asd: |
; mov ebx,arg1 ;arg1=y arg2=x |
; shl ebx,16 |
; add ebx,arg2 |
wordstoreg ebx,arg1,arg2 |
mov ecx,arg4 ;arg4 color |
mov edx,lab |
mov esi,asd-lab ;calc size |
mov eax,4 |
int 0x40 |
} |
;Key's |
key_Up equ 178 |
/programs/other/rtfread/trunk/bgifont.inc |
---|
239,7 → 239,7 |
if ~ BGI_LEVEL eq KERNEL |
mov eax, 70 |
mov ebx, .fontattr |
int 0x40 |
mcall |
test eax, eax |
jnz .fail |
dps2 '1' |
247,7 → 247,7 |
mov [.fsize], eax |
mov ebx,.fontinfo |
mov eax,70 |
int 0x40 ; ebx - file size |
mcall ; ebx - file size |
else |
push edi esi edx |
mov eax,.font |
454,7 → 454,7 |
mov eax,9 |
mov ebx,BGI_PRC_INFO |
mov ecx,-1 |
int 0x40 |
mcall |
popa |
end if |
end if |
587,7 → 587,7 |
and edx, 0xFFFFFF |
; \end{diamond}[18.08.2006] |
mov eax,38 |
int 0x40 |
mcall |
test ebp,BGI_BOLD |
jz .nobold |
test ebp,BGI_FREE |
594,7 → 594,7 |
jnz .free5 |
.free5: |
add ebx,1 shl 16+1 |
int 0x40 |
mcall |
.nobold: |
pop eax |
else |
/programs/other/rtfread/trunk/debug.inc |
---|
55,7 → 55,7 |
mov cl,al |
mov eax,63 |
mov ebx,1 |
int 0x40 |
mcall |
popad |
popf |
ret |
67,7 → 67,7 |
mov cl,[edx] |
test cl,cl |
jz @f |
int 40h |
mcall |
inc edx |
jmp @b |
@@: |
/programs/other/rtfread/trunk/rtfread.asm |
---|
52,7 → 52,7 |
dd fname_buf ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï) |
dd 0x0 ; § १¥à¢¨à®¢ ® |
include 'MACROS.INC' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢! |
include '..\..\..\MACROS.INC' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢! |
include 'debug.inc' |
if ~ RENDER eq PIX |
TOP=TOP+4 |
94,7 → 94,7 |
mov eax, 70 |
and [fileattr+32], 0 |
mov ebx, attrinfo |
int 0x40 |
mcall |
mov ebx, [fileattr+32] |
test eax, eax |
jz .sizok |
132,12 → 132,7 |
je red ; ¥á«¨ ¤ - ¬¥âªã red |
cmp eax,3 ; ¦ â ª®¯ª ? |
je button ; ¥á«¨ ¤ - button |
cmp eax,2 ; ¦ â ª« ¢¨è ? |
je key ; ¥á«¨ ¤ - key |
jmp still ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ç «® 横« |
;--------------------------------------------------------------------- |
315,13 → 310,13 |
mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x805080D0, 0x005080D0 |
mcall 9,procinfo,-1 |
mov eax,[procinfo.x_size] |
mov eax,[procinfo.box.left] |
cmp eax,1 |
ja .temp12345 |
ret |
.temp12345: |
mcall 4, <8,8>, 0x10DDEEFF, header, headersize-header |
mcall 4, <8,8>, 0x10DDEEFF, title, titlesize-title |
mov esi,ecx |
mcall 47,0x30000,isymImplemented,<114,8> |
add edx,36 shl 16 |
483,10 → 478,10 |
; ¨â¥àä¥©á ¯à®£à ¬¬ë ¬®£®ï§ëçë© |
; ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª) |
procinfo process_information |
header: |
title: |
db 'RTF READER v1. ( ):' |
headersize: |
titlesize: |
btn_text: |
if RENDER eq FREE |
db '+ - ' |
606,6 → 601,8 |
szParameter rb 21 |
block_end dd ? |
I_END: ; ¬¥âª ª®æ ¯à®£à ¬¬ë |
procinfo process_information |
rb RTFSIZE |
esp1: |
rb ESPSIZE |