/ vim: set sw=8 noexpandtab :

*200

LOOP,	CLA
	TAD N
	TAD NPLUS1
	DCA NPLUS2
	TAD NPLUS1
	DCA N
	TAD NPLUS2
	DCA NPLUS1
	JMP LOOP

*300

N,	0
NPLUS1,	1
NPLUS2,	0