;de 3:viet chuong trinh hien thi thong bao

;"dieu khien dong co buoc co goc buoc 1,8 do,nhap r de quay thuan 1 vong, nhap enter de thoat

;---------------------------

.model small

.stack 100

.data

 tb:

  DB "dieu khien dong co buoc co goc buoc 1,8 do,nhap r de quay thuan 1 vong, nhap enter de thoat$"

.code

 main proc

    mov ax,@data

    mov ds,ax

    lea dx,tb

    mov ah,9

    int 21h

   ;-----------

 nhap:

    mov ah,1

    int 21h

    cmp al,"r"

    jne nhap

    ;----------------

    mov cx,50

    mov dx,378h

lap_1_vong:

    mov al,00000001b

    out dx,al

    call delayms

    mov al,00000010b

    out dx,al

    call delayms

    mov al,00000100b

    out dx,al

    call delayms

    mov al,00001000b

    out dx,al

    call delayms

    loop lap_1_vong

    ;------------------

dung:

    mov al,0

    out dx,al

    mov ah,1

    int 21h

    cmp al,13

    je thoat

    jmp dung

 main endp

 ;--------------------

 thoat:

    mov ah,4ch

    int 21h

;--------------------

 delayms:

    push cx

    mov cx,05h

 lap_tre:

    push cx

    mov cx,0fh

    loop $

    pop cx

    loop lap_tre

    pop cx

 end main