kolibrios-fun/programs/games/phenix/trunk/ascl.inc

;lang equ ru ; ru en fr ge fi

;
;   Assembler
;     SMALL
;       CODE
;         Libary
;
;  Ver 0.17 (for FASM v1.54 or higer)
;

macro movt op1,op2
{
   if op2 eq
      ;display 'not set'
   else
      if op1 eq op2
         display '+'
         ;display 'skip mov ' # `op1 # ',' # `op2 , 10,13
      else
         mov op1,op2
      end if
   end if
}

macro clear_buffer buffer, buf_size, value
{
   movt edi,buffer    ; edi = buffer adress
   movt ecx,buf_size  ; ecx = buffer size
   movt al,value
   call clear_buffer_proc

if ~ defined clear_buffer_used
clear_buffer_used equ 1
   jmp @f
clear_buffer_proc:
   mov ah,al
   push ax
   shl eax,16
   pop ax            ; eax = al:al:al:al
   push ecx
   shr ecx,2         ; ecx = ecx/4 when we use stosd
   cld               ; set direction flag
   rep stosd
   pop ecx
   and ecx,011b      ; last two bits
   rep stosb
   ret
@@:
end if
}

; draw_button - function for draw button with label placed at center

macro draw_button button_id,x,y,xs,ys,text,button_color,text_color
{
local end_of_data,label
   jmp end_of_data
label db  text               ;arg label
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
   push dword label
   call draw_button_proc
if ~ defined draw_button_used
draw_button_used equ 1
   jmp @f
draw_button_proc:
   mov eax,8     ; eax = 8 add button function
   mcall

   mov esi,[esp+12] ; esi = lenght of label
   mov eax,esi
   mov edx,6     ; 6 - width of one char
   mul edx       ; eax = size of label in pixels (chars number * 6)

   sub bx,ax
   shr bx,1
   mov edi,ebx
   shr edi,16
   add bx,di

   sub cx,7
   shr cx,1
   mov edi,ecx
   shr edi,16
   add cx,di

   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 eax,4       ; eax = 4 draw label function
   mcall
   ret 3*4
@@:
end if
}

; scan_event - Scan event without wait
macro scan_event redraw,key,button
{
   mov eax,11
   mcall
   dec eax
   jz  redraw
   dec eax
   jz  key
   dec eax
   jz  button
}

; wait_event - Wait for event
macro wait_event redraw,key,button
{
   mov eax,10
   mcall
   dec eax
   jz  redraw
   dec eax
   jz  key
   dec eax
   jz  button
}

; time_event - Wait for event with timeout
macro time_event xfps,noevent,redraw,key,button
{
   mov eax,23
   mov ebx,xfps
   mcall
   ;cmp eax,0
   ;je  noevent
   dec eax
   js  noevent
   jz  redraw
   dec eax
   jz  key
   dec eax
   jz  button
}

; function for set ascii or scan code keyboard input mode
macro keyboard_set_input_mode mode
{
   mov eax,66      ; eax = 66 - keyboard service function
   mov ebx,1       ; ebx = 1 - sub function for set input mode for keyboard
   mov ecx,mode    ; ecx = mode 0 - ASCII; 1 - scan codes;
   mcall
}

; function for read layout to 128 byte array
macro keyboard_get_layout layout_type, layout_array
{
   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
}

; function for get key from keyboard buffer
macro window_get_key output
{
   mov  eax,2  ; eax = 2 - get keyboard pressed key function
   mcall
   if ~output eq
      mov output,eax
   end if
}

; function for get id of button pressed in window
macro window_get_button output
{
   mov  eax,17 ; eax = 17 - get id of pressed button function
   mcall
   if ~output eq
      mov output,eax
   end if
}

macro draw_pixel x,y,color
{
   mov ebx,x
   mov ecx,y
   mov edx,color
   mov eax,1
   mcall
}

macro puttxt x,y,offs,size,color
{
   words2reg ebx,x,y
   mov ecx,color
   mov edx,offs
   mov esi,size
   mov eax,4
   mcall
}

; window_begin_draw - Begin of draw window
macro window_begin_draw
{
   mov eax,12
   mov ebx,1
   mcall
}

; window_end_draw - End draw of window
macro window_end_draw
{
   mov eax,12
   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
{
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    ; div to 512 and add 1 - for get number of blocks
   inc  eax
   mov  dword [fileinfo+8],eax
   mov  eax,58
   mov  ebx,fileinfo
   mcall
}

; random - generate random count (small)
; example:
; random 10000,eax ; generate random value from 0 to 10000 and save it in eax
; note:
; max_value<65536
; only modificate eax register

randomuse = 0
macro random max_value,result
{
local rxproc
randomuse = randomuse + 1
   jmp rxproc

if defined randomuse & randomuse = 1
   randomproc:
      ;int3
      ;push bx
      ;push cx
      ;push dx
      ;push si
      ;push di
      pushad
      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 [rnd_result],dx
      popad
      mov eax,dword [rnd_result]
      ret
   ; data block after ret
   rsx1   dw 0x4321
   rsx2   dw 0x1234
   rnd_result dw 0
   dw 0
end if

rxproc:
   movt eax,max_value
   call randomproc
   movt result,eax ;dword [rnd_result]
}

; close - Close application

macro close
{
   mov eax,-1
   mcall
}

; delay - Create delay 1/100 sec
; example:
; delay 100   ;delay 2 sec 1/100*200=2 sec

macro delay arg1
{
   mov eax,5
   mov ebx,arg1
   mcall
}

; window - Draw window
; window Xstart,Ystart,'Text',Color
; example:
; window 10,10,640+8,480+24,window_Skinned

macro window arg1,arg2,arg3,arg4,arg5
{
   words2reg ebx,arg1,arg3
   words2reg ecx,arg2,arg4
   mov edx,arg5
   mov eax,0
   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
   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 (
key_0          equ  11 ; 0x0B )

key_Backspace  equ  14 ; 0x0E
key_Q          equ  16 ; 0x10
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
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 ':;'
key_DQuotes   equ 0x28 ; 40 '"''
key_Tilda     equ 0x29 ; 41 '~`'
key_LShift    equ 0x2A ; 42
key_Z         equ 0x2C ; 44
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
key_M         equ 0x32 ; 50
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 '*'
key_LAlt      equ 0x38 ; 56
key_Space     equ 0x39 ; 57
key_CapsLock  equ 0x3A ; 58
key_F1        equ 0x3B ; 59
key_F2        equ 0x3C ; 60
key_F3        equ 0x3D ; 61
key_F4        equ 62
key_F5        equ 63
key_F6        equ 64
key_F7        equ 65
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
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
key_ExSel     equ 116 ; 0x74
key_Clear     equ 118 ; 0x76



;Attributes

;Window Attributes
window_Skinned equ 0x04000000
window_Type2   equ 0x02000000
window_Type1   equ 0x00000000
window_Reserve equ 0x01000000

;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
font_size_x2     equ 00000001b shl 24
font_size_x3     equ 00000010b shl 24
font_size_x4     equ 00000011b shl 24
font_size_x5     equ 00000100b shl 24
font_size_x6     equ 00000101b shl 24
font_size_x7     equ 00000110b shl 24
font_size_x8     equ 00000111b shl 24

;Colors
cl_White  equ 0x00ffffff
cl_Black  equ 0x00000000
cl_Grey   equ 0x00888888
cl_Red    equ 0x00ff0000
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
      else
         mov reg,dword hiword
         shl reg,16
         add reg,dword lowword
      end if
   end if
end if
}