;此示例介紹行列式掃描鍵盤的程序編寫方法,結(jié)果在R9
#include  "msp430x13x.h"
             RSEG    CSTACK                  ; System stack
           ;  DS      0   
             RSEG    CODE                    ; Program code 的開始
             
Reset        MOV         #300H,SP
SetupWDT     mov         #WDTPW+WDTHOLD,&WDTCTL  ; Stop WDT
MAIN           CALL      #KEYCODE
               CALL      #KEYJUDGE
               
               JMP       MAIN

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
     
             COMMON  INTVEC               ; Interrupt vectors
             
  
             ORG     RESET_VECTOR
             DW      Reset

;---------------------------------------------------------------------------
             END