; Exam2019R01AkiP1pbNPOỉZȉꍇj
MAIN	START
	LD GR1,AA
	LD GR2,BB
	CALL ADDP1
	ST GR0,ANS
	RET
AA 	DC #246C
BB 	DC #057C
ANS 	DS 1 ; @#303C
;AA 	DC #246D
;BB 	DC #057D
;ANS 	DS 1 ; @#303D
	END
;-------------------------------------------
ADDP1	START
	RPUSH
	ST GR1,A
	ST GR2,B
	LAD GR3,4 ; rbgJE^̏
	AND GR1,=#000F
	ST GR1,RESULT ;@ (a, Aj
	LD GR1,A ;
	SRL GR1,0,GR3 ;@ʃpbNŉʃpbNɃVtgiړj
	LD GR2,B
	SRL GR2,0,GR3
LOOP	AND GR1,=#000F ; ŉʃpbN̐lo
	AND GR2,=#000F
	LAD GR0,0
	ADDL GR1,GR2
	CPL GR1,=10 ; 10ȏ͌グ
	JMI MERGE ; ib, Aj
	SUBL GR1,=10
	LAD GR0,1 ; グZp̂P GR0ɉێ
MERGE	SLL GR1,0,GR3 ;@ic, Cj@GR1ɖ߂
	OR GR1,RESULT ;@ԌʂƂ̕
	LAD GR3,4,GR3
	;4->8->12->16VtgprbgJE^Z
	CPL GR3,=16
	JZE FIN ;I
	ST GR1,RESULT ; Ԍʂޔ
	LD GR1,A
	SRL GR1,0,GR3
	LD GR2,B
	SRL GR2,0,GR3
	ADDL GR1,GR0 ; オ蕪Z
	JUMP LOOP
FIN 	LD GR0,GR1
	RPOP
	RET
A	DS 1
B	DS 1
RESULT 	DS 1
	END
;--------------
