WebSVN – Kolibri OS – Diff – /programs/other/tinypad2/trunk/ascl.inc


 
 
;
;   Assembler
;     SMALL
;       CODE
;         Libary
;
;  Ver 0.14 By Pavlushin Evgeni (RUSSIA)
;  www.waptap@mail.ru
 
;Please compile aplications on FASM ver1.54 or higer!!!
 
;InfoList
;0.01 scank,putpix,puttxt
;0.02 label,random,colors
;0.03 window,startwd,endwd,attributes
;0.04 close,delay,scevent ~30.04.2004
;0.05 small random, ~04.05.2004
;0.06 wtevent ~09.05.2004
;0.07 timeevent ~23.05.2004
;0.08 txtput ~14.06.2004
;0.09 opendialog,savedialog ~20.06.2004
;0.10 wordstoreg by halyavin, add at ~30.08.2004
; random bug deleted eax is use.
;0.11 loadfile from me +puttxt bug del ~07.09.2004
;0.12 open/save dialog ~13.09.2004
;0.13 dialogs bugs deleted
;0.14 drawlbut ~03.10.2004
;0.15 extendet label!
 
; LOADFILE
; (SYNTAX)  LOADFILE 'full_path_to_file',file_load_area,file_temp_area
; (SAMPLE)  LOADFILE '/rd/1/clock.bmp',load_area,temp_area
 
 
macro loadfile file_name,file_load_area,file_temp_area
{
local open,fileinfo,string
    jmp open
fileinfo:
    dd 0
    dd 0
    dd 1
    dd file_load_area
    dd file_temp_area
string:
    db file_name,0
open:
    mov  dword [fileinfo+8],1 ; how many blocks to read (1)
    mov  eax,58
    mov  ebx,fileinfo
    int  0x40
    mov  eax,[file_load_area+2]
    shr  eax,9 ; ¯®¤¥«¨¬ ­  512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢
    inc  eax
    mov  dword [fileinfo+8],eax
    mov  eax,58
    mov  ebx,fileinfo
    int  0x40
}
 
 
;***********************************************************
macro savefile file_name,file_save_area,file_temp_area,fsize
{
local save,fileinfo,string ;,counter00
    jmp save
;counter00 dd 0
fileinfo:
    dd 1
    dd 0
    dd fsize ;counter00
    dd file_save_area
    dd file_temp_area
string:
    db file_name,0
save:
;xor edi,edi
; sub edi,file_save_area    ; calculate dump size
; mov edx,edi
;mov [counter00],edi
;    mov  dword [fileinfo+8],1 ; how many blocks to write (1)
;    mov  eax,58
;    mov  ebx,fileinfo
;    int  0x40
;    mov  eax,[file_load_area+2]
;    shr  eax,9 ; ¯®¤¥«¨¬ ­  512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢
;    inc  eax
;    mov  dword [fileinfo+8],eax
    mov  eax,58
    mov  ebx,fileinfo
    int  0x40
}
;***********************************************************
 
 
;macro wordstoreg reg,hiword,loword
;{
;if  hiword eqtype 0 & loword eqtype 0
;    mov  reg,dword hiword*65536+loword
;else if hiword eqtype 12 & loword eqtype eax
;    mov  reg,dword hiword*65536
;    add  reg,dword loword
;else if hiword eqtype 12 & loword eqtype [123]
;    mov  reg,dword hiword*65536
;    add  reg,dword loword
;else
;    mov  reg,dword hiword
;    shl  reg,16
;    add  reg,dword loword
;end if
;}
 
macro dword2reg reg,doubleword
{
if doubleword eq
   ; not changes
else
   mov reg,dword doubleword
end if
}
 
macro words2reg reg,hiword,lowword
{
if hiword eq
   if lowword eq
      ; not changes
   else
      if lowword eqtype 12
	 and reg,dword 0xffff0000
	 add reg,dword lowword
      else
	 and reg,dword 0xffff0000
	 add reg,dword lowword
      end if
   end if
else
   if lowword eq
      if hiword eqtype 12
	 and reg,dword 0x0000ffff
	 add reg,dword hiword*65536
      else
	 shl reg,16
	 add reg,dword hiword
	 ror reg,16
      end if
   else
      if lowword eqtype 12 & hiword eqtype 12
	 if lowword eq 0 & hiword eq 0
	       xor reg,reg
	    else
	       mov reg,dword hiword*65536+lowword
	 end if
      else
	 mov reg,dword hiword
	 shl reg,16
	 add reg,dword lowword
      end if
   end if
end if
}
 
 
 
 
; DRAW BUTTON with label
 
macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor
{
local asd,lab
    jmp asd
lab db	text		     ;arg label
asd:
    words2reg ebx,x,xs
    words2reg ecx,y,ys
    mov edx,id
    mov esi,bcolor
    mov eax,8
    int 0x40
 
    mov eax,asd-lab	     ;calc size
    mov ebx,6
    mul ebx
    mov esi,eax
 
    mov eax,xs
    sub eax,esi
    shr eax,1
    add eax,x
 
    mov edx,ys
    sub edx,7
    shr edx,1
    add edx,y
 
    mov ebx,eax
    shl ebx,16
    add ebx,edx
 
    mov ecx,tcolor	       ;arg4 color
    mov edx,lab
    mov esi,asd-lab	     ;calc size
    mov eax,4
    int 0x40
}
 
 
macro opendialog redproc,openoff,erroff,path
{
local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
local run_fileinfo, param
local getmesloop, loox, mred, mkey, mbutton, mgetmes
local dlg_is_work, ready, procinfo
;
; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
;
 
    cld
;;    mov esi,path
    mov edi,path
    xor eax,eax
    mov ecx,(1024+16)/4
    rep stosd
 
;mov [get_loops],0
mov [dlg_pid_get],0
 
; Get my PID in dec format 4 bytes
    mov eax,9
    mov ebx,procinfo
    mov ecx,-1
    int 0x40
 
; convert eax bin to param dec
    mov eax,dword [procinfo+30]  ;offset of myPID
    mov edi,param+4-1		 ;offset to 4 bytes
    mov ecx,4
    mov ebx,10
    cld
new_d:
    xor edx,edx
    div ebx
    add dl,'0'
    mov [edi],dl
    dec edi
    loop new_d
 
; wirite 1 byte space to param
    mov [param+4],byte 32    ;Space for next parametr
; and 1 byte type of dialog to param
    mov [param+5],byte 'O'   ;Get Open dialog (Use 'S' for Save dialog)
 
;
; STEP2 prepare IPC area for get messages
;
 
; prepare IPC area
    mov [path],dword 0
    mov [path+4],dword 8
 
; define IPC memory
    mov eax,60
    mov ebx,1	     ; define IPC
    mov ecx,path     ; offset of area
    mov edx,1024+16  ; size
    int 0x40
 
; change wanted events list 7-bit IPC event
    mov eax,40
    mov ebx,01000111b
    int 0x40
 
;
; STEP 3 run SYSTEM XTREE with parameters
;
 
    mov eax,70
    mov ebx,run_fileinfo
    int 0x40
 
    call redproc
 
    mov [get_loops],0
getmesloop:
    mov eax,23
    mov ebx,50	   ;0.5 sec
    int 0x40
 
        dec     eax
        jz      mred
        dec     eax
        jz      mkey
        dec     eax
        jz      mbutton
        cmp     al, 7-3
        jz      mgetmes
 
; Get number of procces
    mov ebx,procinfo
    mov ecx,-1
    mov eax,9
    int 0x40
    mov ebp,eax
 
loox:
    mov eax,9
    mov ebx,procinfo
    mov ecx,ebp
    int 0x40
    mov eax,[DLGPID]
    cmp [procinfo+30],eax    ;IF Dialog find
    je	dlg_is_work	     ;jmp to dlg_is_work
    dec ebp
    jnz loox
 
    jmp erroff
 
dlg_is_work:
    cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
    je	erroff		       ;TESTODP2 terminated too
 
    cmp [dlg_pid_get],dword 1
    je	getmesloop
    inc [get_loops]
    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
    jae erroff
    jmp getmesloop
 
mred:
    call redproc
    jmp  getmesloop
mkey:
    mov  eax,2
    int  0x40			; read (eax=2)
    jmp  getmesloop
mbutton:
    mov  eax,17 		; get id
    int  0x40
    cmp  ah,1			; button id=1 ?
    jne  getmesloop
    mov  eax,-1 		; close this program
    int  0x40
mgetmes:
 
; If dlg_pid_get then second message get jmp to still
    cmp  [dlg_pid_get],dword 1
    je	 ready
 
; First message is number of PID SYSXTREE dialog
 
; convert PID dec to PID bin
    movzx eax,byte [path+16]
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+1]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+2]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+3]
    add eax,ebx
    sub eax,48
    mov [DLGPID],eax
 
; Claear and prepare IPC area for next message
    mov [path],dword 0
    mov [path+4],dword 8
    mov [path+8],dword 0
    mov [path+12],dword 0
    mov [path+16],dword 0
 
; Set dlg_pid_get for get next message
    mov [dlg_pid_get],dword 1
    call redproc   ;show DLG_PID
    jmp  getmesloop
 
ready:
;
; The second message get
; Second message is 100 bytes path to SAVE/OPEN file
; shl path string on 16 bytes
;
    cld
    mov esi,path+16
    mov edi,path
    mov ecx,1024/4
    rep movsd
    mov [edi],byte 0
 
    jmp openoff
 
 
; DATA AREA
get_loops   dd 0
dlg_pid_get dd 0
DLGPID	    dd 0
 
param:
   dd 0    ; My dec PID
   dd 0,0  ; Type of dialog
 
run_fileinfo:
 dd 7
 dd 0
 dd param
 dd 0
 dd 0
;run_filepath
 db '/RD/1/SYSXTREE',0
 
procinfo:
times 1024 db 0
}
 
 
macro savedialog redproc,openoff,erroff,path
{
local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
local run_fileinfo, run_filepath, param
local getmesloop, loox, mred, mkey, mbutton, mgetmes
local dlg_is_work, ready, procinfo
;
; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
;
 
    cld
;;    mov esi,path
    mov edi,path
    xor eax,eax
    mov ecx,(1024+16)/4
    rep stosd
 
;mov [get_loops],0
mov [dlg_pid_get],0
 
; Get my PID in dec format 4 bytes
    mov eax,9
    mov ebx,procinfo
    mov ecx,-1
    int 0x40
 
; convert eax bin to param dec
    mov eax,dword [procinfo+30]  ;offset of myPID
    mov edi,param+4-1		 ;offset to 4 bytes
    mov ecx,4
    mov ebx,10
    cld
new_d:
    xor edx,edx
    div ebx
    add dl,'0'
    mov [edi],dl
    dec edi
    loop new_d
 
; wirite 1 byte space to param
    mov [param+4],byte 32    ;Space for next parametr
; and 1 byte type of dialog to param
    mov [param+5],byte 'S'   ;Get Open dialog (Use 'S' for Save dialog)
 
;
; STEP2 prepare IPC area for get messages
;
 
; prepare IPC area
    mov [path],dword 0
    mov [path+4],dword 8
 
; define IPC memory
    mov eax,60
    mov ebx,1	     ; define IPC
    mov ecx,path     ; offset of area
    mov edx,1024+16  ; size
    int 0x40
 
; change wanted events list 7-bit IPC event
    mov eax,40
    mov ebx,01000111b
    int 0x40
 
;
; STEP 3 run SYSTEM XTREE with parameters
;
 
    mov eax,70
    mov ebx,run_fileinfo
    int 0x40
 
    call redproc
 
    mov [get_loops],0
getmesloop:
    mov eax,23
    mov ebx,50	   ;0.5 sec
    int 0x40
 
        dec     eax
        jz      mred
        dec     eax
        jz      mkey
        dec     eax
        jz      mbutton
        cmp     al, 7-3
        jz      mgetmes
 
; Get number of procces
    mov ebx,procinfo
    mov ecx,-1
    mov eax,9
    int 0x40
    mov ebp,eax
 
loox:
    mov eax,9
    mov ebx,procinfo
    mov ecx,ebp
    int 0x40
    mov eax,[DLGPID]
    cmp [procinfo+30],eax    ;IF Dialog find
    je	dlg_is_work	     ;jmp to dlg_is_work
    dec ebp
    jnz loox
 
    jmp erroff
 
dlg_is_work:
    cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
    je	erroff		       ;TESTODP2 terminated too
 
    cmp [dlg_pid_get],dword 1
    je	getmesloop
    inc [get_loops]
    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
    jae erroff
    jmp getmesloop
 
mred:
    call redproc
    jmp  getmesloop
mkey:
    mov  eax,2
    int  0x40			; read (eax=2)
    jmp  getmesloop
mbutton:
    mov  eax,17 		; get id
    int  0x40
    cmp  ah,1			; button id=1 ?
    jne  getmesloop
    mov  eax,-1 		; close this program
    int  0x40
mgetmes:
 
; If dlg_pid_get then second message get jmp to still
    cmp  [dlg_pid_get],dword 1
    je	 ready
 
; First message is number of PID SYSXTREE dialog
 
; convert PID dec to PID bin
    movzx eax,byte [path+16]
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+1]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+2]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+3]
    add eax,ebx
    sub eax,48
    mov [DLGPID],eax
 
; Claear and prepare IPC area for next message
    mov [path],dword 0
    mov [path+4],dword 8
    mov [path+8],dword 0
    mov [path+12],dword 0
    mov [path+16],dword 0
 
; Set dlg_pid_get for get next message
    mov [dlg_pid_get],dword 1
    call redproc   ;show DLG_PID
    jmp  getmesloop
 
ready:
;
; The second message get
; Second message is 100 bytes path to SAVE/OPEN file
; shl path string on 16 bytes
;
    cld
    mov esi,path+16
    mov edi,path
    mov ecx,1024/4
    rep movsd
    mov [edi],byte 0
 
    jmp openoff
 
 
; DATA AREA
get_loops   dd 0
dlg_pid_get dd 0
DLGPID	    dd 0
 
param:
   dd 0  ; My dec PID
   dd 0,0  ; Type of dialog
 
run_fileinfo:
 dd 7
 dd 0
 dd param
 dd 0
 dd 0
;run_filepath:
 db '/RD/1/SYSXTREE',0
 
procinfo:
times 1024 db 0
}
 
 
 
 
; RANDOM - generate random count (small)
; (SYNTAX)  RANDOM MaxCount,OutArgument
; (SAMPLE)  RANDOM 10000,eax
; ( NOTE )  Maxint<65536 ; use random 65536,eax for more combinations
 
randomuse = 0
 
macro random arg1,arg2
{
local rxproc
randomuse = randomuse + 1
 
      jmp rxproc
 
if defined randomuse & randomuse = 1
randomproc:
      jmp rnj
rsx1 dw 0x4321
rsx2 dw 0x1234
rnj:
;    mov eax,arg1
    push bx
    push cx
    push dx
    push si
    push di
    mov cx,ax
    mov ax,word ptr rsx1
    mov bx,word ptr rsx2
    mov si,ax
    mov di,bx
    mov dl,ah
    mov ah,al
    mov al,bh
    mov bh,bl
    xor bl,bl
    rcr dl,1
    rcr ax,1
    rcr bx,1
    add bx,di
    adc ax,si
    add bx,0x62e9
    adc ax,0x3619
    mov word ptr rsx1,bx
    mov word ptr rsx2,ax
    xor dx,dx
    cmp ax,0
    je nodiv
    cmp cx,0
    je nodiv
    div cx
nodiv:
    mov ax,dx
    pop di
    pop si
    pop dx
    pop cx
    pop bx
    and eax,0000ffffh
;    mov arg2,0
;    mov arg2,eax
    ret
end if
 
rxproc:
    mov eax,arg1
    call randomproc
    mov arg2,eax
}
 
macro scank
{
    mov eax,10
    int 0x40
}
 
macro putpix x,y,color
{
    mov ebx,x
    mov ecx,y
    mov edx,color
    mov eax,1
    int 0x40
}
 
macro puttxt x,y,offs,size,color
{
;    mov ebx,x
;    shl ebx,16
;    add ebx,y
    words2reg ebx,x,y
 
    dword2reg ecx,color
    dword2reg edx,offs
    dword2reg esi,size
 
;    mov ecx,color
;    mov edx,offs
;    mov esi,size
    mov eax,4
    int 0x40
}
 
macro outcount data, x, y, color, numtype
{
    mov ecx,data
    mov ebx,numtype
    mov bl,0
;    mov edx,x*65536+y
    words2reg edx,x,y
    mov esi,color
    mov eax,47
    int 0x40
}
 
; SCEVENT - Scan event
 
macro scevent red,key,but
{
    mov eax,11
    int 0x40
    dec eax
    jz	red
    dec eax
    jz	key
    dec eax
    jz	but
}
 
; WTEVENT - Wait event
 
macro wtevent red,key,but
{
    mov eax,10
    int 0x40
    dec eax
    jz	red
    dec eax
    jz	key
    dec eax
    jz	but
}
 
; TIMEEVENT - Wite for event with timeout
 
macro timeevent xfps,noevent,red,key,but
{
    mov eax,23
    mov ebx,xfps
    int 0x40
    cmp eax,0
    je	noevent
    dec eax
    jz	red
    dec eax
    jz	key
    dec eax
    jz	but
}
 
 
; CLOSE - Close program
 
macro close
{
    mov eax,-1
    int 0x40
}
 
; DELAY - Create delay 1/100 sec
; (SYNTAX)  Delay time
; (SAMPLE)  Delay 100   ;delay 2 sec 1/100*200=2 sec
 
macro delay arg1
{
    mov eax,5
    mov ebx,arg1
    int 0x40
}
 
; WINDOW - Draw window
; (SYNTAX)  WINDOW Xstart,Ystart,'Text',Color
; (SAMPLE)  WINDOW 10,10,640+8,480+24,window_Skinned
 
macro window arg1,arg2,arg3,arg4,arg5
{
;    mov ebx,arg1*65536+arg3
;    mov ecx,arg2*65536+arg4
    words2reg ebx,arg1,arg3
    words2reg ecx,arg2,arg4
    mov edx,arg5
    mov eax,0
    int 0x40
}
 
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
{
;    mov ebx,arg1*65536+arg3
;    mov ecx,arg2*65536+arg4
    words2reg ebx,arg1,arg3
    words2reg ecx,arg2,arg4
    mov edx,arg5
    mov esi,arg6
    mov edi,arg7
    mov eax,0
    int 0x40
}
 
 
; STARTWD - Start of window draw
 
macro startwd
{
    mov eax,12
    mov ebx,1
    int 0x40
}
 
; ENDWD - End window draw
 
macro endwd
{
    mov eax,12
    mov ebx,2
    int 0x40
}
 
; LABEL - Put text to frame
; (SYNTAX)  LABEL Xstart,Ystart,'Text',Color
; (SAMPLE)  LABEL 10,12,'Hello World!',cl_Green+font_Big
 
macro putlabel 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
 
   words2reg ebx,arg1,arg2
 
   dword2reg ecx,arg4
 
    mov edx,lab
    mov esi,asd-lab	     ;calc size
    mov eax,4
    int 0x40
}
 
;Key's
key_Up	   equ 178
key_Down   equ 177
key_Right  equ 179
key_Left   equ 176
key_Esc    equ 27
key_Space  equ 32
key_Enter  equ 13
key_Bspace equ 8
key_F1	   equ 50
key_F2	   equ 51
key_F3	   equ 52
key_F4	   equ 53
key_F5	   equ 54
key_F6	   equ 55
key_F7	   equ 56
key_F8	   equ 57
key_F9	   equ 48
key_F10    equ 49
key_F11    equ 68
key_F12    equ 255
key_Home   equ 180
key_End    equ 181
key_PgUp   equ 184
key_PgDown equ 183
 
;Attributes
 
;Window Attributes
window_Skinned equ 0x03000000
window_Type2   equ 0x02000000
window_Type1   equ 0x00000000
window_Reserve equ 0x01000000
 
;Font Attributes
font_Big  equ 0x10000000
 
;Colors
cl_White  equ 0x00ffffff
cl_Black  equ 0x00000000
cl_Grey   equ 0x00888888
cl_Red	  equ 0x00ff0000
cl_Lime   equ 0x0000ff00
cl_Green  equ 0x0000af00
cl_Blue   equ 0x000000ff
cl_Purple equ 0x008080ff
cl_Violet equ 0x008040ff
cl_Cyan   equ 0x0040e0ff

Rev 111	Rev 135
1	lang equ ru ; ru en fr ge fi	-
2		-
3	;	1	;
4	; Assembler	2	; Assembler
5	; SMALL	3	; SMALL
6	; CODE	4	; CODE
7	; Libary	5	; Libary
8	;	6	;
9	; Ver 0.14 By Pavlushin Evgeni (RUSSIA)	7	; Ver 0.14 By Pavlushin Evgeni (RUSSIA)
10	; www.waptap@mail.ru	8	; www.waptap@mail.ru
11		9
12	;Please compile aplications on FASM ver1.54 or higer!!!	10	;Please compile aplications on FASM ver1.54 or higer!!!
13		11
14	;InfoList	12	;InfoList
15	;0.01 scank,putpix,puttxt	13	;0.01 scank,putpix,puttxt
16	;0.02 label,random,colors	14	;0.02 label,random,colors
17	;0.03 window,startwd,endwd,attributes	15	;0.03 window,startwd,endwd,attributes
18	;0.04 close,delay,scevent ~30.04.2004	16	;0.04 close,delay,scevent ~30.04.2004
19	;0.05 small random, ~04.05.2004	17	;0.05 small random, ~04.05.2004
20	;0.06 wtevent ~09.05.2004	18	;0.06 wtevent ~09.05.2004
21	;0.07 timeevent ~23.05.2004	19	;0.07 timeevent ~23.05.2004
22	;0.08 txtput ~14.06.2004	20	;0.08 txtput ~14.06.2004
23	;0.09 opendialog,savedialog ~20.06.2004	21	;0.09 opendialog,savedialog ~20.06.2004
24	;0.10 wordstoreg by halyavin, add at ~30.08.2004	22	;0.10 wordstoreg by halyavin, add at ~30.08.2004
25	; random bug deleted eax is use.	23	; random bug deleted eax is use.
26	;0.11 loadfile from me +puttxt bug del ~07.09.2004	24	;0.11 loadfile from me +puttxt bug del ~07.09.2004
27	;0.12 open/save dialog ~13.09.2004	25	;0.12 open/save dialog ~13.09.2004
28	;0.13 dialogs bugs deleted	26	;0.13 dialogs bugs deleted
29	;0.14 drawlbut ~03.10.2004	27	;0.14 drawlbut ~03.10.2004
30	;0.15 extendet label!	28	;0.15 extendet label!
31		29
32	; LOADFILE	30	; LOADFILE
33	; (SYNTAX) LOADFILE 'full_path_to_file',file_load_area,file_temp_area	31	; (SYNTAX) LOADFILE 'full_path_to_file',file_load_area,file_temp_area
34	; (SAMPLE) LOADFILE '/rd/1/clock.bmp',load_area,temp_area	32	; (SAMPLE) LOADFILE '/rd/1/clock.bmp',load_area,temp_area
35		33
36		34
37	macro loadfile file_name,file_load_area,file_temp_area	35	macro loadfile file_name,file_load_area,file_temp_area
38	{	36	{
39	local open,fileinfo,string	37	local open,fileinfo,string
40	jmp open	38	jmp open
41	fileinfo:	39	fileinfo:
42	dd 0	40	dd 0
43	dd 0	41	dd 0
44	dd 1	42	dd 1
45	dd file_load_area	43	dd file_load_area
46	dd file_temp_area	44	dd file_temp_area
47	string:	45	string:
48	db file_name,0	46	db file_name,0
49	open:	47	open:
50	mov dword [fileinfo+8],1 ; how many blocks to read (1)	48	mov dword [fileinfo+8],1 ; how many blocks to read (1)
51	mov eax,58	49	mov eax,58
52	mov ebx,fileinfo	50	mov ebx,fileinfo
53	int 0x40	51	int 0x40
54	mov eax,[file_load_area+2]	52	mov eax,[file_load_area+2]
55	shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢	53	shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢
56	inc eax	54	inc eax
57	mov dword [fileinfo+8],eax	55	mov dword [fileinfo+8],eax
58	mov eax,58	56	mov eax,58
59	mov ebx,fileinfo	57	mov ebx,fileinfo
60	int 0x40	58	int 0x40
61	}	59	}
62		60
63		61
64	;***********************************************************	62	;***********************************************************
65	macro savefile file_name,file_save_area,file_temp_area,fsize	63	macro savefile file_name,file_save_area,file_temp_area,fsize
66	{	64	{
67	local save,fileinfo,string ;,counter00	65	local save,fileinfo,string ;,counter00
68	jmp save	66	jmp save
69	;counter00 dd 0	67	;counter00 dd 0
70	fileinfo:	68	fileinfo:
71	dd 1	69	dd 1
72	dd 0	70	dd 0
73	dd fsize ;counter00	71	dd fsize ;counter00
74	dd file_save_area	72	dd file_save_area
75	dd file_temp_area	73	dd file_temp_area
76	string:	74	string:
77	db file_name,0	75	db file_name,0
78	save:	76	save:
79	;xor edi,edi	77	;xor edi,edi
80	; sub edi,file_save_area ; calculate dump size	78	; sub edi,file_save_area ; calculate dump size
81	; mov edx,edi	79	; mov edx,edi
82	;mov [counter00],edi	80	;mov [counter00],edi
83	; mov dword [fileinfo+8],1 ; how many blocks to write (1)	81	; mov dword [fileinfo+8],1 ; how many blocks to write (1)
84	; mov eax,58	82	; mov eax,58
85	; mov ebx,fileinfo	83	; mov ebx,fileinfo
86	; int 0x40	84	; int 0x40
87	; mov eax,[file_load_area+2]	85	; mov eax,[file_load_area+2]
88	; shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢	86	; shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢
89	; inc eax	87	; inc eax
90	; mov dword [fileinfo+8],eax	88	; mov dword [fileinfo+8],eax
91	mov eax,58	89	mov eax,58
92	mov ebx,fileinfo	90	mov ebx,fileinfo
93	int 0x40	91	int 0x40
94	}	92	}
95	;***********************************************************	93	;***********************************************************
96		94
97		95
98	;macro wordstoreg reg,hiword,loword	96	;macro wordstoreg reg,hiword,loword
99	;{	97	;{
100	;if hiword eqtype 0 & loword eqtype 0	98	;if hiword eqtype 0 & loword eqtype 0
101	; mov reg,dword hiword*65536+loword	99	; mov reg,dword hiword*65536+loword
102	;else if hiword eqtype 12 & loword eqtype eax	100	;else if hiword eqtype 12 & loword eqtype eax
103	; mov reg,dword hiword*65536	101	; mov reg,dword hiword*65536
104	; add reg,dword loword	102	; add reg,dword loword
105	;else if hiword eqtype 12 & loword eqtype [123]	103	;else if hiword eqtype 12 & loword eqtype [123]
106	; mov reg,dword hiword*65536	104	; mov reg,dword hiword*65536
107	; add reg,dword loword	105	; add reg,dword loword
108	;else	106	;else
109	; mov reg,dword hiword	107	; mov reg,dword hiword
110	; shl reg,16	108	; shl reg,16
111	; add reg,dword loword	109	; add reg,dword loword
112	;end if	110	;end if
113	;}	111	;}
114		112
115	macro dword2reg reg,doubleword	113	macro dword2reg reg,doubleword
116	{	114	{
117	if doubleword eq	115	if doubleword eq
118	; not changes	116	; not changes
119	else	117	else
120	mov reg,dword doubleword	118	mov reg,dword doubleword
121	end if	119	end if
122	}	120	}
123		121
124	macro words2reg reg,hiword,lowword	122	macro words2reg reg,hiword,lowword
125	{	123	{
126	if hiword eq	124	if hiword eq
127	if lowword eq	125	if lowword eq
128	; not changes	126	; not changes
129	else	127	else
130	if lowword eqtype 12	128	if lowword eqtype 12
131	and reg,dword 0xffff0000	129	and reg,dword 0xffff0000
132	add reg,dword lowword	130	add reg,dword lowword
133	else	131	else
134	and reg,dword 0xffff0000	132	and reg,dword 0xffff0000
135	add reg,dword lowword	133	add reg,dword lowword
136	end if	134	end if
137	end if	135	end if
138	else	136	else
139	if lowword eq	137	if lowword eq
140	if hiword eqtype 12	138	if hiword eqtype 12
141	and reg,dword 0x0000ffff	139	and reg,dword 0x0000ffff
142	add reg,dword hiword*65536	140	add reg,dword hiword*65536
143	else	141	else
144	shl reg,16	142	shl reg,16
145	add reg,dword hiword	143	add reg,dword hiword
146	ror reg,16	144	ror reg,16
147	end if	145	end if
148	else	146	else
149	if lowword eqtype 12 & hiword eqtype 12	147	if lowword eqtype 12 & hiword eqtype 12
150	if lowword eq 0 & hiword eq 0	148	if lowword eq 0 & hiword eq 0
151	xor reg,reg	149	xor reg,reg
152	else	150	else
153	mov reg,dword hiword*65536+lowword	151	mov reg,dword hiword*65536+lowword
154	end if	152	end if
155	else	153	else
156	mov reg,dword hiword	154	mov reg,dword hiword
157	shl reg,16	155	shl reg,16
158	add reg,dword lowword	156	add reg,dword lowword
159	end if	157	end if
160	end if	158	end if
161	end if	159	end if
162	}	160	}
163		161
164		162
165		163
166		164
167	; DRAW BUTTON with label	165	; DRAW BUTTON with label
168		166
169	macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor	167	macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor
170	{	168	{
171	local asd,lab	169	local asd,lab
172	jmp asd	170	jmp asd
173	lab db text ;arg label	171	lab db text ;arg label
174	asd:	172	asd:
175	words2reg ebx,x,xs	173	words2reg ebx,x,xs
176	words2reg ecx,y,ys	174	words2reg ecx,y,ys
177	mov edx,id	175	mov edx,id
178	mov esi,bcolor	176	mov esi,bcolor
179	mov eax,8	177	mov eax,8
180	int 0x40	178	int 0x40
181		179
182	mov eax,asd-lab ;calc size	180	mov eax,asd-lab ;calc size
183	mov ebx,6	181	mov ebx,6
184	mul ebx	182	mul ebx
185	mov esi,eax	183	mov esi,eax
186		184
187	mov eax,xs	185	mov eax,xs
188	sub eax,esi	186	sub eax,esi
189	shr eax,1	187	shr eax,1
190	add eax,x	188	add eax,x
191		189
192	mov edx,ys	190	mov edx,ys
193	sub edx,7	191	sub edx,7
194	shr edx,1	192	shr edx,1
195	add edx,y	193	add edx,y
196		194
197	mov ebx,eax	195	mov ebx,eax
198	shl ebx,16	196	shl ebx,16
199	add ebx,edx	197	add ebx,edx
200		198
201	mov ecx,tcolor ;arg4 color	199	mov ecx,tcolor ;arg4 color
202	mov edx,lab	200	mov edx,lab
203	mov esi,asd-lab ;calc size	201	mov esi,asd-lab ;calc size
204	mov eax,4	202	mov eax,4
205	int 0x40	203	int 0x40
206	}	204	}
207		205
208		206
209	macro opendialog redproc,openoff,erroff,path	207	macro opendialog redproc,openoff,erroff,path
210	{	208	{
211	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc	209	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
212	local run_fileinfo, param	210	local run_fileinfo, param
213	local getmesloop, loox, mred, mkey, mbutton, mgetmes	211	local getmesloop, loox, mred, mkey, mbutton, mgetmes
214	local dlg_is_work, ready, procinfo	212	local dlg_is_work, ready, procinfo
215	;	213	;
216	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,	214	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
217	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)	215	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
218	;	216	;
219		217
220	cld	218	cld
221	;; mov esi,path	219	;; mov esi,path
222	mov edi,path	220	mov edi,path
223	mov eax,0	221	xor eax,eax
224	mov ecx,200	222	mov ecx,(1024+16)/4
225	rep stosb	223	rep stosd
226		224
227	;mov [get_loops],0	225	;mov [get_loops],0
228	mov [dlg_pid_get],0	226	mov [dlg_pid_get],0
229		227
230	; Get my PID in dec format 4 bytes	228	; Get my PID in dec format 4 bytes
231	mov eax,9	229	mov eax,9
232	mov ebx,procinfo	230	mov ebx,procinfo
233	mov ecx,-1	231	mov ecx,-1
234	int 0x40	232	int 0x40
235		233
236	; convert eax bin to param dec	234	; convert eax bin to param dec
237	mov eax,dword [procinfo+30] ;offset of myPID	235	mov eax,dword [procinfo+30] ;offset of myPID
238	mov edi,param+4-1 ;offset to 4 bytes	236	mov edi,param+4-1 ;offset to 4 bytes
239	mov ecx,4	237	mov ecx,4
240	mov ebx,10	238	mov ebx,10
241	cld	239	cld
242	new_d:	240	new_d:
243	xor edx,edx	241	xor edx,edx
244	div ebx	242	div ebx
245	add dl,'0'	243	add dl,'0'
246	mov [edi],dl	244	mov [edi],dl
247	dec edi	245	dec edi
248	loop new_d	246	loop new_d
249		247
250	; wirite 1 byte space to param	248	; wirite 1 byte space to param
251	mov [param+4],byte 32 ;Space for next parametr	249	mov [param+4],byte 32 ;Space for next parametr
252	; and 1 byte type of dialog to param	250	; and 1 byte type of dialog to param
253	mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog)	251	mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog)
254		252
255	;	253	;
256	; STEP2 prepare IPC area for get messages	254	; STEP2 prepare IPC area for get messages
257	;	255	;
258		256
259	; prepare IPC area	257	; prepare IPC area
260	mov [path],dword 0	258	mov [path],dword 0
261	mov [path+4],dword 8	259	mov [path+4],dword 8
262		260
263	; define IPC memory	261	; define IPC memory
264	mov eax,60	262	mov eax,60
265	mov ebx,1 ; define IPC	263	mov ebx,1 ; define IPC
266	mov ecx,path ; offset of area	264	mov ecx,path ; offset of area
267	mov edx,150 ; size 150 bytes	265	mov edx,1024+16 ; size
268	int 0x40	266	int 0x40
269		267
270	; change wanted events list 7-bit IPC event	268	; change wanted events list 7-bit IPC event
271	mov eax,40	269	mov eax,40
272	mov ebx,01000111b	270	mov ebx,01000111b
273	int 0x40	271	int 0x40
274		272
275	;	273	;
276	; STEP 3 run SYSTEM XTREE with parameters	274	; STEP 3 run SYSTEM XTREE with parameters
277	;	275	;
278		276
279	mov eax,58	277	mov eax,70
280	mov ebx,run_fileinfo	278	mov ebx,run_fileinfo
281	int 0x40	279	int 0x40
282		280
283	call redproc	281	call redproc
284		282
285	mov [get_loops],0	283	mov [get_loops],0
286	getmesloop:	284	getmesloop:
287	mov eax,23	285	mov eax,23
288	mov ebx,50 ;0.5 sec	286	mov ebx,50 ;0.5 sec
289	int 0x40	287	int 0x40
290		-
291	cmp eax,1	288	dec eax
292	je mred	289	jz mred
293	cmp eax,2	290	dec eax
294	je mkey	291	jz mkey
295	cmp eax,3	292	dec eax
296	je mbutton	293	jz mbutton
297	cmp eax,7	294	cmp al, 7-3
298	je mgetmes	295	jz mgetmes
299		296
300	; Get number of procces	297	; Get number of procces
301	mov ebx,procinfo	298	mov ebx,procinfo
302	mov ecx,-1	299	mov ecx,-1
303	mov eax,9	300	mov eax,9
304	int 0x40	301	int 0x40
305	mov ebp,eax	302	mov ebp,eax
306		303
307	loox:	304	loox:
308	mov eax,9	305	mov eax,9
309	mov ebx,procinfo	306	mov ebx,procinfo
310	mov ecx,ebp	307	mov ecx,ebp
311	int 0x40	308	int 0x40
312	mov eax,[DLGPID]	309	mov eax,[DLGPID]
313	cmp [procinfo+30],eax ;IF Dialog find	310	cmp [procinfo+30],eax ;IF Dialog find
314	je dlg_is_work ;jmp to dlg_is_work	311	je dlg_is_work ;jmp to dlg_is_work
315	dec ebp	312	dec ebp
316	jnz loox	313	jnz loox
317		314
318	jmp erroff	315	jmp erroff
319		316
320	dlg_is_work:	317	dlg_is_work:
321	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated	318	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
322	je erroff ;TESTODP2 terminated too	319	je erroff ;TESTODP2 terminated too
323		320
324	cmp [dlg_pid_get],dword 1	321	cmp [dlg_pid_get],dword 1
325	je getmesloop	322	je getmesloop
326	inc [get_loops]	323	inc [get_loops]
327	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated	324	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated
328	jae erroff	325	jae erroff
329	jmp getmesloop	326	jmp getmesloop
330		327
331	mred:	328	mred:
332	call redproc	329	call redproc
333	jmp getmesloop	330	jmp getmesloop
334	mkey:	331	mkey:
335	mov eax,2	332	mov eax,2
336	int 0x40 ; read (eax=2)	333	int 0x40 ; read (eax=2)
337	jmp getmesloop	334	jmp getmesloop
338	mbutton:	335	mbutton:
339	mov eax,17 ; get id	336	mov eax,17 ; get id
340	int 0x40	337	int 0x40
341	cmp ah,1 ; button id=1 ?	338	cmp ah,1 ; button id=1 ?
342	jne getmesloop	339	jne getmesloop
343	mov eax,-1 ; close this program	340	mov eax,-1 ; close this program
344	int 0x40	341	int 0x40
345	mgetmes:	342	mgetmes:
346		343
347	; If dlg_pid_get then second message get jmp to still	344	; If dlg_pid_get then second message get jmp to still
348	cmp [dlg_pid_get],dword 1	345	cmp [dlg_pid_get],dword 1
349	je ready	346	je ready
350		347
351	; First message is number of PID SYSXTREE dialog	348	; First message is number of PID SYSXTREE dialog
352		349
353	; convert PID dec to PID bin	350	; convert PID dec to PID bin
354	movzx eax,byte [path+16]	351	movzx eax,byte [path+16]
355	sub eax,48	352	sub eax,48
356	imul eax,10	353	imul eax,10
357	movzx ebx,byte [path+16+1]	354	movzx ebx,byte [path+16+1]
358	add eax,ebx	355	add eax,ebx
359	sub eax,48	356	sub eax,48
360	imul eax,10	357	imul eax,10
361	movzx ebx,byte [path+16+2]	358	movzx ebx,byte [path+16+2]
362	add eax,ebx	359	add eax,ebx
363	sub eax,48	360	sub eax,48
364	imul eax,10	361	imul eax,10
365	movzx ebx,byte [path+16+3]	362	movzx ebx,byte [path+16+3]
366	add eax,ebx	363	add eax,ebx
367	sub eax,48	364	sub eax,48
368	mov [DLGPID],eax	365	mov [DLGPID],eax
369		366
370	; Claear and prepare IPC area for next message	367	; Claear and prepare IPC area for next message
371	mov [path],dword 0	368	mov [path],dword 0
372	mov [path+4],dword 8	369	mov [path+4],dword 8
373	mov [path+8],dword 0	370	mov [path+8],dword 0
374	mov [path+12],dword 0	371	mov [path+12],dword 0
375	mov [path+16],dword 0	372	mov [path+16],dword 0
376		373
377	; Set dlg_pid_get for get next message	374	; Set dlg_pid_get for get next message
378	mov [dlg_pid_get],dword 1	375	mov [dlg_pid_get],dword 1
379	call redproc ;show DLG_PID	376	call redproc ;show DLG_PID
380	jmp getmesloop	377	jmp getmesloop
381		378
382	ready:	379	ready:
383	;	380	;
384	; The second message get	381	; The second message get
385	; Second message is 100 bytes path to SAVE/OPEN file	382	; Second message is 100 bytes path to SAVE/OPEN file
386	; shl path string on 16 bytes	383	; shl path string on 16 bytes
387	;	384	;
388	cld	385	cld
389	mov esi,path+16	386	mov esi,path+16
390	mov edi,path	387	mov edi,path
391	mov ecx,200	388	mov ecx,1024/4
392	rep movsb	389	rep movsd
393	mov [edi],byte 0	390	mov [edi],byte 0
394		391
395	jmp openoff	392	jmp openoff
396		393
397		394
398	; DATA AREA	395	; DATA AREA
399	get_loops dd 0	396	get_loops dd 0
400	dlg_pid_get dd 0	397	dlg_pid_get dd 0
401	DLGPID dd 0	398	DLGPID dd 0
402		399
403	param:	400	param:
404	dd 0 ; My dec PID	401	dd 0 ; My dec PID
405	dd 0,0 ; Type of dialog	402	dd 0,0 ; Type of dialog
406		403
407	run_fileinfo:	404	run_fileinfo:
408	dd 16	405	dd 7
409	dd 0	406	dd 0
410	dd param	407	dd param
411	dd 0	408	dd 0
412	dd procinfo ; 0x10000	409	dd 0
413	;run_filepath	410	;run_filepath
414	db '/RD/1/SYSXTREE',0	411	db '/RD/1/SYSXTREE',0
415		412
416	procinfo:	413	procinfo:
417	times 1024 db 0	414	times 1024 db 0
418	}	415	}
419		416
420		417
421	macro savedialog redproc,openoff,erroff,path	418	macro savedialog redproc,openoff,erroff,path
422	{	419	{
423	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc	420	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
424	local run_fileinfo, run_filepath, param	421	local run_fileinfo, run_filepath, param
425	local getmesloop, loox, mred, mkey, mbutton, mgetmes	422	local getmesloop, loox, mred, mkey, mbutton, mgetmes
426	local dlg_is_work, ready, procinfo	423	local dlg_is_work, ready, procinfo
427	;	424	;
428	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,	425	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
429	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)	426	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
430	;	427	;
431		428
432	cld	429	cld
433	;; mov esi,path	430	;; mov esi,path
434	mov edi,path	431	mov edi,path
435	mov eax,0	432	xor eax,eax
436	mov ecx,200	433	mov ecx,(1024+16)/4
437	rep stosb	434	rep stosd
438		435
439	;mov [get_loops],0	436	;mov [get_loops],0
440	mov [dlg_pid_get],0	437	mov [dlg_pid_get],0
441		438
442	; Get my PID in dec format 4 bytes	439	; Get my PID in dec format 4 bytes
443	mov eax,9	440	mov eax,9
444	mov ebx,procinfo	441	mov ebx,procinfo
445	mov ecx,-1	442	mov ecx,-1
446	int 0x40	443	int 0x40
447		444
448	; convert eax bin to param dec	445	; convert eax bin to param dec
449	mov eax,dword [procinfo+30] ;offset of myPID	446	mov eax,dword [procinfo+30] ;offset of myPID
450	mov edi,param+4-1 ;offset to 4 bytes	447	mov edi,param+4-1 ;offset to 4 bytes
451	mov ecx,4	448	mov ecx,4
452	mov ebx,10	449	mov ebx,10
453	cld	450	cld
454	new_d:	451	new_d:
455	xor edx,edx	452	xor edx,edx
456	div ebx	453	div ebx
457	add dl,'0'	454	add dl,'0'
458	mov [edi],dl	455	mov [edi],dl
459	dec edi	456	dec edi
460	loop new_d	457	loop new_d
461		458
462	; wirite 1 byte space to param	459	; wirite 1 byte space to param
463	mov [param+4],byte 32 ;Space for next parametr	460	mov [param+4],byte 32 ;Space for next parametr
464	; and 1 byte type of dialog to param	461	; and 1 byte type of dialog to param
465	mov [param+5],byte 'S' ;Get Open dialog (Use 'S' for Save dialog)	462	mov [param+5],byte 'S' ;Get Open dialog (Use 'S' for Save dialog)
466		463
467	;	464	;
468	; STEP2 prepare IPC area for get messages	465	; STEP2 prepare IPC area for get messages
469	;	466	;
470		467
471	; prepare IPC area	468	; prepare IPC area
472	mov [path],dword 0	469	mov [path],dword 0
473	mov [path+4],dword 8	470	mov [path+4],dword 8
474		471
475	; define IPC memory	472	; define IPC memory
476	mov eax,60	473	mov eax,60
477	mov ebx,1 ; define IPC	474	mov ebx,1 ; define IPC
478	mov ecx,path ; offset of area	475	mov ecx,path ; offset of area
479	mov edx,150 ; size 150 bytes	476	mov edx,1024+16 ; size
480	int 0x40	477	int 0x40
481		478
482	; change wanted events list 7-bit IPC event	479	; change wanted events list 7-bit IPC event
483	mov eax,40	480	mov eax,40
484	mov ebx,01000111b	481	mov ebx,01000111b
485	int 0x40	482	int 0x40
486		483
487	;	484	;
488	; STEP 3 run SYSTEM XTREE with parameters	485	; STEP 3 run SYSTEM XTREE with parameters
489	;	486	;
490		487
491	mov eax,58	488	mov eax,70
492	mov ebx,run_fileinfo	489	mov ebx,run_fileinfo
493	int 0x40	490	int 0x40
494		491
495	call redproc	492	call redproc
496		493
497	mov [get_loops],0	494	mov [get_loops],0
498	getmesloop:	495	getmesloop:
499	mov eax,23	496	mov eax,23
500	mov ebx,50 ;0.5 sec	497	mov ebx,50 ;0.5 sec

Subversion Repositories Kolibri OS

(root)/programs/other/tinypad2/trunk/ascl.inc – Rev 111 → 135