PicPuter : Using : Examples

Home
Products
Contact

Using

Download
Manual
Examples
UserGroup

Development

Revision
Future
Bugs

Other

DLHexRec
Modd Audio
Veracity
DSP
Blinky

Miscellaneous

Links
Search
Obsolete
Site Design
Disclaimer

PicPuter : Using : Examples

Here are a few example programs that I have been using during development. Perhaps they will inspire you to find a creative use for a PicPuter.

To load the examples into your PicPuter, simply ^c cut out the text from this web page. Then use __HYPERTERM__ menu option 'edit->paste to host' to download the program to your PicPuter.

(NOTE:hardware flowcontrol must be implemented, or an artificial delay must be implemented at the end of each line, or you are stuck typing in the statements.)

Print a Sine Wave

 ; This program prints a sine wave using '*' to the serial port
 ;
 ;     *
 ;        *
 ;          *
 ;        *
 ;     *
 ;  *
 ;*
 ;  *
 ;     *
 ;
 ; The sine table stored at $1E00-$1E40, in basic lines thats 111 - 127
 ; They are stored as 8.8 fixed point and range from +1 to -1
 ;
$1E00 : 0 25 49 74 97 120 142 162
$1E08 : 181 197 212 225 236 244 251 254
$1E10 : 256 254 251 244 236 225 212 197
$1E18 :  181 162 142 120 97 74 49 25
$1E20 : 0 -25 -49 -74 -97 -120 -142 -162
$1E28 : -181 -197 -212 -225 -236 -244 -251 -254
$1E30 : -256 -254 -251 -244 -236 -225 -212 -197
$1E38 : -181 -162 -142 -120 -97 -74 -49 -25 0
 ;
110 data 17         ; this hides the next 68 flash words or 17 basic statements
                    ; from being listed so we can use them for the sine table.
 ;
64 I=0              ; the index for the table, we clear it to 0.0
65 S=$1E00          ; the start address of the sine table.
66 F=RND AND 255    ; randomize the frequency of the sine wave
67 F+=200           ; from 200 - 455
 ;
68 DO               ; or PUSH PC in a pinch
69 X = @S[.I]       ; Do the interpolation using an 8.8 fixed point lookup.
70 ?$ISP            ; contaction for 'HPRINT I SPACE' cause I'm lazy.
71 FPRINT X SPACE   ; Prints X as a 8.8 Fixed Point number
 ;
72 x=x+256          ; add 1.0 to the value, range now 0.0 - 2.0
73 x=x>>3           ; divide the value by 8
74 FOR Z=0 TO X     ;
75 PRINT " "        ; Print X spaces
76 NEXT Z           ;
77 PRINT "*" CRLF   ; Print the Asterisk
 ;
 ; Update the index and repeat
78 I = I + F        ; add frequency to the index
79 j = I AND $C000  ; lets pull out the high order bits
80 I = I and $3FFF  ; our table has 64 elements so we must apply this mask
81 J = J >> 9       ; j = 32 if wrap occured
82 F = F + j        ; add it to the Frequency
83 F = F and $3ff   ; limit the max frequency
84 F = F MAX 100    ; lets set the minimum frequency to 100
85 pause 7 hun      ; It looks silly when displayed too fast
86 RETURN           ; loop forever (back to DO)

Clock with flashing colin

64 PRINT "\12Enter" SPACE   ; \12 Clears the screen, homes the cursor
65 PRINT "Hour"
66 INPUT HOUR
67 PRINT "Enter" SPACE
68 PRINT "Minute"
69 INPUT MIN
70 PRINT "\12\10\10\10\10" ; CLRHOME and moves the cursor down 4 lines
71 DO
72 PRINT HOUR
73 GOSUB 80
74 PRINT MIN
75 PAUSE 50 HUND
76 PRINT "\13"
77 RETURN
80 IF HUND < 50 GOTO 82
81 PRINT " " RETURN
82 PRINT ":" RETURN

Square Wave Generator

Here is a simple example that creates four 500 Hz square waves on __PORTD__. Every other PortD pin is 180 degrees out of phase. The frequency is set by the variable P.

 ; make four squares (a day)
64 P = 12                ; Set the period
65 TRISD = TRISD AND $0F ; Make PortD.4 - PortD.7 Outputs
66 PORTD = $50           ; Write initial value
			 ;
66 PAUSE P TICK          ; Wait a few ticks
67 PORTD = PORTD XOR $F0 ; Reverse the upper bits
68 goto 66               ; Rinse and repeate

There are a number of different approaches to solving this problem. Perhaps the easiest way is to use the built in Pulse Width Modulators. They have the advantage of running in the background even when your basic program is running other statements or is not running at all.

 ; make four squares four ways
64 SETCON 3       ;  Turn on the 4 PWMs
                  ; 250 Hz
65 PP0 = 48       ;  Set the Period to 48 ticks, 4uS
66 PW0 = PP0 / 2  ;  Set the Period to 24 ticks, 2uS
                  ; 500 Hz
67 PP1 = 24       ;  Set the Period to 24 ticks, 2uS
68 PW1 = PP1 / 2  ;  Set the Period to 12 ticks, 2uS
	          ; 1000 Hz
69 PP2 = 12       ;  Set the Period to 12 ticks, 1uS
70 PW2 = PP2 / 2  ;  Set the Period to 6 ticks, 2uS
                  ; 2000 Hz
71 PP3 = 6        ;  Set the Period to 6 ticks, .5uS
72 PW3 = PP3 / 2  ;  Set the Period to 3 ticks, 2uS
		  ;
73 END

Calibrated Thermistor

Using a table, a range of values from 0 to 1024 can be converted into a degree measurement. Using linear interpolated tables you can simply create a table of 4 values, the remaining values are approximated from this table. Here is a simple program that uses a table located at $1E00 to print a calibrated value then waits 1 year and repeats.

$1E00 : 0 250 500 1000
64 A = $1E00
65 T = *A[.ADC0]
66 PRINT "Temp:"
67 FPRINT T CRLF
68 PAUSE 8760 HOUR
69 GOTO 13

Test Statement Per Second

64 a=0
65 PAUSE 2 SEC
70 DO
71 a+=1
72 b+=1
73 b+=1
74 b+=1
75 b+=1
76 b+=1
77 b+=1
78 b+=1
79 UNTIL EVENTS AND 4
80 PRINT A*10

Random Phrase Genertor

70 A = RND AND $0007
71 GOSUB 80 + A
72 PRINT " "
73 A = RND AND $0007
74 GOSUB 90 + A
75 PRINT " "
76 A = RND AND $0007
77 GOSUB 80 + A
78 print ".\10\13"
79 end
 ; Names
80 PRINT "Marsha" RETURN
81 PRINT "Jan" RETURN
82 PRINT "Cindy" RETURN
83 PRINT "Greg" RETURN
84 PRINT "Peter" RETURN
85 PRINT "Bobby" RETURN
86 PRINT "Alice" RETURN
87 PRINT "Tiger" RETURN
 ; Verbs
90 PRINT "told" RETURN
91 PRINT "beat" RETURN
92 PRINT "kissed" RETURN
93 PRINT "threw" RETURN
94 PRINT "raced" RETURN
95 PRINT "freed" RETURN
96 PRINT "wasted" RETURN
97 PRINT "wrote" RETURN