WebSVN – Kolibri OS – Diff – /programs/demos/3detx60b/trunk/ascl.inc

 ; 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
 ; (SAMPLE)  LOADFILE '/rd/1/clock.bmp',load_area,temp_area
 macro loadfile file_name,file_load_area,file_temp_area
+{
 local open,fileinfo,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
+    mcall
     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
+    mcall
+}
-;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
+macro wordstoreg reg,hiword,loword
-   else
-      if lowword eqtype 12
+{
-         and reg,dword 0xffff0000
-         add reg,dword lowword
+if  hiword eqtype 0 & loword eqtype 0
-      else
+    mov  reg,(hiword)*65536+(loword)
-         and reg,dword 0xffff0000
+else if hiword eqtype 12 & loword eqtype eax
-         add reg,dword lowword
-      end if
-   end if
+    mov  reg,(hiword)*65536
-else
+    add  reg,loword
-   if lowword eq
+else if hiword eqtype 0 & loword eqtype [123]
-      if hiword eqtype 12
+    mov  reg,(hiword)*65536
-         and reg,dword 0x0000ffff
+    add  reg,loword
+else if (hiword eq ) & (loword eq )
-         add reg,dword hiword*65536
+else
-      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
+    mov  reg,hiword
-         shl reg,16
-         add reg,dword lowword
-      end if
+    shl  reg,16
-   end if
+    add  reg,loword
-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
+    wordstoreg ebx,x,xs
-    words2reg ecx,y,ys
+    wordstoreg ecx,y,ys
     mov edx,id
     mov esi,bcolor
     mov eax,8
     mov ecx,tcolor             ;arg4 color
     mov edx,lab
     mov esi,asd-lab          ;calc size
     mov eax,4
-    int 0x40
+    mcall
+}
 ; Get my PID in dec format 4 bytes
     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
 ; define IPC memory
     mov eax,60
     mov ebx,1        ; define IPC
     mov ecx,path     ; offset of area
     mov edx,150      ; size 150 bytes
-    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
+;
     mov eax,58
     mov ebx,run_fileinfo
-    int 0x40
+    mcall
     call redproc
     mov [get_loops],0
 getmesloop:
     mov eax,23
     mov ebx,50     ;0.5 sec
 ; Get number of procces
     mov ebx,procinfo
     mov ecx,-1
     mov eax,9
-    int 0x40
+    mcall
     mov ebp,eax
 loox:
     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
 mred:
     call redproc
     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
     cmp  [dlg_pid_get],dword 1
  dd procinfo ; 0x10000
 ;run_filepath
  db '/RD/1/SYSXTREE',0
 procinfo:
-times 1024 db 0
+times 256 db 0
+}
 ; Get my PID in dec format 4 bytes
     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
 ; define IPC memory
     mov eax,60
     mov ebx,1        ; define IPC
     mov ecx,path ; offset of area
-    mov edx,150      ; size 150 bytes
+    mov edx,120      ; size 150 bytes
-    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
 ;
     mov eax,58
     mov ebx,run_fileinfo
-    int 0x40
+    mcall
     call redproc
     mov [get_loops],0
 getmesloop:
     mov eax,23
 ; Get number of procces
     mov ebx,procinfo
     mov ecx,-1
     mov eax,9
-    int 0x40
+    mcall
     mov ebp,eax
 loox:
     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
 mred:
     call redproc
     jmp  getmesloop
-mkey:
-    mov  eax,2
+mkey:
-    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
 get_loops   dd 0
 dlg_pid_get dd 0
 DLGPID      dd 0
 param:
-   dd 0  ; My dec PID
+   rb 4  ; My dec PID
-   dd 0,0  ; Type of dialog
+   rb 6  ; Type of dialog
 run_fileinfo:
  dd 16
  dd 0
  dd param
  dd 0
  dd procinfo
-;run_filepath:
+run_filepath:
  db '/RD/1/SYSXTREE',0
+}
 macro scank
+{
     mov eax,10
-    int 0x40
+    mcall
+}
 macro putpix x,y,color
+{
     mov ebx,x
     mov ecx,y
     mov edx,color
     mov eax,1
-    int 0x40
+    mcall
+}
 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
+;    shl ebx,16
-    dword2reg esi,size
+;    add ebx,y
+    wordstoreg ebx,x,y
-;    mov ecx,color
+    mov ecx,color
-;    mov edx,offs
+    mov edx,offs
-;    mov esi,size
+    mov esi,size
     mov eax,4
-    int 0x40
+    mcall
+}
 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
+    wordstoreg edx,x,y
     mov esi,color
     mov eax,47
-    int 0x40
+    mcall
+}
 ; SCEVENT - Scan event
 macro scevent red,key,but
+{
     mov eax,11
 ; WTEVENT - Wait event
 macro wtevent red,key,but
+{
     mov eax,10
-    int 0x40
+    mcall
     dec eax
     jz  red
     dec eax
     jz  key
 macro timeevent xfps,noevent,red,key,but
+{
     mov eax,23
     mov ebx,xfps
-    int 0x40
+    mcall
     cmp eax,0
     je  noevent
     dec eax
     jz  red
 ; CLOSE - Close program
 macro close
+{
     mov eax,-1
-    int 0x40
+    mcall
+}
 ; 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
+    mcall
+}
 ; 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
+    wordstoreg ebx,arg1,arg3
-    words2reg ecx,arg2,arg4
+    wordstoreg ecx,arg2,arg4
     mov edx,arg5
     mov eax,0
-    int 0x40
+    mcall
+}
 macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
+{
     mov ebx,arg1*65536+arg3
     mov ecx,arg2*65536+arg4
     mov edx,arg5
     mov esi,arg6
     mov edi,arg7
     mov eax,0
-    int 0x40
+    mcall
 }
 ; STARTWD - Start of window draw
 macro startwd
+{
     mov eax,12
     mov ebx,1
-    int 0x40
+    mcall
+}
 lab db  arg3                 ;arg label
 asd:
 ;    mov ebx,arg1             ;arg1=y arg2=x
 ;    shl ebx,16
 ;    add ebx,arg2
-   words2reg ebx,arg1,arg2
+    wordstoreg ebx,arg1,arg2
-   dword2reg ecx,arg4
+if ~(arg4 eq )
+    mov ecx,arg4             ;arg4 color
+end if
     mov edx,lab
     mov esi,asd-lab          ;calc size
     mov eax,4
-    int 0x40
+    mcall
+}
 ;Key's
 key_Up     equ 178

Subversion Repositories Kolibri OS

(root)/programs/demos/3detx60b/trunk/ascl.inc – Rev 109 → 485