TITLE "Key Stroke Wake Up"
LIST P = 16C54
;******************************************************
; Program demonstrating key stroke wake up for
; the PIC16CXX. Program has been implemented for
; two keys, but CAN be extended for more keys.
; When SW1 is pressed a green LED lights up.
; When SW2 is pressed a red LED lights up.
;******************************************************
;
; Define equates
;
PC EQU 2
PORT_B EQU 6
SCAN1 EQU 2
SCAN2 EQU 3
SW1 EQU 0
SW2 EQU 1
GRN_LED EQU 4
RED_LED EQU 5
MSEC_20 EQU D’20’
DB1 EQU 8
GP EQU 8
DB2 EQU 9
;
;PORT_B ASSIGNMENTS:
; 0 --> SW1 INPUT
; 1 --> SW2 INPUT
; 2 --> SCAN1 OUTPUT
; 3 --> SCAN2 OUTPUT
; 4 --> GRN_LED OUTPUT
; 5 --> RED_LED OUTPUT
; 6&7 --> ASSIGNED AS DUMMY OUTPUTS
PAGE
;
;
ORG 0
;
START
CALL INIT_PORT_B ;INITIALIZE PORT B
CALL DELAY ;DELAY 20 MSECS
CALL SCAN_KEYS ;GET KEY VALUES
MOV WF GP ;SAVE IN RAM
BTFSC GP,SW1 ;SKIP IF SW1 NOT PRESSED
CALL TURN_GREEN_ON ;ELSE DO ROUTINE
BTFSC GP,SW2 ;SKIP IF SW2 NOT PRESSED
CALL TURN_RED_ON ;ELSE DO ROUTINE
CHK_FOR_KEY
CALL DELAY ;DELAY FOR 20 MSEC
CALL SCAN_KEYS ;GET KEY HIT
XORLW 0 ;EXCL. OR WITH 0
BNZ CHK_FOR_KEY ;KEY STILL PRESSED
;THEN LOOP
NO_KEY_PRESSED
BCF PORT_B,SCAN1 ;SET SCAN LINES LOW
BCF PORT_B,SCAN2 ; /
SLEEP ;SLEEP
;
PAGE
;
INIT_PORT_B
MOV LW B’00000011’ ; config RB0, 1 as i/p’s
TRIS PORT_B ; and RB2-7 as o/p’s
MOV LW 0FFh
MOV WF PORT_B ;DEFAULT VALUES FOR PORT_B
RETLW 0 ;RETURN WITH NO ERROR
;
;This routine, scans two keys and returns the following:
; 0 if no key is pressed
; 1 if SW1 is pressd
; 2 if SW2 is pressed
; 3 if SW1 and SW2 are pressed
;
SCAN_KEYS
BCF PORT_B,SCAN1 ;ENABLE SCAN FOR SW1
BCF PORT_B,SCAN2 ;EANBLE SCAN FOR SW2
MOV LW B’00000011’ ;LOAD MASK IN W
[1] [2] 下一页
本文关键字：子程序 PIC单片机，单片机-工控设备 - PIC单片机
