Junebug users - fun little diag program for ya - Electronic Circuits Projects Diagrams Free

futz · 19th November 2007, 01:37 AM

Technological Arts always used to pre-program their Motorola boards with simple little test programs. That way, when you unpacked it and hooked it up it would be able to do something right away.

So I started writing one for the Junebug 18F1320. It's simple polled RS232 at present and doesn't test absolutely everything on the board yet, as I don't have some components installed yet. I expect to have my trimpots this week, and I think I have one of those IR sensors somewhere in a junkbox. When those parts are installed I'll finish the program, as well as make it more interrupt-driven (not that it really matters in this program, but it's a nicer way to do it).

Download the program and source.

Here's a pic of the RS232 hookup. That's a Techno Arts RS232 ComStamp doing the level shifting on the breadboard. Of course any level shifter will do. HVW Technologies. Sparkfun Electronics. Acroname.

The display to the right on the breadboard and all the parts to the left are not connected at present. They're just leftovers from a previous project.
junebug 002_wb_sm.jpg
Here it is with code slightly modified for display on a BG Micro ACS1385 vacuum flourescent display
junebug008_wb_sm.jpg
Oh ya! It runs at 9600 baud, 8N1 for now, so set up your terminal accordingly.

blueroomelectronics · 19th November 2007, 02:59 AM

Very nice work.

PICkit has a nifty terminal program, catch is you can't use it and the ICD at the same time.

futz · 19th November 2007, 07:15 AM

Bump. New photo added.

blueroomelectronics · 19th November 2007, 03:32 PM

Looks like someones having fun

Here's something you might like...

Convert ASCII to upper case (untested)

Code:

;* main - poll rs232 for menu commands and branch accordingly
loop    call    rs_recv            ;wait for a char
    andlw    b'00111111'        ; convert to upper case
    movwf    char            ;save the char for later

The 18F compare and skip command

Code:

cont07  movlw   "0"
    cpfseq   char            ;is it '0'?                   
    goto     cont08        ;no, continue

futz · 19th November 2007, 04:40 PM

Quote:

Originally Posted by blueroomelectronics

Looks like someones having fun

Oh ya.

Quote:

Convert ASCII to upper case (untested)

Code:

;* main - poll rs232 for menu commands and branch accordingly
loop    call    rs_recv            ;wait for a char
    andlw    b'00111111'        ; convert to upper case
    movwf    char            ;save the char for later

Well duh! I should have thought of that. Just do it once. Most of that menu code is from a few years back when I did this on a 16f628. Time to clean it up.

Quote:

The 18F compare and skip command

Good. Saves another line.

blueroomelectronics · 19th November 2007, 06:05 PM

And another line saved
setf ADCON1 ; all digital

Mike, K8LH · 19th November 2007, 06:40 PM

Is someone having fun discovering some of the neat 16-bit core instructions for the first time?

blueroomelectronics · 19th November 2007, 06:54 PM

I know I am. I've been using the 16F for years.

Mike, K8LH · 19th November 2007, 07:45 PM

Well, here's a 2 page (8.5x11) PIC 18F' Instruction Set Summary 'pdf' file I created several years ago, if you're interested.

I found it handy to pin the sheets onto the cork board directly in front of my desk when I was starting out with the 18F' devices.

I also have a 1 page 11x17 version if you or anyone would like it...

Have fun, Mike

blueroomelectronics · 19th November 2007, 08:50 PM

Here's a Edit *NOT* working ASCII upper case converter from this site, might work for 16F chips http://www.retards.org/library/techn...rc/snippet.htm

Code:

;* main - poll rs232 for menu commands and branch accordingly
loop    call    rs_recv        ; wait for a char
UpCase  addlw   255 - "z"     ; Get the High limit
       addlw   "z" - "a" + 1     ; Add Lower Limit to Set Carry
    btfss   STATUS, C      ; If Carry Set, then Lower Case
       addlw   h'20'           ; Carry NOT Set, Restore Character
      addlw   "A"        ; add 'A' to restore the Character
    movwf    char        ; save the char for later

futz · 20th November 2007, 06:36 AM

Quote:

Originally Posted by blueroomelectronics

Convert ASCII to upper case (untested)

Code:

;* main - poll rs232 for menu commands and branch accordingly
loop    call    rs_recv            ;wait for a char
    andlw    b'00111111'        ; convert to upper case
    movwf    char            ;save the char for later

Almost correct (you did say "untested"). You actually have to clear bit5 to capitalize, not bit6.

But that kills numbers, so you have to add another line to keep them intact, like this

Code:

loop	call	rs_recv			;wait for a char
	movwf	numr			;save as numeral
	andlw	b'01011111'		;convert to upper case
	movwf	char			;save as uppercase char

and then test letters against char and numbers against numr. Or you could do a test at the start and only clear bit 5 on letters.

The download has been updated.

blueroomelectronics · 20th November 2007, 06:58 AM

This appears to work

Code:

    movwf    char        ; save the char for later
    sublw   "a" -1          ;
    btfss   STATUS, C       ;
    bcf     char, 5            ; convert a-z to upper case

futz · 20th November 2007, 08:21 AM

Interrupt receive version posted to same rar. This version runs at 57600 - 8/N/1. Just download from the same link as before. Both versions are in the rar. The file for this version is 'int_diag'.

wmmullaney · 29th November 2007, 01:37 AM

Quote:

Originally Posted by Mike, K8LH

Well, here's a 2 page (8.5x11) PIC 18F' Instruction Set Summary 'pdf' file I created several years ago, if you're interested.

I found it handy to pin the sheets onto the cork board directly in front of my desk when I was starting out with the 18F' devices.

I also have a 1 page 11x17 version if you or anyone would like it...

Have fun, Mike

Have one for the 16f series?

wmmullaney · 29th November 2007, 01:37 AM

Quote:

Originally Posted by Mike, K8LH

Well, here's a 2 page (8.5x11) PIC 18F' Instruction Set Summary 'pdf' file I created several years ago, if you're interested.

I found it handy to pin the sheets onto the cork board directly in front of my desk when I was starting out with the 18F' devices.

I also have a 1 page 11x17 version if you or anyone would like it...

Have fun, Mike

Have one for the 16f series?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Title	Starter	Forum	Replies	Latest
Question about Inchworm+	Quan	Micro Controllers	54	28th October 2007 01:21 AM
PicBasic Keypad program	Sora	Micro Controllers	0	20th April 2004 08:02 PM

19th November 2007, 01:37 AM	(permalink)
futz	Junebug users - fun little diag program for ya Technological Arts always used to pre-program their Motorola boards with simple little test programs. That way, when you unpacked it and hooked it up it would be able to do something right away. So I started writing one for the Junebug 18F1320. It's simple polled RS232 at present and doesn't test absolutely everything on the board yet, as I don't have some components installed yet. I expect to have my trimpots this week, and I think I have one of those IR sensors somewhere in a junkbox. When those parts are installed I'll finish the program, as well as make it more interrupt-driven (not that it really matters in this program, but it's a nicer way to do it). Download the program and source. Here's a pic of the RS232 hookup. That's a Techno Arts RS232 ComStamp doing the level shifting on the breadboard. Of course any level shifter will do. HVW Technologies. Sparkfun Electronics. Acroname. The display to the right on the breadboard and all the parts to the left are not connected at present. They're just leftovers from a previous project. junebug 002_wb_sm.jpg Here it is with code slightly modified for display on a BG Micro ACS1385 vacuum flourescent display junebug008_wb_sm.jpg Oh ya! It runs at 9600 baud, 8N1 for now, so set up your terminal accordingly. Last edited by futz; 20th November 2007 at 06:52 AM.

19th November 2007, 02:59 AM	(permalink)
blueroomelectronics	Very nice work. PICkit has a nifty terminal program, catch is you can't use it and the ICD at the same time. __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com

19th November 2007, 07:15 AM	(permalink)
futz	Bump. New photo added.

19th November 2007, 03:32 PM	(permalink)
blueroomelectronics	Looks like someones having fun Here's something you might like... Convert ASCII to upper case (untested) Code: ;* main - poll rs232 for menu commands and branch accordingly loop call rs_recv ;wait for a char andlw b'00111111' ; convert to upper case movwf char ;save the char for later The 18F compare and skip command Code: cont07 movlw "0" cpfseq char ;is it '0'? goto cont08 ;no, continue __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com Last edited by blueroomelectronics; 19th November 2007 at 03:38 PM.

19th November 2007, 06:05 PM	(permalink)
blueroomelectronics	And another line saved setf ADCON1 ; all digital __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com

19th November 2007, 06:40 PM	(permalink)
Mike, K8LH	Is someone having fun discovering some of the neat 16-bit core instructions for the first time?

19th November 2007, 06:54 PM	(permalink)
blueroomelectronics	I know I am. I've been using the 16F for years. __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com

19th November 2007, 08:50 PM	(permalink)
blueroomelectronics	Here's a Edit NOT working ASCII upper case converter from this site, might work for 16F chips http://www.retards.org/library/techn...rc/snippet.htm Code: ;* main - poll rs232 for menu commands and branch accordingly loop call rs_recv ; wait for a char UpCase addlw 255 - "z" ; Get the High limit addlw "z" - "a" + 1 ; Add Lower Limit to Set Carry btfss STATUS, C ; If Carry Set, then Lower Case addlw h'20' ; Carry NOT Set, Restore Character addlw "A" ; add 'A' to restore the Character movwf char ; save the char for later __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com Last edited by blueroomelectronics; 20th November 2007 at 12:54 AM.

20th November 2007, 06:58 AM	(permalink)
blueroomelectronics	This appears to work Code: movwf char ; save the char for later sublw "a" -1 ; btfss STATUS, C ; bcf char, 5 ; convert a-z to upper case __________________ Bill Smart Kits build Smart People http://www.blueroomelectronics.com

20th November 2007, 08:21 AM	(permalink)
futz	Interrupt receive version posted to same rar. This version runs at 57600 - 8/N/1. Just download from the same link as before. Both versions are in the rar. The file for this version is 'int_diag'.