Select Code to Download

 perl -e '
my $x; sub rec { goto STOP if ++$x>10; print $x; rec()};rec();STOP:' 
12345678910

use Assembler::6502;     # fictitious module 
                         # implementing Mnemonics as subs
...
SUB2:      ...
           ...
           RET