QRSS + 16F628A mockup
I spent some time tonight bonding with the 16F628A and BASIC tonight. I mocked up the LCD display and started figuring out some of the variables that I am going to need.
----Tonights Code----
program QRSSKeyer
'LCD Module Connections
dim LCD_RS as sbit at RB6_bit
LCD_EN as sbit at RB4_bit
LCD_D4 as sbit at RB0_bit
LCD_D5 as sbit at RB1_bit
LCD_D6 as sbit at RB2_bit
LCD_D7 as sbit at RB3_bit
LCD_RS_Direction as sbit at TRISB6_bit
LCD_EN_Direction as sbit at TRISB4_bit
LCD_D4_Direction as sbit at TRISB0_bit
LCD_D5_Direction as sbit at TRISB1_bit
LCD_D6_Direction as sbit at TRISB2_bit
LCD_D7_Direction as sbit at TRISB3_bit
'End LCD module Connections
dim callsign as string[10] '10 char for message
qtime as string[2] '60, 30, 10, 6, 3
qmode as string[4] 'CW or DFCW
freq as string[10] '10.140.050
'Freq will eventually be the counter once it is built
main:
callsign = "NG0R"
qtime = "10"
qmode = "DFCW"
freq = "10.140.050"
'PIC setup
TRISB = 0 ' Set PORTB as OUTPUT
PORTB = 0 ' Set PORTB all pins to 'off'
'End Pic Setup
'LCD Setup Section
LCD_Init() 'Initialize the LCD library
LCD_Cmd(_LCD_Clear) 'Clear the LCD display
LCD_Cmd(_LCD_Cursor_Off) 'Turns blinking cursor off
'End LCD Setup Section
LCD_Out(1, 1, callsign) 'Show the message
LCD_Out(1, 14, "Q") 'Write text
LCD_Out(1, 15, qtime) 'Show the qrssXX mode
LCD_Out(2, 1, freq) 'Show the freq
LCD_Out(2, 13, qmode) 'Show the mode
end.
----Tonights Code----
program QRSSKeyer
'LCD Module Connections
dim LCD_RS as sbit at RB6_bit
LCD_EN as sbit at RB4_bit
LCD_D4 as sbit at RB0_bit
LCD_D5 as sbit at RB1_bit
LCD_D6 as sbit at RB2_bit
LCD_D7 as sbit at RB3_bit
LCD_RS_Direction as sbit at TRISB6_bit
LCD_EN_Direction as sbit at TRISB4_bit
LCD_D4_Direction as sbit at TRISB0_bit
LCD_D5_Direction as sbit at TRISB1_bit
LCD_D6_Direction as sbit at TRISB2_bit
LCD_D7_Direction as sbit at TRISB3_bit
'End LCD module Connections
dim callsign as string[10] '10 char for message
qtime as string[2] '60, 30, 10, 6, 3
qmode as string[4] 'CW or DFCW
freq as string[10] '10.140.050
'Freq will eventually be the counter once it is built
main:
callsign = "NG0R"
qtime = "10"
qmode = "DFCW"
freq = "10.140.050"
'PIC setup
TRISB = 0 ' Set PORTB as OUTPUT
PORTB = 0 ' Set PORTB all pins to 'off'
'End Pic Setup
'LCD Setup Section
LCD_Init() 'Initialize the LCD library
LCD_Cmd(_LCD_Clear) 'Clear the LCD display
LCD_Cmd(_LCD_Cursor_Off) 'Turns blinking cursor off
'End LCD Setup Section
LCD_Out(1, 1, callsign) 'Show the message
LCD_Out(1, 14, "Q") 'Write text
LCD_Out(1, 15, qtime) 'Show the qrssXX mode
LCD_Out(2, 1, freq) 'Show the freq
LCD_Out(2, 13, qmode) 'Show the mode
end.