; delmain: main delay routine; generates delay equal to H:X x 20us
; -------
delmain: mov #$36,tsc ;stop TIM & / 64
sthx tmodh ;count H:X x 20us
bclr 5,tsc ;start clock
delwait: brclr 7,tsc,delwait ;wait for end of countdown
pulx
pulh
rts ;this RTS serves for all delay routines!
;-------- A/D Routines ----------------------------------------------
; adcbyti: gets single A/D reading from PTA0 and returns it in A
; -------
adcbyti: mov #$00,adscr ;ADC set to PTA0
brclr 7,adscr,* ;wait for ADC reading
lda adr ;result in adr
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; adcbyta: gets averaged A/D reading from PTA0 and returns it in A
; -------
adcbyta: clr CNT ;average 256 readings
clr RB ;will be addint them up
clr RA ;in RB:RA
do256a: bsr adcbyti
add RA
sta RA
lda RB
adc #$00
sta RB ;16-bit add into RB:RA
dbnz CNT,do256a ;do all 256
lsl RA ;if RA<$80
bcc nochga ;then RB result is correctly rounded
inc RB ;otherwise round off to next value
nochga: lda RB
rts
;-------- LCD Routines ----------------------------------------------
; lcdinit: initializes LCD
; -------
lcdinit: lda #$3C ;set 8-bit interface, 1/16 duty, 5x10 dots
bsr lcdcmdo
lda #$0C ;display on, cursor off, blink off
bsr lcdcmdo
lda #$06 ;increment cursor position, no display shift
bsr lcdcmdo
lda #$01 ;clear display
bsr lcdcmdo
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; lcdcmdo: sends a command to LCD
; -------
lcdcmdo: bsr shiftA
bclr 4,porta ;RS=0 for command
bset 3,porta
bclr 3,porta ;toggle E
bsr del5ms ;some commands require 2ms for LCD to execute
rts ;so let's play it safe
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; lcdchro: sends a character (data) to LCD
; -------
lcdchro: bsr shiftA
bset 4,porta ;RS=1 for data
AN1950
Sensors
20
Freescale Semiconductor
相关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