;*********************************************************
;なんか余計なものがごちゃごちゃしてますが
;あまり時間がないのでそのままです、ごめんなさい。
;*********************************************************

;**** インクルードファイルの指定 ****

.include "2313DEF.INC"
;**** 定数設定 ****


;**** 汎用レジスタの指定 ****

.def	tempA	= r16			; 一時使用用
.def	x	= r17			; シフトレジスタ座標
.def	stack	= r18			; フラグ退避用
.def	n	= r19			; 一時使用用（主に還り値）
.def	scrollH	= r20			;
.def	scrollL	= r21			;
.def	tempB	= r22			; 一時使用用
.def	tempC	= r23			; 一時使用用
.def	scroll	= r24			;
.def	scrollBH	= r25			;
.def	scrollBL	= r26			;
					;ｒ30(ZL),ｒ31(ZH)の使用は要注意

;****  リセットベクトルと割り込みベクトルの指定  ****

		rjmp	RESET
		reti
		reti
		reti
		reti
		rjmp	tim_ovf1	;Timer 1 overflow handle
		rjmp	tim_ovf0	;Timer 0 overflow handle
		reti
		reti
		reti
		reti

;*************************************************
;******************  初期化  *********************
;*************************************************
RESET:
	ldi	tempA,low(RAMEND)	; スタックポインタ設定
	out	SPL,tempA

;  PORTのイニシャライズ

	ldi	tempA,0xFF		; ポートＤを出力に設定
	out	DDRD,tempA

	ldi	tempA,0xff		; ポートＢの入出力を設定
	out	DDRB,tempA

	ldi	tempA,0xff		;ポートBのプルアップ設定
	out	portB,tempA

;  タイマー0割込みのイニシャライズ(走査用)
	ldi	tempA,0b011		;カウンタ入力クロックを1/64に設定
	out	TCCR0,tempA
	ldi	tempA,250		;カウンタ初期値
	out	TCNT0,tempA
;  タイマー1割込みのイニシャライズ(スクロール用)
	ldi	tempA,0
	out	TCCR1A,tempA
	ldi	tempA,(0<<CS12)|(1<<CS11)|(0<<CS10)		;カウンタ入力クロックを設定
	out	TCCR1B,tempA

	ldi	tempA,0		
	out	TCNT1H,tempA			;カウンタ初期値
	ldi	tempA,0	
	out	TCNT1L,tempA			;カウンタ初期値

	ldi	tempA,(1<<toie0)|(1<<TOIE1)	;割り込み発生許可
	out	timsk,tempA
	SEI

	ldi	x,22			;初期値
	cbi	portB,0	
	ldi	scroll,0
	ldi	scrollL,low(data*2)		;データ最終アドレス
	ldi	scrollH,high(data*2)		;データ最終アドレス
;*************************************************
;************  ＭＡＩＮプログラム  ***************
;*************************************************
main:
;	mov	n,x
;	rcall	table
;	out	portD,n
	rjmp	main

;*************************************************
;************* 以下サブルーチン ******************
;*************************************************

;▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
;タイマーカウンタ０オーバー(走査処理)
tim_ovf0:
	IN	stack,sreg		;flagレジスタを退避

	ldi	tempA,200		;走査速度
	out	TCNT0,tempA

	Sbi	portB,4	
	Cbi	portB,4			;外部シフトレジスタをシフト
	cpi	x,15			;x=15の時
	brne	DisReShiftA		;　　もう1つシフト
	Sbi	portB,4	
	Cbi	portB,4			;外部シフトレジスタをシフト
DisReShiftA:
	cpi	x,8			;x=8の時
	brne	DisReShiftB		;　　もう1つシフト
	Sbi	portB,4	
	Cbi	portB,4			;外部シフトレジスタをシフト
DisReShiftB:


;PortD（上7行）の処理
	mov	tempA,x			;走査座標取得
	ldi	tempB,24
	sub	tempB,tempA		;走査座標反転
	mov	tempA,tempB
	ldi	tempC,0			;リセット
	add	tempA,scrollL		;相対座標の下位ビットを加算
	adc	tempC,scrollH		;相対座標の上位ビットを加算

	mov	ZL,tempA		;テーブルポインタ下位ビット設定
	mov	ZH,tempC		;テーブルポインタ上位ビット設定
	lpm				;r0にデータをロード
	out	portD,r0		;ロードしたデータを出力


;PortB（下3行）の処理
	mov	tempA,x			;走査座標取得
	ldi	tempB,24
	sub	tempB,tempA		;走査座標反転
	mov	tempA,tempB
	ldi	tempC,0			;リセット
	add	tempA,scrollBL		;相対座標の下位ビットを加算
	adc	tempC,scrollBH		;相対座標の上位ビットを加算

	mov	ZL,tempA		;テーブルポインタ下位ビット設定
	mov	ZH,tempC		;テーブルポインタ上位ビット設定
	lpm				;r0にデータをロード
	mov	tempA,r0
	clt
	bld	tempA,7
	bld	tempA,6
	bld	tempA,5
	bld	tempA,4
	bld	tempA,3
	in	tempB,portB
	bld	tempB,2
	bld	tempB,1
	bld	tempB,0
	or	tempA,tempB
	out	portB,tempA		;ロードしたデータを出力

	
;	brcc	DisOverA		;オーバーしたら
;	ldi	tempC,1			;　上位ビットに１加算
;	ldi	tempA,0			;　下位ビットリセット
;DisOverA:
;	add	tempC,scrollH		;相対座標の上位ビットを加算

;	add	tempA,tempA		;絶対座標下位ビットを2倍
;	brcc	DisOverA2		;オーバーしたら
;	inc	tempC			;　上位ビットに１加算
;	ldi	tempA,0			;　下位ビットリセット
;DisOverA2:
;	add	tempC,tempC		;絶対座標上位ビットを2倍



;
;	inc	tempA			;奇数番に変更
;	brvc	DisOverA3		;オーバーしたら
;	inc	tempC			;　上位ビットに1加算
;	inc	tempC			;　上位ビットに1加算
;	ldi	tempA,1			;　下位ビットリセット
;DisOverA3:
;	inc	tempC			;奇数番に変更
;	mov	ZL,tempA		;テーブルポインタ下位ビット設定
;	mov	ZH,tempC		;テーブルポインタ上位ビット設定
;	lpm				;r0にデータをロード
;	mov	n,r0			;帰り値に代入
;	out	portD,r0		;ロードしたデータを出力


	sbi	portB,3			;
	dec	x			;走査座標移動
	brne	exit_int		;負数になったら
	ldi	x,22			;　　走査座標を原点に移動
	cbi	portB,3			;　　パルスを再精製
exit_int:
	OUT	sreg,stack		;flagレジスタを復元
	RETI				;割り込みルーチンから復帰

;▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
;タイマーカウンタ１オーバー(スクロール処理)
tim_ovf1:
	IN	stack,sreg		;flagレジスタを退避
	ldi	scrollL,low(data*2)		;データアドレス
	ldi	scrollH,high(data*2)		;データアドレス
	ldi	tempA,0
	inc	scroll
;	cpi	scroll,DataLength		;データ長と比較
;	brpl	SDisOver			;if scroll >= DataLength then 
;	ldi	scroll,0			;初期値
SDisOver:
	add	scrollL,scroll
	adc	scrollH,tempA

	ldi	scrollBL,low(dataB*2)		;データアドレス
	ldi	scrollBH,high(dataB*2)		;データアドレス
	ldi	tempA,0
	add	scrollBL,scroll
	adc	scrollBH,tempA
	rjmp	exit_ovf1

;	ldi	scrollL,low(data*2)		;データアドレス
;	ldi	scrollH,high(data*2)		;データアドレス
;	ldi	tempA,0
;	dec	scroll
;	add	scrollL,scroll
;	adc	scrollH,tempA
;
;	ldi	scrollBL,low(dataB*2)		;データアドレス
;	ldi	scrollBH,high(dataB*2)		;データアドレス
;	ldi	tempA,0
;	add	scrollBL,scroll
;	adc	scrollBH,tempA
;	rjmp	exit_ovf1

;	inc	scrollL
;	ldi	tempA,0
;	adc	scrollH,tempA
;	cpi	scrollL,low(dataEnd*2)	;データ開始アドレスと比較（下位ビット）
;	brne	exit_ovf1		;　不一致なら割り込み終了
;	cpi	scrollH,high(dataEnd*2)	;　データ開始アドレスと比較（上位ビット）
;	brne	exit_ovf1		;　不一致なら割り込み終了
;	ldi	scrollL,low(data*2)	;　　　　データ最終アドレス
;	ldi	scrollH,high(data*2)	;　　　　データ最終アドレス
;	rjmp	exit_ovf1
;
;	dec	scrollL			;下位ビット減算
;	brpl	ScrollDisN		;下位ビットが負なら
;	dec	scrollH			;　　上位ビット減算
;	ldi	scrollL,0xff		;　　下位ビットリセット
;ScrollDisN:
;	cpi	scrollL,low(data*2)	;データ開始アドレスと比較（下位ビット）
;	brne	exit_ovf1		;　不一致なら割り込み終了
;	cpi	scrollH,high(data*2)	;　データ開始アドレスと比較（上位ビット）
;	brne	exit_ovf1		;　不一致なら割り込み終了
;	ldi	scrollL,low(dataEnd*2)	;　　　　データ最終アドレス
;	ldi	scrollH,high(dataEnd*2)	;　　　　データ最終アドレス
exit_ovf1:
	OUT	sreg,stack		;flagレジスタを復元
	RETI				;割り込みルーチンから復帰



;▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
;EEPROM読み出し
;	n	=result data byte
;	tempA	=address to read from
EERead:
	sbic	EECR,EEWE	;if EEWE not clear
	rjmp	EERead		;    wait more
	out	EEAR,tempA	;output address
	sbi	EECR,EERE	;set EEPROM Read strobe
				;This instruction takes 4 clock cycles since
				;it halts the CPU for two clock cycles
	sbi	EECR,EERE	;set EEPROM Read strobe 2nd time
				;This instruction takes 4 clock cycles since
				;it halts the CPU for two clock cycles
	in	n,EEDR		;get data
	ret

data:
.db	0x00,0x10,0x7F,0x55,0x75,0x55,0x55,0x55,0x5F,0x10	;最
.db	0x00,0x24,0x72,0x09,0x20,0x72,0x6D,0x64,0x32,0x60	;後
.db	0x00,0x00,0x7F,0x05,0x25,0x25,0x75,0x55,0x45,0x07	;尾
.db	0x00,0x00,0x08,0x48,0x28,0x28,0x1B,0x1B			;で
.db	0x00,0x7E,0x00,0x08,0x48,0x7E,0x48,0x08			;は
.db	0x00,0x44,0x24,0x7C,0x16,0x74,0x14,0x24,0x40		;あ
.db	0x00,0x00,0x3E,0x10,0x00,0x00,0x7E			;り
.db	0x00,0x00,0x14,0x14,0x14,0x7E,0x14,0x14			;ま
.db	0x00,0x20,0x7C,0x10,0x10,0x10,0x7C,0x10			;せ
.db	0x00,0x00,0x40,0x30,0x2C,0x42,0x00,0x00,0x40		;ん
.db	0x00,0x09,0x12,0x00,0x11,0x11,0x7F,0x11,0x11,0x10	;汗
.db	0x00,0x4C,0x4C						;;
.db	0,0,0
.db	0x00,0x10,0x7F,0x55,0x75,0x55,0x55,0x55,0x5F,0x10	;最
.db	0x00,0x24,0x72,0x09,0x20,0x72,0x6D,0x64,0x32,0x60	;後
.db	0x00,0x00,0x7F,0x05,0x25,0x25,0x75,0x55,0x45,0x07	;尾
.db	0x00,0x00,0x08,0x48,0x28,0x28,0x1B,0x1B			;で
.db	0x00,0x7E,0x00,0x08,0x48,0x7E,0x48,0x08			;は
.db	0x00,0x44,0x24,0x7C,0x16,0x74,0x14,0x24,0x40		;あ
.db	0x00,0x00,0x3E,0x10,0x00,0x00,0x7E			;り
.db	0x00,0x00,0x14,0x14,0x14,0x7E,0x14,0x14			;ま
.db	0x00,0x20,0x7C,0x10,0x10,0x10,0x7C,0x10			;せ
.db	0x00,0x00,0x40,0x30,0x2C,0x42,0x00,0x00,0x40		;ん
.db	0x00,0x09,0x12,0x00,0x11,0x11,0x7F,0x11,0x11,0x10	;汗
.db	0x00,0x4C,0x4C						;;
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dataEnd:

dataB:
.db	0x00,0x02,0x03,0x02,0x07,0x00,0x05,0x02,0x05,0x00	;最
.db	0x00,0x00,0x07,0x00,0x05,0x05,0x02,0x05,0x04,0x00	;後
.db	0x00,0x04,0x03,0x00,0x01,0x01,0x07,0x04,0x04,0x06	;尾
.db	0x00,0x00,0x00,0x03,0x04,0x04,0x04,0x00			;で
.db	0x00,0x03,0x00,0x03,0x02,0x01,0x00,0x03			;は
.db	0x00,0x03,0x04,0x04,0x03,0x01,0x04,0x04,0x03		;あ
.db	0x00,0x00,0x00,0x04,0x04,0x02,0x01			;り
.db	0x00,0x00,0x02,0x05,0x05,0x03,0x02,0x04			;ま
.db	0x00,0x00,0x03,0x04,0x04,0x05,0x05,0x04			;せ
.db	0x00,0x06,0x01,0x00,0x00,0x03,0x04,0x04,0x03		;ん
.db	0x00,0x04,0x07,0x00,0x00,0x00,0x07,0x00,0x00,0x00	;汗
.db	0x00,0x05,0x03						;;
.db	0,0,0
.db	0x00,0x02,0x03,0x02,0x07,0x00,0x05,0x02,0x05,0x00	;最
.db	0x00,0x00,0x07,0x00,0x05,0x05,0x02,0x05,0x04,0x00	;後
.db	0x00,0x04,0x03,0x00,0x01,0x01,0x07,0x04,0x04,0x06	;尾
.db	0x00,0x00,0x00,0x03,0x04,0x04,0x04,0x00			;で
.db	0x00,0x03,0x00,0x03,0x02,0x01,0x00,0x03			;は
.db	0x00,0x03,0x04,0x04,0x03,0x01,0x04,0x04,0x03		;あ
.db	0x00,0x00,0x00,0x04,0x04,0x02,0x01			;り
.db	0x00,0x00,0x02,0x05,0x05,0x03,0x02,0x04			;ま
.db	0x00,0x00,0x03,0x04,0x04,0x05,0x05,0x04			;せ
.db	0x00,0x06,0x01,0x00,0x00,0x03,0x04,0x04,0x03		;ん
.db	0x00,0x04,0x07,0x00,0x00,0x00,0x07,0x00,0x00,0x00	;汗
.db	0x00,0x05,0x03						;;
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dtaBEnd: