Date DATA    50h	     ;Date now
    Last_Used_Date DATA	60h  ;Date application was last used
...
...
    setb c	;Kill box if both dates are the same
    mov R0, #Date ;Location of current date
    mov a, R0
    add a, #5	;Location of current YY
    mov R0, a
    mov a, @R0
    cjne a, 65h, Date_Diff	;65h is where old date YY is stored
    dec R0
    mov a, @R0
    cjne a, 64h, Date_Diff	;64h is where old date MM is stored
    dec R0
    mov a, @R0
    cjne a, 63h, Date_Diff	;65h is where old date DD is stored
    dec R0
    mov a, @R0
    cjne a, 62h, Date_Diff	;65h is where old date hh is stored
    dec R0
    mov a, @R0
    cjne a, 61h, Date_Diff	;65h is where old date mm is stored
    dec R0
    mov a, @R0
    cjne a, 60h, Date_Diff	;65h is where old date ss is stored

    
Date_Diff:
    
	jc KILLIT
    
LATER_THAN_LAST_USED: