1 rem read 12f675 for dummies
2 rem pic12f675
2 rem pic12ce519
2 rem pic12c671
2 rem pic12ce673
2 rem pic12f629
2 rem pic12f635
2 rem pic12f675
2 rem pic16c505
2 rem pic16f627a
2 rem pic16f630
2 rem pic16f676
3 rem release 3
10 put 64+0
12 print "Flushing comport..."
14 get z
16 if z>0 then goto 14
18 print "Zeroing memory buffer..."
20 for i=0 to 17407
22 poke 0,i
24 next i
26 print "Reading 1kw pic..."
28 y=0
30 put 128+1
32 get z
34 j=0
36 for i=1 to 1024
38 gosub 2000
40 gosub 4000
52 j=j+1
54 if j<15 then goto 60
56 j=0
58 print ".";
60 next i
70 put 128+0
72 get z
80 delay 100
85 print "Reading configuration..."
90 put 128+1
92 get z
94 y=16384
96 put 128+1
98 get z
101 rem set pc to config, send two dummies
102 put 192+0
103 get z
104 put 128+2
105 get z
106 put 255
107 get z
108 put 255
109 get z
110 for i=1 to 32
120 gosub 2000
130 gosub 4000
140 next i
150 put 128+0
160 get z
980 print "Finished"
990 end
2000 rem read word and inc pc
2010 put 192+4
2020 get z
2030 put 128+3
2040 get z
2050 get a
2060 get b
2070 put 192+6
2080 get z
2090 return
4000 rem put word in memory
4010 poke a,y
4020 y=y+1
4030 poke b,y
4040 y=y+1
4050 return