1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
PLD $7 ADD R0 BRC EVEN .loop [D2] RST R2 BSL $1 ADD R2 INC PST $7 BRC JMP [loop] BSR $1 .D2 PST $7 BRC JMP [loop]