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

[Zidane]

Доброго времени суток форумчане. Залип не по детски. Есть до смешного простой код:

ORG $7530
LD A,(25000)
LD HL,25001
SUB A,(HL)
LD (25004),A
RET

И не работает... Вместо SUB ставим ADD, ADC или SBC - все отлично, вот при указанном раскладе неизменно получаю сообщение "Invalid combination of opcode and operators". перерыл все справочники какие нашел - есть такая команда. А ассемблер говорит что нет. Вот и втыкаю в формате "то ли лыжи не едут..." ну и далее по тексту. Причем ошибку выдает как в современных средствах разработки, так и в древнючем GENS... При написании руководствовался вот этим вот материалом https://sysadminmosaic.ru/msx/assemb...ov_bocharov/11, раздел 8-битной арифметики. Кстати пробовал указывать числа только в 16-ричном формате, все равно не работает.

[Advertiser]

[ivagor]

sub (hl)

[jerri]

Доброго времени суток форумчане. Залип не по детски. Есть до смешного простой код:

ORG $7530
LD A,(25000)
LD HL,25001
SUB A,(HL)
LD (25004),A
RET

И не работает... Вместо SUB ставим ADD, ADC или SBC - все отлично, вот при указанном раскладе неизменно получаю сообщение "Invalid combination of opcode and operators". перерыл все справочники какие нашел - есть такая команда. А ассемблер говорит что нет. Вот и втыкаю в формате "то ли лыжи не едут..." ну и далее по тексту. Причем ошибку выдает как в современных средствах разработки, так и в древнючем GENS... При написании руководствовался вот этим вот материалом https://sysadminmosaic.ru/msx/assemb...ov_bocharov/11, раздел 8-битной арифметики. Кстати пробовал указывать числа только в 16-ричном формате, все равно не работает.

Z80opcodes.zip

[Zidane]

Уже подсказали, но большое спасибо за ответ.

[Zidane]

Доброго времени суток. Нубу снова не спится. Озадачился вопросом, можно ли передавать 2-байтные значения из бейсик в ассемблер. И вообще, возможно ли это. В разного рода книжках вроде обозначена область VARS, но она, как я понял, используется для хранения переменных самого интепретатора, а мне надо бы то, что пользователь ввел.

[Bedazzle]

можно ли передавать 2-байтные значения из бейсик в ассемблер

POKE addr, value1
POKE addr+1, value2

...

ld hl, (addr)

[Zidane]

POKE addr, value1
POKE addr+1, value2

...

ld hl, (addr)

То есть нужно предварительно пересчитать число в 16-ричный формат?

[reddie]

То есть нужно предварительно пересчитать число в 16-ричный формат?

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

[Reobne]

Есть ещё такой метод: "DEF FN A(......) = USR addr - для работы с числами;"
Бейсик, передаёт пятибайтовые числа, но когда они целые от 0 до 65535, то их легко выделить из этих пяти байтов.

- - - Добавлено - - -

Вот тут я этот метод использовал.

- - - Добавлено - - -

Что-то я какие-то трешовые примеры накидал.
Сейчас более чистый примерчик дам.
В бейсике пишем:

10 DEF FN a(x,y)=USR 40000
20 CIRCLE 80,80,75
30 RANDOMIZE FN a(16384,16384+256*8)

В ассемблере пишем прожку, которая берёт из аргументов два целых числа и переносит соответствующие два килобайта.

        ORG  40000
        LD   HL,(5C0BH)
        LD   BC,4
        ADD  HL,BC
        LD   E,(HL)
        INC  HL
        LD   D,(HL) ; В DE взяли первый аргумент
        LD   C,7
        ADD  HL,BC
        LD   A,(HL)
        INC  HL
        LD   H,(HL)
        LD   L,A    ; В HL взяли второй аргумент
        LD   BC,800h
        LDIR
        RET

Когда всё это дело запускаем, рисуется кружочек, а потом из средней трети экрана всё копируется в верхнюю треть.

[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