Форум РадиоКот

Код: Выделить всё

 ; Исходное число в R25(ст),R24(мл) .
 ; Результат - 5 байт по указателю Z (ст -> мл) .
 ; В массиве числа - НЕ СИМВОЛЫ !
 ; R25,R24 не сохраняются.
subt:	push	r16
	push	r17
	push	r18
	tst	r24
	brne	st1
	st	z+,r24
	st	z+,r24
	rjmp	part2
 ; Если R24=0, первые две цифры = 0,
 ; переход на 2-ю часть
	;
st1:	ldi	r18,high(10000)
	ldi	r17,low(10000)
	rcall	st_s ; выделили десятки тысяч
	ldi	r18,high(1000)
	ldi	r17,low(1000)
	rcall	st_s ; выделили тысячи
part2:	ldi	r18,high(100)
	ldi	r17,low(100)
	rcall	st_s ; выделили единицы
	;
	ldi	r16,0
st10:	subi	r24,10
	brcs	st15
	inc	r16
	rjmp	st10
st15:	subi	r24,-10
	st	z+,r16 ; распилили R24 на десятки - единицы
	st	z+,r24
	pop     r18
	pop     r17
	pop     r16
	ret
 ; ====
st_s:	ldi	r16,0    ; Подпрограмма деления `
sts05:	sub	r24,r17  ; R25,R24 на R18,R17
	sbc	r25,r18  ; Частное в R16 -> [Z+]
	brcs	sts10    ; Остаток в R25,R24
	inc	r16
	rjmp	sts05
sts10:	add	r24,r17
	adc	r25,r18
	st	z+,r16
	ret
	;