Ik krijg op een 16f88 poort B1 niet werkend als digitale uitgang.
Wat doe ik verkeerd ?
pic basic code:
Device 16F88
@CONFIG_REQ
@__CONFIG _CONFIG1, CP_OFF & CCP1_RB0 & DEBUG_OFF & WRT_PROTECT_OFF & CPD_OFF & LVP_OFF & BODEN_ON & MCLR_OFF & PWRTE_ON & WDT_OFF & INTRC_IO
@__CONFIG _CONFIG2, IESO_OFF & FCMEN_OFF
Xtal 8
; OSCCON Oscillator Control Register:
; bit 7: unimpl. read as 0
; bit 6-4: frequency (IRCF):
; 110: 4 mhz
; 111: 8 mhz
; bit 3: OSTS: 1 (run from primary system clock), 0 (run from T1OSC or INTRC as a secondary system clock)
; bit 2: IOFS: INTOSC Freq. stable bit (1 stable, 0 not stable)
; bit 1-0: ; SCS<1:0>
; 00: OSC mode defined by fuse / configuration bits (FOSC<2:0>)
; 01: T1OSC is used for system clock
; 10: Internal RC is used for system clock
; 11: Reserved (don't use it)
OSCCON = %01111000
Declare Adin_Res 10
;Declare ADIN_TAD FRC
; Allow ?? us sample time, typical is 50-100, this allows
; adequate charge time without losing too much conversion speed.
; According to page 119 of the 16F88 datasheet, typical AD
; conversion takes 11-12 TAD. Using FRC nets an average of 4
; us per TAD. A minimum of 48 us is therefore recommended. But
; TAD time of FRC varies between 2-6 us! So worst-case, conversion
; takes 12 * 6 = 72 us. To be sure, use ADIN_STIME 75.
Declare Adin_Stime 75
Symbol OUT_HHaccu = PORTA.4
Symbol OUT_Backlight = PORTA.6
Symbol Switch = PORTA.7
Symbol OUT_STaccu = PORTB.0
Symbol OUT_HH__ST = PORTB.1
Dim UPAN As Dword
Dim POTM As Dword
Dim UST As Dword
Dim UHH As Dword
Dim Teller As Word
Dim UDelta As Word
Dim HH_max As Word
Dim ST_max As Word
Dim Tellerbacklight As Byte
Dim Tellerreturn As Word
; Disable comparators, CMCON = 7
CMCON = %00000111
; All pins of port A low
PORTA = %00000000
; AN1 as an input
TRISA = %10001111
; AN1 is analog
ANSEL = %00001111
; Use FRC, Channel 1 (RA1/AN1, pin 18), clear GO/DONE bit (is
; automatically set by ADIN when converting), and turn on ADC.
; This is why ADIN_TAD is commented out above, the use of
; FRC can also be set directly into ADCON0 (2 MSB's):
ADCON0 = %11001001
; Right justified (A/D Result), AD clock divide by 2 disabled,
; voltage ref. config bits set to 00 (AVdd = Vref+, AVss = VRef-).
ADCON1 = %00000000
Declare LCD_ENPin PORTB.2
Declare LCD_RSPin PORTB.3
Declare LCD_DTPin PORTB.4
Clear