16進数を10進数にするプログラムその3

　しばらく話題にしてなかったからといって、放り投げたわけではありません。えぇ、忘れてなんかいませんよ。というわけで、その後悪戦苦闘した末、前に晒したプログラムをスリムに書き直すことに成功したのでまた晒します。アセンブリ言語版16進数を10進数化するプログラムの改良版です。

;--- 16 ｼﾝｽｳ ｦ 10 ｼﾝｽｳ ﾆ ｽﾙ 2
CHPUT:		EQU	00A2H

POSIT:		EQU	00C6H
VALUE:		EQU	0A000H

MAN:		EQU	0A002H

SEN:		EQU	0A004H

HYAKU:		EQU	0A006H

JU:		EQU	0A008H
CURPL:		EQU	0A00AH

CURDG:		EQU	0A00CH
DIGIT:		EQU	0A010H
SZAHYO:		EQU	1400H
		ORG	9000H
;---- 	ｼｮｷ ｾｯﾃｲ
		LD	HL,0FFFFH

		LD	(VALUE),HL	;10ｼﾝｽｳｶ ｽﾙ ｶｽﾞ
		LD	HL,10

		LD	(JU),HL

		LD	HL,100

		LD	(HYAKU),HL

		LD	HL,1000

		LD	(SEN),HL

		LD	HL,10000

		LD	(MAN),HL	;ﾃｲｽｳ 10-10000
		LD	HL,DIGIT

		LD	B,5

DLOOP:		LD	(HL),0

		INC	HL

		DJNZ	DLOOP		;10ｼﾝｽｳ	ｶｸ ｹﾀ ﾘｾｯﾄ
		LD	HL,0A002H

		LD	(CURPL),HL	;ｶﾝｻﾞﾝﾖｳ ﾃｲｽｳ ﾉ ｱﾄﾞﾚｽ
		LD	HL,0A010H

		LD	(CURDG),HL	;ｶﾝｻﾞﾝｺﾞ 10ｼﾝｽｳ ｶｸﾉｳ ﾖｳ ｱﾄﾞﾚｽ
;--- ﾒｲﾝ ﾙｰﾁﾝ
		LD	B,4		;ﾙｰﾌﾟ ｶｲｽｳ ｾｯﾃｲ  5ｹﾀ ﾀﾞｶﾗ 4ｶｲ
;-- ｽｳﾁ ｦ ﾋｸ
MAIN:		PUSH	BC		;ﾙｰﾌﾟ ｶｳﾝﾀ ﾀｲﾋ
		LD	BC,(CURPL)	;ﾃｲｽｳ ｱﾄﾞﾚｽ ﾖﾐｺﾐ

		LD	A,(BC)		;ﾃｲｽｳ ｱﾄﾞﾚｽ ｻﾝｼｮｳ

		LD	L,A		;ｶﾐ 1ﾊﾞｲﾄ ﾀﾞｲﾆｭｳ

		INC	BC		;ｱﾄﾞﾚｽ ｦ ｵｸﾙ

		LD	A,(BC)

		LD	H,A		;ｼﾓ　1ﾊﾞｲﾄ ﾀﾞｲﾆｭｳ

		INC	BC		;ﾃｲｽｳ ｱﾄﾞﾚｽ ｦ ｵｸﾙ

		LD	(CURPL),BC	;ﾃｲｽｳ ｱﾄﾞﾚｽ ｶｷｶｴ
		EX	DE,HL		;ﾃｲｽｳ ｦ DE ﾆ ｳﾂｽ

		LD	HL,(VALUE)	;HL ﾆ 10ｼﾝ ｶ ｽﾙ ｶｽﾞ ｦ ﾖﾐｺﾑ
HIKI:		OR	A		;Cyﾌﾗｸﾞ ﾘｾｯﾄ

		SBC	HL,DE		;ﾃｲｽｳ ｦ ﾋｸ

		JR	NC,DPLUS	;ﾋｹﾙ ﾅﾗ	ｶｳﾝﾀｰ ｿﾞｳｶ ｼｮﾘ ﾍ

		JR	KETAO		;ﾓｳ ﾋｹﾅｲ ﾅﾗ ﾂｷﾞﾉ ｹﾀ ﾆ ｳﾂﾙ
;-- ｶｸ ｹﾀ ｶｳﾝﾀｰ ｿﾞｳｶ
DPLUS:		LD	BC,(CURDG)	;ｶﾝｻﾞﾝｺﾞ ｽｳﾁ ｶｸﾉｳ ｱﾄﾞﾚｽ ﾖﾐｺﾐ

		LD	A,(BC)		;ｶﾝｻﾞﾝｺﾞ ｽｳﾁ ﾖﾐｺﾐ

		INC	A		;ｶｳﾝﾀｰ ｿﾞｳｶ

		LD	(BC),A		;ｽｳﾁ ｦ ｶｷﾓﾄﾞｽ

		LD	(VALUE),HL	;ﾋｲﾀ ｱﾄ ﾉ ｽｳﾁ ｦ ｶｷﾓﾄﾞｽ

		JR	HIKI		;ﾋｷｻﾞﾝｼｮﾘﾆﾓﾄﾞﾙ
;-- ｹﾀ ｵｸﾘ
KETAO:		LD	A,(CURDG)	;ｶﾝｻﾞﾝｺﾞ ｽｳﾁ ｶｸﾉｳ ｱﾄﾞﾚｽ ﾖﾐｺﾐ

					;ｼﾓ 1ﾊﾞｲﾄ ｦ ｶｴﾙﾀﾞｹﾃﾞ ﾏﾆｱｳﾉﾃﾞ ｺｳｼﾃｲﾙ

		INC	A		;ｱﾄﾞﾚｽ ｦ ｵｸﾙ

		LD	(CURDG),A	;ｱﾄﾞﾚｽ ｦ ｶｷﾓﾄﾞｽ

					

		POP	BC		;ﾙｰﾌﾟ ｶｳﾝﾀ ﾌｯｷ

		DJNZ	MAIN		;ﾙｰﾌﾟ ｼｭｳﾘｮｳ ﾊﾝﾃｲ
;--- ｲﾁ ﾉ ｸﾗｲ
MAINI:		LD	HL,(VALUE)

		LD	A,L

		LD	BC,(CURDG)

		LD	(BC),A		;ｱﾏﾘ ｦ ﾀﾞｲﾆｭｳ ｽﾙ ﾀﾞｹ
;--- ｽｳｼﾞ ｦ ﾋｮｳｼﾞ ｽﾙ
PUTD:		LD	HL,SZAHYO

		CALL	POSIT

		LD	B,5

		LD	HL,0A010H

LOOP2:		LD	A,(HL)

		ADD	A,30H

		CALL	CHPUT

		INC	HL

		DJNZ	LOOP2
	RET

	END

　リストに註釈が多いのは、組んでいる本人が混乱しないためです(おい)。
　数値を格納しているアドレスを送りながら、定数を参照したり各桁を書き込んだりする処理を組み込むことで、重複していた処理を一つにまとめることができました。前のプログラムが179バイトに対し、こちらは139バイト。その差約40バイトはだいぶ減ったのかあんまり減ってないのか(泣)

　Z80では「LD レジスタ,(数値)」という命令が使えます。数値で示したメモリのアドレスの内容をレジスタに読み込めというものなんですが、これが曲者。間違ってカッコを抜いて「LD レジスタ,数値」と書いてしまって数値そのものをレジスタに代入してしまったり、「LD HL,(ラベル)」と書いたら、ラベルの番地にしまっておいたアドレスの内容ではなく、しまっておいたアドレスそのものを数値として代入しただけなのに気付かなかったりと、何を代入しているのかわからなくなることがしばしばで、整理するのに一苦労でした。

　こちらのプログラムの利点は、65535までの数値をかんたんに扱えるところです。前作ったカウンタープログラムでは、仕様上扱える最大値が9999で、それ以上を扱うには少々手を加える必要がありました。もっとスマートに書けそうな気はするのですが、ひとまずこれで勘弁してくれということで(おい)。