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.

Here it is with code slightly modified for display on a BG Micro ACS1385 vacuum flourescent display

Oh ya! It runs at 9600 baud, 8N1 for now, so set up your terminal accordingly.

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

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

And another line saved
setf ADCON1 ; all digital

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

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

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.

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