1 rem rescue
2 rem pic12f675
2 rem pic12f629
3 rem release 1
10 print "Moving to OSCCAL..."
20 put 128+1
30 get z
40 put 192+4
50 get z
60 put 128+3
70 get z
80 get a
90 get b
100 for i= 1 to 1023
110 put 192+6
120 get z
130 next i
140 put 192+4
150 get z
160 put 128+3
170 get z
180 get a
190 get b
200 if a=255 & b=63 then goto 216
202 print "OSCCAL was already programmed, exiting..."
204 put 128
206 get z
208 end
216 print "OSCCAL value is missing! Performing rescue now..."
220 a=140
222 b=52
224 put 128+2
226 get z
650 put 192+2
660 get z
670 put 128+2
680 get z
690 put a
700 get z
710 put b
720 get z
750 put 192+8
760 get z
770 delay 8
780 put 128
790 get z
1030 print "Finished"
1040 end