; Copyright 2005 Doi Shigeki
;list1001.asm  h8/3694Fテスト・プログラム1
;
			.CPU 300HN				;ノーマル・モード
									;HEWなら無くてもよい

			.SECTION sec0,DATA,LOCATE=H'0000	
									;sec0という名のセクションを0x0000から展開
			.DATA.L	start			;リセット・ベクトル

			.SECTION sec1,CODE,LOCATE=H'0100
									;sec1という名のセクションを0x0100から展開

start:		MOV.L	#H'FF80,ER7		;スタック・ポインタ設定
			MOV.B	#H'FF,R0L		;ポート5を出力に設定
			MOV.B	R0L,@H'FFE8		;ポート5
			MOV.B	#B'00000111,R0L	;ADを7ビット目にする
			MOV.B	R0L,@H'FFB8		;つまり0〜6ビットはディジタルで使う

			MOV.B	#D'10,R1L		;10回点滅
loop:		MOV.B	#H'0F,R0L
			MOV.B	R0L,@h'FFD8		;LEDを点灯する
			BSR		wait05		
			MOV.B	#H'00,R0L
			MOV.B	R0L,@h'FFD8		;LEDを消灯する
			BSR		wait05
			DEC.B	R1L
			BNE		loop
			
echo:		MOV.B	@H'FFDD,R0L		;PBから入力
			MOV.B	R0L,@h'FFD8		;P5へ出力
			JMP	@echo		

wait05:		MOV.L	#D'1666666,ER6	;(0.5秒/(1/20MHz))/6ステート
wait052:	DEC.L	#1,ER6			;2ステート
			BNE		wait052			;4ステート
			RTS

			.END