bset 3,porta
bclr 3,porta ;toggle E
bsr del100us ;data only requires 40us for LCD to execute
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; shiftA: shifts A into shift register and provides 8-bits to LCD
; ------
shiftA: psha
mov #$08,BB ;will be shifting 8 bits
all8: lsla ;get bit
bcc shift0 ;if bit=0 then shift a 0
shift1: bset 4,porta ;otherwise shift a 1
bra shift
shift0: bclr 4,porta ;bit 4 is data to shift register
shift: bclr 5,porta ;bit 5 is shift register clock
bset 5,porta
bclr 5,porta ;toggle CLK
dbnz BB,all8 ;do all 8 bits
pula
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; lcdnibo: displays 1 character (0-9,A-F) based on low-nibble value in A
; -------
lcdnibo: psha
;convert 4 bits from binary to ascii
add #$30 ;add $30 (0-9 offset)
cmp #$39 ;is it a number (0-9) ?
bls d0to9b ;if so skip
add #$07 ;else add $07 = total of $37 (A-F offset)
d0to9b: bsr lcdchro
pula
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; lcdbyto: displays 2 characters based on hex value in A
; -------
lcdbyto: psha
psha ;remember A (for low nibble)
lsra ;shift right 4 times
lsra
lsra
lsra
bsr lcdnibo ;high nibble
pula
and #$0F
bsr lcdnibo ;low nibble
pula
rts
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; lcdstro: displays message ending in '@', but also sends commands to LCD
; -------
lcdstro: psha
lda 0,x
lcon: cmp #$80 ;if ASCII >=$80
bhs iscmd
cmp #$1F ;or <=$1F then
bls iscmd ;assume it is a command to LCD
isdta: bsr lcdchro ;otherwise it is data to LCD
reuse1: aix #$0001 ;next character
lda 0,x ;indexed by x
cmp #$40 ;continue until
bne lcon ;character = '@'
AN1950
Sensors
Freescale Semiconductor
21
相关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