startup.a30(nolib)

一个瑞萨单片机的程序。。。供大家学习用。。。。。。。。。。。。。。。。。。

;""FILE	COMMENT""**************************************************************
;  System Name : for eduction (NO TRANSFERRING)
;  File	Name   : startup.a30
;  Contents    : start up program (for OAKS8-LCDBoard not support library)
;  Model       : for OAKS8-LCD Board
;  CPU	       : R8C/Tiny series
;  Compiler    : NC30WA	V.5.30 Release 1
;  OS	       : not be used
;  Programer   : RENESAS Semiconductor Training Center
;  Note	       : for OAKS8-R5F21114FP(R8C/11 group,20MHz)
;              : this start up program does not run 
;              : initialization of OAKS8-LCDBoard peripheral
;******************************************************************************
; COPYRIGHT(C) 2004 RENESAS TECHNOLOGY CORPORATION
; AND RENESAS SOLUTIONS	CORPORATION ALL	RIGHTS RESERVED
;******************************************************************************
; History      : ---
;""FILE	COMMENT	END""*********************************************************

;==============================================================================
; section assign
;==============================================================================
        .include	sect.inc        ; section definition file
;==============================================================================
; SFR section definition for M16C/60 series 
;==============================================================================
        .include	target.inc      ; for R8C/Tiny series
									; SFR section definition file
;==============================================================================
; define macro
;==============================================================================
;-------------------------------------------------------------------------------
; define macro to clear section for static variable without initial value with 0
;-------------------------------------------------------------------------------
N_BZERO	.macro	TOP_ ,SECT_
	mov.b	#00H, R0L
	mov.w	#(TOP_ & 0FFFFH), A1
	mov.w	#sizeof	SECT_ ,	R3
	sstr.b	
	.endm
;-------------------------------------------------------------------------------
; define macro to transfer initial value to section for static variable with initial value
;-------------------------------------------------------------------------------
N_BCOPY	.macro	FROM_,TO_,SECT_
	mov.w	#(FROM_	& 0FFFFH),A0
	mov.b	#(FROM_	>>16),R1H
	mov.w	#TO_ ,A1
	mov.w	#sizeof	SECT_ ,	R3
	smovf.b
	.endm
;==============================================================================
; start up program section
;==============================================================================
	.section	startup			; start up program section
;
	.glb		start
	.glb		_main
	.glb		_exit
	.glb		$exit
start:								; start address of start up program
	ldc			#06FFH,ISP			; initialize interrupt stack pointer(ISP)
; -----	initialize processor mode register -----
	bset       	prc1		       	; enable to write
				      				; processor mode register 0,1
	mov.b		#00000000B,pm0		; single chip mode
	mov.b		#00000000B,pm1		; no expand, no wait
	bclr		prc1		       	; disable to write
							       	; processor mode register 0,1
; -----	initialize system clock control register -----
	bset		prc0		       	; enable to write
									; system clock control register 0, 1
	mov.b		#00001000B,cm0		; oscillate main clock
	mov.b		#00001000B,cm1		; no main clock division
	mov.b		#00H,ocd			; oscillation stop detection register:select main clock
	bclr		prc0		       	; disable to write
									; system clock control register 0, 1
;==============================================================================

	ldc			#0H,FLG				; initialize FLG register
	ldc			#0H,FB				; initialize FB register
	ldc			#data_NE_top,SB		; initialize SB register
										; (for compiler)
	ldintb		#0FEDCH				; initialize INTB register
;
	jsr			RAMCLR				; clear data section with 0 
	jsr			DATINI				; transfer initial value to data section
;
	fset		I					; interrupt permission
									; (for OAKS8-LCDBoard peripheral library)
;
	jsr			_main				; call main() function
;
_exit:								; end of program
									; (infinite loop status)
$exit:
	jmp			_exit				; call exit() function


;""SUBR	COMMENT""**************************************************************
; ID                : ---
; subroutine name   : RAMCLR
; function          : clear data section with 0 
;                   : (clear section for static varialbe without initial value with 0)
; input             : none
; output            : none
; subroutin used    : none
; stack             : 0 byte 
; notice            : use macor N_BZERO
; History           : ---
;""SUBR	COMMENT	END""**********************************************************
RAMCLR:
	N_BZERO	bss_NE_top,bss_NE
	N_BZERO	bss_NO_top,bss_NO
RAMCLR_END:
	rts


;""SUBR	COMMENT""**************************************************************
; ID                : ---
; subroutine name   : DATINI
; function          : transfer initial value to data section
;                   : (transfer initial value to section for static variable with initial value)
; input             : none
; output            : none
; subroutine used   : none
; stack             : 0 byte
; notice            : use macro N_BCOPY
; History           : ---
;""SUBR	COMMENT	END""**********************************************************
DATINI:	
	N_BCOPY	data_NEI_top,data_NE_top,data_NE
	N_BCOPY	data_NOI_top,data_NO_top,data_NO
DATINI_END:
	rts


;==============================================================================
; dummy interrupt program
;------------------------------------------------------------------------------
DUMMY_INT:
	reit								;command for returning from interrupt


       .end
;******************************************************************************
;		end of file
;******************************************************************************