AN665

DS00665A-page 8

ã 1997 Microchip Technology Inc.

00049 #define HCSIN

GPIO,4

; PWM from HCS300

00050 #define NC

GPIO,3

; not used

00051 #define SWITCH

GPIO,2

; sense clock line to/from PC

00052 #define DATA

GPIO,1

; data to PC

00053

00054 #define PCCLK

0

; clock to PC

00055

00056 #define MASKDEF

bÕ11111011Õ ; only SWITCH pin in output

00057 #define MASKLOW

bÕ11111001Õ ; prepare data low

00058 #define MASKHIGH

bÕ11111011Õ ; prepare data high

00059

00060 ;

00061 ; RAM assignments

00062 ;

00063

CBLOCK

07

00000007

00064

BUFFER0

; receive buffer for hcs300

00000008

00065

BUFFER1

00000009

00066

BUFFER2

0000000A

00067

BUFFER3

0000000B

00068

BUFFER4

0000000C

00069

BUFFER5

0000000D

00070

BUFFER6

0000000E

00071

BUFFER7

0000000F

00072

BITCOUNT

; counters

00000010

00073

BYTECOUNT

;

00000011

00074

TIMEHI

; timing

00000012

00075

TIMELO

;

00000013

00076

PARITY

; transmission parity bit

00000014

00077

AUX

; g.p.

00000015

00078

KEY

; key to encode

00000016

00079

GPIOTEMP

; temp copy of tris register

00080

ENDC

00081 ;----------------------------------------------------------------------

00082

0000

00083

ORG

0

00084

0000

00085 Start

0000 0025

00086

movwf

OSCCAL

; calibrate

0001 0A7A

00087

goto

Main

00088

00089 ;----------------------------------------------------------------------

00090 ; keyscan table

00091 ;

0002

00092 ScanCode

0002 01E2

00093

addwf

PCL,F

0003 0845

00094

retlw

45

; key Ô0Õ

0004 0816

00095

retlw

16

; key Ô1Õ

0005 081E

00096

retlw

1E

; key Ô2Õ

0006 0826

00097

retlw

26

; key Ô3Õ

0007 0825

00098

retlw

25

; key Ô4Õ

0008 082E

00099

retlw

2E

; key Ô5Õ

0009 0836

00100

retlw

36

; key Ô6Õ

000A 083D

00101

retlw

3D

; key Ô7Õ

000B 083E

00102

retlw

3E

; key Ô8Õ

000C 0846

00103

retlw

46

; key Ô9Õ

000D 081C

00104

retlw

1C

; key ÔAÕ

000E 0832

00105

retlw

32

; key ÔBÕ

000F 0821

00106

retlw

21

; key ÔCÕ

0010 0823

00107

retlw

23

; key ÔDÕ

0011 0824

00108

retlw

24

; key ÔEÕ

0012 082B

00109

retlw

2B

; key ÔFÕ

00110

00111 #define

BREAK

0F0

; break scan code

00112

00113 ;**********************************************************************

00114 ;*

SubDelay