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]