start ldd #1
 nega
 negb
 sbca #0
 tfr d,x
 ldd #1
 coma
 comb
 addd #1
 swi
 end start