EX EQU 24H
EL EQU 24H
EH EQU 25H
SEC EQU 28H
MIN EQU 27H
HOU EQU 26H
COUNTER	EQU 2AH
FM EQU 30H
ORG 200AH
DCW HSOINT
ORG 2080H
MAIN : LD SP,#00C0H
       DI
       CLRB INT_PEND
       LDB INT_MASK,#20H
       LD BX,#6100H
       LDB AL,#0FH
       STB AL,[BX]+
       LDB AL,#0FCH
       STB AL,[BX]+
       LDB AL,#0FEH
       STB AL,[BX]
       CLRB 26H
       CLRB 27H
       CLRB 28H
       CLRB COUNTER
       LDB HSO_COMMAND,#18H
       ADD HSO_TIME,T1,#7500
       EI
LOOP : LCALL DISP
       LJMP LOOP
DISP : LDB FM,#3H
       LDB CH,#7FH
       LDB EL,#26H
       CLRB EH
LOOP1 : LDBZE AX,[EX]+
        DIVB AX,#10
        LDBZE BX,AL
        LDB CL,TAB[BX]
        LD DX,#6101H
        STB CL,[DX]+
        STB CH,[DX]
        LCALL DELAY
        SHRB CH,#1
        ORB CH,#80H
        LDBZE BL,AH
        LDB CL,TAB[BX]
        LD DX,#6101H
        STB CL,[DX]+
        STB CH,[DX]
        LCALL DELAY
        SHRB CH,#2
        ORB CH,#0C0H
        DJNZ FM,LOOP1
        LDB CL,#02H
        LDB CH,#0DBH
        STB CL,6101H[0]
        STB CH,6102H[0]
        LCALL DELAY
        RET
DELAY : LDB 80H,#250
    L : NOP
        DJNZ 80H,L
        RET
TAB : DCB 0FCH,060H,0DAH,0F2H,066H
      DCB 0B6H,0BEH,0E0H,0FEH,0F6H
HSOINT : PUSHF
         LDB HSO_COMMAND,#18H
	 ADD HSO_TIME,T1,#7500
         NOP
         NOP
         LCALL	SECOND
         POPF
	 RET
SECOND : INCB COUNTER
         CMPB COUNTER,#100
         JNE RETURN
         CLRB COUNTER
         INCB SEC
         CMPB SEC,#60
         JNE RETURN
         CLRB SEC
         INCB MIN
         CMPB MIN,#60
         JNE RETURN
         CLRB MIN
         INCB HOU
         CMPB HOU,#24
         JNE RETURN
         CLRB HOU
RETURN : RET
END