model small

hienxau Macro xau

Push AX DX

lea DX, xau

Mov Ah, 9h

int 21h

Pop DX AX

Endm

Clrscr Macro

Push AX

Mov Ah, 0fh

int 10h

Mov AH, 0H

INT 10h

Pop AX

EndM

.STACK 500h

.DATA

M1 db 'May tinh dang dung co cong COM không ? $'

co db 'Co $'

khong db ' Khong $'

M2 db 13,10,'So luong cong COM ma may tinh co la : $'

M3 db 13,10,'Dia chi cac cong COM la : $'

space db ' $'

.CODE

PS:

mov ax,@data

mov ds,ax

CLRSCR

Hienxau M1

int 11h

mov al,ah

and al,00001110b

shr al,1

jnz L1

Hienxau khong

jmp Exit

L1:

Hienxau co

mov cl,al

xor ch,ch

Hienxau M2

add al,30h

mov ah,0eh

int 10h

Exit:

mov ah,4ch

int 21h

END PS