blink.c

00001 /* blink.c -- Blink program for Christmas trees
00002    Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
00003    Written by Stephane Carrez (stcarrez@nerim.fr)
00004 
00005 This file is part of GTAM.
00006 
00007 GTAM is free software; you can redistribute it and/or modify
00008 it under the terms of the GNU General Public License as published by
00009 the Free Software Foundation; either version 2, or (at your option)
00010 any later version.
00011 
00012 GTAM is distributed in the hope that it will be useful,
00013 but WITHOUT ANY WARRANTY; without even the implied warranty of
00014 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00015 GNU General Public License for more details.
00016 
00017 You should have received a copy of the GNU General Public License
00018 along with GTAM; see the file COPYING.  If not, write to
00019 the Free Software Foundation, 59 Temple Place - Suite 330,
00020 Boston, MA 02111-1307, USA.  */
00021 
00055 #include <sys/ports.h>
00056 
00057 #define BIT_0 (1<<0)
00058 #define BIT_1 (1<<1)
00059 #define BIT_2 (1<<2)
00060 #define BIT_3 (1<<3)
00061 #define BIT_4 (1<<4)
00062 #define BIT_5 (1<<5)
00063 #define BIT_6 (1<<6)
00064 #define BIT_7 (1<<7)
00065 
00066 /* Port D */
00067 #define BOARD_RX     (BIT_0)
00068 #define BOARD_TX     (BIT_1)
00069 #define BOARD_LCD_0  (BIT_2)
00070 #define BOARD_LCD_1  (BIT_3)
00071 #define BOARD_LCD_2  (BIT_4)
00072 #define BOARD_LCD_3  (BIT_5)
00073 
00074 /* Port A */
00075 #define BOARD_KEY_0   (BIT_0)
00076 #define BOARD_KEY_1   (BIT_1)
00077 #define BOARD_KEY_2   (BIT_2)
00078 #define BOARD_ROM_DIS (BIT_3)
00079 #define BOARD_LCD_4   (BIT_4)
00080 #define BOARD_LCD_5   (BIT_5)
00081 #define BOARD_LCD_6   (BIT_6)
00082 #define BOARD_KEY_3   (BIT_7)
00083 
00084 /* Port E */
00085 #define BOARD_PEB_0   (BIT_0)
00086 #define BOARD_PEB_1   (BIT_1)
00087 #define BOARD_PEB_2   (BIT_2)
00088 #define BOARD_PEB_3   (BIT_3)
00089 #define BOARD_PEB_4   (BIT_4)
00090 #define BOARD_PEB_5   (BIT_5)
00091 #define BOARD_PEB_6   (BIT_6)
00092 #define BOARD_PEB_7   (BIT_7)
00093 
00094 /* Control of Fan, Light and mains detection on Port A.  */
00095 #define EBCS_CMD_FAN     (BOARD_LCD_5)
00096 #define EBCS_CMD_LIGHT   (BOARD_LCD_6)
00097 #define EBCS_SENSE_LIGHT (BOARD_KEY_0)
00098 #define EBCS_SENSE_MAINS (BOARD_PE2)
00099 
00100 int __attribute__((noreturn)) main (void);
00101 void _start (void);
00102 void delay_ms (unsigned ms);
00103 
00104 void
00105 _start()
00106 {
00107   set_bus_expanded ();
00108 
00109   main ();
00110 }
00111 
00112 #define TABLE_SIZE(X) ((sizeof X) / sizeof (X[0]))
00113 
00114 /* Speed is defined as a delay and a repetition counter.
00115 
00116    SPEED(200,4) means 4 blinking at 200ms
00117 
00118    Delay and counter are stored using 4-bits each.
00119 */
00120 #define SPEED(T,CNT) ((((T)/100) & 0x0F) | ((CNT) & 0x0F)<<4)
00121 
00122 static const unsigned char speeds[] = {
00123   SPEED(200,4),
00124   SPEED(500,2),
00125   SPEED(300,1),
00126   SPEED(500,5),
00127   SPEED(800,3),
00128   SPEED(200,4),
00129   SPEED(100,6),
00130   SPEED(500,4),
00131 
00132   SPEED(200,3),
00133   SPEED(600,4),
00134   SPEED(100,2),
00135   SPEED(400,6),
00136   SPEED(800,2),
00137   SPEED(100,1),
00138   SPEED(900,1),
00139   SPEED(100,2),
00140   SPEED(900,1),
00141   SPEED(100,2),
00142   SPEED(900,1),
00143 
00144   SPEED(800,4),
00145   SPEED(100,1),
00146   SPEED(800,4),
00147   SPEED(100,2),
00148   SPEED(800,3),
00149   SPEED(100,4),
00150   SPEED(800,2),
00151   SPEED(100,8),
00152   SPEED(800,1),
00153 
00154   SPEED(1500,2)
00155 };
00156 
00157 /* Wait 'ms' milliseconds (not accurate (:- (:-), hand adjusted
00158    and based on human time accuracy (understand, SCz feeling).  */
00159 void
00160 delay_ms (unsigned ms)
00161 {
00162   unsigned short tcnt;
00163 
00164   while (ms > 0)
00165     {
00166       unsigned i;
00167       
00168       for (i = 100; --i != 0;)
00169         tcnt = get_timer_counter ();
00170 
00171       ms--;
00172     }
00173 }
00174 
00175 int
00176 main ()
00177 {
00178   unsigned short i;
00179   unsigned short dt;
00180   short j;
00181   
00182   i = 0;
00183   while (1)
00184     {
00185       dt = speeds[i];
00186       j = (short) (speeds[i] >> 4);
00187       dt = (unsigned short) ((speeds[i] & (char) 0x0F) * (char) 100);
00188 
00189       do {
00190         /* Turn on the light.  */
00191         _io_ports[M6811_PORTA] |= EBCS_CMD_FAN | EBCS_CMD_LIGHT;
00192 
00193         /* Pause the delay specified in the speeds table.  */
00194         delay_ms (dt);
00195 
00196         /* Turn off the light.  */
00197         _io_ports[M6811_PORTA] &= ~(EBCS_CMD_FAN | EBCS_CMD_LIGHT);
00198 
00199         /* Pause again and repeat according to speeds table.  */
00200         delay_ms (dt);
00201       } while (--j >= 0);
00202 
00203       /* Pick next blinking rate (wrap to beginning if we reach the end).  */
00204       i++;
00205       if (i > TABLE_SIZE (speeds))
00206         i = 0;
00207     }
00208 }
00209