;  12個按鍵用做電子琴的輸入
;  1,2,3,4,5,6,7作為一個八度音階
;

#include    "msp430x13x.h"
             RSEG    CSTACK                  ; System stack
             DS      0   
             RSEG    CODE                    ; Program code 的開始    
             


PUBLIC      
Reset        mov     #SFE(CSTACK),SP         ; 
SetupWDT     mov     #WDTPW+WDTHOLD,&WDTCTL  ; 

SetupTA      mov     #TASSEL1+TACLR,&TACTL   ; SMCLK, Clear TAR
SetupC0      mov     #CCIE,&CCTL0            ; 使能CCR0 中斷
             mov     #100,&CCR0              ; 
SetupP1      bis     #MC1,&TACTL             ; 定時器工作在連續模式

             MOV.B  #0FH,&P1DIR
             MOV.B  #0FH, &P1OUT
             MOV.B  #0,&P1IES
             MOV.B  #70H,P1IE   
             MOV.B  #8,&P4DIR        
             MOV.B  #0FH,&230H
             eint                            ; 開中斷
            
Mainloop     bis     #LPM1,SR                ; 低功耗模式

;---------------------------------------------------------------------------
TA0_isr      XOR.B   #08H,&P4OUT
             add     &220H,&CCR0
     
             RETI          

P1KEY          CALL      #KEYJUDGE
               JNC       P1KEYEND
               CALL      #DELAY10M
               CALL      #KEYJUDGE
               JNC       P1KEYEND
               CALL      #KEYCODE
               RLA       R9                  ; R9*2
               MOV.w       F_TAB(R9),&220H   ; 查表得到某音的頻率數值
               
           ;    BIS       #CCIE,&CCTL0
               
               ; ............
P1KEY1         CALL      #KEYJUDGE           ; 等待按鍵松開
               NOP
               MOV.B     #0,&P1IFG
               MOV.B     #0,&P1IE
               JC        P1KEY1
               ;.............
               MOV.B     #70H,&P1IE
         ;      BIC       #CCIE,&CCTL0
               MOV.B     #0FH,&230H
               
P1KEYEND       MOV.B     #0FH,&P1OUT
               MOV.B     #0,&P1IFG
               RETI


DELAY10M       MOV      #300H,R15
DELAY10M1      DEC      R15
               JNZ      DELAY10M1
               RET               
                      

KEYCODE        MOV.B     #0,&P5DIR
               MOV.B     #0FH,&P1DIR      ;低4位作為掃描線行輸出，高3位作為列線讀入
               MOV       #0,R9
               MOV       #1,R8
KEYCODELOOP    MOV.B     R8,&P1OUT        ;R8為掃描信號的輸出
               BIT.B     #10H,&P1IN
               JC        KEYCODE1         ;測試P1.4
               BIT.B     #20H,&P1IN
               JC        KEYCODE2         ;測試P1.5
               BIT.B     #40H,&P1IN
               JC        KEYCODE3         ;測試P1.6
               RLA.B     R8
               ADD.B     #3,R9
               CMP.B     #12,R9           ;4根行線掃描完了嗎
               JNZ       KEYCODELOOP
               
KEYCODE1       ADD       #0,R9
               RET
KEYCODE2       ADD       #1,R9
               RET
KEYCODE3       ADD       #2,R9
               RET                                      
               
KEYJUDGE       MOV.B     #0FFH,&P1DIR
               MOV.B     #0,&P1OUT
               MOV.B     #0FH,&P1DIR  
               MOV.B     #0FH,&P1OUT
               BIT.B     #070H,&P1IN      ; 測試3根列線是否為1,是否有按健
               RET                        ; 若有，C=1
               
F_TAB          DW   0EEFH,  0D4EH,   0BDAH
               DW   0B30H,  09F8H,   08E1H,  07E9H
               
               DW   0778H,  06A7H,   05EDH 
               DW   0598H,  04FCH,   0471H,  03F5H
               
               DW   03BCH   ,0354H,  02F7H
               DW   02CCH,  027EH,   0239H,  01F8H
               
                     
             COMMON  INTVEC                  ; Interrupt vectors
             ORG     PORT1_VECTOR
             DW      P1KEY
             ORG     TIMERA0_VECTOR
             DW      TA0_isr
             ORG     RESET_VECTOR
             DW      Reset
                                                                            
;---------------------------------------------------------------------------
             END