CPU "6800.TBL"

                CLRA
                CLRB
                LDX     #00FFH
                STX     0050H
MAIN:           LDX     0050H
                INX
                CPX     #120H
                BEQ     ENDIT
                STX     0050H
                LDAA    00,X
INNER:          INX
                CPX     #120H
                BEQ     MAIN
                LDAB    00,X
                CBA
                BPL     INNER
                STAA    0070H
                STX     0060H
                LDX     0050H
                STAB    00,X
                LDX     0060H
                LDAA    0070H
                STAA    00,X
                BRA     INNER
ENDIT:          WAI
                END