MAIN	START
	IN INAREA,INKAZU
	XOR GR1,GR1 ; カウンタをゼロ設定
AGAIN	LD GR2,INAREA,GR1
	AND GR2,MASK ;数字から数値を取り出す
	ST GR2,FIGAREA,GR1
	LD GR3,INKAZU
	LAD GR1,1,GR1
	SUBA GR3,GR1
	JPL AGAIN
	;OUT FIGAREA,INKAZU
;FIGAREAにある数値を加算する
	XOR GR1,GR1
	XOR GR4,GR4
AGAIN2	ADDA GR4,FIGAREA,GR1
	LAD GR1,1,GR1
	LD GR3,INKAZU
	SUBA GR3,GR1
	JPL AGAIN2
	ST GR4,SUM
;９で割り算をして余りが出るかどうかを調べる。
	XOR GR1,GR1
	LD GR4,SUM
AGAIN3	SUBA GR4,FIG9
	JPL AGAIN3
	JZE OUTMSGX9
	JMI OUTMSGNO
OUTMSGX9 OUT MSGYES,MSGKAZUY
	RET
OUTMSGNO OUT MSGNO,MSGKAZUN
	RET
MASK	DC #000F
FIG9	DC 9
SUM	DS 1
INAREA 	DS 20
INKAZU 	DS 1
FIGAREA DS 20
MSGYES DC 'Yes, Multiple of 9'
MSGKAZUY DC 18
MSGNO 	DC 'No, Non-Multiple of 9'
MSGKAZUN DC 21
	END
;--------------
