Kısılıp Yanan Işıklar

[since1990]

MSP430 Launchpad İçin Yazılımış ASM dilinde kısılıp yanan ışıklar, Umarım faydalı Olur...

#include  "msp430g2231.h"
;-------------------------------------------------------------------------------
            ORG     0F800h                  ; Program Reset
;-------------------------------------------------------------------------------
RESET       mov.w   #0280h,SP               ; Initialize stackpointer
StopWDT     mov.w   #WDTPW+WDTHOLD,&WDTCTL  ; Stop WDT
SetupPx     bis.b   #65,&P1DIR            ; P1.0 output
            bis.b   #08h,&P1IE             ; P1.4 Interrupt enabled
            bis.b   #08h,&P1IES            ; P1.4 hi/low edge
            bic.b   #08h,&P1IFG            ; P1.4 IFG Cleared
           
            mov.b   #064,&P1OUT                              ;
Mainloop    bis.w   #LPM4+GIE,SR            ; LPM4, enable interrupts
            nop                             ; Required only for debugger
                                            ;
;-------------------------------------------------------------------------------
P1_ISR;     Toggle P1.0 Output
;-------------------------------------------------------------------------------
rst         
            mov.w   #1000,r7
            mov.w   #01,r8
dongu1         
            xor.b   #65,&P1OUT            ; P1.0,P1.6 = toggle 
           
            mov.w   R7,R6
bek         dec     R6
            jnz bek
           
            xor.b   #65,&P1OUT            ; P1.0,P1.6 = toggle
           
           
            mov.w   R8,R9
bek2        dec     R9
            jnz bek2
            inc R8
            dec R7
            jnz dongu1
           
                       
           
            mov.w   #1000,r8
            mov.w   #01,r7
            mov.b    #64,&P1OUT       
           

dongu2

            xor.b   #65,&P1OUT            ; P1.0,P1.6 = toggle

           

            mov.w   R7,R6
bek1        dec     R6
            jnz bek1
             xor.b   #65,&P1OUT            ; P1.0,P1.6 = toggle


            mov.w   R8,R9
bek21       dec     R9
            jnz bek21

            inc R7
           
            dec r8
            jnz dongu2
           
            jmp rst
                       
           
;-------------------------------------------------------------------------------
;           Interrupt Vectors
;-------------------------------------------------------------------------------
            ORG     0FFFEh                  ; MSP430 RESET Vector
            DW      RESET                   ;
            ORG     0FFE4h                  ; P1.x Vector
            DW      P1_ISR                  ;
            END

[Herdol90]

Paylaşım için teşekkürler  Gerçekten güzel düşünce... İyi çalışmalar
(Hako)