20th Anniversary

20th Anniversary of the
OSHONSOFT PROJECT
(2001 - 2021)

Serial Port Pro PIC-PIC18-PIC16-AVR Programmer

The programmer project presented here is intended to be used by more experienced users who already have access to a simple PIC programmer, because the programmer hardware is built around one 16F627(A) or 16F628(A) microcontroller that has to be preprogrammed with the firmware. The presented solution uses PC's serial port for reliable communication between the programming software and the 'intelligent' programmer hardware.

SCREENSHOTS

SCREENSHOTS:

SCHEMATICS

SCHEMATICS:

The programming software packages are designed to look like OshonSoft IDE software. They even support color themes. The software is very easy to use and works on all Windows platforms. And it is free of charge. You can download the programming software setup packages here:

• OshonSoft Serial Port Pro PIC Programmer software download link

• OshonSoft Serial Port Pro PIC18 Programmer software download link

• OshonSoft Serial Port Pro PIC16 Programmer software download link

• OshonSoft Serial Port Pro AVR Programmer software download link

One nice feature of the programming software is that all supported devices specific information (including programming algorithms written in special symbolic language) is loaded from an external devices.txt file. The description of all the programming algorithms symbolic language elements is also provided. So, the users that are acquainted with the low-level programming details can easily add support for more microcontroller models.

The programmer firmware is provided in the form of Basic source program that has to be compiled with PIC Simulator IDE integrated Basic compiler to get the HEX file ready to be programmed into the programmer microcontroller. The correct microcontroller model needs to be selected - 16F627, 16F627A, 16F628 or 16F628A, and the selected clock frequency is supposed to be at least 8MHz.

The programmer firmware code:

#define CONF_WORD = 0x3f62

Symbol clock = PORTB.4
Symbol data = PORTB.5
Symbol vpp = PORTB.6
Symbol vdd = PORTB.7
Symbol datadir = TRISB.5

Symbol reset = PORTB.7
Symbol sck = PORTB.6
Symbol mosi = PORTB.5
Symbol miso = PORTB.4

Gosub picinit
UART_Init 56000

Dim picprogtime As Byte
picprogtime = 10

Dim bit1 As Bit
Dim byte1 As Byte
Dim word1 As Word
bit1 = 0
byte1 = 0
word1 = 0
Dim in1 As Byte

loop:
	UART_Read in1

If in1 = 101 Then
		Gosub picinit
		WaitMs 100
		Gosub picentervddvpp
	Endif
	If in1 = 102 Then
		Gosub picinit
		WaitMs 100
		Gosub picentervppvdd
	Endif
	If in1 = 103 Then
		Gosub picexitvddvpp
	Endif
	If in1 = 104 Then
		UART_Read byte1
		Gosub picsend6
	Endif
	If in1 = 105 Then
		UART_Read word1
		Gosub picsend14
	Endif
	If in1 = 106 Then
		Gosub picget14
		UART_Write word1
		word1 = 0
	Endif
	If in1 = 107 Then
		UART_Read byte1
		Gosub picsend4
	Endif
	If in1 = 108 Then
		UART_Read word1
		Gosub picsend16
	Endif
	If in1 = 109 Then
		Gosub picstartprog
	Endif
	If in1 = 110 Then
		Gosub picget8
		UART_Write byte1
		byte1 = 0
	Endif
	If in1 = 111 Then
		UART_Read picprogtime
	Endif

If in1 = 201 Then
		Gosub avrinit
		WaitMs 100
		Gosub avrenterprog
	Endif
	If in1 = 202 Then
		Gosub avrexitprog
	Endif
	If in1 = 203 Then
		UART_Read byte1
		Gosub avrsend8
	Endif
	If in1 = 204 Then
		Gosub avrget8
		UART_Write byte1
		byte1 = 0
	Endif

UART_Write in1
Goto loop
End

picinit:
TRISB.7 = 0
TRISB.6 = 0
TRISB.5 = 0
TRISB.4 = 0
clock = 0
data = 0
vdd = 0
vpp = 0
Return

picsend4:
bit1 = byte1.0
Gosub picsend1
bit1 = byte1.1
Gosub picsend1
bit1 = byte1.2
Gosub picsend1
bit1 = byte1.3
Gosub picsend1
byte1 = 0
Return

picsend6:
bit1 = byte1.0
Gosub picsend1
bit1 = byte1.1
Gosub picsend1
bit1 = byte1.2
Gosub picsend1
bit1 = byte1.3
Gosub picsend1
bit1 = byte1.4
Gosub picsend1
bit1 = byte1.5
Gosub picsend1
byte1 = 0
Return

picsend14:
bit1 = 0
Gosub picsend1
byte1 = word1.LB
Gosub picsend6
byte1 = word1.LB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = word1.HB
Gosub picsend6
bit1 = 0
Gosub picsend1
word1 = 0
Return

picsend16:
byte1 = word1.LB
Gosub picsend6
byte1 = word1.LB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = word1.HB
Gosub picsend6
byte1 = word1.HB
bit1 = byte1.6
Gosub picsend1
bit1 = byte1.7
Gosub picsend1
byte1 = 0
word1 = 0
Return

picsend1:
Gosub picclock1
If bit1 = 1 Then
	data = 1
Else
	data = 0
Endif
Gosub picclock0
data = 0
bit1 = 0
Return

picstartprog:
data = 0
For byte1 = 1 To 3
	Gosub picclock1
	Gosub picclock0
Next byte1
Gosub picclock1
WaitMs picprogtime
Gosub picclock0
WaitUs 200
For byte1 = 1 To 16
	Gosub picclock1
	Gosub picclock0
Next byte1
Return

picget8:
For byte1 = 1 To 8
	Gosub picclock1
	Gosub picclock0
Next byte1
datadir = 1
byte1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
Gosub picget1
byte1.6 = bit1
Gosub picget1
byte1.7 = bit1
bit1 = 0
data = 0
datadir = 0
Return

picget14:
datadir = 1
word1 = 0
byte1 = 0
Gosub picget1
bit1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
Gosub picget1
byte1.6 = bit1
Gosub picget1
byte1.7 = bit1
word1.LB = byte1
byte1 = 0
Gosub picget1
byte1.0 = bit1
Gosub picget1
byte1.1 = bit1
Gosub picget1
byte1.2 = bit1
Gosub picget1
byte1.3 = bit1
Gosub picget1
byte1.4 = bit1
Gosub picget1
byte1.5 = bit1
word1.HB = byte1
byte1 = 0
Gosub picget1
bit1 = 0
data = 0
datadir = 0
Return

picget1:
Gosub picclock1
bit1 = data
Gosub picclock0
Return

picentervddvpp:
vdd = 1
WaitMs 50
vpp = 1
WaitMs 50
Return

picentervppvdd:
vpp = 1
WaitMs 50
vdd = 1
WaitMs 50
Return

picexitvddvpp:
vdd = 0
WaitMs 50
vpp = 0
WaitMs 50
Return

picclock1:
WaitUs 3
clock = 1
WaitUs 3
Return

picclock0:
WaitUs 3
clock = 0
WaitUs 3
Return

avrinit:
TRISB.7 = 0
TRISB.6 = 0
TRISB.5 = 0
TRISB.4 = 1
reset = 0
sck = 0
mosi = 0
Return

avrsend8:
bit1 = byte1.7
Gosub avrsend1
bit1 = byte1.6
Gosub avrsend1
bit1 = byte1.5
Gosub avrsend1
bit1 = byte1.4
Gosub avrsend1
bit1 = byte1.3
Gosub avrsend1
bit1 = byte1.2
Gosub avrsend1
bit1 = byte1.1
Gosub avrsend1
bit1 = byte1.0
Gosub avrsend1
byte1 = 0
Return

avrsend1:
If bit1 = 1 Then
	mosi = 1
Else
	mosi = 0
Endif
Gosub avrclock1
Gosub avrclock0
mosi = 0
bit1 = 0
Return

avrget8:
byte1 = 0
Gosub avrget1
byte1.7 = bit1
Gosub avrget1
byte1.6 = bit1
Gosub avrget1
byte1.5 = bit1
Gosub avrget1
byte1.4 = bit1
Gosub avrget1
byte1.3 = bit1
Gosub avrget1
byte1.2 = bit1
Gosub avrget1
byte1.1 = bit1
Gosub avrget1
byte1.0 = bit1
bit1 = 0
Return

avrget1:
Gosub avrclock1
bit1 = miso
Gosub avrclock0
Return

avrenterprog:
sck = 0
mosi = 0
reset = 1
WaitMs 10
reset = 0
WaitMs 50
Return

avrexitprog:
sck = 0
mosi = 0
reset = 1
WaitMs 10
Return

avrclock1:
WaitUs 1
sck = 1
WaitUs 1
Return

avrclock0:
WaitUs 1
sck = 0
WaitUs 1
Return

OshonSoft Serial Port Pro PIC Programmer software:

OshonSoft Serial Port Pro PIC18 Programmer software:

OshonSoft Serial Port Pro PIC16 Programmer software:

OshonSoft Serial Port Pro AVR Programmer software:

Serial Port Pro PIC-PIC18-PIC16 Programmer schematics:

Serial Port Pro AVR Programmer schematics:

20th Anniversary of theOSHONSOFT PROJECT(2001 - 2021)

Serial Port Pro PIC-PIC18-PIC16-AVR Programmer

20th Anniversary of the
OSHONSOFT PROJECT
(2001 - 2021)