تغییر فونت

[j_naroogha@yahoo.com]

سلام دوستان
در زیر یه برنامه رو میزارم برای شما شاید به کارتون بیاد.

[j_naroogha@yahoo.com]

data segment
fontarr label byte
;A
db 00011000b
db 00011100b
db 00110110b
db 01100010b
db 01100010b
db 01100110b
db 01111110b
db 01111110b
db 01100110b
db 01100110b
db 01100110b
db 01100110b
db 01100110b
db 01100110b
db 01100110b
db 01100110b
;B
db 01111100b
db 01111110b
db 01000110b
db 01000010b
db 01000010b
db 01000010b
db 01000110b
db 01111100b
db 01111110b
db 01000110b
db 01000010b
db 01000010b
db 01000010b
db 01000110b
db 01111110b
db 01111100b
;C
db 00011100b
db 00111110b
db 01110000b
db 11100000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11100000b
db 01110000b
db 00111110b
db 00011000b
;D

db 11111000b
db 11111110b
db 11000111b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000111b
db 11001111b
db 11111110b
db 11111000b
;E
db 10000000b
db 11111111b
db 11111111b
db 11100000b
db 11100000b
db 11100000b
db 11110000b
db 11111111b
db 11111111b
db 11100000b
db 11100000b
db 11100000b
db 11110000b
db 11111111b
db 11111111b
db 10000000b
;F
db 11111111b
db 11111111b
db 11100000b
db 11100000b
db 11100000b
db 11100000b
db 11110000b
db 11111111b
db 11111111b
db 11110000b
db 11100000b
db 11100000b
db 11100000b
db 11100000b
db 11100000b
db 11100000b
;G
db 00111111b
db 01111111b
db 11100000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11000000b
db 11001111b
db 11000111b
db 11000011b
db 11000011b
db 11111111b
db 01111110b
db 00000000b
db 00000000b
;H
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11100111b
db 11111111b
db 11111111b
db 11100111b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
db 11000011b
;I
db 11111111b
db 01111110b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 00111100b
db 01111110b
db 11111111b
data ends
code segment
assume ds:data,cs:code
main: mov ax,seg data
mov ds,ax
;mov ah,07h
;int 21h
mov ah,11h
mov al,00h
mov bh,16
mov bl,0
mov cx,9
mov dx,65
push ds
pop es
mov bp,offset fontarr
int 10h
mov si,0

begin:
mov dx,65
mov ah,02h
add dx,si
int 21h
mov ah,02h
mov dl,32
int 21h
inc si
cmp si,8
jle begin
mov ah,1
int 21h
mov al,0
mov ah,4ch
int 21h
code ends
end main