Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Ignore whitespace Rev 382 → Rev 485

/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,29 → 39,30
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
int 0x40
mcall
 
red:
red:
call draw_window
 
still:
still:
push 10
pop eax
int 40h
dec eax
mcall
 
dec eax
jz red
dec eax
jz key
button:
button:
mov al,17 ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
int 0x40
mcall
shr eax,8
jmp testbut
 
key:
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
850,27 → 851,27
display_type_text db 'dec hex bin'
 
dot db '.'
calc db ' '
integer dd 0
decimal dd 0
kymppi dd 10
calc db ' '
integer dd 0
decimal dd 0
kymppi dd 10
ten dd 10.0,0
tmp dw 1,0
sign db 1,0
tmp2 dq 0x0,0
exp dd 0x0,0
new_dec dd 100000,0
id db 0x0,0
tmp dw 1,0
sign db 1,0
tmp2 dq 0x0,0
exp dd 0x0,0
new_dec dd 100000,0
id db 0x0,0
res dd 0
trans1 dq 0
trans2 dq 0
controlWord dw 1
multipl: dd 10,16,2
trans1 dq 0
trans2 dq 0
controlWord dw 1
multipl: dd 10,16,2
 
dsign:
muuta1 db '+0000000000.000000'
muuta2 db '+0000000000.000000'
muuta0 db '+0000000000.000000'
muuta1 db '+0000000000.000000'
muuta2 db '+0000000000.000000'
muuta0 db '+0000000000.000000'
 
text:
db ' A B C D E F C '
885,4 → 886,4
 
I_END:
 
sc system_colors
sc system_colors
/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,14 → 36,22
re_ID dd 0x00000001 ;¤«ï åà ­¥­¨ï ­®¬¥à  ⥪ã饣® ¢ë¢®¤¨¬®£® í«¥¬¥­â 
 
START:
 
mov eax,48
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
mcall
 
red:
call draw_window
 
still: ;®á­®¢­®© 横« ¯à®£à ¬¬ë
push 10 ;®¦¨¤ ­¨¥ ᮡëâ¨ï
push 10 ;®¦¨¤ ­¨¥ ᮡëâ¨ï
pop eax
int 0x40
dec eax
mcall
 
dec eax
je red
dec eax
jne button
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
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