SjASMPlus от z00m

[Biland]

DUPL		MACRO LEN,FILL
DUPL:
$$N		EQU (LEN) / 1024
$$M		EQU (LEN) # 1024
		REPT $$N
		DB 1024 DUP(FILL)
		ENDM
		IF $$M <> 0
		DB $$M DUP(FILL)
		ENDIF
		ENDM

HIGH		FUNCTION X,((X >> 8) & 0XFF)
LOW		FUNCTION X,(X & 0XFF)

Это макросы из сорцов GSNEO (от savelij). Компилирует через asw (как я понял). В Sjasm ругается. Толком не пойму что здесь написано, макросы ещё не использовал. Можно это для sjasm привести в читаемый вид? Помогите.

[Advertiser]

[Black Cat / Era CG]

Для этих макросов, вроде в Сжасме есть готовые директивы.

Первый (DUPL), как я понял, просто заполняет LEN байт памяти байтом FILL.
Для этого есть BLOCK <length>[,<fill byte>] (DEFS <length>[,<fill byte>]).

Второе это старший/младший байты.
В Сжасме они есть тоже.

low low x low 8 bits of 16 bit value or lower part of register pair
high high x high 8 bits of 16 bit value or higher part of register pair

[0xDEAD]

Не могу понять, как правильно работать с IFUSED?

DEVICE ZXSPECTRUM48

ORG 0x8000


main:
<code>
<code>
<code>
<code>
<code>
ret

include "address.asm" ; здесь объявлен модуль coords
include "out43.asm"
include "sto_rec.asm"
include "pause.asm"
include "windows.asm"

Главная программа.

module coords

ifused XxXxXxX

XxXxXxX <code>
<code>
<code>
<code>
ret

endif

Файл address.asm, в котором объявлен модуль coords.

module windows

CLS <code>
<code>
<code>
<code>
<code>
call coords.XxXxXxX
ret

Другой модуль, который ссылается на ссылку в модуле coords.

Pass 3 complete
Errors: 4, warnings: 0, compiled: 870 lines, work time: 0.015 seconds
The terminal process "C:\Program Files\PowerShell\7\pwsh.exe -Command sjasmplus --sld=test.sld --fullpath test.asm" terminated with exit code: 1.

Terminal will be reused by tasks, press any key to close it.

> Executing task: sjasmplus --sld=test.sld --fullpath test.asm <

SjASMPlus Z80 Cross-Assembler v1.18.2 (https://github.com/z00m128/sjasmplus)
Pass 1 complete (0 errors)
Pass 2 complete (0 errors)
windows.asm(91): error: Label not found: windows.coords.XxXxXxX

Результат...
Что неправильно?

upd
"Known bug: when code is using label inside module "moduleX", like call labelY, only usage of moduleX.labelY label is noted. Then if you define "labelY" outside of module and hide it inside IFUSED labelY block, the call from module will be unable to find the routine.

Workaround: you can use the global-label operator @: "call @labelY" to trigger usage of the global "labelY", or you can use the alternative IFUSED syntax "labelY: IFUSED" which does not only check condition, but also does define the label. Once the label is defined, the "call labelY" line inside module will find the global variant and mark it as "used" correctly."
Оно?

Вроде бы, оно...
Но новая беда - если написать
labelY: IFUSED
то не работают временные метки.

[krt17]

			module n1
			call @m1.used1
			endmodule
			module m1
			ifused used1
used1
			nop
			jr	1F
			nop
1
			ret
			endif
			endmodule

Так работает, а с новым синтаксисом да, косяк.

[0xDEAD]

Ну, у меня с @ не работает.

Pass 1 complete (0 errors)
Pass 2 complete (0 errors)
address.asm(25): error: [JR] Target out of range (+598)
address.asm(29): error: Local-labels flow differs in this pass (missing/new local label or final pass source difference)
address.asm(33): error: Local label not found: 4F
address.asm(36): error: Local-labels flow differs in this pass (missing/new local label or final pass source difference)
out43.asm(28): error: [JR] Target out of range (+434)
out43.asm(32): error: Local-labels flow differs in this pass (missing/new local label or final pass source difference)
windows.asm(18): error: Local-labels flow differs in this pass (missing/new local label or final pass source difference)
include data: name=font.fnt (768 bytes) Offset=0 Len=768
Pass 3 complete
Errors: 7, warnings: 0, compiled: 927 lines, work time: 0.031 seconds
The terminal process "C:\Program Files\PowerShell\7\pwsh.exe -Command sjasmplus --sld=test.sld --fullpath test.asm" terminated with exit code: 1.

[krt17]

Ну, у меня с @ не работает.

Не бывает у меня работает, у других нет. Значит ошибка в другом. Скорее всего ifused объявлен до использования, это в любом случае ошибка.

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

Хотя я проверял без инклюдов. В сиджасме они как выяснилось влияют не на совсем очевидные вещи.

[0xDEAD]

Подпрограммы, которые я хочу использовать с ifused у меня в include лежат, которые размещены после ret главной программы. К меткам, которые объявлены в том модуле, который я хочу пометить как ifused, в любом случае, обращение происходит раньше по тексту программы, если это имеется в виду.
К тому же, непонятна связь между объявлением ifused и моментальной сразу же после этого потерей работоспособности временных меток.

address.asm(33): error: Local label not found: 4F

Хотя я проверял без инклюдов. В сиджасме они как выяснилось влияют не на совсем очевидные вещи.

Интересно, на какие, например?

[krt17]

Да это. Но то что вы написали в первом посту говорит о другом. Проверил с инклюдами, все в порядке.
Сделайте минимальный синтетический тест, будет попонятнее.

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

Интересно, на какие, например?

В старом обсуждении параллельной ветки был мой пример. Насколько я помню в этой ветке его вылечили, но помню я плохо, посему будем считать что проблем с инклюдом и ифюзед уже нет.

[0xDEAD]

будем считать что проблем с инклюдом и ифюзед уже нет

В официальной документации к компилятору прямым текстом написано, что есть баг. С ifused. Про include, правда, там речь не идёт.

[krt17]

Да написано. Прочитали? Предложено пара воркараундов, один работает, во втором проблема с временными метками.
тест обеих случаев, Ped7g посмотрит разберется

			device	zxspectrum48
			org	0x8000
start
			module	n1
			call	@m1.used1
			call m2.used2
			jr	$
			endmodule
			module	m1
			ifused	used1
used1
			nop
			jr	1F
			nop
1
			ret
			endif
			endmodule
			module	m2
used2:			ifused

			nop
			jr	2F
			nop
2
			ret
			endif
			endmodule

			savesna	"usedtest.sna", start