validcal: ldhx #N2
jsr wrflash ;burn N2 into flash
ldhx #msg05
;and display new current cal values from flash
jsr lcdstro
lda N1 ;0mm value
jsr lcdbyto
lda #'/'
jsr lcdchro
lda N2 ;160mm value
jsr lcdbyto
jsr del1s
jsr del1s
jmp nocalib ;done!
;__________________________________________________________
;__________________________________________________________
LEVEL: lda #$01 ;===LEVEL=== main routine: displays level, flow & graphics
jsr lcdcmdo ;clear screen
lda #$0C
jsr lcdcmdo ;cursor off
lda #$88 ;position cursor at LCD graphics portion
jsr lcdcmdo ;(2nd half of first line)
clra ;and write ascii $00 through $07
fillgfx: jsr lcdchro ;which contain the graphics related to
inca ;40 different readings
cmp #$08 ;do all 8
bne fillgfx
LVL:
ldhx #ramfree ;point to 40 pressure readings
lda #$28 ;count down from 40
purge: clr 0,x ;clear all those locations
incx ;next (H cannot change: we are in page0 RAM)
dbnza purge
jsr adcbyta ;get averaged A/D reading (i.e. NX)
jsr LfNx ;convert to level and
sta Lgfx ;store in "Level graphics"
LVLwarm: bset 4,porta
bset 5,porta ;LEDs on during this cycle
ldhx #ramfree ;point to 40 pressure readings
mov #$27,RA ;count down from 39
shiftgfx: lda 1,x ;take location+1
sta 0,x
;and move to location+0, i.e. shift graphics left
incx ;next X (once again: we are in page 0, no need to worry about H)
dbnz RA,shiftgfx ;do this 39x
jsr adcbyta
jsr LfNx
mov RA,OA
;get averaged A/D reading (i.e. NX)
;LX:=(NX-N1)*ConversionValue/(N2-N1)
;store result in OA
clr RB ;RB will contain graphic pixels (default=$00)
cmp UnitEmpt
;if <UnitEmpty (preset value = empty or almost)
bcs Lzero ;then "empty" (no pixels)
cmp UnitFull
;if >=UnitFull (preset value = full or almost)
bcc Lsat ;then "full" (pixel $80=bit 7)
clrh
;otherwise determine one of 8 graphic values
ldx UnitDiv ;UnitDiv is roughly full range/8
div ;in order to give 8 values
mov #$01,RB ;but now value has to be converted to pixel
AN1950
Sensors
Freescale Semiconductor
11
相关PDF资料
KN500B1/4 SWITCH KNOB STRAIGHT .50" BLACK
KN5700B1/4 SWITCH KNOB STRAIGHT .75" BLACK
KN700B1/4 SWITCH KNOB STRAIGHT .75" BLACK
KS-100 PROTECTIVE COVER FOR RELAYS
KTKK-0500 CONN HEAT SHRINK TUBE SZ 8 STR
KTKK-0674 CONN HEAT SHRINK TUBE SZ E STR
KTKK-1123 CONN HEAT SHRINK TUBE SZ D ANG
KTR10EZPJ302 RES 3.0K OHM 1/8W 5% 0805 SMD
相关代理商/技术参数
KITMPXA6115AEVB 功能描述:压力传感器开发工具 Sensor Toolbx Pressu Sensor Developmt brd RoHS:否 制造商:Freescale Semiconductor 工具用于评估:MPL3115A2 接口类型:USB 最大工作温度:
KITMPXSHOWEVK 功能描述:压力传感器开发工具 PRESSURE SHOWBOARD RoHS:否 制造商:Freescale Semiconductor 工具用于评估:MPL3115A2 接口类型:USB 最大工作温度:
KITMPXV5004DPEVB 功能描述:压力传感器开发工具 MPXV5004 Dev Kit RoHS:否 制造商:Freescale Semiconductor 工具用于评估:MPL3115A2 接口类型:USB 最大工作温度:
KITMS05051 功能描述:电容套件 0.2pF-1.0pF 0505 10 EA-8 VALUES RoHS:否 制造商:Nichicon 电容范围:10 uF to 680 uF 公差范围: 电压范围:6.3 V to 25 V 产品:Aluminum Organic Polymer Capacitor Kit
KITMS05052 功能描述:电容套件 1.5pF-22pF 0505 10 EA-8 VALUES RoHS:否 制造商:Nichicon 电容范围:10 uF to 680 uF 公差范围: 电压范围:6.3 V to 25 V 产品:Aluminum Organic Polymer Capacitor Kit
KITMS05053 功能描述:电容套件 27pF-330pF 0505 10 EA-8 VALUES RoHS:否 制造商:Nichicon 电容范围:10 uF to 680 uF 公差范围: 电压范围:6.3 V to 25 V 产品:Aluminum Organic Polymer Capacitor Kit
KITMS06031 功能描述:电容套件 0.1pF-1.0pF 0603 10 EA-8 VALUES RoHS:否 制造商:Nichicon 电容范围:10 uF to 680 uF 公差范围: 电压范围:6.3 V to 25 V 产品:Aluminum Organic Polymer Capacitor Kit
KITMS06032 功能描述:电容套件 1.5pF-22pF 0603 10 EA-8 VALUES RoHS:否 制造商:Nichicon 电容范围:10 uF to 680 uF 公差范围: 电压范围:6.3 V to 25 V 产品:Aluminum Organic Polymer Capacitor Kit