AN1950

Sensors

Freescale Semiconductor

13

jsr lcdchro

;display "cm" for centimeters

bra goflow

dsplIN: lda #'i'

jsr lcdchro

lda #'n'

jsr lcdchro

;display "in" for inches

;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

goflow: lda #$C0

;******** now let's display the flow in decimal ********

jsr lcdcmdo

;position cursor on 1st character 2nd line

lda MA

;get flow

lsla

;test sign of rate (in MA)

bcc positiv

;if positive, then it's easy

lda MA

;otherwise 1's complement of MB

coma

inca

sta MA

cmp #$64

;check to see if >100

bcs not2lo

;if not we are OK

lda #'<'

;otherwise display that we exceeded min rate

jsr lcdchro

;that LCD can display (<9.9)

lda #$63

;force value to 99

sta MA

bra goconv

not2lo: lda #'-'

jsr lcdchro

;display that minus sign

bra goconv

positiv: lda MA

cmp #$64

;check to see if >100

bcs not2hi

;if not we are OK

lda #'>'

;otherwise display that we exceeded max rate

jsr lcdchro

;that LCD can display (>9.9)

lda #$63

;force value to 99

sta MA

bra goconv

not2hi: lda #'+'

jsr lcdchro

;display the plus sign (to keep alignment)

goconv: lda MA

;get flow

clrh

ldx #$0A

;and divide by 10

div

jsr lcdnibo

;display "tens" digit

lda #'.'

jsr lcdchro

;display decimal point

pshh

pula

jsr lcdnibo

;and first decimal

lda UnitType

;check for cm ($A0) vs. in (#3F)

cmp #$3F

beq dsplINf

dsplCMf: lda #'c'

jsr lcdchro

lda #'m'

bra reusef