;Sử dụng Fasm hoặc FasmW để dịch
;Bạn có thể tải FasmW tại đây
không biết sao trông xấu thế không biết
;Bạn có thể tải FasmW tại đây
Code:
org 100h
mov ax,3
int 10h ;Dat che do TEXT
mov ax,$b800
mov es,ax ;Segmen Vung` RAM do^` ho.a trong che^' do^. TEXT
xor bx,bx
mov al,'*' ;Ki' tu. dua ra man hinh
xor ah,ah
mov cx,80*25 ;So lan lap
;che do text 80 cot, 25 dong
.print:
;--[ RAM man hinh che do TEXT BYTE dau tien chu'a ki tu, BYTE ke tiep ]--
;--[ chu'a thuoc tinh cua ki tu do ]--
mov [es:bx],al
inc bx
and ah,$f ;ah=8bit /4 bit thap chua mau chu~
;3 bit cao ke tiap mau cua nen chu
;bit tren cung la` nha'p nha'y
;-[ doan nay lam cho ma`u tuan hoan ]-
;add ah,10000000b ;Nhap nhay
mov [es:bx],ah
inc bx
inc ah ;Do^i? ma`u
loop .print ;Lap lai doan chuong trinh in ki tu
.end:
mov ax,0
int 16h ;Doi nhap 1 ki tu
ret ;Tro ve
không biết sao trông xấu thế không biết