Rev 1769 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1769 | yogev_ezra | 1 | macro writestr [arg] |
2 | { |
||
3 | common |
||
4 | |||
5 | local straddr |
||
6 | local strend |
||
7 | pushad |
||
8 | push straddr |
||
9 | push strend |
||
8170 | IgorA | 10 | jmp @Kolibri@DebugPutString$qpxc |
1769 | yogev_ezra | 11 | straddr db arg,0 |
12 | strend: |
||
13 | pop eax |
||
14 | popad |
||
15 | } |
||
16 | |||
17 | macro writeint arg |
||
18 | { |
||
19 | push dword arg |
||
20 | xchg eax,[esp] |
||
21 | pushad |
||
22 | push eax |
||
23 | call @DebugPutNumber$qi |
||
24 | pop eax |
||
25 | popad |
||
26 | pop eax |
||
27 | } |
||
28 | |||
29 | macro write [arg] |
||
30 | { |
||
31 | forward |
||
32 | |||
33 | if arg eq |
||
34 | else if arg eq endline |
||
35 | writestr 10 |
||
36 | else if arg eqtype '' |
||
37 | writestr arg |
||
38 | else |
||
39 | writeint arg |
||
40 | end if |
||
41 | } |
||
42 | |||
43 | macro writeln [arg] |
||
44 | { |
||
45 | common |
||
46 | |||
47 | write arg,endline |
||
48 | } |
||
49 |