;Exam2009H21Prg1 VtgɂRQrbgZ
;搔RQrbgA搔͂PUrbg @
;----------------
EX09H01 START
	LAD GR1,VALUP ;搔̏ʌ̃AhX
	LD GR2,MLT    ;搔
	LAD GR3,SEKI  ; vZʂ̏ʌ̃AhX
	CALL MULS
	RET
VALUP DC # 0079 ;搔̏ʌ
VALDWN DC #8A03 ;搔̏ʌ
MLT DC #0002    ;搔
SEKI DS 2       ;
	END
;------------------
MULS START
	RPUSH
	LAD GR6,0    ;ρ@ʌ̏
	LAD GR7,0    ;ρ@ʌ̏
	LD GR4,0,GR1 ;搔@ʌ̎o
	LD GR5,1,GR1 ;搔@ʌ̎o
LP SRL GR2,1      ;搔PrbgEɃVtg
	JOV ADD32    ;@E
	JZE FIN
	JUMP NEXT      ;ZXLbv
ADD32 ADDL GR6,GR4 ;32bit + 32bit --> 32bit
	ADDL GR7,GR5   ;
	JOV ADJ1      ;@E
	JUMP NEXT
ADJ1 ADDL GR6,=1 ;グ
NEXT SLL GR4,1   ;搔iRQrbgjʌPrbgɃVtg
	;̃VtgōŉʌK[ƂȂB
	SLL GR5,1   ;搔ʌPrbgɃVtg@@G

	JOV ADJ2
	JUMP LP
ADJ2 OR GR4,=1    ;ŉʌPɂ
;ADJ2 ADDL GR4,=1 ; ł͂łB
	JUMP LP
FIN ST GR6,0,GR3  ;Zʂ̊i[
	ST GR7,1,GR3
	RPOP
	RET
	END
;-------------------
