Start 100
Label MOVER AREG, =5
add areg, =999
sub breg, x