|
|
displey1 movf FRL,W
movwf Source1
movf FRH,W
movwf Source2
clrf Source3
clrf Source4
call bin4bcd
movlw LCD_BUFER1
movwf FSR
movlw "F"
movwf 0x00
incf FSR,F
movlw "="
movwf 0x00
incf FSR,F
call decod5
movlw " "
movwf 0x00
incf FSR,F
movlw "T"
movwf 0x00
incf FSR,F
movlw "="
movwf 0x00
incf FSR,F
movf sp1,W
movwf Source1
movf sp2,W
movwf Source2
movf sp3,W
movwf Source3
clrf Source4
call bin4bcd
call decod6
;--------------------------------
decod10 swapf bcd1,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod9 movf bcd1,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod8 swapf bcd2,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod7 movf bcd2,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod6 swapf bcd3,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod5 movf bcd3,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod4 swapf bcd4,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod3 movf bcd4,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod2 swapf bcd5,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
decod1 movf bcd5,0
andlw b'00001111'
addlw 0x30
movwf 0x00
incf 0x04,1
return
;********************************************************************************
;*******************************************************************************************
bin4bcd movlw .32
movwf cyk2
clrf bcd1
clrf bcd2
clrf bcd3
clrf bcd4
clrf bcd5
goto badjdec1
badjdec movlw 0x33
addwf bcd1,f
addwf bcd2,f
addwf bcd3,f
addwf bcd4,f
addwf bcd5,f
movlw 0x03
btfss bcd1,3
subwf bcd1,f
btfss bcd2,3
subwf bcd2,f
btfss bcd3,3
subwf bcd3,f
btfss bcd4,3
subwf bcd4,f
btfss bcd5,3
subwf bcd5,f
movlw 0x30
btfss bcd1,7
subwf bcd1,f
btfss bcd2,7
subwf bcd2,f
btfss bcd3,7
subwf bcd3,f
btfss bcd4,7
subwf bcd4,f
btfss bcd5,7
subwf bcd5,f
badjdec1 rlf Source1,f
rlf Source2,f
rlf Source3,f
rlf Source4,f
rlf bcd5,f
rlf bcd4,f
rlf bcd3,f
rlf bcd2,f
rlf bcd1,f
decfsz cyk2,f
goto badjdec
return
;*******************************************************************************************
|
|
