.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