faslap movf fastens,w
subwf tens,w
btfsc status,z
goto nx10 ;tens are = so goto check ones
;
movf fastens,w
subwf tens,w
skpnc
return ;current laptime > fastest lap bomb out
goto laps1 ;current laptime < fastest lap beep & rec
;
nx10 movf fasones,w
subwf ones,w
btfsc status,z
goto nx20 ;ones are = so goto check tenths
;
movf fasones,w
subwf ones,w
skpnc
return ;current laptime > fastest lap bomb out
goto laps1 ;current laptime < fastest lap beep & rec
;
nx20 movf fastenths,w
subwf tenths,w
skpnc
return ;current laptime > fastest lap bomb out
;
laps1 movlw d'3' ;beep for 5 1/10's of a sec on new record
movwf beeptime
bsf porta,1
;