AN1950

Sensors

12

Freescale Semiconductor

cmp #$01

;if result is $01

beq Lzero

;then display it directly

makeRB lsl RB

;otherwise shift 1 pixel bit to the right place

dbnza makeRB

;by counting down result of division

bra Lzero

Lsat:

mov #$80,RB

;if full then position highest pixel

Lzero: lda RB

ldhx #ramfree+$27 ;last of the 40

sta 0,x

;put it at then end of the 40 bytes (new value), all others were shifted left

clr weath

;weath will contain dynamic change based also on value of RB

lda RB

beq donew

;if RB=$00 then weath=$00: "empty"

cmp #$80

bne notfull

;

mov #$01,weath

;if $80 then weath=$01: "full"

bra donew

notfull mov #$02,weath

;prepare for "steady" if L(i)=L(i-1)

lda OA

;get current level value L(i)

cmp Lgfx

;compare to previous level value L(i-1)

beq donew

mov #$03,weath

;"filling" if L(i)>L(i-1)

bcc donew

mov #$04,weath

;"emptying" otherwise

donew: lda OA

;current level L(i)

sub Lgfx

;minus previous level L(i-1)

sta MA

;establishes rate: L(i)-L(i-1)

mov RA,Lgfx

;update L(i-1)

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

golevel: lda #$80

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

jsr lcdcmdo

;start on 1st character of 1st line

lda OA

;get current level value

clrh

ldx #$64

;and divide by 100

div

bne over100

;if result is >0 then handle "hundreds"

lda #$20

;otherwise display space (remove leading 0)

jsr lcdchro

bra lnext

over100: jsr lcdnibo

;display "hundreds" digit

lnext: pshh

pula

;move remainder into A

clrh

ldx #$0A

;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 dsplIN

dsplCM: lda #'c'

jsr lcdchro

lda #'m'