DEVICE 16F877
XTAL = 4

Define CONF_WORD = %11111100111001

all_digital = true

''''' display '''''
trisb = %00000001 'alles Outputs ausser b0
declare lcd_type 0
declare lcd_interface 4 
declare lcd_dtpin portb.4
declare lcd_enpin portb.2
declare lcd_rspin portb.3
declare lcd_lines 2
dim b1 as byte
dim b2 as byte
dim b3 as byte
dim b4 as byte
symbol lcde = portb.2
poke trisb, 0
low lcde
gosub lcdinit

lcdinit: 
    delayms 15
    poke portb, %00110000
    gosub lcdtog
    delayms 5
    poke portb, %00110000
    gosub lcdtog
    delayms 1
    poke portb, %00110000
    gosub lcdtog
    delayms 1
    poke portb, %00101000
    gosub lcdtog
    delayms 1
    poke portb, %00101000
    gosub lcdtog
    delayms 1
    poke portb, %00101000
    gosub lcdtog
    delayms 1
    B2 = $08
    gosub lcdcom
    b2 = $01
    gosub lcdcom
    b2 = $06
    goto lcdcom
    goto weiter
    
lcdclr:
    b2 = 1

lcdcom:
    b3 = b2/16
    poke portb, b3
    gosub lcdtog
    b3 = b2 & 15
    poke portb, b3
    gosub lcdtog
    delayms 1
    return
    
lcdtog:
    high lcde
    low lcde
    Return
    
weiter:

Symbol step2 = 0.0125
symbol step70 = 0.0250
symbol pwm_dutycycle = 50
dim band aS BIT
dim freq2 as Float
Dim freq70 AS Float
dim updown as bit
dim upvar as byte
dim upvar_old as byte
upvar = 1
dim repeater as bit
dim txfreq as float
dim tuningword as dword
dim ddsfreq as dword
dim menucount as byte
dim sample as word
Dim adresult as word
adresult.highbyte = adresh
adresult.lowbyte = adresl
dim ptt as portb.0
dim enc as byte
Symbol dds_data = portd.0
Symbol dds_enable = portd.1
Symbol dds_clock = portd.2
dim deviation as dword
dim ccp2_specialevent as pir2.0