;Exam2011H23HPrg2
;RQrbgPOiPOiɕϊ
;---------------------
MAIN START
	LD GR1,VALUP
	LD GR2,VALLOW
	LAD GR3,ANS
	CALL BTOD2
	RET
VALLOW DC #0000   ;폜ʂPUrbg
VALUP DC #054D    ;폜ʂPUrbg
DIVUP DC #0000  ; #25D6 ;̉ʂPUrbg
DIVLOW DC #0002 ;̏ʂPUrbg
ANS DS 7
ANSLOW DS 1        ;ʂPUrbg
ANSUP DS 1        ;ʂPUrbg
AMARILOW DS 1     ;]艺ʂPUrbg
AMARIUP DS 1      ;]ʂPUrbg
	END
;------------------------
BTOD2 START
	RPUSH
	LD GR6,GR3
	LAD GR7,4,GR3
	LAD GR3,UDAT   ;̏ݒ
LP CALL DIV
	OR GR2,='0'    ;@C
	ST GR2,0,GR6   ;POiPi[@
	CPL GR6,GR7
	JZE FIN
	LAD GR6,1,GR6
	LD GR1,GR4     ;폜̍Đݒ
	LD GR2,GR5
	LAD GR3,2,GR3  ;@C
	JUMP LP
FIN RPOP
	RET
UDAT DC 0
	DC 10000
	DC 0
	DC 1000
	DC 0
	DC 100
	DC 10
	DC 0
	DC 1
	END
;----------------------------
DIV START
	PUSH 0,GR6
	PUSH 0,GR7
	LD GR6,GR1 @@;폜ʂPUrbg
	LD GR7,GR2 @@;폜ʂPUrbg
	LD GR1,=#FFFF  ;̏
	LD GR2,=#FFFF
LP LD GR4,GR6	@@@; GR1
	LD GR5,GR7 @@;GR2
	ADDL GR2,=1    ;̃JEgAbv
	JOV ADJ1
	JUMP CONT
ADJ1 ADDL GR1,=1    ;a @C
CONT SUBL GR6,0,GR3
	JOV FIN
	SUBL GR7,1,GR3
	JOV ADJ2        ; b @E
	JUMP LP
ADJ2 SUBL GR6,=1
	JOV FIN
	JUMP LP
FIN POP GR7
	POP GR6
	RET
	END
;---------------------
