16F628 does not run. I can't believe this

[Ioannis]

I have been trying all day to run this program on a 16F628 and the damn thing does not.

I can't believe that I cannot make it run. Oh God I am gonna smash it.

I'll give it a chance.

Please if anyone can see what I am missing, please help.

Chip is 16F628 with ceramic resonator. Checked the freq and is close to 4MHz. Also the Option_Reg seems to be configured OK because of the Pull ups checked on port B, but then, nothing happens...



DEFINE OSC 4
INCLUDE "C:\PBP\MODEDEFS.BAS"

;----- Configuration bits ------------------------------------------------

@Line1 = _LVP_OFF & _BODEN_ON & _DATA_CP_ON
@Line2 = _CP_ALL & _MCLRE_ON & _PWRTE_ON & _WDT_ON & _XT_OSC

@ __CONFIG Line1 & Line2

cmcon=7 'disable portA comparators
intcon=0 'disable interrupts
vrcon=0 'disable reference voltage output at porta.2

TRISA = %00000000 'PA0:
'PA1:
'PA2:
'PA3:Relay
'PA4:Buzzer
'PA5:

TRISB = %01110010 'PB0:
'PB1:Serial Input
'PB2:Serial Output
'PB3:RS485 Direction
'PB4:D0
'PB5:D1
'PB6:Button
'PB7:

option_reg=%00000000

relay var porta.3
buzzer var porta.4

dir var portb.3
d0 var portb.4 'Wiegand D0 input
d1 var portb.5 'Wiegand D1 input
but var portb.6 'Button input

data_array var byte[3] 'Wiegand data array
byte_1 var data_array[2]
byte_2 var data_array[1]
byte_3 var data_array[0]

clear
high buzzer:pause 500:low buzzer

stop

end


Ioannis

[Ioannis]

OK. I found it. How silly I was. RA4 is output but also Open Drain...

Ioannis