MAIN 	START
	LAD	GR3,1 ;PNQƂ̃CfbNXƂĎg
	LAD	GR0,2 ;PNɂQƂRݒ肷
	ST	GR0,PN
	LAD	GR0,3
	ST	GR0,PN,GR3
	LAD	GR4,2
	ST	GR4,ALL ;݂̑f̌
	;-------------------------------
	LAD	GR2,5 ; GR2Vf₩폜
LOOP	LD	GR4,PN,GR3 ;
	CALL	DIVSHIFT
	;GR6, ]GR7ƂĕԂ
	;---------------------------------
	CPL	GR7,ZERO ;][Ȃ
	JZE	NONPN     ;GR2͑fł͂Ȃ
	;-------
	CPA	GR6,GR4 ;Ər
	JMI	NEWPN   ;fł
	JZE	NEWPN
	;-------------------
	LAD	GR3,1,GR3
	CPA	GR3,ALL
	JNZ	LOOP
	JUMP	FIN
	;-----------------------------------------
NONPN	LAD	GR2,2,GR2 ;Vf쐬
	LAD GR3,1 ;fPÑCfbNX
	JUMP LOOP
NEWPN	LD 	GR4,ALL
	ST 	GR2,PN,GR4 ;VfPNɊi[
	;----------
	LAD	GR4,1,GR4 ;ALLXV
	ST	GR4,ALL
	LAD	GR2,2,GR2 ;Vf쐬
	;-------------
	CPA GR4,LIM ; ALLLIMr
	JPL	FIN
	JZE	FIN
	LAD 	GR3,1 ;fPÑCfbNX
	JUMP 	LOOP
FIN	RET
ZERO	DC	0
ALL	DS 	1     ;vZȓf̌
LIM	DC	1976 ;߂f̍ő
PN	DS 	1976 ;fi[̈
	END
;-----------------------------------------------------
DIVSHIFT 	START
	PUSH	0,GR2
	PUSH	0,GR3
	PUSH 	0,GR4
	;-----GR4ۑ-----------------
	ST	GR2,A
	ST	GR4,B
	;-------
	;PUSH 	0,GR2
	LD 	GR1,A
	LD 	GR2,B
	LAD	GR3,1 ; GR3
LOOP1	CPA	GR1,GR2
	JMI	S1
	SLL	GR3,1
	SLL	GR2,1
	JUMP	LOOP1
;-------------------------------
S1	LAD	GR4,0
LOOP2	CPA	GR1,GR2
	JMI	S2
	ADDA	GR4,GR3
	SUBA	GR1,GR2
S2	SRL	GR2,1
	SRL	GR3,1
	CPA	GR1,B
	JPL	LOOP2
	JZE	LOOP2
	ST	GR4,SYO
	ST	GR1,AMARI
	;------------------
	LD 	GR6,GR4 ; SYO
	LD 	GR7,GR1 ;AMARI
	POP	GR4 ;̏𕜋A
	POP	GR3
	POP	GR2
	RET
A	DC	58;8
B	DC	8
SYO	DS	1
AMARI	DS	1
	END
;-----------------
