ã 1997 Microchip Technology Inc.

DS00665A-page 9

AN665

00115 ;*

short delay functions N us

00116 ;*

00117 ;*

Input Variables:

00118 ;*

none

00119 ;*

Output Variables:

00120 ;*

none

00121 ;**********************************************************************

00122 ;

0013 0000

00123 SubDelay10

nop

0014 0000

00124 SubDelay9

nop

0015 0000

00125 SubDelay8

nop

0016 0000

00126 SubDelay7

nop

0017 0000

00127 SubDelay6

nop

0018 0000

00128 SubDelay5

nop

0019 0800

00129 SubDelay4

retlw

0

; 2 call + N nop + 2 retlw

00130

00131 ;**********************************************************************

00132 ;*

Wait10ms

00133 ;*

waits for approx 10ms

00134 ;*

00135 ;*

Input Variables:

00136 ;*

none

00137 ;*

Output Variables:

00138 ;*

none

00139 ;**********************************************************************

00140 ;

001A

00141 Wait10ms

001A 0C0F

00142

movlw

.15

; 15 * .7ms ~= 10ms@4MHz

001B

00143 WaitWx750

001B 0031

00144

movwf

TIMEHI

001C

00145 WaitHi

001C 0072

00146

clrf

TIMELO

; 256 * 3us ~= 750us@4MHz

001D

00147 WaitLo

001D 02F2

00148

decfsz

TIMELO,F

001E 0A1D

00149

goto

WaitLo

001F 02F1

00150

decfsz

TIMEHI,F

0020 0A1C

00151

goto

WaitHi

0021 0800

00152

retlw

0

00153

00154 ;**********************************************************************

00155 ;*

SendBit

00156 ;*

sends a bit in AT keyboard protocol

00157 ;*

00158 ;*

Input Variables:

00159 ;*

STATUS,C

00160 ;*

Output Variables:

00161 ;*

none

00162 ;**********************************************************************

00163 ;

0022

00164 SendBit

0022 0066

00165

clrf

GPIO

; disable kb and clear out buffers

0023 0CF9

00166

movlw

MASKLOW

; DATA low prepare

0024 0603

00167

btfsc

STATUS,C

0025 0CFB

00168

movlw

MASKHIGH

; DATA high prepare

0026 0036

00169

movwf

GPIOTEMP

; save value

0027 0006

00170

tris

GPIO

00171

0028 0C0E

00172

movlw

.14

0029 0032

00173

movwf

TIMELO

002A

00174 SBitT

002A 02F2

00175

decfsz

TIMELO,F

; 45us loop (data stable)

002B 0A2A

00176

goto

SBitT

00177

002C 0416

00178

bcf

GPIOTEMP,PCCLK

; clk fall

002D 0216

00179

movf

GPIOTEMP,W

002E 0006

00180

tris

GPIO