Subversion Repositories Kolibri OS

Rev

Rev 5264 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ;---------------------------------------------------------------------
  2. draw_font:
  3. ; in:
  4. ; ebx - X*65536 + Y
  5. ; edx - text ASCII
  6. ;  
  7.         pusha
  8.         xor     ebp,ebp
  9.         mov     esi,edx
  10.         mov     edx,ebx
  11.         cld
  12. ;--------------------------------------
  13. @@:
  14.         lodsb
  15.         test    al,al
  16.         jz      .exit
  17.  
  18.         movzx   ebx,al
  19.         imul    ebx, FONT_SIZE_X * FONT_SIZE_Y /8
  20.         mov     eax,[font_icons]
  21.         add     ebx,[eax+28]
  22.         add     ebx,eax
  23.         mov     ecx,FONT_SIZE_X shl 16 + FONT_SIZE_Y
  24.         mov     edi,[eax+20]    ; palette
  25.         add     edi,eax
  26.  
  27.         push    esi
  28.         mov     esi,1
  29.         mcall   65
  30.         pop     esi
  31.  
  32.         add     edx,FONT_REAL_SIZE_X shl 16     ; font size x
  33.         jmp     @b
  34. ;--------------------------------------
  35. .exit:
  36.         popa
  37.         ret
  38. ;---------------------------------------------------------------------