Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  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.  
  50.