Rev 1635 | Rev 2434 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
426 | mikedld | 1 | |
2 | |||
3 | |||
4 | match =: Num =$,a \{ |
||
5 | if __REV < Num |
||
6 | __REV = Num |
||
7 | end if |
||
8 | \} |
||
9 | } |
||
10 | |||
11 | |||
12 | |||
13 | |||
593 | mikedld | 14 | |
426 | mikedld | 15 | macro struct name, [arg] |
16 | { |
||
17 | common |
||
18 | name@struct equ name |
||
19 | struc name arg { |
||
20 | } |
||
21 | |||
22 | |||
2130 | serge | 23 | { sizeof.#xname = value } |
24 | |||
25 | |||
426 | mikedld | 26 | { |
27 | match xname,name |
||
28 | \{ |
||
29 | virtual at 0 |
||
30 | xname xname |
||
31 | declare_sizeof xname, $ - xname |
||
2130 | serge | 32 | name equ sizeof.#xname |
426 | mikedld | 33 | end virtual |
34 | \} |
||
35 | } |
||
36 | |||
37 | |||
38 | |||
39 | |||
40 | |||
41 | |||
42 | macro diff16 title,l1,l2 |
||
43 | { |
||
44 | local s,d |
||
45 | s = l2-l1 |
||
46 | display title,': 0x' |
||
47 | repeat 16 |
||
506 | mikedld | 48 | d = 48 + s shr ((16-%) shl 2) and $0F |
49 | if d > 57 |
||
426 | mikedld | 50 | d = d + 65-57-1 |
51 | end if |
||
52 | display d |
||
53 | end repeat |
||
54 | display 13,10 |
||
55 | } |
||
56 | macro diff10 title,l1,l2 |
||
57 | { |
||
58 | local s,d,z,m |
||
59 | s = l2-l1 |
||
60 | z = 0 |
||
61 | m = 1000000000 |
||
62 | display title,': ' |
||
63 | repeat 10 |
||
64 | d = '0' + s / m |
||
65 | s = s - (s/m)*m |
||
66 | m = m / 10 |
||
67 | if d <> '0' |
||
68 | z = 1 |
||
69 | end if |
||
70 | if z <> 0 |
||
71 | display d |
||
72 | end if |
||
73 | end repeat |
||
74 | display 13,10 |
||
75 | } |
||
76 | |||
77 | |||
521 | diamond | 78 | |
79 | |||
426 | mikedld | 80 | ; may be useful for kernel debugging |
81 | ; example 1: |
||
82 | ; dbgstr 'Hello, World!' |
||
83 | ; example 2: |
||
84 | ; dbgstr 'Hello, World!', save_flags |
||
85 | macro dbgstr string*, f |
||
86 | { |
||
87 | local a |
||
88 | iglobal_nested |
||
89 | a db 'K : ',string,13,10,0 |
||
90 | endg_nested |
||
91 | if ~ f eq |
||
92 | pushfd |
||
93 | end if |
||
94 | push esi |
||
95 | mov esi, a |
||
96 | call sys_msg_board_str |
||
97 | pop esi |
||
98 | if ~ f eq |
||
99 | popfd |
||
100 | end if |
||
101 | } |
||
102 | ; \end{diamond}[29.09.2006] |
||
103 | |||
1055 | Galkov | 104 | |
105 | { |
||
106 | mov op2,op3 |
||
107 | mov op1,op2 |
||
108 | }>>> |
||
109 |