; Addieren zweier Binaerzahlen, geht sicher auch einfacher :)
; (C) Stephan Beyer, 20060724
.0001111111+010001

; Gehe bis zum Plus falls vorhanden
; oder raeume gleich auf (siehe weiter unten)
qs 1 1 R qs
qs 0 0 R qs
qs _ _ R qs
qs u u R qs
qs + + R qp
qs . . L ql

; ab +: gehe an rechten Rand
qp 0 0 R qp
qp 1 1 R qp
qp . . L qa

; hole Ziffer von rechts
qa 0 . L q0
qa 1 . L q1
qa + . L ql ; fertigmachen (aufraeumen, loeschen)

; q0 und q1 speicher "geholte" Zahl, tun aber das selbe
q0 0 0 L q0
q0 1 1 L q0
q0 + + L qb0
q0 . . L qw0

q1 0 0 L q1
q1 1 1 L q1
q1 + + L qb1
q1 . . L qw1

qb0 0 _ L q0
qb0 1 _ L q1
qb0 u _ L qb1u
qb0 _ _ L qb0
qb0 . . L qw0
qb1 0 _ L q1
qb1 1 u L q0
qb1 u _ L qb0u
qb1 _ _ L qb1
qb1 . . L qw1

qb1u 0 _ L q1
qb1u 1 u L q0
qb1u . . L ql1.
qb0u 0 u L q0
qb0u 1 u L q1
qb0u . . R qru
qru _ u L qru
qru . . L ql0.

; schreibe Ziffer auf Ergebnisseite
qw0 0 0 L qw0
qw1 0 0 L qw1
qw0 1 1 L qw0
qw1 1 1 L qw1
qw0 . 0 R q=
qw1 . 1 R q=

; gehe rechts von = und fange erneut an
q= 0 0 R q=
q= 1 1 R q=
q= . . R qs

; aufraeumen
ql _ . L ql
ql 1 . L ql1
ql 0 . L ql0
ql . . L qf
ql u . L qb1u

ql0 0 0 L ql0
ql1 0 0 L ql1
ql0 1 1 L ql0
ql1 1 1 L ql1
ql0 . . L ql0.
ql1 . . L ql1.

ql0. 0 0 L ql0.
ql1. 0 0 L ql1.
ql0. 1 1 L ql0.
ql1. 1 1 L ql1.
ql0. . 0 R q=
ql1. . 1 R q=

; fertigmachen
qf 0 0 L qf
qf 1 1 L qf
qf . . R qfn

; fuehrende nullen loeschen
qfn 0 . R qfn
qfn 1 1 S qh
qfn . 0 S qh

; halten
qh 0 0 S qh
qh 1 1 S qh