.MODEL small

HienString 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 100h

.DATA

M1 db 13,10,'CHuong Trinh Kiem Tra May tinh dang dung co cong COM RS232 khong ? $'

co db 13,10,'May tinh dang dung co cong COM $'

khong db 13,10,'May tinh dang dung Khong co cong COM$'

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

.CODE

PS:

mov ax,@data

mov ds,ax

CLRSCR

HienString M1 ; Hi?n thông báo 'May tinh dang dung co cong COM khong ?'

int 11h ; Ng?t h? th?ng th?c hi?n vi?c dua n?i dung ô nh? 0:411h -> ah

mov al,ah ; Ðua n?i dung 0:411h -> al

and al,00001110b ; Tách 3 bit ch?a s? lu?ng c?ng COM

shr al,1 ; al = s? lu?ng c?ng COM

jnz L1 ; N?u al # 0 (có c?ng COM thì nh?y)

HienString khong ; còn không thì hi?n thông báo 'Khong'

jmp Exit ; Nh?y d?n nhãn Exit

L1:

HienString co ; Hi?n thông báo 'Co'

mov cl,al

xor ch,ch ; cx = s? lu?ng c?ng COM (ch? s? vòng l?p hi?n d?a ch?)

HienString M2 ; Hi?n thông báo 'So luong cong COM ma may tinh co la : '

add al,30h ; al là mã ASCII s? lu?ng c?ng COM

mov ah,0eh ; Ch?c nang hi?n 1 ký t? ASCII lên màn hình

int 10h

Exit:

mov ah,4ch ; V? DOS

int 21h

END PS