H8-300Hのソフト開発をMacOSX上でやろう、の日記

#include "lcd.h"
#include "3052.h"
#include <stdio.h>

#define TIMER0_INTERRUPT_CYCLE 1000 /* usec */
#define BASE_CLOCK 25 /* MHz */

#define TIMER0_COUNT (BASE_CLOCK*TIMER0_INTERRUPT_CYCLE)

void timer0_interrupt() __attribute__((interrupt_handler));

volatile unsigned int timer0count = 0;

void timer0_init()
{
  ITU.TSTR.BIT.STR0 = 0; /* stop timer0 */
  ITU.TSNC.BIT.SYNC0 = 0; /* no sync */
  ITU.TMDR.BIT.PWM0 = 0; /* not PWM mode */
  ITU0.TCR.BYTE = 0x00; /* no auto clear; raise edge; clock 1x */
  ITU0.TIOR.BYTE = 0x00; /* no TIOCA, TIOCB */
  ITU0.TIER.BYTE = 0x04; /* interrupt on overflow */
  SYSCR.BIT.UE = 1; /* use UI bit for user bit */
  ITU0.TCNT = 0xffff-TIMER0_COUNT; /* count down */
  ITU0.TSR.BIT.OVF = 0; /* clear flag */
  ITU.TSTR.BIT.STR0 = 1; /* start timer0 */
}

void timer0_interrupt()
{
  ITU0.TSR.BIT.OVF = 0; /* clear flag */
  ITU0.TCNT = 0xffff-TIMER0_COUNT; /* reset counter */
  timer0count++;
}

int main()
{
  char msg[32];
  unsigned int sec,tm0,tm1;
  unsigned char pa,pa0;

  PA.DDR = 0x00;
  PB.DDR = 0xff;
  PB.DR.BYTE = 0xff;

  LCDInit();
  LCDDisplay("TIMER TEST",0);
  timer0_init();
  sec = tm0 = tm1 = 0;
  pa0 = 0x01;
  while(1){
    if(timer0count-tm0 >= 1000000/TIMER0_INTERRUPT_CYCLE){
      tm0 = timer0count;
      sprintf(msg,"TIMER %4dsec",++sec);
      LCDDisplay(msg,0);
    }
    pa = PA.DR.BYTE;
    if(pa^pa0){ /* detect change */
      if(pa&0x01){ /* off */
        sprintf(msg,"%d usec",(int)(timer0count-tm1)*TIMER0_INTERRUPT_CYCLE);
        LCDDisplay(msg,1);
      }else{ /* on */
        tm1 = timer0count;
      }
      pa0 = pa;
    }
  }
  return 0;
}

; H8/300H start up file.
; Customized for H8/3052 on AKI-LAN target

        .h8300h
        
        .equ	SYSCR,	0xFFFFF2
   	.equ	BRCR,	0xFFFFF3
	.equ	P1DDR,	0xFFFFC0
	.equ	P2DDR,	0xFFFFC1
	.equ	P1DR,	0xFFFFC2
	.equ	P2DR,	0xFFFFC3
	.equ	P3DDR,	0xFFFFC4
	.equ	P4DDR,	0xFFFFC5
	.equ	P3DR,	0xFFFFC6
	.equ	P4DR,	0xFFFFC7
	.equ	P5DDR,	0xFFFFC8
	.equ	P6DDR,	0xFFFFC9
	.equ	P5DR,	0xFFFFCA
	.equ	P6DR,	0xFFFFCB
	.equ	P7DDR,	0xFFFFCC
	.equ	P8DDR,	0xFFFFCD
	.equ	P7DR,	0xFFFFCE
	.equ	P8DR,	0xFFFFCF
	.equ	P9DDR,	0xFFFFD0
	.equ	PADDR,	0xFFFFD1
	.equ	P9DR,	0xFFFFD2
	.equ	PADR,	0xFFFFD3
	.equ	PBDDR,	0xFFFFD4
	.equ	PBDR,	0xFFFFD6
	.equ	ADCR,	0xFFFFE9

	.section .text
	.global	_start
_start:
        ;; Setup BUS
        mov.b   #0x03,r0l
        mov.b   r0l,@SYSCR:8
        mov.b   #0xfe,r0l
        mov.b   r0l,@BRCR:8
        mov.b   #0xff,r0l
        mov.b   r0l,@P1DDR:8
        mov.b   r0l,@P2DDR:8
        mov.b   r0l,@P5DDR:8
        mov.b   #0xf0,r0l
        mov.b   r0l,@PADDR:8
        mov.b   #0xff,r0l
        mov.b   r0l,@PBDDR:8
        mov.b   #0xfe,r0l
        mov.b   r0l,@P8DDR:8
        mov.b   r0l,@P8DR:8

        ;; Setup stack
	mov.l	#_stack,sp
        ;; Copy data section
	mov.l	#_data_start,er0
	mov.l	#_data_end,er1
        mov.l   #_text_end,er2
.Ldata:	cmp.l   er1,er0
        beq     .Ldataend
        mov.w	@er2,r3
        mov.w   r3,@er0
        adds    #2,er2
	adds	#2,er0
	bra	.Ldata
.Ldataend:
        ;; Clear bss section
        mov.l	#_bss_start,er0
	mov.l	#_bss_end,er1
	sub.w   r3,r3
.Lbss:	cmp.l   er0,er1
        beq     .Lbssend
        mov.w	r3,@er0
	adds	#2,er0
	bra     .Lbss
.Lbssend:
        ;; Go to the main
.Lmain:
        ldc     #0:8,ccr
	jsr	@_main
        bra     .Lmain

        .section .vectors
        .org    0               ; RESET
        .long   _start
        .org    0x0068          ; ITU0-OVF
        .long   _timer0_interrupt
        

#include "lcd.h"
#include "ticker.h"
#include "3052.h"
#include <stdio.h>

int main()
{
  char msg[32];
  unsigned int sec,tm0,tm1;
  unsigned char pa,pa0;

  PA.DDR = 0x00;
  PB.DDR = 0xff;
  PB.DR.BYTE = 0xff;

  TickerInit();
  LCDInit();
  LCDDisplay("TIMER TEST",0);
  sec = tm0 = tm1 = 0;
  pa0 = 0x01;
  while(1){
    if(tick-tm0 >= 1000000/TICK){
      tm0 = tick;
      sprintf(msg,"TIMER %4dsec",++sec);
      LCDDisplay(msg,0);
    }
    pa = PA.DR.BYTE;
    if(pa^pa0){ /* detect change */
      if(pa&0x01){ /* off */
        sprintf(msg,"%d usec",(int)(tick-tm1)*TICK);
        LCDDisplay(msg,1);
      }else{ /* on */
        tm1 = tick;
      }
      pa0 = pa;
    }
  }
  return 0;
}

#include "ticker.h"
#include "lcd.h"
#include "3052.h"
#include <stdio.h>

int main()
{
  char pa;
  int oncount, offcount;
  char msg[32];

  PA.DDR = 0x00;
  PB.DDR = 0xff;
  PB.DR.BYTE = 0xff;

  TickerInit();
  LCDInit();
  LCDDisplay("iR TEST",0);
  oncount = offcount = 0;
  while(1){
    pa = PA.DR.BYTE;
    if(pa&0x20){
      if(++oncount >= 10000)
        oncount = 0;
    }else{
      if(++offcount >= 10000)
        offcount = 0;
    }
    sprintf(msg,"%4d,%4d",oncount,offcount);
    LCDDisplay(msg,1);
  }
  return 0;
}