br main
int1:  .block 8
int2:  .block 8
off:   .block 8

main:
    deci int1, d
    deci int2, d
    lda  int1, d
    suba int2, d
    brlt poff
moff:
    lda  -1, i
    sta  off, d
    br   iter, d
poff:
    lda  1, i
    sta  off, d
iter:
    deco int1, d
    lda  int1, d
    cpa  int2, d
    breq end
    lda  int1, d
    adda off, d
    sta  int1, d
    br   iter
end: