Xuat Gio he thong

.MODEL SMALL
.STACK
.DATA
    TBAO DB 13,10,"THOI GIAN HIEN TAI LA : $"
    TIME DB '00:00:00$'
.CODE
    MOV AX,@DATA
    MOV DS,AX

    LEA BX,TIME

    CALL GET_TIME

    LEA DX,TBAO
    MOV AH,9
    INT 21H

    LEA DX,TIME
    MOV AH,9
    INT 21H

    MOV AH,4CH
    INT 21H

    GET_TIME PROC
        PUSH AX
        PUSH CX

        MOV AH, 2CH
        INT 21H

        MOV AL, CH
        CALL CONVERT
        MOV [BX], AX


        MOV AL, CL
        CALL CONVERT
        MOV [BX+3], AX


        MOV AL, DH
        CALL CONVERT
        MOV [BX+6], AX


        POP CX
        POP AX

        RET
    GET_TIME ENDP

    CONVERT PROC
        PUSH DX

        MOV AH, 0
        MOV DL, 10
        DIV DL
        OR AX, 3030H

        POP DX

        RET
   CONVERT ENDP

END