prog:   equ     $0800
data:   equ     $0900
len:    equ     5
CODE:   section .text
        org     prog
        ldab    #len
        ldx     #table1
loop:   ldaa    0,x
        asra
        staa    len,x
        inx
        decb
        bhi     loop
        swi
DATA:   section .data
        org     data
; Initialize data table and create names for the start and end
; of the table
table1: dc.b    $07,$e2,$a5,$91,$23
table2: ds.b    len