Here is the program. I seem to have some issues with uploading my files. I will continue to try.
'************************************************* ***************
'* 16F877.BAS *
'* *
'* By : Leonard Zerman, Jeff Schmoyer *
'* Notice : Copyright (c) 1998 microEngineering Labs, Inc. *
'* All Rights Reserved *
'* Date : 10/23/98 *
'* Version : 2.11 *
'* Notes : *
'************************************************* ***************
LIBRARY"PBPPIC14"
include"PIC14EXT.BAS"
include"PBPPIC14.RAM"
BANK0 $0020, $007F
BANK1 $00A0, $00EF
BANK2 $0110, $016F
BANK3 $0190, $01EF
EEPROM $2100, $21FF

DEFINE CODE_SIZE 8
;PORTL VAR PORTB
;PORTH VAR PORTC
;TRISL VAR TRISB
;TRISH VAR TRISC


TRISB = $00
TRISD = $00
TRISA = $00
TRISC = $FF
TRISE = $00

START:


TimeSet:
PORTD = %10110110 ;data previously loaded into DispReg1 is sentto DispData which is PortD.
PORTB = %10000000 ;data previously loaded into DispDriveReg is sent toDispdrive which is PortB.
call KbdScan ;callKbdScan to see if one or more keys have been pressed.
PORTD = %10011110
PORTB = %01000000
call KbdScan
PORTD = %00100010
PORTB = %00100000
call KbdScan
PORTD = %00000000
PORTB = %00010000
call KbdScan
PORTD = %00100010
PORTB = %00001000
call KbdScan
PORTD = %00001000
PORTB = %00000100
call KbdScan
PORTD = %00101000
PORTB = %00000010
call KbdScan
PORTD = %10011110
PORTB = %00000001
call KbdScan
goto TimeSet

KbdScan:
Pause 8
goto TimeSet





'*-----------------------*EOF 16F877.BAS *---------------------*