Viết chương trình nhập vào một ký tự hiển thị 40 lần trên dòng tiếp theo.
Code:
.Model Small
.Stack
.Data
S db "Nhap Ki Tu:$"
S1 db 13,10,"Xuat Ki Tu 40 Lan:"
S2 Db 40 Dup('$')
.Code
Begin:
;Khoi Tao
Mov Ax,@Data
Mov Ds,Ax
;Hien Thi Chuoi S
Lea Dx,S
Mov Ah,09
Int 21h
;Nhap 1 Ki Tu
Mov Ah,01h
Int 21h
Mov S2,Al
;Hien Thi Chuoi S1
Lea Dx,S1
Mov Ah,09
Int 21h
Mov Dl,S2
Xor Cx,Cx ;Tra Cx Ve Gia Tri 0
Mov Cx,40 ;Lap 40 Lan (Gia Tri Cx La So Lan Lap)
Lap:
Mov Ah,02h ;Xuat 1 Ki Tu
Int 21h
Loop Lap ;Ket Thuc Lap
;Thoat Chuong Trinh
Mov Ax,4c00h
Int 21h
End Begin