Subversion Repositories Kolibri OS

; language for programs

lang fix en ; ru en fr ge fi

@^ fix macro comment {

^@ fix }

macro m2m dest,src {

 push src

 pop  dest

}

   name db data

   .size = $-name

  end if

}

macro lsz name,[lng,data] {  ; from MFAR [mike.dld]

 common

  if used name

   .size = $-name

  end if

}

macro szc name,elsz,[data] {         ; from MFAR [mike.dld]

 common

  local s,m

  m = 0

   label name

   virtual at 0

    db data

    s = $

   end virtual

   d#elsz s

   if m < s

    m = s

   end if

   db data

   .maxl = m

 common

  local s,m,c

  m = 0

   label name

 forward

  if lang eq lng

   virtual at 0

    db data

    s = $

   end virtual

   d#elsz s

   if m < s

   db data

   .size  = $-name

   .maxl  = m

;macro __mov reg,a {         ; mike.dld

; if ~a eq

;   mov reg,a

; end if

;}

; -------------------------

macro header a,[b] {

 common

  use32

  org 0

  db 'MENUET',a

 forward

  if b eq

   dd 0

  else

   dd b

  end if }

macro section name { align 16

 label name }

macro func name {

 if ~used name

  display 'FUNC NOT USED: ',`name,13,10

 else

  align 4

  name:

;pushad

;pushfd

;dps `name

;newline

;mcall 5,1

;popfd

;popad

}

macro endf { end if }

macro diff16 title,l1,l2

 {

  local s,d

  s = l2-l1

  display title,': 0x'

  repeat 8

   d = '0' + s shr ((8-%) shl 2) and $0F

   if d > '9'

    d = d + 'A'-'9'-1

   end if

   display d

  end repeat

  display 13,10

 }

macro diff10 title,l1,l2

 {

  local s,d,z,m

  s = l2-l1

  z = 0

  m = 1000000000

  display title,': '

  repeat 10

   d = '0' + s / m

   s = s - (s/m)*m

   m = m / 10

   if d <> '0'

    z = 1

   end if

   if z <> 0

    display d

   end if

  end repeat

  display 13,10

macro RGB [a] {

 common

  match (r=,g=,b),a \{

   \dd ((r) shl 16) or ((g) shl 8) or (b)

  \}

}

struc POINT _t,_dx,_dy {

 .x _t _dx

 .y _t _dy

}

; Macroinstructions for defining data structures

macro struct name

 { fields@struct equ name

   match child parent, name \{ fields@struct equ child,fields@\#parent \}

   sub@struct equ

   struc db [val] \{ \common fields@struct equ fields@struct,.,db, \}

   struc dw [val] \{ \common fields@struct equ fields@struct,.,dw, \}

   struc du [val] \{ \common fields@struct equ fields@struct,.,du, \}

   struc dd [val] \{ \common fields@struct equ fields@struct,.,dd, \}

   struc dp [val] \{ \common fields@struct equ fields@struct,.,dp, \}

   struc dq [val] \{ \common fields@struct equ fields@struct,.,dq, \}

   struc dt [val] \{ \common fields@struct equ fields@struct,.,dt, \}

   struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}

   struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}

   struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}

   struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}

   struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}

   struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}

   macro db [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,db, \}

   macro dw [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,dw, \}

   macro du [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,du, \}

   macro dd [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,dd, \}

   macro dp [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,dp, \}

   macro dq [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,dq, \}

   macro dt [val] \{ \common \local anonymous

             fields@struct equ fields@struct,anonymous,dt, \}

   macro rb count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,db,count dup (?) \}

   macro rw count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,dw,count dup (?) \}

   macro rd count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,dd,count dup (?) \}

   macro rp count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,dp,count dup (?) \}

   macro rq count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,dq,count dup (?) \}

   macro rt count \{ \local anonymous

             fields@struct equ fields@struct,anonymous,dt,count dup (?) \}

   macro union \{ fields@struct equ fields@struct,,union,<

          sub@struct equ union \}

   macro struct \{ fields@struct equ fields@struct,,substruct,<

          sub@struct equ substruct \}

   virtual at 0 }

macro ends

 { match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt

             restruc rb,rw,rd,rp,rq,rt

             purge db,dw,du,dd,dp,dq,dt

             purge rb,rw,rd,rp,rq,rt

             purge union,struct

             match name=,fields,fields@struct \\{ fields@struct equ

                                  make@struct name,fields

                                  fields@\\#name equ fields \\}

             end virtual \}

   match any, sub@struct \{ fields@struct equ fields@struct> \}

   restore sub@struct }

macro make@struct name,[field,type,def]

 { common

    if $

     display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah

     err

    end if

    local define

    define equ name

   forward

    local sub

    match , field \{ make@substruct type,name,sub def

             define equ define,.,sub, \}

    match any, field \{ define equ define,.#field,type, \}

   common

    match fields, define \{ define@struct fields \} }

macro define@struct name,[field,type,def]

 { common

    local list

    list equ

   forward

    if ~ field eq .

     name#field type def

     sizeof.#name#field = $ - name#field

    else

     rb sizeof.#type

    end if

    local value

    match any, list \{ list equ list, \}

    list equ list 

   common

    sizeof.#name = $

    restruc name

    match values, list \{

    struc name value \\{

    match any, fields@struct \\\{ fields@struct equ fields@struct,.,name, \\\}

    match , fields@struct \\\{ label .

   forward

     match , value \\\\{ field type def \\\\}

     match any, value \\\\{ field type value

               if ~ field eq .

                rb sizeof.#name#field - ($-field)

               end if \\\\}

   common \\\} \\} \} }

macro enable@substruct

 { macro make@substruct substruct,parent,name,[field,type,def]

    \{ \common

    \local define

    define equ parent,name

       \forward

    \local sub

    match , field \\{ match any, type \\\{ enable@substruct

                           make@substruct type,name,sub def

                           purge make@substruct

                           define equ define,.,sub, \\\} \\}

    match any, field \\{ define equ define,.\#field,type, \\}

       \common

    match fields, define \\{ define@\#substruct fields \\} \} }

enable@substruct

macro define@union parent,name,[field,type,def]

 { common

    virtual at 0

   forward

    if ~ field eq .

     virtual at 0

      parent#field type def

      sizeof.#parent#field = $ - parent#field

     end virtual

     if sizeof.#parent#field > $

      rb sizeof.#parent#field - $

     end if

    else if sizeof.#type > $

     rb sizeof.#type - $

    end if

   common

    sizeof.#name = $

    end virtual

    struc name [value] \{ \common

    label .\#name

    last@union equ

   forward

    match any, last@union \\{ virtual at .\#name

                   field type def

                  end virtual \\}

    match , last@union \\{ match , value \\\{ field type def \\\}

               match any, value \\\{ field type value \\\} \\}

    last@union equ field

macro define@substruct parent,name,[field,type,def]

    virtual at 0

   forward

    if ~ field eq .

     parent#field type def

     sizeof.#parent#field = $ - parent#field

    else

     rb sizeof.#type

    end if

    end virtual

    struc name value \{

   forward

     match , value \\{ field type def \\}

     match any, value \\{ field type value

              if ~ field eq .

               rb sizeof.#parent#field - ($-field)

              end if \\}

; structures used in MeOS

struct process_information

  cpu_usage          dd ?    ; +0

  window_stack_position   dw ?    ; +4

  window_stack_value      dw ?    ; +6

  not_used1          dw ?    ; +8

  process_name          rb 12 ; +10

  memory_start          dd ?    ; +22

  used_memory          dd ?    ; +26

  PID              dd ?    ; +30

  x_start          dd ?    ; +34

  y_start          dd ?    ; +38

  x_size          dd ?    ; +42

  y_size          dd ?    ; +46

  slot_state          dw ?    ; +50

ends

struct system_colors

  frame        dd ?

  grab           dd ?

  grab_button       dd ?

  grab_button_text dd ?

  grab_text       dd ?

  work           dd ?

  work_button       dd ?

  work_button_text dd ?