;  主控程序

;-------------  DEFINE -------------
TRUE            EQU     1
FALSE           EQU     0

TEST_FLAG       EQU     1
;-------------  DEFINE -------------

            ORG  0000H
            JMP MAIN

            ORG  0003H
INT_EX0:
            RETI

            ORG  000BH
INT_T0:
            CALL INIT_TIMER0
            RETI

            ORG 0040H
MAIN:
            MOV SP,#50H
            CALL INIT_51
            CALL INIT_PARA
            SETB EA
            SETB TR0

NEXT:
            IF TEST_FLAG=TRUE
               CALL TEST
            ELSE
               CALL KEY_INPUT
            ENDIF

            JNC NEXT
                CALL KEY_SUB
            JMP  NEXT

            INCLUDE "INIT51.ASM"
            INCLUDE "INITPARA.ASM"
            INCLUDE "KEYINPUT.ASM"

            END