WebSVN – Kolibri OS – Diff – /programs/games/phenix/trunk/ascl.inc

 ;   Assembler
 ;     SMALL
 ;       CODE
 ;         Libary
+;
-;  Ver 0.14 By Pavlushin Evgeni (RUSSIA)
+;  Ver 0.17 (for FASM v1.54 or higer)
-;  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
-    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
-    mcall
-}
+;
-macro wordstoreg reg,hiword,loword
+macro movt op1,op2
-{
-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
+   if op2 eq
-    add  reg,dword loword
+      ;display 'not set'
-else
+   else
-    mov  reg,dword hiword
+      if op1 eq op2
-    shl  reg,16
+         display '+'
-    add  reg,dword loword
-end if
-}
-macro dword2reg reg,doubleword
-{
-if doubleword eq
-   ; not changes
+         ;display 'skip mov ' # `op1 # ',' # `op2 , 10,13
-else
+      else
+         mov op1,op2
-   mov reg,dword doubleword
+      end if
-end if
+   end if
 }
-macro words2reg reg,hiword,lowword
-{
-if hiword eq
-   if lowword eq
-      ; not changes
+macro clear_buffer buffer, buf_size, value
-   else
+{
-      if lowword eqtype 12
-         and reg,dword 0xffff0000
+   movt edi,buffer    ; edi = buffer adress
-         add reg,dword lowword
+   movt ecx,buf_size  ; ecx = buffer size
+   movt al,value
-      else
+   call clear_buffer_proc
-         and reg,dword 0xffff0000
-         add reg,dword lowword
+if ~ defined clear_buffer_used
-      end if
-   end if
+clear_buffer_used equ 1
-else
+   jmp @f
-   if lowword eq
-      if hiword eqtype 12
-         and reg,dword 0x0000ffff
+clear_buffer_proc:
-         add reg,dword hiword*65536
+   mov ah,al
-      else
+   push ax
-         shl reg,16
-         add reg,dword hiword
-         ror reg,16
+   shl eax,16
-      end if
-   else
+   pop ax            ; eax = al:al:al:al
-      if lowword eqtype 12 & hiword eqtype 12
+   push ecx
-         if lowword eq 0 & hiword eq 0
-               xor reg,reg
-            else
+   shr ecx,2         ; ecx = ecx/4 when we use stosd
-               mov reg,dword hiword*65536+lowword
+   cld               ; set direction flag
-         end if
+   rep stosd
-      else
+   pop ecx
-         mov reg,dword hiword
-         shl reg,16
+   and ecx,011b      ; last two bits
-         add reg,dword lowword
+   rep stosb
-      end if
+   ret
-   end if
+@@:
+end if
-end if
-}
+}
-; DRAW BUTTON with label
+; draw_button - function for draw button with label placed at center
-macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor
+macro draw_button button_id,x,y,xs,ys,text,button_color,text_color
 {
-local asd,lab
+local end_of_data,label
-    jmp asd
+   jmp end_of_data
-lab db  text                 ;arg label
+label db  text               ;arg label
-asd:
+end_of_data:
+   words2reg ebx,x,xs        ; ebx = x * 65536 + xsize
+   words2reg ecx,y,ys        ; ecx = y * 65536 + ysize
+   mov edx,button_id
+   mov esi,button_color
+   push dword end_of_data-label
+   push dword text_color
-    words2reg ebx,x,xs
+   push dword label
+   call draw_button_proc
+if ~ defined draw_button_used
-    words2reg ecx,y,ys
+draw_button_used equ 1
-    mov edx,id
+   jmp @f
-    mov esi,bcolor
+draw_button_proc:
-    mov eax,8
+   mov eax,8     ; eax = 8 add button function
-    mcall
+   mcall
-    mov eax,asd-lab          ;calc size
+   mov esi,[esp+12] ; esi = lenght of label
-    mov ebx,6
+   mov eax,esi
+   mov edx,6     ; 6 - width of one char
-    mul ebx
+   mul edx       ; eax = size of label in pixels (chars number * 6)
-    mov esi,eax
+   sub bx,ax
-    mov eax,xs
+   shr bx,1
-    sub eax,esi
+   mov edi,ebx
-    shr eax,1
+   shr edi,16
+   add bx,di
-    add eax,x
+   sub cx,7
-    mov edx,ys
-    sub edx,7
+   shr cx,1
-    shr edx,1
+   mov edi,ecx
-    add edx,y
+   shr edi,16
+   add cx,di
-    mov ebx,eax
-    shl ebx,16
-    add ebx,edx
+   shl ebx,16
+   mov bx,cx     ; ebx = bx * 65536 + edx
+   mov ecx,[esp+8] ; text color
    mov edx,[esp+4] ; set address of label
-    mov ecx,tcolor             ;arg4 color
+   mov eax,4       ; eax = 4 draw label function
-    mov edx,lab
+   mcall
-    mov esi,asd-lab          ;calc size
+   ret 3*4
-    mov eax,4
-    mcall
-}
-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
-    mov eax,0
-    mov ecx,200
-    rep stosb
-;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
-    mcall
-; 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
+end if
+}
+; scan_event - Scan event without wait
+macro scan_event redraw,key,button
+{
+   mov eax,11
+   mcall
-    mov edx,150      ; size 150 bytes
-    mcall
+   dec eax
+   jz  redraw
+   dec eax
-; change wanted events list 7-bit IPC event
-    mov eax,40
+   jz  key
-    mov ebx,01000111b
-    mcall
+   dec eax
+   jz  button
+}
+; wait_event - Wait for event
+macro wait_event redraw,key,button
+{
+   mov eax,10
+   mcall
+   dec eax
-;
+   jz  redraw
-; STEP 3 run SYSTEM XTREE with parameters
-;
    dec eax
-    mov eax,58
+   jz  key
-    mov ebx,run_fileinfo
+   dec eax
-    mcall
+   jz  button
-    call redproc
+}
-    mov [get_loops],0
+; time_event - Wait for event with timeout
-getmesloop:
-    mov eax,23
-    mov ebx,50     ;0.5 sec
-    mcall
+macro time_event xfps,noevent,redraw,key,button
-    cmp eax,1
-    je  mred
-    cmp eax,2
-    je  mkey
-    cmp eax,3
-    je  mbutton
-    cmp eax,7
-    je  mgetmes
-; Get number of procces
-    mov ebx,procinfo
-    mov ecx,-1
-    mov eax,9
-    mcall
-    mov ebp,eax
+{
-loox:
+   mov eax,23
-    mov eax,9
-    mov ebx,procinfo
-    mov ecx,ebp
-    mcall
-    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]
+   mov ebx,xfps
-    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
-    mcall                   ; read (eax=2)
-    jmp  getmesloop
-mbutton:
-    mov  eax,17                 ; get id
-    mcall
+   mcall
-    cmp  ah,1                   ; button id=1 ?
-    jne  getmesloop
-    mov  eax,-1                 ; close this program
-    mcall
-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,200
-    rep movsb
-    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 16
- dd 0
+   ;cmp eax,0
- dd param
+   ;je  noevent
- dd 0
+   dec eax
- dd procinfo ; 0x10000
+   js  noevent
-;run_filepath
- db '/sys/SYSXTREE',0
+   jz  redraw
-procinfo:
-times 256 db 0
-}
+   dec eax
+   jz  key
-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
-    mov eax,0
-    mov ecx,200
+   dec eax
-    rep stosb
-;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
-    mcall
-; 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
+   jz  button
-    loop new_d
+}
-; wirite 1 byte space to param
-    mov [param+4],byte 32    ;Space for next parametr
+; function for set ascii or scan code keyboard input mode
-; and 1 byte type of dialog to param
-    mov [param+5],byte 'S'   ;Get Open dialog (Use 'S' for Save dialog)
+macro keyboard_set_input_mode mode
+{
-;
+   mov eax,66      ; eax = 66 - keyboard service function
-; STEP2 prepare IPC area for get messages
+   mov ebx,1       ; ebx = 1 - sub function for set input mode for keyboard
    mov ecx,mode    ; ecx = mode 0 - ASCII; 1 - scan codes;
+   mcall
+}
-; prepare IPC area
+; function for read layout to 128 byte array
-    mov [path],dword 0
+macro keyboard_get_layout layout_type, layout_array
     mov [path+4],dword 8
+   mov eax,26           ; eax = 26 - hardware service function
+   mov ebx,2            ; ebx = 2 - subfunction for get keyboard layout
+   mov ecx,layout_type  ; ecx = layout type: 1 - for normal layout
+   mov edx,layout_array ; edx = address to 128 byte array
+   mcall
+}
-; define IPC memory
+; function for get key from keyboard buffer
+macro window_get_key output
+{
+   mov  eax,2  ; eax = 2 - get keyboard pressed key function
+   mcall
-    mov eax,60
+   if ~output eq
+      mov output,eax
+   end if
+}
-    mov ebx,1        ; define IPC
-    mov ecx,path ; offset of area
+; function for get id of button pressed in window
+macro window_get_button output
     mov edx,120      ; size 150 bytes
+   mov  eax,17 ; eax = 17 - get id of pressed button function
+   mcall
+   if ~output eq
+      mov output,eax
+   end if
-    mcall
+}
+macro draw_pixel x,y,color
+{
+   mov ebx,x
+   mov ecx,y
-; change wanted events list 7-bit IPC event
+   mov edx,color
+   mov eax,1
-    mov eax,40
+   mcall
-    mov ebx,01000111b
+}
     mcall
+macro puttxt x,y,offs,size,color
-;
-; STEP 3 run SYSTEM XTREE with parameters
-;
-    mov eax,58
-    mov ebx,run_fileinfo
-    mcall
-    call redproc
+{
-    mov [get_loops],0
-getmesloop:
-    mov eax,23
-    mov ebx,50     ;0.5 sec
+   words2reg ebx,x,y
-    mcall
+   mov ecx,color
-    cmp eax,1
+   mov edx,offs
-    je  mred
-    cmp eax,2
+   mov esi,size
-    je  mkey
-    cmp eax,3
-    je  mbutton
-    cmp eax,7
-    je  mgetmes
-; Get number of procces
-    mov ebx,procinfo
-    mov ecx,-1
-    mov eax,9
-    mcall
-    mov ebp,eax
-loox:
-    mov eax,9
-    mov ebx,procinfo
-    mov ecx,ebp
-    mcall
-    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]
+   mov eax,4
-    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
-    jae erroff
-    jmp getmesloop
-mred:
-    call redproc
-    jmp  getmesloop
-mkey:
-    mcall                   ; read (eax=2)
-    jmp  getmesloop
-mbutton:
-    mov  eax,17                 ; get id
-    mcall
-    cmp  ah,1                   ; button id=1 ?
-    jne  getmesloop
-    mov  eax,-1                 ; close this program
-    mcall
-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
+   mcall
-    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
-;
+; window_begin_draw - Begin of draw window
+macro window_begin_draw
+{
-    cld
+   mov eax,12
-    mov esi,path+16
+   mov ebx,1
+   mcall
     mov edi,path
-    mov ecx,200
     rep movsb
+; window_end_draw - End draw of window
-    mov [edi],byte 0
+macro window_end_draw
+{
+   mov eax,12
-    jmp openoff
+   mov ebx,2
+   mcall
+}
+; fs_read_file - read file from file system and save it to array
+; example:
+; fs_read_file '/rd/1/clock.bmp',load_area,temp_area
+macro fs_read_file file_name,file_load_area,file_temp_area
+{
-; DATA AREA
+local open,fileinfo,string
+   jmp open
+fileinfo:
-get_loops   dd 0
+   dd 0
-dlg_pid_get dd 0
-DLGPID      dd 0
-param:
+   dd 0
+   dd 1
-   rb 4  ; My dec PID
+   dd file_load_area
+   dd file_temp_area
-   rb 6  ; Type of dialog
+string:
+   db file_name,0
-run_fileinfo:
+open:
- dd 16
- dd 0
+   mov  dword [fileinfo+8],1 ; how many blocks to read (1)
- dd param
+   mov  eax,58
- dd 0
+   mov  ebx,fileinfo
- dd procinfo
+   mcall
-run_filepath:
- db '/sys/SYSXTREE',0
+   mov  eax,[file_load_area+2]
    shr  eax,9    ; div to 512 and add 1 - for get number of blocks
-procinfo:
+   inc  eax
-times 256 db 0
+   mov  dword [fileinfo+8],eax
-}
+   mov  eax,58
+   mov  ebx,fileinfo
-; RANDOM - generate random count (small)
+   mcall
-; (SYNTAX)  RANDOM MaxCount,OutArgument
+}
-; (SAMPLE)  RANDOM 10000,eax
-; ( NOTE )  Maxint<65536 ; use random 65536,eax for more combinations
+; random - generate random count (small)
 ; example:
-randomuse = 0
+; random 10000,eax ; generate random value from 0 to 10000 and save it in eax
 ; note:
-macro random arg1,arg2
+; max_value<65536
 ; only modificate eax register
-    je nodiv
+      je nodiv
-    cmp cx,0
+      cmp cx,0
-    je nodiv
+      je nodiv
-    div cx
+      div cx
-nodiv:
+   nodiv:
-    mov ax,dx
+      mov [rnd_result],dx
-    pop di
+      popad
-    pop si
-    pop dx
-    pop cx
-    pop bx
-    and eax,0000ffffh
-;    mov arg2,0
-;    mov arg2,eax
+      mov eax,dword [rnd_result]
-    ret
+      ret
+   ; data block after ret
+   rsx1   dw 0x4321
+   rsx2   dw 0x1234
+   rnd_result dw 0
+   dw 0
 end if
 rxproc:
-    mov eax,arg1
+   movt eax,max_value
-    call randomproc
-    mov arg2,eax
-}
-macro scank
-{
-    mov eax,10
-    mcall
-}
-macro putpix x,y,color
-{
-    mov ebx,x
-    mov ecx,y
-    mov edx,color
-    mov eax,1
-    mcall
-}
-macro puttxt x,y,offs,size,color
-{
-;    mov ebx,x
-;    shl ebx,16
-;    add ebx,y
-    words2reg ebx,x,y
-    mov ecx,color
-    mov edx,offs
-    mov esi,size
-    mov eax,4
-    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
-    mov esi,color
-    mov eax,47
-    mcall
-}
-; SCEVENT - Scan event
-macro scevent red,key,but
-{
-    mov eax,11
-    mcall
-    dec eax
-    jz  red
-    dec eax
-    jz  key
-    dec eax
-    jz  but
-}
-; WTEVENT - Wait event
-macro wtevent red,key,but
-{
-    mov eax,10
-    mcall
-    dec eax
-    jz  red
-    dec eax
-    jz  key
-    dec eax
-    jz  but
-}
-; TIMEEVENT - Wite for event with timeout
+   call randomproc
-macro timeevent xfps,noevent,red,key,but
-{
-    mov eax,23
-    mov ebx,xfps
-    mcall
-    cmp eax,0
-    je  noevent
-    dec eax
-    jz  red
-    dec eax
-    jz  key
-    dec eax
-    jz  but
+   movt result,eax ;dword [rnd_result]
-}
+}
-; CLOSE - Close program
+; close - Close application
 macro close
+{
-    mov eax,-1
+   mov eax,-1
-    mcall
+   mcall
 }
-; DELAY - Create delay 1/100 sec
+; delay - Create delay 1/100 sec
-; (SYNTAX)  Delay time
+; example:
-; (SAMPLE)  Delay 100   ;delay 2 sec 1/100*200=2 sec
+; delay 100   ;delay 2 sec 1/100*200=2 sec
 macro delay arg1
 {
-    mov eax,5
+   mov eax,5
+   mov ebx,arg1
-    mov ebx,arg1
+   mcall
     mcall
-; WINDOW - Draw window
-; (SYNTAX)  WINDOW Xstart,Ystart,'Text',Color
+; window - Draw window
-; (SAMPLE)  WINDOW 10,10,640+8,480+24,window_Skinned
+; window Xstart,Ystart,'Text',Color
 ; example:
-macro window arg1,arg2,arg3,arg4,arg5
+; window 10,10,640+8,480+24,window_Skinned
-    mov edi,arg7
+   mov edi,arg7
-    mov eax,0
+   mov eax,0
-    mcall
+   mcall
+}
+;Key's scan codes
+ErrorCode      equ   0 ; 0x00
+key_Esc        equ   1 ; 0x01
+key_1          equ   2 ; 0x02 !
+key_2          equ   3 ; 0x03 @
+key_3          equ   4 ; 0x04 #
+key_4          equ   5 ; 0x05 $
+key_5          equ   6 ; 0x06 %
+key_6          equ   7 ; 0x07 "
+key_7          equ   8 ; 0x08 &
+key_8          equ   9 ; 0x09 *
+key_9          equ  10 ; 0x0A (
-; STARTWD - Start of window draw
+key_0          equ  11 ; 0x0B )
-macro startwd
-{
+key_Backspace  equ  14 ; 0x0E
-    mov eax,12
+key_Q          equ  16 ; 0x10
-    mov ebx,1
+key_W          equ  17 ; 0x11
+key_E          equ  18 ; 0x12
+key_R          equ  19 ; 0x13
+key_T          equ  20 ; 0x14
+key_Y          equ  21 ; 0x15
+key_U          equ  22 ; 0x16
+key_I          equ  23 ; 0x17
-    mcall
+key_O          equ  24 ; 0x18
-}
+key_P          equ  25 ; 0x19
+key_Enter     equ 28   ; 0x1C
+key_A         equ 30   ; 0x1E
+key_S         equ 31   ; 0x1F
+key_D         equ 32   ; 0x20
+key_F         equ 33   ; 0x21
+key_G         equ 34   ; 0x22
+key_H         equ 35   ; 0x23
+key_J         equ 36   ; 0x24
+key_K         equ 37   ; 0x25
+key_L         equ 38   ; 0x26
+key_Colon     equ 39   ; 0x27 ':;'
-; ENDWD - End window draw
+key_DQuotes   equ 0x28 ; 40 '"''
-macro endwd
+key_Tilda     equ 0x29 ; 41 '~`'
-{
+key_LShift    equ 0x2A ; 42
-    mov eax,12
+key_Z         equ 0x2C ; 44
-    mov ebx,2
-    mcall
+key_X         equ 0x2D ; 45
-}
+key_C         equ 0x2E ; 46
+key_V         equ 0x2F ; 47
+key_B         equ 0x30 ; 48
+key_N         equ 0x31 ; 49
-; LABEL - Put text to frame
+key_M         equ 0x32 ; 50
-; (SYNTAX)  LABEL Xstart,Ystart,'Text',Color
-; (SAMPLE)  LABEL 10,12,'Hello World!',cl_Green+font_Big
+key_Comma     equ 0x33 ; 51 ',<'
+key_Dot       equ 0x34 ; 52 '.>'
+key_Question  equ 0x35 ; 53 '?/'
+key_RShift    equ 0x36 ; 54
+key_NumStar   equ 0x37 ; 55 '*'
-macro label arg1,arg2,arg3,arg4
+key_LAlt      equ 0x38 ; 56
+key_Space     equ 0x39 ; 57
-{
+key_CapsLock  equ 0x3A ; 58
-local asd,lab
+key_F1        equ 0x3B ; 59
+key_F2        equ 0x3C ; 60
-    jmp asd
+key_F3        equ 0x3D ; 61
-lab db  arg3                 ;arg label
+key_F4        equ 62
+key_F5        equ 63
-asd:
+key_F6        equ 64
-;    mov ebx,arg1             ;arg1=y arg2=x
+key_F7        equ 65
-;    shl ebx,16
-;    add ebx,arg2
+key_F8        equ 66
+key_F9        equ 67
+key_F10       equ 0x44 ; 68
+key_NumLock   equ 0x45 ; 69
+key_ScrollLock equ 0x46 ; 70
+key_Up        equ 0x48 ; 72
+key_Num8      equ 0x48 ; 72
+key_PageUp    equ 0x49 ; 73
+key_Num9      equ 0x49 ; 73
+key_NumMinus  equ 0x4A ; 74
+key_Left      equ 0x4B ; 75
+key_Num4      equ 0x4B ; 75
-   words2reg ebx,arg1,arg2
+key_Num5      equ 0x4C ; 76
+key_Right     equ 0x4D ; 77
+key_Down      equ 0x50 ; 80
+key_Num2      equ 0x50 ; 80
+key_F11       equ 0x57 ; 87
+key_F12       equ 0x58 ; 88
+key_PA1       equ  90 ; 0x5A
+key_Lwin      equ  91 ; 0x5B
+key_F13       equ  91 ; 0x5B
+key_Rwin      equ  92 ; 0x5C
+key_F14       equ  92 ; 0x5C
+key_Menu      equ  93 ; 0x5D
+key_F15       equ  93 ; 0x5D
+key_F16       equ  99 ; 0x63
+key_F17       equ 100 ; 0x64
+key_F18       equ 101 ; 0x65
+key_F19       equ 102 ; 0x66
+key_F20       equ 103 ; 0x67
+key_F21       equ 104 ; 0x68
+key_F22       equ 105 ; 0x69
+key_F23       equ 106 ; 0x6A
+key_F24       equ 107 ; 0x6B
+key_EraseEOF  equ 109 ; 0x6D
+key_CopyPlay  equ 111 ; 0x6F
+key_CrSel     equ 114 ; 0x72
+key_Delta     equ 115 ; 0x73
-   dword2reg ecx,arg4
-    mov edx,lab
-    mov esi,asd-lab          ;calc size
-    mov eax,4
-    mcall
-}
-;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_ExSel     equ 116 ; 0x74
-key_End    equ 181
+key_Clear     equ 118 ; 0x76
 key_PgUp   equ 184
 key_PgDown equ 183
 ;Attributes
+;Window Attributes
+window_Skinned equ 0x04000000
+window_Type2   equ 0x02000000
+window_Type1   equ 0x00000000
+window_Reserve equ 0x01000000
-;Window Attributes
+;Label Attributes
+ends_by_zero     equ 10000000b shl 24
+fill_background  equ 01000000b shl 24
+cp866_small      equ 00000000b shl 24
+cp866            equ 00010000b shl 24
+utf16            equ 00100000b shl 24
+utf8             equ 00110000b shl 24
+font_size_x1     equ 00000000b shl 24
-window_Skinned equ 0x04000000
+font_size_x2     equ 00000001b shl 24
-window_Type2   equ 0x02000000
+font_size_x3     equ 00000010b shl 24
-window_Type1   equ 0x00000000
+font_size_x4     equ 00000011b shl 24
-window_Reserve equ 0x01000000
+font_size_x5     equ 00000100b shl 24
 font_size_x6     equ 00000101b shl 24
-;Font Attributes
+font_size_x7     equ 00000110b shl 24
+font_size_x8     equ 00000111b shl 24
+;Colors
-font_Big  equ 0x10000000
+cl_White  equ 0x00ffffff
 cl_Black  equ 0x00000000
-;Colors
+cl_Grey   equ 0x00888888
-cl_White  equ 0x00ffffff
+cl_Red    equ 0x00ff0000
-cl_Black  equ 0x00000000
+cl_Lime   equ 0x0000ff00
+cl_Blue   equ 0x000000ff
+cl_Yellow equ 0x00ffff00
+cl_Cyan   equ 0x0000ffff
+cl_Green  equ 0x0000af00
+cl_Blue   equ 0x000000ff
+cl_Purple equ 0x008080ff
+cl_Violet equ 0x008040ff
+;cl_Cyan   equ 0x0040e0ff
+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
+      ; if operators empty nothing do
+   else
+      if lowword eqtype 12/4
+         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/4
+         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/4 & hiword eqtype 12/4
+         if lowword = 0 & hiword = 0
+            xor reg,reg
+         else
+            ; use brackets for calcualtion without error!!!
+            mov reg,dword (hiword)*65536+(lowword)
+         end if

Subversion Repositories Kolibri OS

(root)/programs/games/phenix/trunk/ascl.inc – Rev 551 → 9241