;2015H25秋プログラム２の改造
;AAとXMを掛け算して結果をSEKIに格納するプログラムです。
;-----------------------------------
MULT START ;シフトによる乗算
	RPUSH
;----------------
	LD GR0,AA
	LD GR2,XM ;AAとXMを掛け算して結果をSEKIに格納する。
;-------------------
	LD GR1,GR0 ;被乗数をＧＲ１に保持
	LD GR0,=0  ;乗算結果の初期化
	LD GR3,=15
	LD GR2,GR2
LP	JZE FIN
	JPL CONT
	LD GR4,GR1
;----------------
	SLL GR4,0,GR3 ;問題（ｃ）
;---------------------
	ADDL GR0,GR4
CONT LAD GR3,-1,GR3
;CONT LAD GR3,65535,GR3
	SLL GR2,1
	JUMP LP
FIN RPOP
;--------------
	ST GR0,SEKI
;----------------
	RET
AA DC 34
XM DC 400
SEKI DS 1
	END
