Go to most recent revision | Details | 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 |
||
| 10 | jmp @Menuet@DebugPutString$qpxc |
||
| 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 |