| 作業メモ(完成版) 投稿者:所長@伊藤技研。 投稿日:2008/04/18(Fri) 16:40 No.25 | |
|
「Y」 を 「TAB」で置き換えること
;******************************************************* ; ;Y2008/04/09YLED_sword ; ;YPIC16F84AY10Mhz ; ;YNobuaki.Ito ; ;******************************************************* ;Y ; ;*********************** config ************************
YlistYp=16F84A YincludeY"p16F84A.inc" Y__CONFIGY_CP_OFFY&Y_WDT_OFFY&Y_HS_OSC
;******************* port setting ********************** ; ;YRB0YYOUTPUTYLED#0 ;YRB1YYOUTPUTYLED#1 ;YRB2YYOUTPUTYLED#2 ;YRB3YYOUTPUTYLED#3 ;YRB4YYOUTPUTYLED#4 ;YRB5YYOUTPUTYLED#5 ;YRB6YYOUTPUTYLED#6 ;YRB7YYOUTPUTYLED#7 ; ;******************************************************* ; ;********************* reg_setting **********************
;W_TMPYYYEQUYY0CH ;ST_TMPYYYEQUYY0DH ;USTAT_FLGYYEQUYY0EH
WCNT1YYYEQUYY0FH WCNT2YYYEQUYY10H WCNT3YYYEQUYY11H
B_STATYYYEQUYY12H A_STATYYYEQUYY13H
FADE_CNT1YYEQUYY14H FADE_CNT11YYEQUYY15H FADE_CNT2YYEQUYY16H FADE_CNT21YYEQUYY17H CONST1YYYEQUYY18H
;********************* main program *********************
YYORGYYY0x000 YYGOTOYYSTART
;YORGYYY0x004 ;YGOTOYYINTRPT
START YYBSFYYSTATUS,RP0Y;BANK1 YYMOVLWYB'00000000'Y;PORTBY7-0/OUTPUT YYMOVWFYTRISB YYBCFYYSTATUS,RP0Y;BANK0 YYCLRFYPORTBY;PORTBYRESET
YYMOVLWYB'00000000' YYMOVWFYPORTB
YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM
PTN0 YYMOVLWYB'00000000' YYMOVWFYB_STAT
YYMOVLWYB'00000001' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN1 YYMOVLWYB'00000001' YYMOVWFYB_STAT
YYMOVLWYB'00000011' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN2 YYMOVLWYB'00000011' YYMOVWFYB_STAT
YYMOVLWYB'00000111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN3 YYMOVLWYB'00000111' YYMOVWFYB_STAT
YYMOVLWYB'00001111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN4 YYMOVLWYB'00001111' YYMOVWFYB_STAT
YYMOVLWYB'00011111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN5 YYMOVLWYB'00011111' YYMOVWFYB_STAT
YYMOVLWYB'00111111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN6 YYMOVLWYB'00111111' YYMOVWFYB_STAT
YYMOVLWYB'01111111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN7 YYMOVLWYB'01111111' YYMOVWFYB_STAT
YYMOVLWYB'11111111' YYMOVWFYA_STAT
YYMOVLWYD'100' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
YYMOVLWYB'11111111' YYMOVWFYPORTB
YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM YYCALLYWAIT1S_TIM
PTN01 YYMOVLWYB'11111111' YYMOVWFYB_STAT
YYMOVLWYB'01111111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN11 YYMOVLWYB'01111111' YYMOVWFYB_STAT
YYMOVLWYB'00111111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN21 YYMOVLWYB'00111111' YYMOVWFYB_STAT
YYMOVLWYB'00011111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN31 YYMOVLWYB'00011111' YYMOVWFYB_STAT
YYMOVLWYB'00001111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN41 YYMOVLWYB'00001111' YYMOVWFYB_STAT
YYMOVLWYB'00000111' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN51 YYMOVLWYB'00000111' YYMOVWFYB_STAT
YYMOVLWYB'00000011' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN61 YYMOVLWYB'00000011' YYMOVWFYB_STAT
YYMOVLWYB'00000001' YYMOVWFYA_STAT
YYMOVLWYD'200' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
PTN71 YYMOVLWYB'00000001' YYMOVWFYB_STAT
YYMOVLWYB'00000000' YYMOVWFYA_STAT
YYMOVLWYD'100' YYMOVWFYFADE_CNT1 YYMOVLWYD'0' YYMOVWFYFADE_CNT2 YYMOVLWYD'1' YYMOVWFYCONST1 YYCALLYFADE01
YYGOTOYSTART
;********************* SUB PROGRAM *********************
FADE01 YYMOVFYCONST1,W YYSUBWFYFADE_CNT1,F YYBTFSCYSTATUS,2 YYGOTOYEND_RET
YYMOVFYB_STAT,W YYMOVWFYPORTB
YYMOVFYFADE_CNT1,W YYMOVWFYFADE_CNT11 B_LOOP YYNOP YYNOP YYNOP YYDECFSZYFADE_CNT11,F YYGOTOYB_LOOP
YYMOVFYA_STAT,W YYMOVWFYPORTB
YYADDWFYFADE_CNT2,F YYMOVFYFADE_CNT2,W YYMOVWFYFADE_CNT21 A_LOOP YYNOP YYNOP YYNOP YYDECFSZYFADE_CNT21,F YYGOTOYA_LOOP
YYGOTOYFADE01
END_RET YYRETURN
WAIT20M_TIM YYMOVLWYD'128' YYMOVWFYWCNT2 WAITLOOP2 YYMOVLWYD'75' YYMOVWFYWCNT1 WAITLOOP1 YYNOP YYNOP YYDECFSZYWCNT1,F YYGOTOYWAITLOOP1
YYDECFSZYWCNT2,F YYGOTOYWAITLOOP2 YYRETURN
WAIT1S_TIM YYMOVLWYD'50' YYMOVWFYWCNT3 WAIT1S_LOOP YYCALLYWAIT20M_TIM YYDECFSZYWCNT3,1 YYGOTOYWAIT1S_LOOP YYRETURN
YYEND
|
|