JG1FJC¤ÎÉô²°

Á´83·ï¤ÎÆâ¡¢¿·Ãå¤Îµ»ö¤«¤é10·ï¤º¤ÄÉ½¼¨¤·¤Þ¤¹¡£

1 2 3 4 5 6 7 8 9 | ¡ÔÁ°¤Î¥Ú¡¼¥¸ | ¼¡¤Î¥Ú¡¼¥¸¡Õ

FJC¥Ë¥å¡Ý¥¹7·î¹æ

Åê¹Æ¼Ô¡§yamahar Åê¹ÆÆü¡§2009Ç¯ 6·î27Æü(ÅÚ)19»þ15Ê¬6ÉÃ

FJC¥Ë¥å¡Ý¥¹7·î¹æ º£·î¤Ï¡¢£±£²¥Ó¥Ã¥È¥³¥¢¤Ï£²¥¹¥¿¥Ã¥¯¤Î¤¿¤á¡¢¥µ¥Ö¥ë¥Á¥ó¥³¡¼¥ë¤¬¤¢¤Þ¤ê¤Ç¤¤Þ¤»¤ó¡£ ¤½¤³¤Ç¡¢¥ê¥¿¡¼¥ó¤ò¾¯¤Ê¤¯¤¹¤ë¤¿¤á¤Î¡¢¹©É× Îã¤Î¾Ò²ð¤Ç¤¹¡£ £°¥Ú¡Ý¥¸¤Î¥µ¥Ö¥ë¡Ý¥Á¥ó¤òÂ¾¥Ú¡Ý¥¸¤«¤é¸Æ¤Ó½Ð¤»¤Þ¤¹¡£ £±£´¥Ó¥Ã¥È¥³¥¢¤Ç¤â£¸£°£°£È¤òÄ¶¤¨¤ë¥½¥Õ¥È¤Ë£Ð£Ã£Ì£Á£Ô£È¤ò»È¤Ã¤Æ ±þÍÑ¤Ç¤¤Þ¤¹¡£ ;¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö include 12c5xx.h .12c509 .osc intrc ;ÆâÉô£Ò£Ã¥¯¥í¥Ã¥¯ £´£Í£È£ú .mclre disable ;MCLR ¤ò¡¡ÆþÎÏ¥Ý¡Ý¥È¡¡£Ç£Ð£³¡¡¤Ç»È¤¦ .wdt off id 1412h 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»þ£±¤½¤ÎÂ¾£° sub_dt ds 1 ;ret ¥¢¥É¥ì¥¹ ¥Ð¥Ã¥Õ¥¡ org 0 goto start ingpio mov gpbf,gpio ;in gpio nop nop nop nop nop cjne gpbf,gpio,ingpio ;gpio¤Î¥·¥ç¡Ý¥È¥Ñ¥ë¥¹¤Î ;¥Î¥¤¥º¥Õ¥£¥ë¥¿¡Ý jnb gpbf.2,lp1_1 mov sub_dt,#1 goto sub1 ;call sub1 ÉÔ»ÈÍÑ lp1_1 jnb gpbf.3,lp1_2 mov sub_dt,#2 goto sub2 ;call sub2 ÉÔ»ÈÍÑ lp1_2 jb p2bf.0,lp2 ;2ŽÍŽßŽ°Ž¼ŽÞ¡© ret lp2 setb pa0 ;ŽÍŽß-Ž¼ŽÞ£±¤«¤é¤Î£Ã£á£ì£ì¤ÇŽÍŽß-Ž¼ŽÞ1¤Ë¤â¤É¤ê¤Þ¤¹¡£ ret ; ¥µ¥Ö¥ë¡¼¥Á¥ó ¤ò »ÈÍÑ¤·¤Ê¤¤ Îã sub1 ;¥µ¥Ö¥ë¡¼¥Á¥ó½èÍý sblp cje sub_dt,#1,lp1_1 ;ret ¤·¤Ê¤¤¤ÇÌá¤ë¡£ cje sub_dt,#2,lp1_2 ret ;1,2°Ê³°¤ÏRET sub2 ;¥µ¥Ö¥ë¡¼¥Á¥ó½èÍý goto sblp 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 ;¥Ú¡Ý¥¸£°¥×¥í¥°¥é¥à clr sub_dt call sub2 ;SUB2Ã±ÆÈCALL ;¥Ú¡Ý¥¸£°¤Ç½ñ¤¤¤ì¤Ê¤¤¤Ç¥Ú¡Ý¥¸£±¤Ë°Ü¹Ô ; page 2 jmp setb p2bf.0 ;¥Ú¡Ý¥¸ 1 prgram setb pa0 goto run_2a org 200h ingpio_1 clrb pa0 goto ingpio ;¥Ú¡Ý¥¸£°¤Îingpio call sub1_1 clrb pa0 goto sub1 ;¥Ú¡Ý¥¸£°¤Î call sub2_1 clrb pa0 goto sub2 ;¥Ú¡Ý¥¸£°¤Î call run_2a ;¥×¥í¥°¥é¥à¤Î¤Ä¤º¤ call ingpio_1 ;¥×¥í¥°¥é¥à £Å£Î£Ä clr p2bf ;¥Ú¡Ý¥¸ £° prgram clrb pa0 goto main

http://homepage2.nifty.com/JG1FJC/

FJC¥Ë¥å¡Ý¥¹6·î¹æ

Åê¹Æ¼Ô¡§yamahara Åê¹ÆÆü¡§2009Ç¯ 5·î29Æü(¶â)13»þ50Ê¬40ÉÃ

FJC¥Ë¥å¡Ý¥¹6·î¹æ º£·î¤Ï2Áê¥æ¥Ë¥Ý¡¼¥é¥Ñ¥ë¥¹¥â¡¼¥¿¡¼À©¸æ ¤Î¥µ¥ó¥×¥ë ¤ò £±£²£Ã£µ£°£¹£Á¤Î¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤Ç¤¹¡£ ²óÏ©¿Þ¤Ï¥Û¡¼¥à¥Ú¡¼¥¸¤Î¥Ñ¥ë¥¹¥â¡¼¥¿¤Î¥Ú¡¼¥¸¤ò¤´Í÷¤¯¤À¤µ¤¤Ž¡ ;------------------------------------------- include 12c5xx.h .12c509 .osc intrc ;ÆâÉô¥¯¥í¥Ã¥¯¡¡4MHz .mclre disable ;MCLR ¤ò¡¡ÆþÎÏ¥Ý¡Ý¥È¡¡£Ç£Ð£³¡¡¤Ç»È¤¦ .wdt off id 1208h ; 1ÁêÎå¼§¥Ñ¥ë¥¹¥â¡¼¥¿¥³¥ó¥È¥í¡¼¥é t.yamahara ; ; ; ; GND s1 s2 s3 ; ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤ ; ¨¢¨ § ¦ ¥ ¨¢ ; ¨¢VSS GP0 GP1 GP2 ¨¢ ; ¨¢ PIC12C509 ¨¢ ; ¨¢VDD GP5 GP4 GP3 ¨¢ ; ¨¢¡ ¢ £ ¤ ¨¢ ; ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥ ; DC5V ccw s4 £ã£÷ ; IN IN s1 equ gpio.0 ;¥Ñ¥ë¥¹¥â¥¿¡¼¦Õ£±½ÐÎÏ s2 equ gpio.1 ;¥Ñ¥ë¥¹¥â¥¿¡¼¦Õ£²½ÐÎÏ s3 equ gpio.2 ;¥Ñ¥ë¥¹¥â¥¿¡¼¦Õ£³½ÐÎÏ s4 equ gpio.4 ;¥Ñ¥ë¥¹¥â¥¿¡¼¦Õ£´½ÐÎÏ org 08h stc ds 1 ;¥â¡¼¥¿¡¼°ÌÃÖ¥«¥¦¥ó¥¿¡¼ tmdt ds 1 ;¥¿¥¤¥Þ¡¼¥Ç¡¼¥¿¡¼ cu1 ds 1 ;ÈÆÍÑ cu2 ds 1 bf ds 1 gpbf ds 1 ;£Ç£Ð£É£Ï£î£ï¥Ð¥Ã¥Õ¥¡ ccwin equ gpbf.5 ;£Ã£Ã£×²óÅ¾»ÊÎáÉé¥Ñ¥ë¥¹ÆþÎÏ cwin equ gpbf.3 ;£Ã£Ã£×²óÅ¾»ÊÎáÉé¥Ñ¥ë¥¹ÆþÎÏ org 0 goto start ; £Ç£Ð£É£Ï¤ÎÆÉ¤ß¹þ¤ß ; £±£²£Ã£µ£°£¹£Á¤òÆâÉô£Ò£ÃÈ¯¿¶¤Ç»ÈÍÑ¤·¤Þ¤¹¤Î¤Ç1¥µ¥¤¥¯¥ë£´£Í£È£ú¡¿4 ; £±u£ó¤ÇÌó£±£°u£ó¤Î´Ö¤Ë£ç£ði£ï¤ÎÃÍ¤¬ÊÑ²½¤¹¤ë¤ÈÆÉ¤ßÄ¾¤·¤È¤Ê¤ê ; £Ã£Ã£×¡¤£Ã£×À©¸æ¥Ñ¥ë¥¹¤ËÆþ¤ë£±£°u£ó°Ê²¼¤Î¥Î¥¤¥º¤ò¥«¥Ã¥È¤Ç¤¤Þ¤¹¡£ ; £Î£Ï£Ð¤ò£±¤ÄÁý¤ä¤¹»ö¤Ç£±u£ó¥Õ¥¤¥ë¥¿¡¼¤ò¿¤Ð¤»¤Þ¤¹Ž¡ ingp mov gpbf,gpio ;gpbf ¤Ë gpio ¤Î ÃÍ¤ò Æþ¤ì¤ë¡£ nop ; £±u£ó nop nop cjne gpbf,gpio,ingp ;gpio¤ÎÃÍ¤¬ÊÑ¤ï¤Ã¤Æ¤¤¤ì¤Ðingp¤Ø¥¸¥ã¥ó¥× ret ; ÅÅ¸»Î©¤Á¾å¤¬¤ê»þ¤Î¸íÆ°ºîËÉ»ß¥¿¥¤¥Þ¡¼ start clr cu1 clr cu2 mov bf,#2 start1 nop djnz cu1,start1 djnz cu2,start1 djnz bf,start1 mov !gpio,#101000b ; gpio i/o set clr gpio mov w,#000111b ; trm0 i/o Pul up option loop0 clr gpio ;motor off setb s1 ;¥â¥¿¡¼¤ò£°¥Ý¥¸¥·¥ç¥ó¤Ë ¥»¥Ã¥È clr stc loop1 call ingp ;£±£°u£ó¥½¥Õ¥È¥Õ¥¤¥ë¥¿¡¼¤ò¤È¤¦¤·¤ÆÆþÎÏ´Æ»ë jnb cwin,incs ;£Ã£×¥Ñ¥ë¥¹£É£Î jnb ccwin,decs ;£Ã£Ã£×¥Ñ¥ë¥¹£É£Î goto loop1 ;£Ã£×¥Ñ¥ë¥¹£É£Î incs inc stc ;°ÌÃÖ¥«¥¦¥ó¥¿¡¼¡Ü£±(£±¥¹¥Æ¥Ã¥×»þ·×²ó¤ê°ÌÃÖ¡Ë cjne stc,#4,tmset clr stc goto tmset ; £Ã£Ã£×¥Ñ¥ë¥¹£É£Î decs sub stc,#1 ;°ÌÃÖ¥«¥¦¥ó¥¿¡¼¡Ü£±(£±¥¹¥Æ¥Ã¥×È¿»þ·×²ó¤ê°ÌÃÖ¡Ë jc tmset mov stc,#3 ; °ÌÃÖ¥«¥¦¥ó¥¿¡¼¤Ë¹ç¤ï¤»¤ÆÎå¼§ tmset cje stc,#1,p1 cje stc,#2,p2 cje stc,#3,p3 setb s1 ;¥â¡¼¥¿°ÌÃÖ 0 Îå¼§ clrb s2 clrb s3 clrb s4 jmp tmon p1 clrb s1 ;¥â¡¼¥¿°ÌÃÖ £± Îå¼§ setb s2 clrb s3 clrb s4 jmp tmon p2 clrb s1 ;¥â¡¼¥¿°ÌÃÖ £² Îå¼§ clrb s2 setb s3 clrb s4 jmp tmon p3 clrb s1 ;¥â¡¼¥¿°ÌÃÖ £³ Îå¼§ clrb s2 clrb s3 setb s4 jmp tmon ; ÉéÆþÎÏ¤Î¥Ñ¥ë¥¹¤¬£Ï£Æ£Æ¡ÊÅÅ°µ£È¡Ë¤Ë¤Ê¤ë¤Þ¤ÇÂÔ¤Ä¡£ tmon call ingp jnb cwin,tmon jnb ccwin,tmon goto loop1

FJC¥Ë¥å¡Ý¥¹5·î¹æ

Åê¹Æ¼Ô¡§yamahara Åê¹ÆÆü¡§2009Ç¯ 4·î28Æü(²Ð)09»þ11Ê¬43ÉÃ

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/

FJC¥Ë¥å¡Ý¥¹4·î¹æ

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2009Ç¯ 3·î30Æü(·î)19»þ00Ê¬8ÉÃ

FJC¥Ë¥å¡Ý¥¹4·î¹æ º£·î¤Ï£±£²£Æ£¶£Ø£Ø¤Î½©·î£Ð£ÁÍÑ¥Ø¥Ã¥À¡¼¥Õ¥¡¥¤¥ë £±£²£æ£¶£ø£ø¡¥£è¤Î»ÈÍÑÎã¤Ç¤¹¡£ ¥¿¡¼¥²¥Ã¥È¤Ï£±£¶£Æ£¸£´¤Ç£Ð£Á¤Ç¥¢¥»¥ó¥Ö¥ë¤·¤Þ¤¹¡£ £±£²£æ£¶£ø£ø¤Ï¥Ô¥ó¤Ï£±£²£ã£µ£°£¹¤ÈÆ±¤¸¤Ç¤¹¤¬¡¢£±£´¥Ó¥Ã¥È ¥³¥¢¤Ç³ä¤ê¹þ¤ß¡¢£Á£Ä¡¤¥³¥ó¥Ñ¥ì¡¼¥¿¤Ê¤É¤Îµ¡Ç½¤â¤¢¤ê¤Þ¤¹¡£ £±£¶£æ£¸£·£øÆ±ÍÍ¤Ë¥Ý¡¼¥È¤ò¤Þ¤¹£É¡¿£Ï¤«£Á£Ä¡¢¥³¥ó¥Ñ¥ì¡¼¥¿ ¤Ç»ÈÍÑ¤¹¤ë¤«¤ò¤«¤¤³¤Þ¤Ê¤¤¤È¡¢¤Ê¤ê¤Þ¤»¤ó¡£ include 12f6xx.h .16f84 ;£Ð£Á¤òñÙ¤·¤Æ¥¢¥»¥ó¥Ö¥é¤µ¤»¤Þ¤¹¡£ .pwrt on ;¤³¤ì¤é¤Î¥³¥ó¥Õ¥£¥°¥ì¡¼¥·¥ç¥ó¤Ï£±£¶£Æ£¸£´ .osc intrc ;¤È°ã¤¦¤Î¤Ç£Ò£Ï£Í¥é¥¤¥¿¡¼¤ÇÆÉ¤ó¤À¸å½¤Àµ .mclre disable ; .wdt off id 0301h ; gnd out1 out2 open ; ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤ ; ¨¢¨ § ¦ ¥ ¨¢ ; ¨¢VSS GP0 GP1 GP2 ¨¢ ; ¨¢ PIC12f675 ¨¢ ; ¨¢VDD oscin oscout GP3 ¨¢ ; ¨¢¡ ¢ £ ¤ ¨¢ ; ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥ ; 3v startSW out3 open org 20h cu1 ds 1 cu2 ds 1 gpbf ds 1 run_sw equ gpbf.5 bf ds 1 org 0 goto start org 4 retfie 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 cmcon,#7 ;ŽºŽÝŽÊŽßŽÚŽ°ŽÀ ÉÔ»ÈÍÑ setb rp0 mov ansel,#0000000b ;non Ad all i/o port mov gpio,#101100b ; in out set mov intcon,#00000000b ;tmr0 int on mov option,#00000001b ;1:4 ŽÌŽßŽØŽ½Ž¹Ž°Ž× mov wpu,#37h ;ÆâÉôŽÌŽßŽÙŽ±Ž¯ŽÌŽß clrb rp0 clr gpio main mov gpbf,gpio ;in gpio

fjcŽÆŽ-Ž½2·î¹æ

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2009Ç¯ 1·î31Æü(ÅÚ)11»þ35Ê¬33ÉÃ

FJC¥Ë¥å¡Ý¥¹2·î¹æ º£·î¤ÏÅÅ¿®ÍÑ¥¨¥ì¥¡Ý¤òÍøÍÑ¤·¤Æ¥ê¥â¡Ý¥ÈÁàºî¤ò¤¹¤ëÊýË¡¤Ç¤¹¡£ ¥â¡¼¥ë¥¹Éä¹æÁ´¤Æ¤ò¡¢³Ð¤¨¤ë¤Î¤ÏÂçÊÑ¤Ç¤¹¤¬¡¢¿ô»ú¤Ï´ÊÃ±¤Ç¤¹Ž¡ ¤½¤ì¤òÍøÍÑ¤·¤ÆŽ¤Ã»ÅÀÍÑŽ¤Ä¹ÅÀÍÑ¤Î2¸Ä¤Î£Ó£×¤Ç¤µ¤Þ¤¶¤Þ¤ÊÁÈ¤ß¹ç¤ï¤»¤ÎÆþÎÏ¤¬²ÄÇ½¤Ç¤¹Ž¡ ¥â¡¼¥ë¥¹Éä¹æ¤Ï£±¡§£³¤ÎÃ»ÅÀŽ¤Ä¹ÅÀÆ±¤¸¤¯£±¡§£³¤Î¥¹¥Ú¡¼¥¹¤ÎÁÈ¤ß¹ç¤ï¤»¤Ç¹½À® ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£Ã»ÅÀ¤Þ¤¿¤ÏÄ¹ÅÀ¤ò½Ð¤·¤¿¤¢¤ÈÉ¬¤ºÃ»ÅÀ¤ÈÆ±¤¸Ä¹¤µ¤Î¥¹¥Ú¡¼¥¹¤¬ ÁÞÆþ¤µ¤ì¤Þ¤¹¡£Åö¥¨¥ì¥¡¼¤Ç¤Ï £Å¥â¡¼¥É»þ¡¢Ã»ÅÀ¤Î£±¡¥£µÇÜ°Ê¾å¤Î»þ´Ö¥¡¼¥¤¥ó¥° ¤µ¤ì¤Ê¤¤¤È£±Ê¸»ú¤Î½ª¤ï¤ê¤È¤ß¤Ê¤·¡£¤½¤Î¥³¡¼¥É¤ò½ÐÎÏ¤·¤Þ¤¹¡£ ¥³¡¼¥É¤Ï£±£¶¥Ó¥Ã¥È¥Ð¥Ã¥Õ¥¡¤ò¥¯¥ê¥¢¤·¤Æ¡¢ Ã»ÅÀÆþÎÏ»þ£±£¶¥Ó¥Ã¥È¥Ð¥Ã¥Õ¥¡¤ò£±²óº¸¥·¥Õ¥È¤·¤Æ OR £± Ä¹ÅÀÆþÎÏ»þ£±£¶¥Ó¥Ã¥È¥Ð¥Ã¥Õ¥¡¤ò£²²óº¸¥·¥Õ¥È¤·¤Æ OR £³ ¼¡¤ÎÃ»¥·¥ç¡¼¥È¥¹¥Ú¡¼¥¹¤Ç¤Ï£±£¶¥Ó¥Ã¥È¥Ð¥Ã¥Õ¥¡¤ò£±²óº¸¥·¥Õ¥È¤·¤Æ £Á£Î£Ä £æ£æ£æ£å£È ¥í¥ó¥°¥¹¥Ú¡¼¥¹¡ÊÃ»ÅÀ¤Î£±¡¥£µÇÜ°Ê¾å¤Î»þ´Ö¥¡¼¥¤¥ó¥°¤µ¤ì¤Ê¤¤¡Ë»þ ¥³¡¼¥É¤òÁ÷¿®¤·¤Þ¤¹¡£ ¥â¡¼¥ë¥¹¿®¹æ¤Î¥³¡¼¥É²½Îã Ê¸»ú £²¿Ê¥³¡¼¥É £±£¶¿Ê¥³¡¼¥É ¥â¡¼¥ë¥¹Éä¹æ £± 0001 0110 1101 1011 B 16db H ¡¦¡¼¡¼¡¼¡¼ £² 0000 1010 1101 1011 B 0adb H ¡¦¡¦¡¼¡¼¡¼ £³ 0000 0101 0101 1011 B 055b H ¡¦¡¦¡¦¡¼¡¼ £´ 0000 0010 1010 1011 B 02ab H ¡¦¡¦¡¦¡¦¡¼ £µ 0000 0001 0101 0101 B 0155 H ¡¦¡¦¡¦¡¦¡¦ £¶ 0000 0011 0101 0101 B 0355 H ¡¼¡¦¡¦¡¦¡¦ £· 0000 0110 1101 0101 B 06d5 H ¡¼¡¼¡¦¡¦¡¦ £¸ 0000 1101 1011 0101 B 0db5 H ¡¼¡¼¡¼¡¦¡¦ £¹ 0001 1011 0110 1101 B 1b6d H ¡¼¡¼¡¼¡¼¡¦ £° 0011 0110 1101 1011 B 36db H ¡¼¡¼¡¼¡¼¡¼ £Â 0000 0000 1101 0101 B 00d5 H ¡¼¡¦¡¦¡¦ £Æ 0000 0000 1010 1101 B 00ad H ¡¦¡¦¡¼¡¦ £Ç 0000 0000 0110 1101 B 006d H ¡¼¡¦¡¦ £Ó 0000 0000 0001 0101 B 0015 H ¡¦¡¦¡¦ £Ò£Ó£²£³£²£Ã¤ò²ð¤·¤Æ¥¨¥ì¥¡Ý¤è¤ê¤Î¥³¥Þ¥ó¥É¼Â¹ÔÎã ¥â¡Ý¥ë¥¹Éä¹æ¥À¥¤¥ì¥¯¥È¥³¥Þ¥ó¥É £Ç ¥â¡Ý¥¿¡Ý£Ï£Î ¡Ý¡Ý¡¦ £Æ Á°¿Ê¥â¡Ý¥¿¡Ý£Ï£Î ¡¦¡¦¡Ý¡¦ £Â ¸åÂà¥â¡Ý¥¿¡Ý£Ï£Î ¡Ý¡¦¡¦¡¦ £Ó ¥â¡Ý¥¿¡Ý£Ï£Æ£Æ ¡¦¡¦¡¦ £± ¥×¥í¥°¥é¥à£±¼Â¹Ô ¡¦¡Ý¡Ý¡Ý¡Ý £² ¥×¥í¥°¥é¥à£²¼Â¹Ô ¡¦¡¦¡Ý¡Ý¡Ý £³ ¥×¥í¥°¥é¥à£³¼Â¹Ô ¡¦¡¦¡¦¡Ý¡Ý £´ ¥×¥í¥°¥é¥à£´¼Â¹Ô ¡¦¡¦¡¦¡¦¡Ý £µ ¥×¥í¥°¥é¥à£µ¼Â¹Ô ¡¦¡¦¡¦¡¦¡¦ £¶ ¥×¥í¥°¥é¥à£¶¼Â¹Ô ¡Ý¡¦¡¦¡¦¡¦

http://homepage2.nifty.com/JG1FJC/

fjcŽÆŽ-Ž½1·î¹æ

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2009Ç¯ 1·î 3Æü(ÅÚ)16»þ34Ê¬38ÉÃ

FJC¥Ë¥å¡Ý¥¹2009Ç¯£±·î¹æ ¶à²ì¿·Ç¯ ËÜÇ¯¤âµ¹¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹¡£ º£·î¤Ï2Áê¥æ¥Ë¥Ý¡¼¥é¥Ñ¥ë¥¹¥â¡¼¥¿¡¼À©¸æË¡¤ò¤ªÁ÷¤ê¤Þ¤¹Ž¡ 2Áê¥æ¥Ë¥Ý¡¼¥é¥Ñ¥ë¥¹¥â¡¼¥¿¡¼¤Ë¤Ï£¶ËÜ¤ÎÀþ¤¬¤¢¤ê £²¸Ä¤Î¥»¥ó¥¿¡¼¥¿¥Ã¥×¤Î¤¢¤ë¥³¥¤¥ë¡ÊÅÅ¼§ÀÐ¡Ë¤¬¤¢¤ê ¤½¤ì¤Ï£´¸Ä¤ÎÅÅ¼§ÀÐ¤È¤·¤Æ»È¤¤ £²ÁêÎå¼§¡¢1¡¼£²ÁêÎå¼§¡¢£±ÁêÎå¼§¤ÇÀ©¸æ¤·¤Þ¤¹¡£ £±ÁêÎå¼§¤Ï¥¹¥Æ¥Ã¥×¤¬¹Ó¤¯¾ÊÅÅÎÏ¡£¥È¥ë¥¯¤Ï¾®¤µ¤¤¡£ £²ÁêÎå¼§¤Ï¥¹¥Æ¥Ã¥×¤¬ ¹Ó¤¯¥È¥ë¥¯¤ÏÂç¤¤¤¡£ 1¡¼£²ÁêÎå¼§¤Ï¥¹¥Æ¥Ã¥×¤¬£±ÁêÎå¼§¡¢2ÁêÎå¼§¤ËÈæ¤Ù1/2¡£ ÅÅ¼§ÀÐ£Á §¶£±(A) ¥»¥ó¥¿¡¼ §¶£³(A¥Ð¡¼¡Ë ÅÅ¼§ÀÐ£Á §¶£²(B) ¥»¥ó¥¿¡¼ §¶£´(B¥Ð¡¼¡Ë ¥»¥ó¥¿¡¼¤ò¥â¥¿¡¼ÅÅ¸»¤Ë¤Ä¤Ê¤®¡¢§¶£±¡¢§¶£²¡¢§¶£³¡¢§¶£´ ¤ò¥Ñ¥ï¡¼¥È¥é¥ó¥¸¥¹¥¿¤ÇÀ©¸æ¤·¤Þ¤¹¡£ ¤ò²¼µ¤Î½çÈÖ¤Ç£Ï£Î¡¢£Ï£Æ£Æ¤¹¤ë¤È»þ·×Êý¸þ²óÅ¾(CW) ½çÈÖ¤òµÕ¤Ë¤¹¤ë¤ÈÈ¿»þ·×Êý¸þ²óÅ¾(CCW)¤·¤Þ¤¹¡£ 1ÁêÎå¼§ §¶£± §¶£² §¶£³ §¶£´ £° £± £° £° £° £± £° £± £° £° £² £° £° £± £° £³ £° £° £° £± £²ÁêÎå¼§ §¶£± §¶£² §¶£³ §¶£´ £° £± £± £° £° £± £° £± £± £° £² £° £° £± £± £³ £± £° £° £± 1¡¼£²ÁêÎå¼§ §¶£± §¶£² §¶£³ §¶£´ £° £± £° £° £° £± £± £± £° £° £² £° £± £° £° £³ £° £± £± £° £´ £° £° £± £° £µ £° £° £± £± £¶ £° £° £° £± £· £± £° £° £± ÄêÂ®±¿Å¾»þ¤ÎÎ©¤Á¾å¤¬¤ê¤Î¤È¤¤Ë¤Ï £±¥¹¥Æ¥Ã¥×¤´¤È¤ËÃ»¤¯¤Ê¤ë¥½¥Õ¥È¥¿¥¤¥Þ¡¼¤òÆþ¤ì£Ó»þ¥«¡¼¥Ö ¤ÇÄêÂ®¤Þ¤Ç¤¢¤²¡¢ ÄêÂ®±¿Å¾»þ¤ÎÎ©¤Á²¼¤¬¤ê¤Î¤È¤¤Ë¤Ï £±¥¹¥Æ¥Ã¥×¤´¤È¤ËÄ¹¤¯¤Ê¤ë¥½¥Õ¥È¥¿¥¤¥Þ¡¼¤òÆþ¤ì£Ó»þ¥«¡¼¥Ö ¤Ç¸ºÂ®¤·¤Æ»ß¤á¤Þ¤¹¡£ £±£²£Ã£µ£°£¹¡¤£±£¶£Æ£¸£´¤Ê¤É¤ÇÆ°¤«¤·¤Æ¤ß¤Æ¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡£ ¥Û¡¼¥à¥Ú¡¼¥¸¤Ç¾Ò²ð¤·¤Æ¤¤¤Þ¤¹¡¢ £±£¶£Æ£¸£´¤Çºî¤Ã¤¿¥Ñ¥ë¥¹¥â¡¼¥¿¡¼¥É¥é¥Ð¡¼¤Ï¤³¤Îµ¡Ç½ ¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹¡£ £±£²£Ã£µ£°£¹¤Çºî¤Ã¤¿¥Ñ¥ë¥¹¥â¡¼¥¿¡¼¥É¥é¥Ð¡¼¤Ï¥Ñ¥ë¥¹ÎóÆþÎÏ ¤Î1ÁêÎå¼§¡¢£²ÁêÎå¼§¡¢1¡¼£²ÁêÎå¼§¤Î£³¥¿¥¤¥×¤¢¤ê¤Þ¤¹¡£ ¾ÜºÙ¡¢²óÏ©¿Þ¤Ï¥Û¡Ý¥à¥Ú¡Ý¥¸¤Ç¾Ò²ð¤·¤Æ¤¤¤Þ¤¹¡£

http://homepage2.nifty.com/JG1FJC/

FJC¥Ë¥å¡Ý¥¹12·î¹æ

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2008Ç¯11·î29Æü(ÅÚ)14»þ28Ê¬13ÉÃ

FJC¥Ë¥å¡Ý¥¹12·î¹æ £ð£é£ã£±£²£ã£µ£°£¹ CW tone 800Hz¡¡¥Ñ¥ë¥¹ ¥¸¥¨¥Í¥ì¡¼¥¿ tmr0¤ÇÊý·ÁÇÈ¤òºî¤ê¤Þ¤¹¡££µ£µ£µ¤è¤êÄãÅÅ°µ¤ÇÆ°ºî¡Ê£³£Ö¤«¤é£µ£Ö¡Ë 5£°£°£È£ú¤«¤é1200Hz¤Ç¥¯¥ê¥¹¥¿¥ë¥ì¥·¡¼¥Ð¤òÌÄ¤é¤»¤Þ¤¹¡£ OPTION¤Çtmr0Ê¬¼þÈæ¤ò¤«¤¨¤ë¤«¡¢ EXTRC ¤Î £Ò ¡¢£Ö£Ò¤òÄ´À°¤¹¤ì¤Ð¼þÇÈ¿ô¤òÊÑ¤¨¤é¤ì¤Þ¤¹ £Á£Í£Ð¤òÉÕ¤±¤ì¤Ð¥¹¥Ô¡¼¥«¤âÌÄ¤é¤»¤Þ¤¹¡£ ¤Þ¤¿¥¯¥í¥Ã¥¯¤ò¸ÇÄê¤·¤Æ£ô£í£ò£°¤ÎÈæ³ÓÄê¿ô¤ò¤«¤¨²ó¿ôÍÑ¥«¥¦¥ó¥¿¡Ý ¡Ê²»Ä¹¡Ë¤òÍÑ°Õ¤¹¤ì¤Ð²»³Ú±éÁÕ¤â¤Ç¤¤Þ¤¹¡£ ;Ž°Ž°Ž°Ž°Ž° PROGRAM Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž°Ž° include 12c5xx.h .12c509 .osc extrc ;²ÄÊÑ³°Éô¥¯¥í¥Ã¥¯ .mclre disable ;MCLR ¤ò¡¡ÆþÎÏ¥Ý¡Ý¥È¡¡£Ç£Ð£³¡¡¤Ç»È¤¦ .wdt off id 0108h ; ; H ¤ÇON ; 3v cwon open PULS OUT ; ¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤ ; ¨¢¨ § ¦ ¥ ¨¢ ; ¨¢VSS GP0 GP1 GP2 ¨¢ ; ¨¢ PIC12C509 ¨¢ ; ¨¢VDD oscin oscout GP3 ¨¢ ; ¨¢¡ ¢ £ ¤ ¨¢ ; ¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥ ; gnd CR Open open ; £Ã£×£Ï£Î £È¤Ç £¸£°£°£È£ÚÈ¯¿¶ ; -----EXTRC------ ; * oscin ->3 3k-> 10kVR -> 3v ; * oscin -> 50pF -> GND ; -----800Hz out ------- ; 50K VR ¤Ë¤Æ ²»ÎÌÀ©¸æ Ž¸ŽØŽ½ŽÀŽÙŽÚŽ¼Ž°ŽÊŽÞŽ°¤òÌÄ¤é¤¹ cwout equ gpio.2 org 8 cu1 ds 1 cu2 ds 1 gpbf ds 1 cwon equ gpbf.0 bf ds 1 org 0 ;-------------- timer-------------- clr cu1 clr cu2 mov bf,#2 start1 nop djnz cu1,start1 djnz cu2,start1 djnz bf,start1 mov !gpio,#101011b ; in out set clrb cwout clr tmr0 mov w,#00000011b ;1: option clr cu1 clr cu2 main clrb cwout main1 mov w,#3 option clr tmr0 mov gpbf,gpio ;in gpio nop nop cjne gpbf,gpio,main1 jb cwon,main2 goto main1 main2 cjbe tmr0,#10h,main2 ;time chk pmon setb cwout pmonw cjbe tmr0,#20h,pmonw ;time chk goto main

http://homepage2.nifty.com/JG1FJC/

fjcŽÆŽ-Ž½11·î¹æ 1/2

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2008Ç¯10·î30Æü(ÌÚ)14»þ26Ê¬55ÉÃ

£Æ£Ê£Ã¥Ë¥å¡Ý¥¹ 11·î¹æ º£·î¹æ¤Ï H8/3664 ¤Î£Ã¥×¥í¥°¥é¥à »þ·× £Ì£Ã£Ä»þ:Ê¬¡§ÉÃÉ½¼¨¡Ê£Ð£¸¡Ë ¤È£Ò£Ó£²£³£²£Ã¤Ç»þ¡§Ê¬É½¼¨¤Î£Ô£Í£Á¡¥£Ã¤Î¤´¾Ò²ð¤ò¤¤¤¿¤·¤Þ¤¹¡£ H8/3664 ¤ò »È¤Ã¤Æ¤Þ¤À1¥«·î¤Ê¤Î¤ÇÉÔÅÔ¹ç¤Î½ê¤â¤¢¤ë¤È¤ª¤â¤¤¤Þ¤¹¤¬ ¤ªµö¤·¤¤¤¿¤À¤¡¢¤´»ØÅ¦¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£ ¥¿¥¤¥Þ¡¼£Á¤Ç´ð½à£±£Ó»þ´Ö¤ò³ä¤ê¹þ¤ß¤Çºî¤ê¡¢ ¥Ý¡¼¥È£¸¤Ç£²£Ó£±²ó¤Î£Ì£Å£ÄÅÀÌÇ¡¢±ÕÉ½£±£¶£Ø£±£²É½¼¨ £Ò£Ó£²£³£²£Ã¤Ç»þ¡§Ê¬É½¼¨¤È»þ¡§Ê¬ÆþÎÏ ¡¼¡¼¡¼¡¼¡¼ £Ô£Í£Á¡¥£Ã¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼ #include <Mytype.h> #include <3664f.h> #include <machine.h> #define MHz 16 #define BAUD 19200 #define BITR (MHz*1000000)/(BAUD*32)-1 #define WAIT_1B (MHz*1000000)/6/BAUD SInt8 DD[6]; UInt16 d8,d4,poi,tmx,tmy; void rsout(char x) ; SInt8 rsin(void) ; void wait_ms(void) ; /* max 22 mS */ void wait_us(void) ; void wait_n(void); void init_lcd(void) ; void init_tma(void) ; void init_io(void) ; void send_dt(void); void tmset(void); /*void tmai(void);*/ void init_sci(void); void wr_ld8(void); void wr_ld4(void); void dsp_wath(void); void main(void) { int i; init_sci(); init_tma(); /*initialize TimerA */ init_io(); init_lcd(); ms: and_ccr(0xff); for(i=0;i<=5;i++)DD[i]=0; tmset(); and_ccr(0x7f); ml: if(rsin()=='s')goto ms ; /* endless loop */ goto ml; } void init_tma(void) { TA.TMA.BYTE = 0x08 ; /* TMOW=1/32,interval=1sec */ IRR1.BIT.IRRTA = 0 ; /* clear interrupt request flag for TMA */ IENR1.BIT.IENTA = 1 ; /* enable Timer A overflow interrupt */ } void init_io(void) { IO.PCR8=0xdf; /*p8 bit 7 LED &LCD 0-3 DB4-7 OUT E bit4 RS bit6 */ IO.PDR8.BIT.B7=0; /* LED ON */ } void init_sci(void) { SInt16 xx; IO.PMR1.BIT.TXD = 1; SCI3.SCR3.BYTE = 0; /* clear all flags */ SCI3.SMR.BYTE = 0; /* Ascnc, 8bit, NoParity, (Even), stop1, 1/1 */ SCI3.BRR = 25; /* 19200baud (CPU=16MHz) */ tmx=100; /* 1us wait */ wait_us(); SCI3.SCR3.BYTE = 0x30; /* scr=0011 0000 (TE=1,RE=1) */ xx = SCI3.SSR.BYTE; /* Dummy Read */ SCI3.SSR.BYTE = 0x80; /* Clear Error Flag (TDRE=1) */ } /* initio */ void rsout(char x) { lp: if(SCI3.SSR.BIT.TDRE==0)goto lp ; /* wait can write transmit data */ SCI3.TDR = x; SCI3.SSR.BIT.TDRE==0; /*³ä¤ê¹þ¤ß½èÍý¤ò¤·¤Ê¤¤¤È¤¤Ï¼«Ê¬¤Ç¥¯¥ê¥¢¤¹¤ë*/ } void tmset(void) { SInt8 a; rsout('S'); rsout('e'); rsout('t'); rsout(' '); rsout('T'); rsout('i'); rsout('m'); rsout(' '); a=rsin(); rsout(a); a = a & 0xf; DD[5] = a; a=rsin(); rsout(a); a = a & 0xf; DD[4] = a; a=rsin(); rsout(a); a = a & 0xf; DD[3] = a; a=rsin(); rsout(a); a = a & 0xf; DD[2] = a; } SInt8 rsin(void) { SInt8 x; lpr: if(SCI3.SSR.BIT.OER==1 || SCI3.SSR.BIT.FER==1 || SCI3.SSR.BIT.PER==1 ){ /*error*/ SCI3.SSR.BIT.OER==0; SCI3.SSR.BIT.FER==0; SCI3.SSR.BIT.PER==0; } if(SCI3.SSR.BIT.RDRF != 1)goto lpr; x=SCI3.RDR; SCI3.SSR.BIT.RDRF = 0; return(x); }

http://homepage2.nifty.com/JG1FJC/

fjcŽÆŽ-Ž½11·î¹æ 2/2

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2008Ç¯10·î30Æü(ÌÚ)14»þ21Ê¬41ÉÃ

/*p8 bit 7 LED &LCD 0-3 DB4-7 OUT E bit4 RS bit6 */ void init_lcd(void) { tmx=15; wait_ms(); IO.PDR8.BIT.B6=0; /* RS= L */ d8=0x3; wr_ld8(); tmx=5; wait_ms(); d8=0x3; wr_ld8(); tmx=100; wait_us(); d8=0x3; wr_ld8(); d8=0x2; wr_ld8(); d4=0x28; wr_ld4; d4=1; /* clr command */ wr_ld4(); tmx=2; wait_ms(); d4=0x6; /* entry mode set */ wr_ld4(); d4=0xe; /* dsplay & cursor on */ wr_ld4(); } void wr_ld8(void) { tmy=IO.PDR8.BYTE; tmy=tmy & 0xf0; tmy=tmy + d8; IO.PDR8.BYTE=tmy; wait_n(); IO.PDR8.BIT.B4=1; /*E = H */ wait_n(); IO.PDR8.BIT.B4=0; /*E = L */ tmx=80; wait_us(); } void wait_n(void) { tmy=tmy; } void wr_ld4(void) { d8=d4 & 0xf0; if(d8 > 0xf )d8=d8/0x10; wr_ld8(); d8=d4; d8=d8 & 0xf; wr_ld8(); } /* »þ·×£Ì£Ã£ÄÉ½¼¨ */ void dsp_wath(void) { IO.PDR8.BIT.B6=0; /* RS= L */ d4=0x80; /* cursor top */ wr_ld4(); IO.PDR8.BIT.B6=1; /* RS= H */ d4=DD[5]+0x30; /* time*10 */ wr_ld4(); d4=DD[4]+0x30; /* time */ wr_ld4(); d4=':'; /* time */ wr_ld4(); d4=DD[3]+0x30; /* min*10 */ wr_ld4(); d4=DD[2]+0x30; /* min */ wr_ld4(); d4=':'; /* min */ wr_ld4(); d4=DD[1]+0x30; /* sec * 10 */ wr_ld4(); d4=DD[0]+0x30; /* min */ wr_ld4(); } void wait_ms(void) { tmx=tmx*2800; /* if tmx=2800 then 1ms Wait */ for ( tmy=0;tmy < tmx;tmy++); } void wait_us(void) { tmx=tmx*3; /* if tmx=2.8 then 1us Wait */ for ( tmy=0;tmy<tmx;tmy++); } #pragma interrupt(tmai) void tmai(void) { char i,j; IENR1.BIT.IENTA = 0 ; /* disable Timer A overflow interrupt */ IRR1.BIT.IRRTA = 0 ; /*¥ª¥Ð¡¼¥Õ¥í¡¼¥Õ¥é¥°¥¯¥ê¥¢*/ j=0; DD[0]=DD[0]+1; if(DD[0]==10){ DD[0]=0; /* sec */ DD[1]=DD[1]+1; if(DD[1]==6){ j=1; DD[1]=0; DD[2]=DD[2]+1; } if(DD[2]==10){ /* min */ DD[2]=0; DD[3]=DD[3]+1; } if(DD[3]==6){ DD[3]=0; DD[4]=DD[4]+1; } if(DD[4]==10){ DD[4]=0; /* time */ DD[5]=DD[5]+1; } if((DD[5]==2) && (DD[4]==4)){ DD[5]=0; DD[4]=0; } } if(j == 1){ i=5; lp: rsout(DD[i]+0x30); i--; if(i==3)rsout(':'); if (i > 1)goto lp; } if((DD[0] & 1) == 0){ IO.PDR8.BIT.B7=0; /* LED ON */ } else{ IO.PDR8.BIT.B7=1; /* LED OFF */ } dsp_wath(); IENR1.BIT.IENTA = 1 ; /* enable Timer A overflow interrupt */ }

http://homepage2.nifty.com/JG1FJC/

fjcŽÆŽ-Ž½10·î¹æ

Åê¹Æ¼Ô¡§»³¸¶ Åê¹ÆÆü¡§2008Ç¯ 9·î29Æü(·î)14»þ27Ê¬16ÉÃ

£Æ£Ê£Ã¥Ë¥å¡Ý¥¹ 10·î¹æ º£·î¹æ¤Ï H8/3664 ¤Î£Ã¥×¥í¥°¥é¥à ¥ê¥ó¥«¡¼ ¤Î £Ó£Õ£Â¥Õ¥¡¥¤¥ë¤Î¤´¾Ò²ð¤ò¤¤¤¿¤·¤Þ¤¹¡£ 1¹ÔÌÜ¤Ç ¼Â¹Ô¥Õ¥¡¥¤¥ë £Ô£Í£Á¡¥£Í£Á£Ò ¤Î »ØÄê 2¹ÔÌÜ ¥ê¥¹¥È¥Õ¥¡¥¤¥ë¤Î½ÐÎÏÌ¿Îá 3¹ÔÌÜ 64Rres,tma ¥ª¥Ö¥¸¥¨¥Õ¥¡¥¤¥ë ¥ê¥ó¥¯ 4¹ÔÌÜ ¥é¥¤¥Ö¥é¥ê¡¼»ØÄê 5¹ÔÌÜ ¥×¥í¥°¥é¥à½ñ¤¹þ¤ß¥¢¥É¥ì¥¹£Æ£·£¹£°»ØÄê£Ò£Á£Í¥¢¥É¥ì¥¹£Æ£Ä£´£°»ØÄê £Æ£·£¸£°£È¤Ï£¶£´£Ò£ò£å£ó¤¬Æþ¤ê¤Þ¤¹Ž¡ 64Rres ¤Ç ¥¹¥¿¥Ã¥¯ÀßÄê ¡¢²¾ÁÛ³ä¤ê¹þ¤ß¥Ù¥¯¥¿ÀßÄê¤ò¤·¤Þ¤¹¡£ ----- tma.sub -------------- OUTPUT tma PRINT tma INPUT 64Rres,tma LIB c:\3664\h8_c\lib\c38hn START P,C(0F790),B,D(0FD40) EXIT ¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼¡¼ £Ä£Ï£ÓÈÇ¤Î¥½¥Õ¥È¤Ç¥¢¥»¥ó¥Ö¥é¤ò»ÈÍÑ¤·¤Æ¥¨¥é¡¼¤¬Â¿¤¯¤Ç¤¿¤È¤¤Ï ¥¹¥¯¥í¡¼¥ë¤·¤ÆÀè¤ÎÊý¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£ »ä¤Ï¥Õ¥ê¡¼¥½¥Õ¥È¤Î£Ä£ï£ó£Å£ø£å£ã¤ò»ÈÍÑ¤·¤Æ¥¦¥£¥ó¥É¥¦¥º¾å ¤Ç¤ä¤Ã¤Æ¤¤¤Þ¤¹¡££Ä£ï£ó£Å£ø£å£ã¤ò¥¦¥£¥ó¥É¥¦¥º¤Çµ¯Æ°¤µ¤»¤Æ £Ä£ï£ó£Å£ø£å£ã¤«¤é£Ä£Ï£Ó¥×¥í¥°¥é¥à¤òÄ¾¤Ë¼Â¹Ô¤Ç¤¤Þ¤¹¡£ ¥¢¥»¥ó¥Ö¥é·ë²Ì¤Ê¤É¤â£Ä£ï£ó£Å£ø£å£ã¤Î¥¦¥£¥ó¥É¥¦¾å¤Ç¥¹¥¯¥í¡¼¥ë ¥¢¥Ã¥×¡¢¥À¥¦¥ó¤¬¤Ç¤¥¨¥Ç¥¿¡¼¤È¹Ô¤Íè¤·¤Æ¥¨¥é¡¼¤Î½¤Àµ¤¬ ¤Ç¤¤Þ¤¹¡£ »ä¤Î£Ã¤Î¥³¥ó¥Ñ¥¤¥ë¤È¥ê¥ó¥¯¤ò¤¹¤ë¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤Ç¤¹ £Å¤Ï£Ò£Á£Í¥Ç¥¹¥¯¤Ç¤³¤³¤Çºî¶È¤¹¤ë¤ÈÍ¾Ê¬¤Ê¥Õ¥¡¥¤¥ë¤Ï ÅÅ¸»¤òÍî¤¹¤È¾Ã¤¨¤ë¤Î¤Ç³Ú¤Ç¤¹¡£ Ž°Ž°Ž° £È8c¡¥BAT Ž°Ž°Ž°Ž°Ž°Ž° @echo off copy c:\3664\h8_c\test\*.* e:\ e:\ c:\3664\h8_c\ch38 -cpu=300hn -include=c:\3664\h8_c\include e:\%1.c if errorlevel 1 goto eend c:\3664\h8_c\ch38 -cpu=300hn -code=asmcode -include=c:\3664\h8_c\include e:\%1.c if errorlevel 1 goto eend c:\3664\asm\lnk.exe -sub=e:\%1.sub if errorlevel 1 goto eend copy e:\*.abs c:\3664\writer :eend

http://homepage2.nifty.com/JG1FJC/

°Ê¾å¤Ï¡¢¿·Ãå½ç1ÈÖÌÜ¤«¤é10ÈÖÌÜ¤Þ¤Ç¤Îµ»ö¤Ç¤¹¡£

1 2 3 4 5 6 7 8 9 | ¡ÔÁ°¤Î¥Ú¡¼¥¸ | ¼¡¤Î¥Ú¡¼¥¸¡Õ