?? 7705.asm
字號(hào):
;**************************************************************************************
.include "8515def.inc"
.org $000
rjmp RESET
.def delay0 =r1
.def adc_a0h =r2
.def adc_a0l =r3
.def adc_a1h =r4
.def adc_a1l =r5
.def adc_b0h =r6
.def adc_b0l =r7
.def adc_b1h =r8
.def adc_b1l =r9
.def a2 =r10
.def a3 =r11
.def a4 =r12
.def b2 =r13
.def b3 =r14
.def b4 =r15
.def delay1 =r17
.def cmp_status=r18
.def status =r19
.def point_a_no=r20
.def point_b_no=r21
.def cmp0 =r22
.def cmp1 =r23
.def cmp2 =r24
.def cmp3 =r25
.equ cs1 =0
.equ cs0 =1
.equ rdy0 =2
.equ rdy1 =3
.equ do =5
.equ di =6
.equ sck =7
.equ atpoint=0
.equ num =41 ;共41個(gè)刻度
.equ bias =16
RESET:
ldi r16,high(ramend)
out sph,r16
ldi r16,low(ramend)
out spl,r16
ldi r16,$ff
out ddra,r16
out ddrc,r16
sbi ddrb,cs0
sbi ddrb,cs1
cbi ddrb,rdy0
cbi ddrb,rdy1
sbi ddrb,5
cbi ddrb,6
sbi ddrb,7
ldi r16,$00
out porta,r16
ldi r16,$ff
out portc,r16
sbi portb,cs0
cbi portb,cs1
AD_INI_A:
rcall delay7ms ;晶振穩(wěn)定時(shí)間
;選擇A組傳感器
ldi r16,$20 ;時(shí)鐘寄存器
rcall putchar
ldi r16,$0c
rcall putchar ;4.9152MHz,200Hz數(shù)據(jù)更新,
ldi r16,$10 ;設(shè)置寄存器,通道0
rcall putchar
ldi r16,$4a ;自較需9個(gè)輸出周期,緩沖模式，增益為2，雙極性
rcall putchar
rcall delay56ms
rcall delay56ms
rcall delay56ms
rcall delay56ms
AD_INI_A_1:
ldi r16,$11 ;設(shè)置寄存器
rcall putchar
ldi r16,$4a ;自較需9個(gè)輸出周期,緩沖模式，增益為2，雙極性
rcall putchar
rcall delay56ms
rcall delay56ms
rcall delay56ms
rcall delay56ms
rcall delay56ms
aa1:
sbi portb,cs0
cbi portb,cs1
ldi r16,$38
rcall putchar
rcall delay56ms
rcall delay7ms
rcall delay7ms
wait:
sbic portb,rdy1
rjmp wait
rcall getchar
mov r2,r16
rcall getchar
mov r3,r16
ait:
;sbic portb,rdy1
; rjmp ait
ldi r16,$28
rcall putchar
rcall getchar
ldi r16,$39
rcall putchar
rcall delay56ms
rcall delay7ms
rcall delay7ms
wait11:
sbic portb,rdy1
rjmp wait11
rcall getchar
mov r4,r16
rcall getchar
mov r5,r16
rjmp aa1
;***************
RST:
sbi portb,cs0
cbi portb,cs1
ldi r16,$ff
rcall putchar
ldi r16,$ff
rcall putchar
ldi r16,$ff
rcall putchar
ldi r16,$ff
rcall putchar
ldi r16,$ff
rcall putchar
rcall delay56ms
ret
getchar: ; sck-- 常態(tài)1 r16 -常態(tài)0
ldi r16,0
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<7
sbi portb,sck ;MSB
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<6
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<5
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<4
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<3
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<2
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<1
sbi portb,sck
nop
cbi portb,sck
nop
sbis pinb,di
sbic pinb,di
sbr r16,1<<0
sbi portb,sck
nop ;LSB
ret
putchar: ;sck-- 常態(tài)1 r16 do--常態(tài)0
cbi portb,sck
sbrs r16,7
cbi portb,do
sbrc r16,7
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,6
cbi portb,do
sbrc r16,6
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,5
cbi portb,do
sbrc r16,5
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,4
cbi portb,do
sbrc r16,4
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,3
cbi portb,do
sbrc r16,3
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,2
cbi portb,do
sbrc r16,2
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,1
cbi portb,do
sbrc r16,1
sbi portb,do
sbi portb,sck
nop
cbi portb,sck
sbrs r16,0
cbi portb,do
sbrc r16,0
sbi portb,do
sbi portb,sck
sbi portb,do
ret
delay56ms:
rcall delay7ms
rcall delay7ms
rcall delay7ms
rcall delay7ms
rcall delay7ms
rcall delay7ms
rcall delay7ms
rcall delay7ms
ret
delay5us:
ldi delay1,10
delay5us_1:
dec delay1
brne delay5us_1
ret
delay100us:
ldi delay1,255
delay100us_1:
dec delay1
brne delay100us_1
ret
delay7ms:
ldi delay1,$65
mov delay0,delay1
ldi delay1,$ff
delay7ms_1:
dec delay1
brne delay7ms_1
ldi delay1,$aa
dec delay0
brne delay7ms_1
ret
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -