;------------------------------------------------------------------------
;                                                                       |
;   FILE        :                                                       |
;   DATE        :                                                       |
;   DESCRIPTION :Main Program                                           |
;   CPU TYPE    :H8/3664F                                               |
;                                                                       |
;   This file is generated by Renesas Project Generator (Ver.4.8).      |
;                                                                       |
;------------------------------------------------------------------------
;   Memo
;     General Registor
;       32(bit) *8 Registor ; ER0-ER7
;       16(bit)*16 Registor ; E0-E7,R0-R7
;        8(bit)*16 Registor ; R0H-R7H,R0L-R7L           
;
PMR5	.EQU	H'FFE1
PCR5	.EQU	H'FFE8
PDR5	.EQU	H'FFD8
		.export		_main
_main:
;
;  1.Initialize
;   (1)Initialized Port Registor
		MOV.B	#H'00,R0L	;PMR5
		MOV.B	R0L,@PMR5
		MOV.B	#H'FF,R0L	;PCR5
		MOV.B	R0L,@PCR5
		MOV.B	#H'01,R0L	;PDR5
		MOV.B	R0L,@PDR5
;
;   (2)Initialized LED_status
		MOV.B	#H'01,R0L	;R0L => LED status	
;
;  2.Set LED_status
;
mainS:
		BSR		mvled
;
;  3.Set LED_port
;
		MOV.B	R0L,@PDR5
;
;  4.Wait
;
		BSR		wat
		BRA		mainS
;
; ===========================================================
;  Function name  ; mvled
;  Title          ; Move LED
;  Input          ; R0L
;  Output         ; R0L
;  Description    ;
; ===========================================================
mvled:		
		CMP.B	#B'00000001,R0L	
		BNE		set0
		MOV.B	#B'00000010,R0L
		BRA		sete
set0:
		CMP.B	#B'00000010,R0L	
		BNE		set1
		MOV.B	#B'00000100,R0L
		BRA		sete
set1:
		CMP.B	#B'00000100,R0L	
		BNE		set2
		MOV.B	#B'00001000,R0L
		BRA		sete
set2:
		CMP.B	#B'00001000,R0L	
		BNE		set3
		MOV.B	#B'00010000,R0L
		BRA		sete
set3:
		CMP.B	#B'00010000,R0L	
		BNE		set4
		MOV.B	#B'00100000,R0L
		BRA		sete
set4:
		CMP.B	#B'00100000,R0L	
		BNE		set5
		MOV.B	#B'01000000,R0L
		BRA		sete
set5:
		CMP.B	#B'01000000,R0L	
		BNE		set6
		MOV.B	#B'10000000,R0L
		BRA		sete
set6:
		CMP.B	#B'10000000,R0L	
		BNE		set7
		MOV.B	#B'00000001,R0L
		BRA		sete
set7:
		MOV.B	#B'00000001,R0L
sete:
		RTS
;
; ===========================================================
;  Function name  ; wat
;  Title          ; Timer Function
;  Input          ; None
;  Output         ; None
;  Description    ;
; ===========================================================
wat:
		PUSH.L	ER1
		PUSH.L	ER2
		MOV.L	#H'00000001,ER1		
		MOV.L	#H'0000FFFF,ER2

wat0:
		CMP.L	#H'00000000,ER2
		BEQ		wate
		SUB.L	ER1,ER2
		BRA		wat0
wate:
		POP.L	ER2
		POP.L	ER1
		RTS
;		
		.END