| 0,0 → 1,143 |
|---|
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; ;; |
| ;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;; |
| ;; Distributed under terms of the GNU General Public License ;; |
| ;; ;; |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| |
| __REV = 0 |
| |
| macro $Revision a { |
| match =: Num =$,a \{ |
| if __REV < Num |
| __REV = Num |
| end if |
| \} |
| } |
| |
| macro ignore_empty_revision_keyword { |
| ; svn keywords are neither substituted by git-svn nor catched by $Revision |
| ; macro above, ignore them to not fail the build |
| macro $Rev#ision$ \{\} |
| } |
| ignore_empty_revision_keyword |
| |
| $Revision$ |
| |
| |
| ;// mike.dld, 2006-29-01 [ |
| |
| ; macros definition |
| macro diff16 title,l1,l2 |
| { |
| local s,d |
| s = l2-l1 |
| display title,': 0x' |
| repeat 16 |
| d = 48 + s shr ((16-%) shl 2) and $0F |
| if d > 57 |
| d = d + 65-57-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 |
| } |
| |
| include 'kglobals.inc' |
| |
| ; \begin{diamond}[29.09.2006] |
| |
| ; @brief May be useful for kernel debugging |
| ; example 1: |
| ; dbgstr 'Hello, World!' |
| ; example 2: |
| ; dbgstr 'Hello, World!', save_flags |
| ; @param string Output string |
| ; @param f Put here anything if you gonna save flags |
| macro dbgstr string*, f |
| { |
| local a |
| iglobal_nested |
| a db 'K : ',string,13,10,0 |
| endg_nested |
| if ~ f eq |
| pushfd |
| end if |
| push esi |
| mov esi, a |
| call sys_msg_board_str |
| pop esi |
| if ~ f eq |
| popfd |
| end if |
| } |
| ; \end{diamond}[29.09.2006] |
| |
| |
| macro list_init head |
| { |
| mov [head+LHEAD.next], head |
| mov [head+LHEAD.prev], head |
| } |
| |
| macro __list_add new, prev, next |
| { |
| mov [next+LHEAD.prev], new |
| mov [new+LHEAD.next], next |
| mov [new+LHEAD.prev], prev |
| mov [prev+LHEAD.next], new |
| } |
| |
| macro list_add new, head |
| { |
| mov eax, [head+LHEAD.next] |
| __list_add new, head, eax |
| } |
| |
| macro list_add_tail new, head |
| { |
| mov eax, [head+LHEAD.prev] |
| __list_add new, eax, head |
| } |
| |
| macro list_del entry |
| { |
| mov edx, [entry+LHEAD.next] |
| mov ecx, [entry+LHEAD.prev] |
| mov [edx+LHEAD.prev], ecx |
| mov [ecx+LHEAD.next], edx |
| } |
| |
| ; MOV Immediate. |
| ; Useful for things like movi eax,10: |
| ; shorter than regular mov, but slightly slower, |
| ; do not use it in performance-critical places. |
| macro movi dst, imm |
| { |
| if imm >= -0x80 & imm <= 0x7F |
| push imm |
| pop dst |
| else |
| mov dst, imm |
| end if |
| } |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|
| Added: svn:keywords |
|---|
| +Revision |
|---|
| \ No newline at end of property |
|---|