20th Anniversary

2021 - 20th Anniversary of the
OSHONSOFT PROJECT
OshonSoft © 2001 - 2024

USB 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 18F2550 or 16F1455 microcontroller that has to be preprogrammed with the firmware. The presented solution uses PC's USB 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 USB Pro PIC Programmer software download link

• OshonSoft USB Pro PIC18 Programmer software download link

• OshonSoft USB Pro PIC16 Programmer software download link

• OshonSoft USB 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 PIC18 Simulator IDE integrated Basic compiler for 18F2550 choice, or with PIC16 Simulator IDE integrated Basic compiler for 16F1455 choice, to get the HEX file ready to be programmed into the programmer 18F2550 or 16F1455 microcontroller.

The programmer firmware code (18F2550):

#define CLOCK_FREQUENCY = 20
#define CONFIG1L = 0x24
#define CONFIG1H = 0x0c
#define CONFIG2L = 0x3e
#define CONFIG2H = 0x00
#define CONFIG3L = 0x00
#define CONFIG3H = 0x83
#define CONFIG4L = 0x80
#define CONFIG4H = 0x00
#define CONFIG5L = 0x0f
#define CONFIG5H = 0xc0
#define CONFIG6L = 0x0f
#define CONFIG6H = 0xe0
#define CONFIG7L = 0x0f
#define CONFIG7H = 0x40

UsbSetVendorId 0x2345
UsbSetProductId 0x2345
UsbSetVersionNumber 0x1122
UsbSetManufacturerString "OshonSoft.com"
UsbSetProductString "OshonSoft.com USB Pro Programmer"
UsbSetSerialNumberString "1111111111"
UsbOnIoInGosub input_report_before_sending
UsbOnIoOutGosub output_report_received
UsbOnFtInGosub feature_report_before_sending
UsbOnFtOutGosub feature_report_received

All_Digital
Symbol led = PORTC.7
TRISC.7 = 0
led = 0

Symbol clock = PORTB.0
Symbol data = PORTB.1
Symbol vpp = PORTB.2
Symbol vdd = PORTB.3
Symbol datadir = TRISB.1

Symbol reset = PORTB.3
Symbol sck = PORTB.2
Symbol mosi = PORTB.1
Symbol miso = PORTB.0

Gosub picinit
UsbStart

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:
	UsbService
Goto loop
End

output_report_received:
in1 = UsbIoBuffer(0)

If in1 = 101 Then
	led = 1
	Gosub picinit
	WaitMs 100
	Gosub picentervddvpp
Endif
If in1 = 102 Then
	led = 1
	Gosub picinit
	WaitMs 100
	Gosub picentervppvdd
Endif
If in1 = 103 Then
	led = 0
	Gosub picexitvddvpp
Endif
If in1 = 104 Then
	byte1 = UsbIoBuffer(1)
	Gosub picsend6
Endif
If in1 = 105 Then
	word1.LB = UsbIoBuffer(1)
	word1.HB = UsbIoBuffer(2)
	Gosub picsend14
Endif
If in1 = 106 Then
	Gosub picget14
	UsbIoBuffer(1) = word1.LB
	UsbIoBuffer(2) = word1.HB
	word1 = 0
Endif
If in1 = 107 Then
	byte1 = UsbIoBuffer(1)
	Gosub picsend4
Endif
If in1 = 108 Then
	word1.LB = UsbIoBuffer(1)
	word1.HB = UsbIoBuffer(2)
	Gosub picsend16
Endif
If in1 = 109 Then
	Gosub picstartprog
Endif
If in1 = 110 Then
	Gosub picget8
	UsbIoBuffer(1) = byte1
	byte1 = 0
Endif
If in1 = 111 Then
	picprogtime = UsbIoBuffer(1)
Endif

If in1 = 201 Then
	led = 1
	Gosub avrinit
	WaitMs 100
	Gosub avrenterprog
Endif
If in1 = 202 Then
	led = 0
	Gosub avrexitprog
Endif
If in1 = 203 Then
	byte1 = UsbIoBuffer(1)
	Gosub avrsend8
Endif
If in1 = 204 Then
	Gosub avrget8
	UsbIoBuffer(1) = byte1
	byte1 = 0
Endif
Return

picinit:
TRISB.3 = 0
TRISB.2 = 0
TRISB.1 = 0
TRISB.0 = 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.3 = 0
TRISB.2 = 0
TRISB.1 = 0
TRISB.0 = 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

input_report_before_sending:
Return

feature_report_received:
Return

feature_report_before_sending:
Return

The programmer firmware code (16F1455):

#define CLOCK_FREQUENCY = 16
#define CONFIG1 = 0x0f84
#define CONFIG2 = 0x1def
OSCCON = 0x3c  'intosc=16mhz

UsbSetVendorId 0x2345
UsbSetProductId 0x2345
UsbSetVersionNumber 0x1122
UsbSetManufacturerString "OshonSoft.com"
UsbSetProductString "OshonSoft.com USB Pro Programmer"
UsbSetSerialNumberString "1111111111"
UsbOnIoInGosub input_report_before_sending
UsbOnIoOutGosub output_report_received
UsbOnFtInGosub feature_report_before_sending
UsbOnFtOutGosub feature_report_received

All_Digital
Symbol led = PORTC.4
TRISC.4 = 0
led = 0

Symbol clock = PORTC.3
Symbol data = PORTC.2
Symbol vpp = PORTC.1
Symbol vdd = PORTC.0
Symbol datadir = TRISC.2

Symbol reset = PORTC.0
Symbol sck = PORTC.1
Symbol mosi = PORTC.2
Symbol miso = PORTC.3

Gosub picinit
UsbStart

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:
	UsbService
Goto loop
End

output_report_received:
in1 = UsbIoBuffer(0)

If in1 = 101 Then
	led = 1
	Gosub picinit
	WaitMs 100
	Gosub picentervddvpp
Endif
If in1 = 102 Then
	led = 1
	Gosub picinit
	WaitMs 100
	Gosub picentervppvdd
Endif
If in1 = 103 Then
	led = 0
	Gosub picexitvddvpp
Endif
If in1 = 104 Then
	byte1 = UsbIoBuffer(1)
	Gosub picsend6
Endif
If in1 = 105 Then
	word1.LB = UsbIoBuffer(1)
	word1.HB = UsbIoBuffer(2)
	Gosub picsend14
Endif
If in1 = 106 Then
	Gosub picget14
	UsbIoBuffer(1) = word1.LB
	UsbIoBuffer(2) = word1.HB
	word1 = 0
Endif
If in1 = 107 Then
	byte1 = UsbIoBuffer(1)
	Gosub picsend4
Endif
If in1 = 108 Then
	word1.LB = UsbIoBuffer(1)
	word1.HB = UsbIoBuffer(2)
	Gosub picsend16
Endif
If in1 = 109 Then
	Gosub picstartprog
Endif
If in1 = 110 Then
	Gosub picget8
	UsbIoBuffer(1) = byte1
	byte1 = 0
Endif
If in1 = 111 Then
	picprogtime = UsbIoBuffer(1)
Endif

If in1 = 201 Then
	led = 1
	Gosub avrinit
	WaitMs 100
	Gosub avrenterprog
Endif
If in1 = 202 Then
	led = 0
	Gosub avrexitprog
Endif
If in1 = 203 Then
	byte1 = UsbIoBuffer(1)
	Gosub avrsend8
Endif
If in1 = 204 Then
	Gosub avrget8
	UsbIoBuffer(1) = byte1
	byte1 = 0
Endif
Return

picinit:
TRISC.0 = 0
TRISC.1 = 0
TRISC.2 = 0
TRISC.3 = 0
clock = 0
data = 0
vdd = 0
vpp = 0
Return