.proc division
lp1
ldx #$ff
sec
lda var1
loop
inx
sbc var2
bcs loop
stx var3
weiter
adc var2 ; optional
; macht die letzte Subtraktion, mit der man unter
; 0 gekommen ist, wieder rückgängig
; und hinterlässt den Divisionsrest im Akkumulator
rts
.endp