Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 484 → 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