|
|
FJC¥Ë¥å¡Ý¥¹5·î¹æ
º£·î¤Ï¡¢£±£²¥Ó¥Ã¥È¥³¥¢¤Î¡¢£°¥Ú¡Ý¥¸°Ê³°¤«¤é¤Î£°¥Ú¥¸¡Ý¤Ë¤¢¤ë¥µ¥Ö¥ë¥Á¥ó¤Î
¸Æ¤Ó¤À¤·¤Î¡¢»ÈÍÑÎã¤Ç¤¹¡£
;¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö
include 12c5xx.h
.12c509
.osc intrc ;ÆâÉô£Ò£Ã¥¯¥í¥Ã¥¯ £´£Í£È£ú
.mclre disable ;MCLR ¤ò¡¡ÆþÎϥݡݥȡ¡£Ç£Ð£³¡¡¤Ç»È¤¦
.wdt off
id 1412h
;
;
; gnd out1 out2 open
; ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤
; ¨¢¨ § ¦ ¥ ¨¢
; ¨¢VSS GP0 GP1 GP2 ¨¢
; ¨¢ PIC12C509 ¨¢
; ¨¢VDD oscin oscout GP3 ¨¢
; ¨¢¡ ¢ £ ¤ ¨¢
; ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥
; 3v open out3 startSW
org 8h
cu1 ds 1
cu2 ds 1
gpbf ds 1
run_sw equ gpbf.3
w_cu ds 1 ;wait cunter
p2bf ds 1 ;ŽÍŽßŽ°Ž¼ŽÞŽ°2»þ£±¤½¤Î¾£°
org 0
goto start
ingpio mov gpbf,gpio ;in gpio
nop
nop
nop
nop
nop
cjne gpbf,gpio,ingpio ;gpio¤Î¥·¥ç¡Ý¥È¥Ñ¥ë¥¹¤Î
;¥Î¥¤¥º¥Õ¥£¥ë¥¿¡Ý
jb p2bf.0,lp2 ;2ŽÍŽßŽ°Ž¼ŽÞ¡©
ret
lp2 setb pa0 ;ŽÍŽß-Ž¼ŽÞ£±¤«¤é¤Î£Ã£á£ì£ì¤ÇŽÍŽß-Ž¼ŽÞ1¤Ë¤â¤É¤ê¤Þ¤¹¡£
ret
start mov w_cu,#20
;-------------- timer--------------
wait clr cu1
mov cu2,#4
wait1 nop
djnz cu1,wait1
djnz cu2,wait1
djnz w_cu,wait
mov !gpio,#101100b ; in out set
mov w,#000010b
option
main clr p2bf ;Page 0 prgram £Ó£Å£Ô
call ingpio
jnb run_sw,run ;start sw ON
goto main
run ;¥Ú¡Ý¥¸£°¥×¥í¥°¥é¥à
;¥Ú¡Ý¥¸£°¤Ç½ñ¤¤¤ì¤Ê¤¤¤Ç¥Ú¡Ý¥¸£±¤Ë°Ü¹Ô
; page 2 jmp
setb p2bf.0 ;¥Ú¡Ý¥¸ 1 prgram
setb pa0
goto run_2a
org 200h
ingpio1 clrb pa0
goto ingpio ;¥Ú¡Ý¥¸£°¤Îingpio call
run_2a ;¥×¥í¥°¥é¥à¤Î¤Ä¤º¤
call ingpio1
;¥×¥í¥°¥é¥à £Å£Î£Ä
clr p2bf ;¥Ú¡Ý¥¸ £° prgram
clrb pa0
goto main
http://homepage2,nifty.com/JG1FJC/
|
|
