DATA    SEGMENT
DATA1   DW 0FFFFH
DATA2   DB 01,01
DATA3   DB 10
DATA4   DB 01,03,02,06,04,05
DATA5   DB 00
DATA    ends
CODE    SEGMENT
MAIN    PROC FAR
ASSUME  CS:CODE,DS:DATA
START：  PUSH DS
        SUB  AX,AX
        PUSH AX
        MOV  DX,21BH
        MOV  AL,80H
        OUT  DX,AL
        MOV  DX,218H
        MOV  AL,01
        OUT  DX,AL
        MOV  AX,DATA
        MOV  DS,AX
        MOV  DI,0
        MOV  SI,OFFSET DATA2
        MOV  DI,OFFSET DATA4
        MOV  CX,DATA1
        MOV  AL,[SI]
        MOV  AH,00
        MOV  BP,AX
        MOV  DL,DATA5
        INC  CX
AA:    DEC  CX
        JZ   DONE
        MOV  DH,DATA3
        MOV  AX,BP
        TEST AX,01
        JZ   BBB
        MOV  AL,DL
        CMP  AL,05H
        JZ   CCC
        INC  DL
        JMP  POUT
CCC:    MOV  DL,0
        JMP  POUT
BBB:    MOV  AL,DL
        CMP  AL,00
        JZ   DDD
        DEC  DL
        JMP  POUT
DDD:    MOV  DL,05
        JMP  POUT
POUT:   MOV  AH,00
        MOV  BX,AX
        MOV  AL,[DI+BX]
        PUSH DX
        MOV  DX,218H
        OUT  DX,AL
        POP  DX
EEE:    CALL TIME
        DEC  DH
        JNZ  EEE
        JMP  AA
DONE:   MOV  AL,DL
        MOV  SI,OFFSET DATA2
        MOV  [SI+1],AL
        RET
MAIN    ENDP
TIME    PROC NEAR
        MOV  AX,0FFFFH
TIME1:  DEC  AX
        JNZ  TIME1
        RET
TIME    ENDP
CODE    ENDS
        END START;