Вопрос по ассемблеру Z80

[Zidane]

В вышеприведенном примере - да. Но есть способ попроще, хотя с некоторыми ограничениями.
Через переменную SEED Бейсика (RND- генератор). Командой Randomize NN (до 65535) заносим туда число, а в кодах забираем оттуда значение: LD RP, (23670), где RP - нужная регистровая пара, 23670/23671 - два байта числа.
Ограничения, думаю, понятны: при запуске кодов через Randomize Usr значение сменится по возврату в Бейсик. Обычно удобней запускать командой вида LET X=USR NN, по возврату X будет равно значению рег. пары BC, то есть можно передавать и обратно из кодов в Бейсик.

То бишь примерно так?

10 INPUT x ;Вводим нужное двухбайтное число
20 LET y=USR 30000 ;Указываем адрес старта подпрограммы ассемблер
30 RANDOMIZE x ;Помещаем число по адресам 23670/23671
40 RANDOMIZE y ;Вызываем подпрограмму ассемблера

? У меня сбрасывается бейсик. Мож я чего не так понял?
На всякий случай ниже код ассемблера который я использую. Решил пока сделать вывод на экран


ORG $7530
LD A,2
CALL 5633

LD HL,(23670)
LD DE,1
SBC HL,DE

LD B,H
LD C,L
CALL 11563
CALL 11747
RET

[Advertiser]

[reddie]

Строки 20 и 30 поменять местами и убрать строку 40, она бессмысленна.
То бишь сперва заносим число в SEED, а потом уже вызываем код.
Возможны ещё баги в кодовом блоке, уже забыл, что делают те две процедуры.

[reddie]

ORG $7530
LD A,2
CALL 5633

LD HL,(23670)
LD DE,1
SBC HL,DE

LD B,H
LD C,L
CALL 11563
CALL 11747
RET

Глянул талмуд - это вывод числа из стека калькулятора. Но зачем так много лишних инструкций?

LD A, 2
CALL 5633
LD BC, (23670)
DEC BC ; уменьшение на 1, если оно надо
CALL 11563
JP 11747