'
   '  **************************************************
   '  *                                                *
   '  *  時計LSI MM5316N用                             *
   '  *          基準信号＋アラーム音 発生プログラム   *
   '  *                                                *
   '  *     AVR is using AT90S2323-10PC                *
   '  *     Basic Compiler is BASCOM-AVR               *
   '  *        Copyright By O-Family   2008. 8. 6      *
   '  **************************************************
   '
   '     Ver 1.01  初回公開バージョン
   '
   '
$regfile = "2323DEF.dat"                                    '使用するAVRを設定。
$crystal = 6144000                                          'AVRクロックを設定。
   '
   '
   Config Portb = Output                                    'PORT Bを、出力に設定。
   '
   Set Portb.1                                              '50Hzパルスの逆位相用に、ポートを反転。
   '
   Config Timer0 = Timer , Prescale = 1024                  'Timer0を設定。 6.144MHz / 1024 = 6,000Hz
   Load Timer0 , 60                                         '基準パルスを50Hzに設定。6,000Hz / 120 = 50Hz
   On Timer0 Tm0int                                         'Timer0 の割り込みルーチンを設定。
   Enable Timer0                                            'TIMER0 オーバーフロー割り込みを許可。
   '
   Enable Interrupts                                        'すべての割り込みを許可。
   '
   '  *******************
   '  * メイン ルーチン *
   '  *******************
   '
   Do
   '
      Sound Portb.2 , 100 , 512                             'アラーム音を発生。
      Waitms 100                                            '1,000Hz 100mSの断続音。
   '
   Loop
   '
   End
   '
   '  *********************************************
   '  * TIMER0 オーバーフロー割り込み処理ルーチン *
   '  *********************************************
   '
Tm0int:
   Load Timer0 , 60                                         'タイマーカウント値を再設定。
   Toggle Portb.0                                           '正位相ポートを反転。
   Toggle Portb.1                                           '逆位相ポートを反転。
   Return
   '
   End