Org 2000h

START:
LCALL TIMEINT
LCALL MEASURE
LCALL TIMEINT
LCALL REMEASURE
LCALL TIMEINT
LCALL REMEASURE
LCALL TIMEINT
LCALL REMEASURE
MOV R1,#21H
LCALL COMPARE1
LCALL COMPARE2
LCALL COMPARE3
LCALL COMPARE4
LCALL DECISION
LCALL 10MIN
CLR P1.0
CLR P1.1
CLR P1.2
CLR P1.3
LJMP START

; put subroutines in this place3 after main program

TIMEINT:
ret

MEASURE:
ret

REMEASURE:
ret

COMPARE1:
ret

COMPARE2:
ret

COMPARE3:
ret

COMPARE4:
ret

DECISION:
ret

10MIN:
ret