Code:
MODE btfss REPEAT,1 ; bit 1 a '1' for on (on/off flag)
goto SET_1 ; was off so turn on
btfsc REPEAT,3 ; speedo on/off flag
goto BYSPD
btfss REPEAT,2 ; speedometer or alarm set mode
goto SET_2 ; repeat1 status same, repeat2 =1
BYSPD bcf REPEAT,1 ; if set then clear on/off flag
bcf REPEAT,2 ; clear speedometer flag
bcf INTCON,INTE ; clear interrupt enable for RB0
clrf PULSE_CNT ; clear pulse counter
clrf TIME_CNT1 ; clear time counter 1
clrf TIME_CNT2 ; clear time counter 2
goto WAIT
SET_2 bsf REPEAT,2 ; set speedometer flag
goto NO_SET1
SET_1 bsf REPEAT,1 ; if clear then set on/off flag
NO_SET1 bsf INTCON,INTE ; set interrupt enable for RB0
goto WAIT
UP movf DISP1,w ; display1 to w register
xorlw 0x05 ; compare with decimal'5'
btfss STATUS,Z ; skip next instruction if Disp <9 decimal
goto UP_1 ; increase display1
; check for maximum on display
movf DISP2,w ; look at display 2
xorlw 0x05 ; compare with a 5
btfss STATUS,Z ; is it 5 then check DISP3
goto DISP_UP
movf DISP3,w ; look at disp3
xorlw 0x02 ; compare with a 1
btfsc STATUS,Z ; is it a 2
goto WAIT ; maximum of 255 on display so stop counting up
; digit overflow
DISP_UP clrf DISP1 ; Disp value cleared as it was beyond BCD range (0-9)
movf DISP2,w ; display2 value to w
xorlw 0x09 ; compare with decimal'9' (H'9')
btfss STATUS,Z ; skip next instruction if Disp <9 decimal
goto UP_2 ; increase display2
clrf DISP2 ; Disp value cleared as it was beyond BCD range (0-9)
goto UP_3 ; increase display3
UP_1 movlw 0x05 ; a 5 in the display (count by 5's)
movwf DISP1 ; display1 increased
goto WAIT
UP_2 incf DISP2,f ; display2 increased
goto WAIT
UP_3 incf DISP3,f ; display3 increased
goto WAIT
DOWN movf DISP1,w ; display1 to w register
xorlw 0x00 ; compare with decimal'0' to see if was zero
btfss STATUS,Z ; skip next instruction if Disp 0 decimal
goto DN_1 ; decrease display1
; check for display minimum
movf DISP2,w ; look at display 2
xorlw 0x00 ; compare with 0
btfss STATUS,Z ;
goto DISP_DN ; not 0 so can count down
movf DISP3,w ; look at display 3
xorlw 0x00 ; compare with 0
btfsc STATUS,Z
goto WAIT ; do not decrease beyond 000
DISP_DN movlw H'05' ; place a 5 in display1
movwf DISP1 ; disp1 = 5
movf DISP2,w ; display2 value to w
xorlw 0x00 ; compare with decimal'0' to see if 0
btfss STATUS,Z ; skip next instruction if Disp 0 decimal
goto DN_2 ; decrease display2
movlw H'09' ; Disp value = 9
movwf DISP2
goto DN_3 ; decrease display3
DN_1 clrf DISP1 ; display1 decreased to 0
goto WAIT
DN_2 decf DISP2,f ; display2 decreased
goto WAIT
DN_3 decf DISP3,f ; display3 decreased
; wait period (delay plus EEPROM write time)
; delay loop plus apply tone to piezo alarm as switch press acknowledgement
WAIT bsf INTCON,GIE ; allow global interrupts
movlw D'100' ; set delay period for repeat of value 2 delay (sets key
; acknowledge tone frequency)
movwf VALUE_1 ; VALUE_1 = w
movlw D'50' ; set delay period value 2 (also sets key acknowledge tone period)
LOOP_1 movwf VALUE_2 ; VALUE_2 = w
LOOP_2 decfsz VALUE_2,f ; decrease VALUE_2, skip if zero
goto LOOP_2
btfsc PORTA,3 ; alarm output check if high or low
goto CLR_T
bsf PORTA,3 ; alarm out high
DEC_V1 decfsz VALUE_1,f ; decrease VALUE_1, skip if zero
goto LOOP_1
bsf PORTA,3 ; alarm out high
goto DELTME ; delay time
CLR_T bcf PORTA,3 ; alarm out low
goto DEC_V1
; more delay time
DELTME movlw D'50' ; set delay period
movwf VALUE_1 ; VALUE_1 = w
movlw D'255' ; set delay period value 2
LP_1 movwf VALUE_2 ; VALUE_2 = w
LP_2 decfsz VALUE_2,f ; decrease VALUE_2, skip if zero
goto LP_2
decfsz VALUE_1,f ; decrease VALUE_1, skip if zero
goto LP_1
; EEPROM write. Store new display values in EEPROM
EPWRT movlw EEPROM1 ; address for EEPROM1
movwf EEADR ; address to write
movf DISP1,w ; display1 data to w
call EWRITE ; EEPROM write sequence
movlw EEPROM2 ; address for EEPROM2
movwf EEADR ; address for write
movf DISP2,w
call EWRITE
movlw EEPROM3 ; address for EEPROM3
movwf EEADR ; address for write
movf DISP3,w
call EWRITE
movlw EEPROM4 ; address for EEPROM4
movwf EEADR ; address to write to
movf REPEAT,w ; repeat values (bit 0 is alarm repeat, bit 1 is on/off)
call EWRITE
; when a new speed setting is selected recalculate speed equivalent value
bcf INTCON,GIE ; disable interrupts
call SPDEQIV ; recalculate speed equivalent value
bsf INTCON,GIE ; enable interrupts
goto CLOSED ; out from EEPROM write
; subroutine to write to EEPROM
EWRITE bcf FLAG_1,6 ; EEPROM write repeat flag
movwf TEMP_2 ; store w in temporary storage
EWRIT movf TEMP_2,w ; place value in w (used for read data sequence)
movwf EEDATA ; data register
bcf INTCON,GIE ; disable interrupts
bsf STATUS,RP0 ; select bank 1
bsf EECON1,WREN ; enable write
movlw 0x55 ; place 55H in w for write sequence
movwf EECON2 ; write 55H to EECON2
movlw 0xAA ; AAH to w
movwf EECON2 ; write AA to EECON2
bsf EECON1,WR ; set WR bit and begin write sequence
bsf INTCON,GIE ; enable interrupts
bcf EECON1,WREN ; clear WREN bit
WRITE btfsc EECON1,WR ; skip if write complete WR=0 when write complete
goto WRITE ; not written yet
bcf EECON1,EEIF ; clear write interrupt flag
; read EEPROM DATA and check if written correctly
bsf STATUS,RP0 ; select memory bank 1
bsf EECON1,RD ; read EEPROM
RD_AGN nop
btfsc EECON1,RD ; skip if RD low (read complete)
goto RD_AGN ; wait for low RD
bcf STATUS,RP0 ; select bank 0
movf EEDATA,w ; EEPROM value in w
subwf EEDATA,w ; compare read value with value stored
btfsc STATUS,z ; skip if not the same
return ; value correctly written
btfsc FLAG_1,6 ; write repeat bit, skip if clear and rewrite
return
bsf FLAG_1,6 ; set repeat flag rewrite once only
goto EWRIT ; rewrite as not written correctly
; wait for switch to open (must test for closed switch when RA0, RA1 and RA2 are low
; because switch will appear open at RA4 when switch pull down via RA0-RA2 is high)
CLOSED bcf FLAG_1,1 ; clear flag that indicates switch closed
call ON ; check for closed switch
call ON ; do three times to return to original switch closure
call ON ;
call ON ; do again just in case missed an interrupt during call
call ON ; do again just in case missed one interrupt during call
btfsc FLAG_1,1 ; was switch closed
goto CLOSED ; yes go to check again
goto SWITCH ; switch open so out
; subroutine to wait for switch to reopen
ON bcf INTCON,T0IE ; prevent multiplex update
bcf FLAG_1,0 ; clear flag that indicates update interrupt for display
RE_CHK btfsc PORTA,4 ; check if switch closed
goto OPEN
bsf FLAG_1,1 ; switch closed so set flag
bsf INTCON,T0IE ; allow multiplex interrupt
goto RE_CHK ; closed so check till open
OPEN bcf FLAG_1,0 ; clear multiplex update flag wait for next multiplex update
bsf INTCON,T0IE ; allow multiplex update
FLG_TST btfss FLAG_1,0 ; is flag set indicating a new interrupt for multiplexing
goto FLG_TST ; wait
return
; calibrate routine
CALIBRT btfss REPEAT,1 ; is on/off flag on
goto WAIT ; no calibration allowed when speed alarm unit is off
btfsc REPEAT,2 ; is speedometer on
goto WAIT ; no calibration if speedometer mode
bcf INTCON,GIE ; disable interrupts
clrf PULSE_CNT ; clear pulse counter
clrf TIME_CNT1 ; clear time counter 1
clrf TIME_CNT2 ; clear time counter 2
bsf FLAG_1,7 ; calibrate flag set
bcf INTCON,T0IF ; clear timer interrupt flag
bcf INTCON,INTF ; clear interrupt flag
bsf INTCON,GIE ; allow interrupts
FLG1_CK btfsc FLAG_1,7 ; wait for end of calibrate, skip if end
goto FLG1_CK ; recheck flag 1 bit 7 (cleared at end of calibration)
; store new calibration count numbers in EEPROM
movlw EEPROM5 ; address for EEPROM5
movwf EEADR ; address to write
movf TIME_CNT3,w ; counter 3 to w
call EWRITE ; EEPROM write sequence
movlw EEPROM6 ; address for EEPROM6
movwf EEADR ; address to write
movf TIME_CNT4,w ; counter 4 to w
call EWRITE ; EEPROM write sequence
goto SWITCH ; check for a new closed switch
; Subroutine to convert from 8-bit binary to 2-digit BCD (packed)
; Binary value is in BIN_0
; Result in BCD is in BCD_0 & BCD_1.
; BCD_0 is MSB, BCD_1 is LSB
BCD bcf STATUS,c ; clear carry bit
movlw D'8'
movwf CNT_8 ; 8 in count
clrf BCD_0
clrf BCD_1 ; set BCD registers to 0
LOOPBCD rlf BIN_0,f ; shift left binary registers
rlf BCD_1,f ; MSB shift left
rlf BCD_0,f ; LSB shift left BCD registers
decfsz CNT_8,f ; reduce count value return when 0
goto DECADJ ; continue decimal adjust
return ; completed decimal to BCD operation
; subroutine decimal adjust
DECADJ movlw BCD_1 ; BCD LSB address
movwf FSR ; pointer for BCD1
call ADJBCD ; subroutine to adjust BCD
movlw BCD_0 ; BCD MS address
movwf FSR ; pointer for BCD0
call ADJBCD
goto LOOPBCD
; subroutine adjust BCD
ADJBCD movlw 0x03 ; w has 03
addwf INDF,w ; add 03 to BCDx register (x is 0-1)
movwf TEMP ; store w
btfsc TEMP,3 ; test if >7
movwf INDF ; save as LS digit
movlw 0x30 ; 3 for MSbyte
addwf INDF,w ; add 30 to BCDx register
movwf TEMP ; store w in temp
btfsc TEMP,7 ; test if >7
movwf INDF ; save as MS digit
return ; end subroutine
end
part 5
Bookmarks