C51 COMPILER V8.01   2_50_11G                                                              07/13/2008 18:02:06 PAGE 1   


C51 COMPILER V8.01, COMPILATION OF MODULE 2_50_11G
OBJECT MODULE PLACED IN 2_50_11G.OBJ
COMPILER INVOKED BY: C:\Keil\C51\BIN\C51.EXE 2_50_11G.C OPTIMIZE(6,SIZE) BROWSE DEBUG OBJECTEXTEND

line level    source

   1          /*------------------------------------------------------------------*-
   2          
   3             2_50_11g.C (v1.00) 
   4          
   5            ------------------------------------------------------------------
   6          
   7             *** THIS IS A SCHEDULER FOR STANDARD 8051 / 8052 ***
   8          
   9             *** Uses T2 for timing, 16-bit auto reload ***
  10             *** 11.059 MHz oscillator -> 50 ms (precise) tick interval ***
  11          
  12          
  13             COPYRIGHT
  14             ---------
  15          
  16             This code is from the book:
  17          
  18             PATTERNS FOR TIME-TRIGGERED EMBEDDED SYSTEMS by Michael J. Pont 
  19             [Pearson Education, 2001; ISBN: 0-201-33138-1].
  20          
  21             This code is copyright (c) 2001 by Michael J. Pont.
  22           
  23             See book for copyright details and other information.
  24          
  25          -*------------------------------------------------------------------*/
  26          
  27          #include "2_50_11g.h"
  28          
  29          // ------ Public variable declarations -----------------------------
  30          
  31          // The array of tasks (see Sch51.C)
  32          extern sTask SCH_tasks_G[SCH_MAX_TASKS];
  33          
  34          // Used to display the error code
  35          // See Main.H for details of error codes
  36          // See Port.H for details of the error port
  37          extern tByte Error_code_G;
  38          
  39          /*------------------------------------------------------------------*-
  40          
  41            SCH_Init_T2()
  42          
  43            Scheduler initialisation function.  Prepares scheduler
  44            data structures and sets up timer interrupts at required rate.
  45            
  46            You must call this function before using the scheduler.  
  47          
  48          -*------------------------------------------------------------------*/
  49          void SCH_Init_T2(void) 
  50             {
  51   1         tByte i;
  52   1      
  53   1         for (i = 0; i < SCH_MAX_TASKS; i++) 
  54   1            {
  55   2            SCH_Delete_Task(i);
C51 COMPILER V8.01   2_50_11G                                                              07/13/2008 18:02:06 PAGE 2   

  56   2            }
  57   1      
  58   1         // Reset the global error variable
  59   1         // - SCH_Delete_Task() will generate an error code, 
  60   1         //   (because the task array is empty)
  61   1         Error_code_G = 0;
  62   1      
  63   1         // Now set up Timer 2
  64   1         // 16-bit timer function with automatic reload
  65   1      
  66   1         // Crystal is assumed to be 11.0592 MHz
  67   1         // Assume 12 osc cycles per timer increment
  68   1         // -> timer resolution is 0.000001085069444444 seconds (1.085 祍)
  69   1         // The required Timer 2 overflow is 0.050 seconds (50 ms)
  70   1         // - this takes 46080 timer ticks
  71   1         // Reload value is 65536 - 46080 = 19456 (dec) = 0x4C00
  72   1      
  73   1         T2CON = 0x04;   // load Timer 2 control register
  74   1         T2MOD = 0x00;   // load Timer 2 mode register
  75   1      
  76   1         TH2    = 0x4C;  // load timer 2 high byte
  77   1         RCAP2H = 0x4C;  // load timer 2 reload capture reg, high byte
  78   1         TL2    = 0x00;  // load timer 2 low byte
  79   1         RCAP2L = 0x00;  // load timer 2 reload capture reg, low byte
  80   1      
  81   1         ET2   = 1;
  82   1      
  83   1         TR2   = 1;      /// start timer 2
  84   1         }
  85          
  86          /*------------------------------------------------------------------*-
  87            
  88            SCH_Start()
  89          
  90            Starts the scheduler, by enabling interrupts.
  91          
  92            NOTE: Usually called after all regular tasks are added,
  93            to keep the tasks synchronised.
  94          
  95            NOTE: ONLY THE SCHEDULER INTERRUPT SHOULD BE ENABLED!!! 
  96           
  97          -*------------------------------------------------------------------*/
  98          void SCH_Start(void) 
  99             {
 100   1         EA = 1;
 101   1         }
 102          
 103          /*------------------------------------------------------------------*-
 104          
 105            SCH_Update
 106          
 107            This is the scheduler ISR.  It is called at a rate 
 108            determined by the timer settings in SCH_Init().
 109            This version is triggered by Timer 2 interrupts:
 110            timer is automatically reloaded.
 111          
 112          -*------------------------------------------------------------------*/
 113          void SCH_Update(void) interrupt INTERRUPT_Timer_2_Overflow  
 114             {
 115   1         tByte Index;
 116   1      
 117   1         TF2 = 0; // Clear flag 
C51 COMPILER V8.01   2_50_11G                                                              07/13/2008 18:02:06 PAGE 3   

 118   1       
 119   1         // NOTE: calculations are in *TICKS* (not milliseconds)
 120   1         for (Index = 0; Index < SCH_MAX_TASKS; Index++)
 121   1            {
 122   2            // Check if there is a task at this location
 123   2            if (SCH_tasks_G[Index].pTask)
 124   2               {
 125   3               if (SCH_tasks_G[Index].Delay == 0)
 126   3                  {
 127   4                  // The task is due to run
 128   4                  SCH_tasks_G[Index].RunMe = 1;  // Set the run flag
 129   4      
 130   4                  if (SCH_tasks_G[Index].Period)
 131   4                     {
 132   5                     // Schedule periodic tasks to run again
 133   5                     SCH_tasks_G[Index].Delay = SCH_tasks_G[Index].Period;
 134   5                     }
 135   4                  }
 136   3               else
 137   3                  {
 138   4                  // Not yet ready to run: just decrement the delay 
 139   4                  SCH_tasks_G[Index].Delay -= 1;
 140   4                  }
 141   3               }         
 142   2            }
 143   1         }   
 144          
 145          
 146          /*------------------------------------------------------------------*-
 147            ---- END OF FILE -------------------------------------------------
 148          -*------------------------------------------------------------------*/


MODULE INFORMATION:   STATIC OVERLAYABLE
   CODE SIZE        =    169    ----
   CONSTANT SIZE    =   ----    ----
   XDATA SIZE       =   ----    ----
   PDATA SIZE       =   ----    ----
   DATA SIZE        =   ----       1
   IDATA SIZE       =   ----    ----
   BIT SIZE         =   ----    ----
END OF MODULE INFORMATION.


C51 COMPILATION COMPLETE.  0 WARNING(S),  0 ERROR(S)