ПК8000 - Уточнённое описание архитектуры и программ.

[demetrius2003]

Получается! Только bload "tstprg" без R, а далее x=urs(&h5000)

	ORG 0x5000-0x26
	DB 0x1F, 0xA6, 0xDE, 0xBA, 0xCC, 0x13, 0x7D, 0x74
	DB 0xD0, 0xD0, 0xD0, 0xD0, 0xD0, 0xD0, 0xD0, 0xD0, 0xD0, 0xD0
	DB 'tstprg'
	DB 0x1F, 0xA6, 0xDE, 0xBA, 0xCC, 0x13, 0x7D, 0x74
	DW START, ENDE, START
START:	lxi h, num1; грузим в HL адрес строки с первым числом
	call 0x13c6; FIN - переводим строку в FACCUM
	call 0x130d; FCOPYTOBCDE - переводим FACCUM в BCDE формат
	push b; сохраним BCDE временно
	push d
	lxi h, num2; грузим в HL адрес строки со вторым числом
	call 0x13c6; FIN - переводим его в FACCUM
	pop d; восстановим BCDE
	pop b
	call 0x1082; FADD2 - складываем FACCUM и BCDE, результат остаётся в FACCUM
	call 0x1470; FOUT - выводим FACCUM в строку (буфер строки расположен в FBUFFER)
	lxi h, 0xf93d; FBUFFER
	mvi a, 2; выводим строку с текущего положения
	call 0x0050; TRETLINE - печатаем содержимое FBUFFER
	ret
num1	db "1.234E2"
	db 0x0
num2	db "3.654E1"
	db 0x0
ENDE:
	END

Это наш пример сложения чисел, только под CAS и без извратов со стеком и JMP!

[Advertiser]