.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