Subversion Repositories Kolibri OS

Rev

Rev 111 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 111 Rev 131
1 
macro debug_print str
 1 
macro debug_print str
2 
{
 2 
{
3 
   local ..string, ..label
 3 
   local ..string, ..label
4 
 
 4 
 
5 
   jmp ..label
 5 
   jmp ..label
6 
   ..string db str,0
 6 
   ..string db str,0
7 
  ..label:
 7 
  ..label:
8 
 
 8 
 
9 
   pushf
 9 
   pushf
10 
   pushad
 10 
   pushad
11 
   mov  edx,..string
 11 
   mov  edx,..string
12 
   call debug_outstr
 12 
   call debug_outstr
13 
   popad
 13 
   popad
14 
   popf
 14 
   popf
15 
}
 15 
}
16 
 
 16 
 
17 
dps fix debug_print
 17 
dps fix debug_print
18 
 
 18 
 
19 
macro debug_print_dec arg
 19 
macro debug_print_dec arg
20 
{
 20 
{
21 
   pushf
 21 
   pushf
22 
   pushad
 22 
   pushad
23 
   if ~arg eq eax
 23 
   if ~arg eq eax
24 
     mov  eax,arg
 24 
     mov  eax,arg
25 
   end if
 25 
   end if
26 
   call debug_outdec
 26 
   call debug_outdec
27 
   popad
 27 
   popad
28 
   popf
 28 
   popf
29 
}
 29 
}
30 
 
 30 
 
31 
dpd fix debug_print_dec
 31 
dpd fix debug_print_dec
32 
 
 32 
 
33 
;---------------------------------
 33 
;---------------------------------
34 
debug_outdec:           ;(eax - num, edi-str)
 34 
debug_outdec:           ;(eax - num, edi-str)
35 
        push 10         ;2
 35 
        push 10         ;2
36 
        pop ecx         ;1
 36 
        pop ecx         ;1
37 
        push -'0'       ;2
 37 
        push -'0'       ;2
38 
    .l0:
 38 
    .l0:
39 
        xor edx,edx     ;2
 39 
        xor edx,edx     ;2
40 
        div ecx         ;2
 40 
        div ecx         ;2
41 
        push edx        ;1
 41 
        push edx        ;1
42 
        test eax,eax    ;2
 42 
        test eax,eax    ;2
43 
        jnz .l0         ;2
 43 
        jnz .l0         ;2
44 
    .l1:
 44 
    .l1:
45 
        pop eax         ;1
 45 
        pop eax         ;1
46 
        add al,'0'      ;2
 46 
        add al,'0'      ;2
47 
        call debug_outchar ; stosb
 47 
        call debug_outchar ; stosb
48 
        jnz .l1         ;2
 48 
        jnz .l1         ;2
49 
        ret             ;1
 49 
        ret             ;1
50 
;---------------------------------
 50 
;---------------------------------
51 
 
 51 
 
52 
debug_outchar:          ; al - char
 52 
debug_outchar:          ; al - char
53 
   pushf
 53 
   pushf
54 
   pushad
 54 
   pushad
55 
   mov  cl,al
 55 
   mov  cl,al
56 
   mov  eax,63
 56 
   mov  eax,63
57 
   mov  ebx,1
 57 
   mov  ebx,1
58 
   int  0x40
 58 
   int  0x40
59 
   popad
 59 
   popad
60 
   popf
 60 
   popf
61 
ret
 61 
ret
62 
 
 62 
 
63 
debug_outstr:
 63 
debug_outstr:
64 
   mov  eax,63
 64 
   mov  eax,63
65 
   mov  ebx,1
 65 
   mov  ebx,1
66 
 @@:
 66 
 @@:
67 
   mov  cl,[edx]
 67 
   mov  cl,[edx]
68 
   test cl,cl
 68 
   test cl,cl
69 
   jz   @f
 69 
   jz   @f
70 
   int  40h
 70 
   int  40h
71 
   inc  edx
 71 
   inc  edx
72 
   jmp  @b
 72 
   jmp  @b
73 
 @@:
 73 
 @@:
74 
   ret
 74 
   ret
- 
 
 75 
 
75 
 
 76 
_debug_crlf db 13, 10, 0
76 
 
 77 
 
77 
macro newline
 78 
macro newline
78 
{
 79 
{
- 
 
 80 
  pushf
79 
  dps <13,10>
 81 
  pushad
- 
 
 82 
  mov edx, _debug_crlf
- 
 
 83 
  call debug_outstr
- 
 
 84 
  popad
- 
 
 85 
  popf
80 
}
 86 
}
81 
 
 87 
 
82 
macro print message
 88 
macro print message
83 
{
 89 
{
84 
  dps message
 90 
  dps message
85 
  newline
 91 
  newline
86 
}
 92 
}
87 
 
 93 
 
88 
macro pregs
 94 
macro pregs
89 
{
 95 
{
90 
  dps "EAX: "
 96 
  dps "EAX: "
91 
  dpd eax
 97 
  dpd eax
92 
  dps "   EBX: "
 98 
  dps "   EBX: "
93 
  dpd ebx
 99 
  dpd ebx
94 
  newline
 100 
  newline
95 
  dps "ECX: "
 101 
  dps "ECX: "
96 
  dpd ecx
 102 
  dpd ecx
97 
  dps "   EDX: "
 103 
  dps "   EDX: "
98 
  dpd edx
 104 
  dpd edx
99 
  newline
 105 
  newline
100 
}
 106 
}
101 
 
 107 
 
102 
macro debug_print_hex arg
 108 
macro debug_print_hex arg
103 
{
 109 
{
104 
    pushf
 110 
    pushf
105 
    pushad
 111 
    pushad
106 
    if ~arg eq eax
 112 
    if ~arg eq eax
107 
      mov eax, arg
 113 
      mov eax, arg
108 
    end if
 114 
    end if
109 
    call debug_outhex
 115 
    call debug_outhex
110 
    popad
 116 
    popad
111 
    popf
 117 
    popf
112 
}
 118 
}
113 
dph fix debug_print_hex
 119 
dph fix debug_print_hex
114 
 
 120 
 
115 
debug_outhex:
 121 
debug_outhex:
116 
    ;  eax - number
 122 
    ;  eax - number
117 
    mov   edx, 8
 123 
    mov   edx, 8
118 
  .new_char:
 124 
  .new_char:
119 
    rol   eax, 4
 125 
    rol   eax, 4
120 
    movzx ecx, al
 126 
    movzx ecx, al
121 
    and   cl,  0x0f
 127 
    and   cl,  0x0f
122 
    mov   cl,  [__hexdigits + ecx]
 128 
    mov   cl,  [__hexdigits + ecx]
123 
    pushad
 129 
    pushad
124 
    mcall 63, 1
 130 
    mcall 63, 1
125 
    popad
 131 
    popad
126 
    dec   edx
 132 
    dec   edx
127 
    jnz   .new_char
 133 
    jnz   .new_char
128 
ret
 134 
ret
129 
 
 135 
 
130 
__hexdigits:
 136 
__hexdigits:
131 
  db '0123456789ABCDEF'
 137 
  db '0123456789ABCDEF'