C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 1 DOS C51 COMPILER V5.10, COMPILATION OF MODULE SPIER1 OBJECT MODULE PLACED IN SPIER1.OBJ COMPILER INVOKED BY: C:\C51LITE\BIN\C51.EXE SPIER1.C CD ROM(SMALL) stmt level source 1 // (c) 2000 SEGMENT bv 2 3 /*********** HARDCODED COPYRIGHT & VERSION INFORMATION *********************************************/ 4 #define SOFTVER 1 5 #define SOFTSUBVER 1 6 #define SOFTSUBSUBVER 7 7 char hardcodedcopyrightstring[]="(c) 2000 SEGMENT bv, v1.1.7"; 8 /***************************************************************************************************/ 9 10 11 12 13 /************************ DEFINITIONS **************************************************************/ 14 #include 15 #define TIMEMODE 0 16 #define PROGMODE 1 17 #define DECIMAL 0 18 #define HEXADECIMAL 1 19 #define HALFSECLENGTH 1954 20 // 1954 = 0,5 sec. @ 12MHz 1800 @ 11,059...Mhz 21 #define STING_REPEATTIME 36 22 /***************************************************************************************************/ 23 24 25 /***************** DECLARATIONS OF VARIABELS ******************************************************/ 26 int intcount, timecounthalfsec=0; 27 /* 28 the following sbits are defined in At892051.h 29 sbit P1_0 = 0x90; 30 sbit P1_1 = 0x91; 31 sbit P1_2 = 0x92; 32 sbit P1_3 = 0x93; 33 sbit P1_4 = 0x94; 34 sbit P1_5 = 0x95; 35 sbit P1_6 = 0x96; 36 sbit P1_7 = 0x97; 37 sbit P3_0 = 0xB0; 38 sbit P3_1 = 0xB1; 39 sbit P3_2 = 0xB2; 40 sbit P3_3 = 0xB3; 41 sbit P3_4 = 0xB4; 42 sbit P3_5 = 0xB5; 43 sbit P3_7 = 0xB7; */ 44 45 sbit mode = 0xB5; /* mode key */ 46 sbit up = 0xB3; /* up key */ 47 sbit down = 0xB4; /* down key */ 48 sbit startstop = 0xB2; /* start/stop key */ 49 sbit posout = 0xB0; /* output that drives transistor T1 */ 50 sbit negout = 0xB1; /* output that drives transistor T2 */ 51 sbit LD1_a = 0x91; /* 7seg-display LD1 seg a */ 52 sbit LD1_b = 0x90; /* 7seg-display LD1 seg b */ 53 sbit LD1_c = 0x92; /* 7seg-display LD1 seg c */ 54 sbit LD1_d = 0x93; /* 7seg-display LD1 seg d */ 55 sbit LD1_e = 0x94; /* 7seg-display LD1 seg e */ 56 sbit LD1_f = 0x95; /* 7seg-display LD1 seg f */ 57 sbit LD1_g = 0x96; /* 7seg-display LD1 seg g */ 58 sbit LD2_bc = 0x97; /* 7seg-display LD2 seg b & seg c */ 59 sfr LDs=0x90; /* the seg's that are declared as bits above are declared here as one byte */ C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 2 60 sbit LEDs_mode = 0xB7; /* toggles the mode LEDs (LED D1 & D2) */ 61 62 bit temp; /* temporary bit for making compare actions of IO bits fail-save */ 63 bit mode_old=1, up_old=1, down_old=1, startstop_old=1; /* bits for saving the previous state of the input --keys */ 64 bit modepressedflag=0, uppressedflag=0, downpressedflag=0, startstoppressedflag=0, 65 /* flags that indicate whether a key has been pressed or not */ 66 outflag=0, startnotstopflag=0, displayrunning=0; 67 /* flags that indicate whether there has to be output or not (outflag), 68 whether a treatment has to start or stop (startnotstopflag), 69 whether the display has to show running segments (displayrunning) */ 70 71 unsigned int antidender, outpcount; 72 /* counters used in the interrupt routine for stabilizing key-inputs (antidender) 73 and calculation of output-puls pattern */ 74 75 unsigned char treatmenttime=0; // contains the time that is left during a treatment. unity: 1 minute. init -ial value=0. 76 unsigned int totaltime=0; //contains the time that was setup before the user started the treatment unity: -one minute initial value=0 77 char prog=0, dutycycle=0; //prog contains will contain the selected program (1,2...8,9 e.g. A,B...E,F -) 78 char testarray[]={205,163,72,194,133,205,145,207,163,200}; //"ROMVERSION" 79 char limsarray[]={199,207,72,145}; //"LIMS" 80 char segmentarray[]={253,254,251,247,239,223,191,127,255}; //single segments, used in testroutine 81 char versionarray[]={SOFTVER,SOFTSUBVER,SOFTSUBSUBVER}; //versionarray contains software versionnumbe -r 82 /******************************************************************************************************/ 83 84 85 86 87 88 /************ FUNCTION PROTOTYPES ********************************************/ 89 void timer0int (void); //prototype of interruptfunction 90 void display (char,bit); //prototype of function for general displayhandling 91 void GetDutycycle(void); //prototype of function for calculating the dutycycle 92 void testroutine(void); //prototype of testroutine 93 void delay(unsigned integer); //prototype of delayfunction 94 /****************************************************************************/ 95 96 97 98 99 100 101 102 main() 103 { 104 1 /*********************************** INIT **************************************************/ 105 1 unsigned int n; char counter; 106 1 posout = 1; // make sure that transistors T1 & T2 are conducting 107 1 negout = 1; // as soon as posible, so that C5 cannot build up any charge 108 1 109 1 110 1 /******** SETUP INTERRUPT-TIMING ***************/ 111 1 /* Using an 8 bit timer that counts at a */ 112 1 /* frequency of 1/12*CLOCKFREQUENCY */ 113 1 /* generates an interrupt on every overflow */ 114 1 /* so every 256 microseconds @ 12Mhz christal */ 115 1 116 1 /* 117 1 select mode 3 for timer 0: T0_M0_=1 118 1 T0_M1_=1 119 1 configure timer 0 as a timer and not as a counter: T0_CT_=0 120 1 timer 0 always running; no external control by means of /INT0 io-pin: T0_GATE_=0 C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 3 121 1 above bits are only availeble as a byte register declared in the At892051.h headerfile as TMOD, 122 1 thus TMOD byte register = 00000011 = 3 (dec.) 123 1 */ 124 1 125 1 TMOD=3; 126 1 127 1 128 1 TR0=1; // timer 0 run control bit on 129 1 EA=1; // enable all interrupts 130 1 ET0=1; // enable timer0 interrupt 131 1 132 1 /******** END INTERRUPT-TIMER SETUP ************/ 133 1 134 1 135 1 /**********************************************************************-> END INIT <-**********/ 136 1 137 1 138 1 139 1 140 1 141 1 142 1 143 1 144 1 145 1 /********************ON POWER-UP **********************************/ 146 1 while(1==1) 147 1 { 148 2 delay(16000); 149 2 if(uppressedflag==1 && downpressedflag==1) testroutine(); 150 2 else break; //break unless test-mode is entered by means of pressing up & down key during delay(16000) 151 2 } 152 1 153 1 154 1 for(counter=0;counter<4;counter++) 155 1 { 156 2 delay(17500); LDs=limsarray[counter]; 157 2 delay(17500); LDs=255; 158 2 } // display "LIMS" 159 1 160 1 LEDs_mode=PROGMODE; //on power-up, program-mode is selected 161 1 display(prog,HEXADECIMAL); //display program. Initial value of prog was set to '0' 162 1 //in the display() subroutine is determined that 163 1 //only seg d lites up when display() is called HEXADECIMAL 164 1 /********************************************************************/ 165 1 166 1 167 1 168 1 while(1==1) 169 1 { 170 2 if(startnotstopflag==0) //ready to run treatmentprogram, currently not running 171 2 { 172 3 if(uppressedflag==1) // up-key pressed 173 3 { 174 4 if(LEDs_mode==PROGMODE) 175 4 { 176 5 if(prog>14 || prog <1) prog=1; 177 5 else prog++; 178 5 display(prog,HEXADECIMAL); 179 5 } 180 4 181 4 else // LEDsmode==TIMEMODE 182 4 { 183 5 if(treatmenttime>18) treatmenttime=1; 184 5 else treatmenttime++; 185 5 display(treatmenttime,DECIMAL); 186 5 timecounthalfsec=0; C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 4 187 5 } 188 4 uppressedflag=0; 189 4 } 190 3 191 3 if(downpressedflag==1) // down-key pressed 192 3 { 193 4 if(LEDs_mode==PROGMODE) 194 4 { 195 5 if(prog<2) prog=15; 196 5 else prog--; 197 5 display(prog,HEXADECIMAL); 198 5 } 199 4 200 4 else // LEDs_mode=TIMEMODE 201 4 { 202 5 if(treatmenttime<2) treatmenttime=19; 203 5 else treatmenttime--; 204 5 display(treatmenttime,DECIMAL); 205 5 timecounthalfsec=0; 206 5 } 207 4 downpressedflag=0; 208 4 } 209 3 210 3 if(modepressedflag==1) // modeselect-key pressed 211 3 { 212 4 temp=~LEDs_mode; 213 4 LEDs_mode=temp; 214 4 if(temp==TIMEMODE) display(treatmenttime,DECIMAL); 215 4 else display(prog,HEXADECIMAL); 216 4 modepressedflag=0; 217 4 } 218 3 219 3 if(startstoppressedflag==1) // start/stop key pressed 220 3 { 221 4 if(prog==0) // when prog==0 the user did not select a program 222 4 { // in that case make sure we are in prog mode 223 5 LEDs_mode=PROGMODE; // display a flashing seg d 224 5 display(21,0); 225 5 } 226 4 227 4 else 228 4 { 229 5 if(treatmenttime==0) //when treatmenttime==0 the user did not select 230 5 { //the duration time. In that case 231 6 LEDs_mode=TIMEMODE; //make sure we are in time mode and display a flasing '0' 232 6 display(22,0); 233 6 } 234 5 235 5 else //when prog and time are set reset interrupt counter 236 5 { //reset timecounters and set startnotstopflag. 237 6 intcount=0; //make n zero so that the display starts running immediately 238 6 totaltime=treatmenttime; 239 6 /* treatmenttime will be decreased when treatmentprogram is running. 240 6 A saved value of the initial selected time is needed for the 241 6 automated programs (progA..F) to calculate when the dutycycle should change 242 6 therefore treatmenttime is copied to totaltime. */ 243 6 startnotstopflag=1; 244 6 n=0; 245 6 } 246 5 } 247 4 startstoppressedflag=0; 248 4 } 249 3 } /* end if(startnotstopflag==0) */ 250 2 251 2 252 2 C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 5 253 2 254 2 255 2 256 2 257 2 /**************** following code is executed when treatment program is started ************************** -/ 258 2 259 2 if(startnotstopflag==1) //treatmentprogram is running 260 2 { 261 3 GetDutycycle(); 262 3 if (timecounthalfsec%dutycycle==0 || timecounthalfsec%dutycycle==1) //calculates when there should b -e output 263 3 { 264 4 outflag=1; //output 265 4 } 266 3 else outflag=0; //no output 267 3 268 3 if(uppressedflag==1 || downpressedflag==1) // if the user presses the up or down key, make the display v -isible 269 3 { // for a few seconds. (look futher down below to 270 4 n=40000; // understand the construction with n) 271 4 uppressedflag=0; downpressedflag=0; 272 4 } 273 3 274 3 if(modepressedflag==1) // if the user presses the mode key, toggle mode 275 3 { // and make the display visible for a few seconds 276 4 LEDs_mode=~LEDs_mode; //toggle mode // look further down below to 277 4 n=40000; // understand the construction with n) 278 4 modepressedflag=0; 279 4 } 280 3 281 3 282 3 283 3 if(startstoppressedflag==1 || treatmenttime==0) //treatment has to be stopped 284 3 { //because the user pressed the stop key OR because 'the time is up' 285 4 outflag=0; 286 4 modepressedflag=0; uppressedflag=0; downpressedflag=0; startstoppressedflag=0; 287 4 startnotstopflag=0; 288 4 if(treatmenttime==0) // time is up; in that case the user needs to re-enter 289 4 { // prog and treatmenttime before he can start again 290 5 prog=0; // Therefore prog is resetted to its initial value of '0'. 291 5 } 292 4 if(LEDs_mode==TIMEMODE) display(treatmenttime,DECIMAL); 293 4 else display(prog,HEXADECIMAL); 294 4 } 295 3 296 3 297 3 else //treatment has to contine 298 3 { 299 4 if (n>20000) // is n is set to a value greater than 20000, 300 4 // the display is made visible and n is decreased with 1 until n<20000 301 4 { 302 5 displayrunning=0; 303 5 if(LEDs_mode==TIMEMODE) display(treatmenttime,DECIMAL); 304 5 else display(prog,HEXADECIMAL); 305 5 n--; 306 5 } 307 4 else displayrunning=1; // keep display display a running '8' 308 4 } 309 3 } 310 2 } /* end while (1==1) */ 311 1 } /* end main */ 312 313 314 315 C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 6 316 void timer0int (void) interrupt 1 using 1 317 { 318 1 intcount++; 319 1 if (startnotstopflag==1 && intcount>HALFSECLENGTH) 320 1 { 321 2 intcount=0; 322 2 timecounthalfsec++; 323 2 if(timecounthalfsec%120==0) treatmenttime--; 324 2 } 325 1 326 1 if(displayrunning==1) 327 1 { 328 2 LD1_g=1; 329 2 LD2_bc=1; 330 2 if (intcount<(HALFSECLENGTH/8)*1) LDs=253; /*seg a*/ 331 2 else if (intcount<(HALFSECLENGTH/8)*2) LDs=254; /*seg b*/ 332 2 else if (intcount<(HALFSECLENGTH/8)*3) LDs=191; /*seg g*/ 333 2 else if (intcount<(HALFSECLENGTH/8)*4) LDs=239; /*seg e*/ 334 2 else if (intcount<(HALFSECLENGTH/8)*5) LDs=247; /*seg d*/ 335 2 else if (intcount<(HALFSECLENGTH/8)*6) LDs=251; /*seg c*/ 336 2 else if (intcount<(HALFSECLENGTH/8)*7) LDs=191; /*seg g*/ 337 2 else LDs=223; /*seg f*/ 338 2 displayrunning=0; 339 2 } 340 1 341 1 if(mode!=mode_old || up!=up_old || down!=down_old || startstop!=startstop_old) 342 1 { 343 2 mode_old=mode; 344 2 up_old=up; 345 2 down_old=down; 346 2 startstop_old=startstop; 347 2 antidender=0; 348 2 } 349 1 350 1 if(mode==mode_old && up==up_old && down==down_old && startstop==startstop_old) 351 1 { 352 2 antidender++; 353 2 if(antidender==40) 354 2 { 355 3 modepressedflag=~mode_old; 356 3 uppressedflag=~up_old; 357 3 downpressedflag=~down_old; // ~ = 1s-complement operator 358 3 startstoppressedflag=~startstop_old; 359 3 } 360 2 else if(antidender==4500) 361 2 { 362 3 uppressedflag=~up_old; 363 3 downpressedflag=~down_old; 364 3 } 365 2 366 2 else if(antidender==5100) 367 2 { 368 3 uppressedflag=~up_old; 369 3 downpressedflag=~down_old; 370 3 antidender=4500; 371 3 } 372 2 } 373 1 374 1 if(outpcount==0) 375 1 { 376 2 if(outflag==1) 377 2 { 378 3 outpcount++; 379 3 } 380 2 else { posout=1; negout=1; } 381 2 } C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 7 382 1 383 1 else 384 1 { 385 2 outpcount++; 386 2 if(outpcount==2) 387 2 { 388 3 posout=1; 389 3 } 390 2 391 2 else if(outpcount==3) 392 2 { 393 3 posout=0; 394 3 } 395 2 396 2 else if(outpcount==(STING_REPEATTIME/2)+2) 397 2 { 398 3 negout=1; 399 3 } 400 2 401 2 else if(outpcount==(STING_REPEATTIME/2)+3) 402 2 { 403 3 negout=0; 404 3 } 405 2 406 2 else if(outpcount==STING_REPEATTIME+1) 407 2 { 408 3 outpcount=0; 409 3 } 410 2 } 411 1 } 412 413 void display (char display,bit mode) 414 { 415 1 //unsigned int n; 416 1 417 1 418 1 switch(display) 419 1 { 420 2 case 0: if(mode==DECIMAL) LDs=192; 421 2 else LDs=247; 422 2 break; 423 2 424 2 case 1: LDs=250; break; 425 2 case 2: LDs=164; break; 426 2 case 3: LDs=176; break; 427 2 case 4: LDs=154; break; 428 2 case 5: LDs=145; break; 429 2 case 6: LDs=129; break; 430 2 case 7: LDs=248; break; 431 2 case 8: LDs=128; break; 432 2 case 9: LDs=144; break; 433 2 case 10: 434 2 if(mode==DECIMAL) LDs=64; 435 2 else LDs=136; 436 2 break; 437 2 case 11: 438 2 if(mode==DECIMAL) LDs=122; 439 2 else LDs=131; 440 2 break; 441 2 case 12: 442 2 if(mode==DECIMAL) LDs=36; 443 2 else LDs=197; 444 2 break; 445 2 case 13: 446 2 if(mode==DECIMAL) LDs=48; 447 2 else LDs=162; C51 COMPILER V5.10, SPIER1 21/01/00 10:49:25 PAGE 8 448 2 break; 449 2 case 14: 450 2 if(mode==DECIMAL) LDs=26; 451 2 else LDs=133; 452 2 break; 453 2 case 15: 454 2 if(mode==DECIMAL) LDs=17; 455 2 else LDs=141; 456 2 break; 457 2 case 16: LDs=1; break; 458 2 case 17: LDs=120; break; 459 2 case 18: LDs=0; break; 460 2 case 19: LDs=16; break; 461 2 462 2 case 21: //'Prompt' like an MS-DOS prompt 463 2 // user has to enter a value by pressing up or down key before prompt disapeares 464 2 465 2 while(uppressedflag==0 && downpressedflag==0) //otherwhise user may not/cannot do anything 466 2 { 467 3 LDs=255; delay(6000); 468 3 LDs=247; delay(5000); 469 3 } 470 2 break; 471 2 472 2 case 22: //'flashing zero' 473 2 // user has to enter a value by pressing up or down key before 'flashing zero' dis -apeares 474 2 475 2 while(uppressedflag==0 && downpressedflag==0) //otherwhise user may not/cannot do anything 476 2 { 477 3 LDs=255; delay(6000); 478 3 LDs=192; delay(5000); 479 3 } 480 2 break; 481 2 } /* end switch */ 482 1 } /* end display() */ 483 484 485 void GetDutycycle(void) 486 { 487 1 char para1, para2, para3; 488 1 /* The following 2 lines could be called 'dirty code'; on ALL even programs para1=10, para2=7 and para3=5 489 1 on ALL odd programs para1=9, para2=6 and para3=3. 490 1 The dirty thing is that these para1,2,3 are only used in the preset programs, A,B...E,F. 491 1 Code would be faster and, even more important, clearer if the assignment of para1,2,3 would take place 492 1 in the IF..ELSE constructions that determine the dutycycle (a few lines below). 493 1 We have done it this 'dirty way' because the size of the code reduced 'dramaticaly' this way (several b -ytes). 494 1 */ 495 1 if(prog%2==0){para1=10; para2=7; para3=5;} 496 1 else {para1=9; para2=6; para3=3;} 497 1 498 1 if(prog<10) dutycycle=12-prog; 499 1 500 1 else if(prog<12) /* prog = A eg. B */ 501 1 { 502 2 if(timecounthalfsec