1/* ######################################################################## 
2 
3   PICsimLab - PIC laboratory simulator 
4 
5   ######################################################################## 
6 
7   Copyright (c) : 2015-2021  Luis Claudio Gambôa Lopes 
8 
9   This program is free software; you can redistribute it and/or modify 
10   it under the terms of the GNU General Public License as published by 
11   the Free Software Foundation; either version 2, or (at your option) 
12   any later version. 
13 
14   This program is distributed in the hope that it will be useful, 
15   but WITHOUT ANY WARRANTY; without even the implied warranty of 
16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
17   GNU General Public License for more details. 
18 
19   You should have received a copy of the GNU General Public License 
20   along with this program; if not, write to the Free Software 
21   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 
22 
23   For e-mail suggestions :  lcgamboa@yahoo.com 
24   ######################################################################## */ 
25 
26#ifndef BOARD_x_H 
27#define        BOARD_x_H 
28 
29#include<lxrad.h> 
30 
31#include "bsim_picsim.h" 
32 
33#define        BOARD_x_Name "X" 
34 
35//new board class must be derived from board class defined in board.h 
36class cboard_x:public bsim_picsim 
37{ 
38  private: 
39     unsigned char p_BT1;           //first board push button in RD0 
40     unsigned char p_BT2;           //second board switch in RD1   
41      
42     //value of potentiometer 
43     unsigned char pot1; 
44     //flag to control if potentiometer is active 
45     unsigned char active; 
46      
47     //controls to be added in simulator window  
48     CGauge *gauge1;   //gauge to show mean value of RB0 
49     CGauge *gauge2;   //gauge to show mean value of RB1 
50     CLabel *label2;   //label of gauge RB0 
51     CLabel *label3;   //label of gauge RB1 
52      
53     //Register controls for remote interface called once on board creation  
54     void RegisterRemoteControl(void);   
55      
56     lxColor color1;//LEDs color 1 
57     lxColor color2;//LEDs color 2    
58     lxFont font; 
59   public: 
60      //Constructor called once on board creation  
61      cboard_x(void); 
62      //Destructor called once on board destruction  
63      ~cboard_x(void);  
64      //Return the board name 
65      lxString GetName(void) {return lxT(BOARD_x_Name); };  
66      //Return the about info of board 
67      lxString GetAboutInfo(void){return lxT("L.C. Gamboa \n <lcgamboa@yahoo.com>");}; 
68      //Called ever 100ms to draw board 
69      void Draw(CDraw *draw); 
70      void Run_CPU(void); 
71      //Return a list of board supported microcontrollers 
72      lxString GetSupportedDevices(void){return lxT("PIC16F877A,PIC18F4550,PIC18F4620,");}; 
73      //Reset board status 
74      void Reset(void); 
75      //Event on the board 
76      void EvMouseButtonPress(uint button, uint x, uint y,uint state); 
77      //Event on the board 
78      void EvMouseButtonRelease(uint button, uint x, uint y,uint state); 
79      //Event on the board 
80      void EvMouseMove(uint button, uint x, uint y, uint state); 
81      //Event on the board 
82      void EvKeyPress(uint key,uint mask); 
83      //Event on the board 
84      void EvKeyRelease(uint key,uint mask); 
85      //Called ever 1s to refresh status 
86      void RefreshStatus(void); 
87      //Called to save board preferences in configuration file 
88      void WritePreferences(void); 
89      //Called whe configuration file load  preferences  
90      void ReadPreferences(char *name,char *value); 
91      //return the input ids numbers of names used in input map 
92      unsigned short get_in_id(char * name); 
93      //return the output ids numbers of names used in output map 
94      unsigned short get_out_id(char * name); 
95}; 
96 
97#endif        /* BOARD_x_H */ 
98

1/* ######################################################################## 
2 
3   PICsimLab - PIC laboratory simulator 
4 
5   ######################################################################## 
6 
7   Copyright (c) : 2015-2021  Luis Claudio Gambôa Lopes 
8 
9   This program is free software; you can redistribute it and/or modify 
10   it under the terms of the GNU General Public License as published by 
11   the Free Software Foundation; either version 2, or (at your option) 
12   any later version. 
13 
14   This program is distributed in the hope that it will be useful, 
15   but WITHOUT ANY WARRANTY; without even the implied warranty of 
16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
17   GNU General Public License for more details. 
18 
19   You should have received a copy of the GNU General Public License 
20   along with this program; if not, write to the Free Software 
21   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 
22 
23   For e-mail suggestions :  lcgamboa@yahoo.com 
24   ######################################################################## */ 
25 
26//include files 
27#include"../picsimlab1.h" 
28#include"../picsimlab4.h" //Oscilloscope 
29#include"../picsimlab5.h" //Spare Parts 
30#include"board_x.h" 
31 
32/* ids of inputs of input map*/ 
33enum 
34{ 
35 I_POT1, //potentiometer    
36 I_ICSP, //ICSP connector 
37 I_PWR, //Power button 
38 I_RST, //Reset button 
39 I_BD0, //RD0 push button 
40 I_SD1 //RD1 switch 
41}; 
42 
43/* ids of outputs of output map*/ 
44enum 
45{ 
46 O_POT1, //potentiometer   
47 O_RST, //Reset button 
48 O_SD1, //switch position (On/Off) 
49 O_LD0, //LED on RD0 push button 
50 O_LD1, //LED on RD1 switch 
51 O_LPWR, //Power LED 
52 O_RB0, //LED on RB0 output 
53 O_RB1, //LED on RB1 output 
54 O_BD0, //RD1 switch      
55 O_CPU //CPU name 
56}; 
57 
58//return the input ids numbers of names used in input map 
59 
60unsigned short 
61cboard_x::get_in_id(char * name) 
62{ 
63 if (strcmp (name, "PG_ICSP") == 0)return I_ICSP; 
64 if (strcmp (name, "SW_PWR") == 0)return I_PWR; 
65 if (strcmp (name, "PB_RST") == 0)return I_RST; 
66 if (strcmp (name, "PB_D0") == 0)return I_BD0; 
67 if (strcmp (name, "SW_D1") == 0)return I_SD1; 
68 if (strcmp (name, "PO_1") == 0)return I_POT1; 
69 
70 printf ("Error input '%s' don't have a valid id! \n", name); 
71 return -1; 
72} 
73 
74//return the output ids numbers of names used in output map 
75 
76unsigned short 
77cboard_x::get_out_id(char * name) 
78{ 
79 
80 if (strcmp (name, "SW_D1") == 0)return O_SD1; 
81 if (strcmp (name, "LD_LD0") == 0)return O_LD0; 
82 if (strcmp (name, "LD_LD1") == 0)return O_LD1; 
83 if (strcmp (name, "LD_LPWR") == 0)return O_LPWR; 
84 if (strcmp (name, "LD_RB1") == 0)return O_RB1; 
85 if (strcmp (name, "LD_RB0") == 0)return O_RB0; 
86 if (strcmp (name, "PB_D0") == 0)return O_BD0; 
87 if (strcmp (name, "PO_1") == 0)return O_POT1; 
88 if (strcmp (name, "PB_RST") == 0)return O_RST; 
89 if (strcmp (name, "IC_CPU") == 0)return O_CPU; 
90 
91 printf ("Error output '%s' don't have a valid id! \n", name); 
92 return 1; 
93} 
94 
95//Constructor called once on board creation  
96 
97cboard_x::cboard_x(void) : 
98font(10, lxFONTFAMILY_TELETYPE, lxFONTSTYLE_NORMAL, lxFONTWEIGHT_BOLD) 
99{ 
100 Proc = "PIC18F4550"; //default microcontroller if none defined in preferences 
101 ReadMaps (); //Read input and output board maps 
102 
103 pot1 = 100; 
104 
105 active = 0; 
106 
107 //controls properties and creation 
108 //gauge1 
109 gauge1 = new CGauge (); 
110 gauge1->SetFOwner (&Window1); 
111 gauge1->SetName (lxT ("gauge1_px")); 
112 gauge1->SetX (13); 
113 gauge1->SetY (382 - 160); 
114 gauge1->SetWidth (140); 
115 gauge1->SetHeight (20); 
116 gauge1->SetEnable (1); 
117 gauge1->SetVisible (1); 
118 gauge1->SetRange (100); 
119 gauge1->SetValue (0); 
120 gauge1->SetType (4); 
121 Window1.CreateChild (gauge1); 
122 //gauge2 
123 gauge2 = new CGauge (); 
124 gauge2->SetFOwner (&Window1); 
125 gauge2->SetName (lxT ("gauge2_px")); 
126 gauge2->SetX (12); 
127 gauge2->SetY (330 - 160); 
128 gauge2->SetWidth (140); 
129 gauge2->SetHeight (20); 
130 gauge2->SetEnable (1); 
131 gauge2->SetVisible (1); 
132 gauge2->SetRange (100); 
133 gauge2->SetValue (0); 
134 gauge2->SetType (4); 
135 Window1.CreateChild (gauge2); 
136 //label2 
137 label2 = new CLabel (); 
138 label2->SetFOwner (&Window1); 
139 label2->SetName (lxT ("label2_px")); 
140 label2->SetX (12); 
141 label2->SetY (306 - 160); 
142 label2->SetWidth (60); 
143 label2->SetHeight (20); 
144 label2->SetEnable (1); 
145 label2->SetVisible (1); 
146 label2->SetText (lxT ("RB0")); 
147 label2->SetAlign (1); 
148 Window1.CreateChild (label2); 
149 //label3 
150 label3 = new CLabel (); 
151 label3->SetFOwner (&Window1); 
152 label3->SetName (lxT ("label3_px")); 
153 label3->SetX (13); 
154 label3->SetY (357 - 160); 
155 label3->SetWidth (60); 
156 label3->SetHeight (20); 
157 label3->SetEnable (1); 
158 label3->SetVisible (1); 
159 label3->SetText (lxT ("RB1")); 
160 label3->SetAlign (1); 
161 Window1.CreateChild (label3); 
162} 
163 
164//Destructor called once on board destruction  
165 
166cboard_x::~cboard_x(void) 
167{ 
168 //controls destruction  
169 Window1.DestroyChild (gauge1); 
170 Window1.DestroyChild (gauge2); 
171 Window1.DestroyChild (label2); 
172 Window1.DestroyChild (label3); 
173} 
174 
175//Reset board status 
176 
177void 
178cboard_x::Reset(void) 
179{ 
180 pic_reset (1); 
181 
182 p_BT1 = 1; //set push button  in default state (high)  
183 
184 //write button state to pic pin 19 (RD0) 
185 pic_set_pin (19, p_BT1); 
186 //write switch state to pic pin 20 (RD1) 
187 pic_set_pin (20, p_BT2); 
188 
189 
190 //verify serial port state and refresh status bar   
191#ifndef _WIN_ 
192 if (pic.serial[0].serialfd > 0) 
193#else 
194 if (pic.serial[0].serialfd != INVALID_HANDLE_VALUE) 
195#endif 
196  Window1.statusbar1.SetField (2, lxT ("Serial: ") + 
197                               lxString::FromAscii (SERIALDEVICE) + lxT (":") + itoa (pic.serial[0].serialbaud) + lxT ("(") + 
198                               lxString ().Format ("%4.1f", fabs ((100.0 * pic.serial[0].serialexbaud - 100.0 * 
199                                                                   pic.serial[0].serialbaud) / pic.serial[0].serialexbaud)) + lxT ("%)")); 
200 else 
201  Window1.statusbar1.SetField (2, lxT ("Serial: ") + 
202                               lxString::FromAscii (SERIALDEVICE) + lxT (" (ERROR)")); 
203 
204 if (use_spare)Window5.Reset (); 
205 
206 RegisterRemoteControl (); 
207} 
208 
209//Register variables to be controled by remote control 
210 
211void 
212cboard_x::RegisterRemoteControl(void) 
213{ 
214 //register inputa 
215 input_ids[I_BD0]->status = &p_BT1; 
216 input_ids[I_SD1]->status = &p_BT2; 
217 input_ids[I_POT1]->status = &pot1; 
218  
219 //register output to be updated on input change 
220 input_ids[I_BD0]->update = &output_ids[O_BD0]->update; 
221 input_ids[I_SD1]->update = &output_ids[O_SD1]->update; 
222 input_ids[I_POT1]->update = &output_ids[O_POT1]->update; 
223  
224 //register outputa 
225 output_ids[O_RB0]->status = &pic.pins[32].oavalue; 
226 output_ids[O_RB1]->status = &pic.pins[33].oavalue; 
227 output_ids[O_LD0]->status = &pic.pins[18].oavalue; 
228 output_ids[O_LD1]->status = &pic.pins[19].oavalue; 
229} 
230 
231//Called ever 1s to refresh status 
232 
233void 
234cboard_x::RefreshStatus(void) 
235{ 
236 //verify serial port state and refresh status bar    
237#ifndef _WIN_ 
238 if (pic.serial[0].serialfd > 0) 
239#else 
240 if (pic.serial[0].serialfd != INVALID_HANDLE_VALUE) 
241#endif 
242  Window1.statusbar1.SetField (2, lxT ("Serial: ") + 
243                               lxString::FromAscii (SERIALDEVICE) + lxT (":") + itoa (pic.serial[0].serialbaud) + lxT ("(") + 
244                               lxString ().Format ("%4.1f", fabs ((100.0 * pic.serial[0].serialexbaud - 100.0 * 
245                                                                   pic.serial[0].serialbaud) / pic.serial[0].serialexbaud)) + lxT ("%)")); 
246 else 
247  Window1.statusbar1.SetField (2, lxT ("Serial: ") + 
248                               lxString::FromAscii (SERIALDEVICE) + lxT (" (ERROR)")); 
249 
250} 
251 
252//Called to save board preferences in configuration file 
253 
254void 
255cboard_x::WritePreferences(void) 
256{ 
257 //write selected microcontroller of board_x to preferences 
258 Window1.saveprefs (lxT ("X_proc"), Proc); 
259 //write switch state of board_x to preferences  
260 Window1.saveprefs (lxT ("X_bt2"), lxString ().Format ("%i", p_BT2)); 
261 //write microcontroller clock to preferences 
262 Window1.saveprefs (lxT ("X_clock"), lxString ().Format ("%2.1f", Window1.GetClock ())); 
263 //write potentiometer position to preferences 
264 Window1.saveprefs (lxT ("X_pot1"), lxString ().Format ("%i", pot1)); 
265} 
266 
267//Called whe configuration file load  preferences  
268 
269void 
270cboard_x::ReadPreferences(char *name, char *value) 
271{ 
272 //read switch state of board_x of preferences  
273 if (!strcmp (name, "X_bt2")) 
274  { 
275   if (value[0] == '0') 
276    p_BT2 = 0; 
277   else 
278    p_BT2 = 1; 
279  } 
280 //read microcontroller of preferences 
281 if (!strcmp (name, "X_proc")) 
282  { 
283   Proc = value; 
284  } 
285 //read microcontroller clock 
286 if (!strcmp (name, "X_clock")) 
287  { 
288   Window1.SetClock (atof (value)); 
289  } 
290 
291 //read potentiometer position 
292 if (!strcmp (name, "X_pot1")) 
293  { 
294   pot1 = atoi (value); 
295  } 
296} 
297 
298 
299//Event on the board 
300 
301void 
302cboard_x::EvKeyPress(uint key, uint mask) 
303{ 
304 //if keyboard key 1 is pressed then activate button (state=0)    
305 if (key == '1') 
306  { 
307   p_BT1 = 0; 
308   output_ids[O_BD0]- >update = 1; 
309  } 
310 
311 //if keyboard key 2 is pressed then toggle switch state    
312 if (key == '2') 
313  { 
314   p_BT2 ^= 1; 
315   output_ids[O_SD1]- >update = 1; 
316  } 
317 
318} 
319 
320//Event on the board 
321 
322void 
323cboard_x::EvKeyRelease(uint key, uint mask) 
324{ 
325 //if keyboard key 1 is pressed then deactivate button (state=1)      
326 if (key == '1') 
327  { 
328   p_BT1 = 1; 
329   output_ids[O_BD0]- >update = 1; 
330  } 
331 
332} 
333 
334//Event on the board 
335 
336void 
337cboard_x::EvMouseButtonPress(uint button, uint x, uint y, uint state) 
338{ 
339 
340 int i; 
341 
342 //search for the input area which owner the event     
343 for (i = 0; i < inputc; i++) 
344  { 
345   if (((input[i].x1 <= x)&&(input[i].x2 >= x))&&((input[i].y1 <= y)&& 
346                                                  (input[i].y2 >= y))) 
347    { 
348 
349     switch (input[i].id) 
350      { 
351       //if event is over I_ISCP area then load hex file   
352      case I_ICSP: 
353       Window1.menu1_File_LoadHex_EvMenuActive (NULL); 
354       break; 
355       //if event is over I_PWR area then toggle board on/off 
356      case I_PWR: 
357       if (Window1.Get_mcupwr ()) //if on turn off 
358        { 
359         Window1.Set_mcurun (0); 
360         Window1.Set_mcupwr (0); 
361         Reset (); 
362         p_BT1 = 1; 
363         Window1.statusbar1.SetField (0, lxT ("Stoped")); 
364        } 
365       else //if off turn on 
366        { 
367         Window1.Set_mcupwr (1); 
368         Window1.Set_mcurun (1); 
369         Reset (); 
370         Window1.statusbar1.SetField (0, lxT ("Running...")); 
371        } 
372       output_ids[O_LPWR]- >update = 1; 
373       break; 
374       //if event is over I_RST area then turn off and reset 
375      case I_RST: 
376       if (Window1.Get_mcupwr () && pic_reset (- 1))//if powered 
377        { 
378         Window1.Set_mcupwr (0); 
379         Window1.Set_mcurst (1); 
380        } 
381       p_RST = 0; 
382       output_ids[O_RST]- >update = 1; 
383       break; 
384       //if event is over I_D0 area then activate button (state=0)  
385      case I_BD0: 
386       p_BT1 = 0; 
387       output_ids[O_BD0]- >update = 1; 
388       break; 
389       //if event is over I_D1 area then toggle switch state    
390      case I_SD1: 
391       p_BT2 ^= 1; 
392       output_ids[O_SD1]- >update = 1; 
393       break; 
394      case I_POT1: 
395       { 
396        active = 1; 
397        pot1 = (x -  input[i].x1)*2.77; 
398        if (pot1 > 199)pot1 = 199; 
399        output_ids[O_POT1]- >update = 1; 
400       } 
401       break; 
402      } 
403    } 
404  } 
405 
406} 
407 
408//Event on the board 
409 
410void 
411cboard_x::EvMouseMove(uint button, uint x, uint y, uint state) 
412{ 
413 int i; 
414 
415 for (i = 0; i < inputc; i++) 
416  { 
417   switch (input[i].id) 
418    { 
419    case I_POT1: 
420     if (((input[i].x1 <= x)&&(input[i].x2 >= x))&&((input[i].y1 <= y)&&(input[i].y2 >= y))) 
421      { 
422       if (active) 
423        { 
424         pot1 = (x -  input[i].x1)*2.77; 
425         if (pot1 > 199)pot1 = 199; 
426         output_ids[O_POT1]- >update = 1; 
427        } 
428      } 
429     break; 
430    } 
431  } 
432} 
433 
434//Event on the board 
435 
436void 
437cboard_x::EvMouseButtonRelease(uint button, uint x, uint y, uint state) 
438{ 
439 int i; 
440 
441 //search for the input area which owner the event   
442 for (i = 0; i < inputc; i++) 
443  { 
444   if (((input[i].x1 <= x)&&(input[i].x2 >= x))&&((input[i].y1 <= y)&& 
445                                                  (input[i].y2 >= y))) 
446    { 
447     switch (input[i].id) 
448      { 
449       //if event is over I_RST area then turn on   
450      case I_RST: 
451       if (Window1.Get_mcurst ())//if powered 
452        { 
453         Window1.Set_mcupwr (1); 
454         Window1.Set_mcurst (0); 
455 
456         if (pic_reset (- 1)) 
457          { 
458           Reset (); 
459          } 
460        } 
461       p_RST = 1; 
462       output_ids[O_RST]- >update = 1; 
463       break; 
464       //if event is over I_D0 area then deactivate button (state=1)  
465      case I_BD0: 
466       p_BT1 = 1; 
467       output_ids[O_BD0]- >update = 1; 
468       break; 
469      case I_POT1: 
470       { 
471        active = 0; 
472        output_ids[O_POT1]- >update = 1; 
473       } 
474       break; 
475      } 
476    } 
477  } 
478 
479} 
480 
481 
482//Called ever 100ms to draw board 
483//This is the critical code for simulator running speed 
484 
485void 
486cboard_x::Draw(CDraw *draw) 
487{ 
488 int update = 0; //verifiy if updated is needed 
489 int i; 
490 
491 
492 //board_x draw  
493 for (i = 0; i < outputc; i++) //run over all outputs 
494  { 
495   if (output[i].update)//only if need update 
496    { 
497     output[i].update = 0; 
498 
499     if (!update) 
500      { 
501       draw- >Canvas.Init (Scale, Scale); 
502      } 
503     update++; //set to update buffer 
504 
505     if (!output[i].r)//if output shape is a rectangle 
506      { 
507       if (output[i].id == O_SD1)//if output is switch 
508        { 
509         //draw a background white rectangle    
510         draw- >Canvas.SetBgColor (255, 255, 255); 
511         draw- >Canvas.Rectangle (1, output[i].x1, output[i].y1, 
512                                 output[i].x2 -  output[i].x1, output[i].y2 -  output[i].y1); 
513 
514         if (!p_BT2) //draw switch off 
515          { 
516           //draw a grey rectangle   
517           draw- >Canvas.SetBgColor (70, 70, 70); 
518           draw- >Canvas.Rectangle (1, output[i].x1, output[i].y1 + 
519                                   ((int) ((output[i].y2 -  output[i].y1)*0.35)), output[i].x2 -  output[i].x1, 
520                                   (int) ((output[i].y2 -  output[i].y1)*0.65)); 
521          } 
522         else //draw switch on 
523          { 
524           //draw a grey rectangle   
525           draw- >Canvas.SetBgColor (70, 70, 70); 
526           draw- >Canvas.Rectangle (1, output[i].x1, 
527                                   output[i].y1, output[i].x2 -  output[i].x1, 
528                                   (int) ((output[i].y2 -  output[i].y1)*0.65)); 
529          } 
530        } 
531       else if (output[i].id == O_BD0) 
532        { 
533         draw- >Canvas.SetColor (102, 102, 102); 
534         draw- >Canvas.Circle (1, output[i].cx, output[i].cy, 10);  
535         if (p_BT1)  
536          {  
537           draw- >Canvas.SetColor (15, 15, 15);  
538          }  
539         else  
540          {  
541           draw- >Canvas.SetColor (55, 55, 55);  
542          }  
543         draw- >Canvas.Circle (1, output[i].cx, output[i].cy, 8);  
544        }  
545       else if (output[i].id == O_RST)  
546        {  
547         draw- >Canvas.SetColor (102, 102, 102);  
548         draw- >Canvas.Circle (1, output[i].cx, output[i].cy, 10);  
549  
550         if (p_RST)  
551          {  
552           draw- >Canvas.SetColor (15, 15, 15);  
553          }  
554         else  
555          {  
556           draw- >Canvas.SetColor (55, 55, 55);  
557          }  
558         draw- >Canvas.Circle (1, output[i].cx, output[i].cy, 8);  
559        }  
560       else if (output[i].id == O_POT1)  
561        {  
562         draw- >Canvas.SetColor (0, 50, 215);  
563         draw- >Canvas.Rectangle (1, output[i].x1, output[i].y1, output[i].x2 -  output[i].x1, output[i].y2 -  output[i].y1);  
564         draw- >Canvas.SetColor (250, 250, 250);  
565         draw- >Canvas.Rectangle (1, output[i].x1 + pot1 / 2.77, output[i].y1 + 2, 10, 15);  
566        }  
567       else if (output[i].id == O_CPU)  
568        {  
569         draw- >Canvas.SetFont (font);  
570         int x, y, w, h;  
571         draw- >Canvas.SetColor (26, 26, 26);  
572         draw- >Canvas.Rectangle (1, output[i].x1, output[i].y1, output[i].x2 -  output[i].x1, output[i].y2 -  output[i].y1);  
573  
574         draw- >Canvas.SetColor (230, 230, 230);  
575         w = output[i].x2 -  output[i].x1;  
576         h = output[i].y2 -  output[i].y2;  
577         x = output[i].x1 + (w / 2) + 7;  
578         y = output[i].y1 + (h / 2) + (Proc.length ());  
579         draw- >Canvas.RotatedText (Proc, x, y, 270);  
580        }  
581      }  
582     else //if output shape is a circle  
583      {  
584       draw- >Canvas.SetFgColor (0, 0, 0); //black  
585  
586       switch (output[i].id)//search for color of output  
587        {  
588        case O_LD0: //White using pin 19 mean value (RD0)  
589         draw- >Canvas.SetBgColor (pic.pins[18].oavalue, pic.pins[18].oavalue, pic.pins[18].oavalue);  
590         break;  
591        case O_LD1: //Yelllow using pin 20 mean value (RD1)  
592         draw- >Canvas.SetBgColor (pic.pins[19].oavalue, pic.pins[19].oavalue, 0);  
593         break;  
594        case O_LPWR: //Blue using mcupwr value  
595         draw- >Canvas.SetBgColor (0, 0, 200 * Window1.Get_mcupwr () + 55);  
596         break;  
597        case O_RB0: //Green using pin 33 mean value (RB0)  
598         draw- >Canvas.SetBgColor (0, pic.pins[32].oavalue, 0);  
599         break;  
600        case O_RB1: //Red using pin 34 mean value (RB1)  
601         draw- >Canvas.SetBgColor (pic.pins[33].oavalue, 0, 0);  
602         break;  
603        }  
604  
605       //draw a LED  
606       color1 = draw- >Canvas.GetBgColor ();  
607       int r = color1.Red () -  120;  
608       int g = color1.Green () -  120;  
609       int b = color1.Blue () -  120;  
610       if (r < 0)r = 0;  
611       if (g < 0)g = 0;  
612       if (b < 0)b = 0;  
613       color2.Set (r, g, b);  
614       draw- >Canvas.SetBgColor (color2);  
615       draw- >Canvas.Circle (1, output[i].x1, output[i].y1, output[i].r + 1);  
616       draw- >Canvas.SetBgColor (color1);  
617       draw- >Canvas.Circle (1, output[i].x1, output[i].y1, output[i].r -  2);  
618      }  
619    }  
620  }  
621 //end draw  
622  
623 if (update)  
624  {  
625   draw- >Canvas.End ();  
626   draw- >Update ();  
627  }  
628  
629 //RB0 mean value to gauge1  
630 gauge1- >SetValue ((pic.pins[33].oavalue -  55) / 2);  
631 //RB1 mean value to gauge2  
632 gauge2- >SetValue ((pic.pins[32].oavalue -  55) / 2);  
633  
634}  
635  
636void  
637cboard_x::Run_CPU(void)  
638{  
639 int i;  
640 int j;  
641 unsigned char pi;  
642 const picpin * pins;  
643 unsigned int alm[40];  
644  
645 int JUMPSTEPS = Window1.GetJUMPSTEPS (); //number of steps skipped  
646 long int NSTEP = Window1.GetNSTEP () / MGetPinCount (); //number of steps in 100ms  
647  
648  
649 //reset pins mean value  
650 memset (alm, 0, 40 * sizeof (unsigned int));  
651  
652 //read pic.pins to a local variable to speed up   
653 pins = pic.pins;  
654  
655 //Spare parts window pre process  
656 if (use_spare)Window5.PreProcess ();  
657  
658 j = JUMPSTEPS; //step counter  
659 if (Window1.Get_mcupwr ()) //if powered  
660  for (i = 0; i < Window1.GetNSTEP (); i++) //repeat for number of steps in 100ms  
661   {  
662  
663    if (j >= JUMPSTEPS)//if number of step is bigger than steps to skip   
664     {  
665      pic_set_pin (pic.mclr, p_RST);  
666      pic_set_pin (19, p_BT1); //Set pin 19 (RD0) with button state   
667      pic_set_pin (20, p_BT2); //Set pin 20 (RD1) with switch state   
668     }  
669  
670    //verify if a breakpoint is reached if not run one instruction   
671    if (!mplabxd_testbp ())pic_step ();  
672    //Oscilloscope window process  
673    if (use_oscope)Window4.SetSample ();  
674    //Spare parts window process  
675    if (use_spare)Window5.Process ();  
676  
677    //increment mean value counter if pin is high  
678    alm[i % pic.PINCOUNT] += pins[i % pic.PINCOUNT].value;  
679  
680    if (j >= JUMPSTEPS)//if number of step is bigger than steps to skip   
681     {  
682  
683      //set analog pin 2 (AN0) with value from scroll    
684      pic_set_apin (2, (5.0 * pot1 / 199));  
685  
686      j = - 1; //reset counter  
687     }  
688    j++; //counter increment  
689   }  
690  
691 //calculate mean value  
692 for (pi = 0; pi < pic.PINCOUNT; pi++)  
693  {  
694   pic.pins[pi].oavalue = (int) (((200.0 * alm[pi]) / NSTEP) + 55);  
695  }  
696  
697 //Spare parts window pre post process  
698 if (use_spare)Window5.PostProcess ();  
699  
700 //verifiy if LEDS need update   
701 if (output_ids[O_LD0]- >value != pic.pins[18].oavalue)  
702  {  
703   output_ids[O_LD0]- >value = pic.pins[18].oavalue;  
704   output_ids[O_LD0]- >update = 1;  
705  }  
706 if (output_ids[O_LD1]- >value != pic.pins[19].oavalue)  
707  {  
708   output_ids[O_LD1]- >value = pic.pins[19].oavalue;  
709   output_ids[O_LD1]- >update = 1;  
710  }  
711 if (output_ids[O_RB0]- >value != pic.pins[32].oavalue)  
712  {  
713   output_ids[O_RB0]- >value = pic.pins[32].oavalue;  
714   output_ids[O_RB0]- >update = 1;  
715  }  
716 if (output_ids[O_RB1]- >value != pic.pins[33].oavalue)  
717  {  
718   output_ids[O_RB1]- >value = pic.pins[33].oavalue;  
719   output_ids[O_RB1]- >update = 1;  
720  }  
721  
722}  
723  
724  
725//Register the board in PICSimLab  
726board_init(BOARD_x_Name, cboard_x);  
727