作者WolfLord (呆呆小狼)
看板ASM
标题Re: [问题] pic模拟adc转换出问题
时间Thu Oct 22 03:00:38 2009
你试试看吧，没ICD，没电路，纯粹拿你的程式来改盲写 :P
LIST P=16F877, R=DEC
#INCLUDE <P16F877.INC>
;
VAL_US equ .5 ;
count equ 0x20 ;
tmp equ 0x23
;
;**************************************
ORG 0
nop
goto initial
DIVFIXTAB:
andlw 0xf
ADDWF PCL,f
RETLW 0
RETLW 0
RETLW 1
RETLW 1
RETLW 1
RETLW 2
RETLW 2
RETLW 2
RETLW 3
RETLW 3
RETLW 3
RETLW 4
RETLW 4
RETLW 4
RETLW 5
RETLW 5
RETLW 5
RETLW 0
initial:
CLRWDT
BCF STATUS, RP0 ;
BCF STATUS, RP1 ; Bank0
BSF STATUS, RP0 ; Select Bank 1
clrf TRISB
clrf TRISC
movlw 0xff
movwf TRISA
BCF STATUS, RP0 ;Bank0
clrf PORTB
clrf PORTA
clrf PORTC
movlw 0x41 ;改用PA1的话用0x49 PA2 0x51
movwf ADCON0
clrf ADCON1
start:
call delay_25us ;
bsf ADCON0,GO ;
f0:
CLRWDT
btfsc ADCON0,GO ;
goto f0
movf ADRESH,w ;
movwf tmp
rrf tmp,f
rrf tmp,f
rrf tmp,f
rrf tmp,w
call DIVFIXTAB
movwf PORTB
movwf PORTC
goto start ;
;-----------delay --------------------------
delay_25us:
movlw VAL_US
movwf count
dec_loop CLRWDT
decfsz count, f
goto dec_loop
return
end
--
～～於是，银河的历史又被海贼抹黑了好几百页。
咦？的历史又被抹黑了好几百页！？
- A23203 -
BM4GRM Harlock WolfLord
★ <<上站通知>> -- 我来啦！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.46.212.124
发现有打错字，稍微修改一下
※ 编辑: WolfLord 来自: 114.46.212.124 (10/22 21:45)