Code: Select all

{free pascal uses ebp-based frame}
procedure drawchar(sym:byte;x,y:integer;color:integer);pascal;assembler;
label drawchar_l1,drawchar_l2,drawchar_l3;
asm
  pushad
  mov  eax,[currentbuffer]
  mov  esi,[eax]
  mov  edx,[ebp+8]
  mov  edi,[ebp+12]
  imul edi,esi
  add  edi,[ebp+16]
  shl  edi,4
  shl  esi,4
  lea  edi,[edi+eax+8]
  mov  ecx,8
drawchar_l1:
  xor  eax,eax
  mov  al,[ebp+20]
  lea  eax,[eax+8*eax]
  add  eax,ecx
  mov  eax,dword [font+eax]
  mov  ebx,8
drawchar_l3:
  test eax,1
  jz   drawchar_l2
  mov  [edi],edx
drawchar_l2:
  add  edi,16
  shr  eax,1
  dec  ebx
  jnz  drawchar_l3
  sub  edi,16*8
  add  edi,esi
  dec  ecx
  jns  drawchar_l1
  popad
end;

Code: Select all

font:
file "char.mt"

Code: Select all

  use32
  org    0x0
  db     'MENUET01'   ; 8 byte id
  dd     0x01         ; header version
  dd     START        ; program start
  dd     I_END        ; program image size
  dd     I_END        ; memory
  dd     I_END        ; stack
  dd     0,0          ; param,icon


START:                          ; start of execution

   mov eax,40
   mov ebx,0000111b
   int 0x40

call    WindowDraw
;call    PutImage
call    ClearImage
call    PutChar
call    PutImage

STILL:
        mov     eax,10
        int     0x40
        cmp     eax,1
        je      _WND
        cmp     eax,3
        je      _BTN

jmp     STILL

_BTN:
        mov     eax,17
        int     0x40
        cmp     al,0
        jne     STILL
        cmp     ah,1
        jne     STILL
        call    ApplicationClose
jmp     STILL

_WND:
        call    WindowDraw
jmp     STILL

I_END:

img_buffer      rb      8*3*8;
line_buffer     rb      8*3

ApplicationClose:
   mov  eax,-1
   int  0x40
ret

WindowDraw:
   mov  eax,12
   mov  ebx,1
   int  0x40
   xor  eax,eax
   mov  ebx,100*0x10000+400
   mov  ecx,100*0x10000+300
   mov  edx,0x03CCCCCC
   mov  esi,0x40F000FF
   mov  edi,0x0
   int  0x40
   mov  eax,12
   mov  ebx,2
   int  0x40
retn

ClearImage:
   mov          edi,img_buffer
   mov          al,0xFF
   mov          ecx,8*3*8
   cld
   rep          stosb
retn

PutImage:
   mov  eax,7
   mov  ebx,img_buffer
   mov  ecx,8*0x10000+8
   mov  edx,100*0x10000+50
   int  0x40
retn

PutChar:
xor     ebx,ebx

@NextLine:

   mov  edi,line_buffer      очищаем буфер линии (рисую символ полиненйно)
   mov  al,0xFF
   mov  ecx,8*3
   cld
   rep  stosb

        mov dl,byte [Font+0x480+ebx] ; загружаем к примеру символ 0x480 'А'
        mov al,dl
        mov ecx,8
     loo:               ;рисуем
        shr al,1
        jnc net
        est:
        mov byte [line_buffer+ecx*3-2],0x0 ;черным
        mov byte [line_buffer+ecx*3-1],0x0
        mov byte [line_buffer+ecx*3],0x0
        net:
        dec ecx
        jnz loo

   mov  eax,ebx
   mov  edx,24
   mul  edx

   mov  esi,line_buffer
   mov  edi,img_buffer;+ebx*8*3
   add  edi,eax

   mov  ecx,8*3
   rep  movsb   ;копируем линию в буфер+смещение линии
   inc  ebx
   cmp  ebx,8
   jl   @NextLine

retn

Font:
        file "Char.mt"