SjASMPlus Z80 кросс ассемблер

[siril]

@Aprisobal, стОит ждать, что ты выложишь подсветку для XCode на свою страницу? =)

[Advertiser]

[Aprisobal]

siril, стоит! Вот-вот...

[siril]

ок! спасибо! =)

[Keeper]

TPressR     DB      "Press R to repeat","."+#80,0   ;для ASKREPFORM

Ошибка Unexpected +#80 и дальше до конца строки, т.е. +#80,0. Если пишу:

TPressR     DB      "Press R to repeat",("."+#80),0   ;для ASKREPFORM

то все ОК

[alone]

Можно ли в сабже провернуть следующее? (Пример из ALASM - \0 тут первый параметр макроса.)
Если да, то как?

MACRO GETREALFRQ
CALL chn\0volumer ;не портит DE
chn\0frq=$+1
LD HL,0
chn\0glisson=$
CALL chn\0glisser ;не портит DE
LD A,H ;HL=frq
SUB E;_tmin+(_wmin*_div) ;минимальный период
JNC $+3
XOR A
ADD A,E;_tmin+(_wmin*_div)
LD (bch\0t),A ;realfrq
SUB _tmin ;CY=0
RRA
SRL A
LD C,A
LD A,(chn\0volH)
CP C
JC $+4
LD A,C
DEC A
SUB D;1
ADC A,D;1
LD (bch\0w1),A
;imp0=realfrq/div-imp1
SUB C
NEG
LD (bch\0w0),A
ENDM

[Aprisobal]

Можно ли в сабже провернуть следующее? (Пример из ALASM - \0 тут первый параметр макроса.)
Если да, то как?

MACRO GETREALFRQ
CALL chn\0volumer ;не портит DE
chn\0frq=$+1
LD HL,0
chn\0glisson=$
CALL chn\0glisser ;не портит DE
LD A,H ;HL=frq
SUB E;_tmin+(_wmin*_div) ;минимальный период
JNC $+3
XOR A
ADD A,E;_tmin+(_wmin*_div)
LD (bch\0t),A ;realfrq
SUB _tmin ;CY=0
RRA
SRL A
LD C,A
LD A,(chn\0volH)
CP C
JC $+4
LD A,C
DEC A
SUB D;1
ADC A,D;1
LD (bch\0w1),A
;imp0=realfrq/div-imp1
SUB C
NEG
LD (bch\0w0),A
ENDM

С помощью макросов - нет. С помощью скрипта на LUA - да.

[Kurles]

TPressR     DB      "Press R to repeat","."+#80,0   ;для ASKREPFORM

Ошибка Unexpected +#80 и дальше до конца строки, т.е. +#80,0. Если пишу:

TPressR     DB      "Press R to repeat",("."+#80),0   ;для ASKREPFORM

то все ОК

Вообще-то двойные кавчки для символьных строк используются, для одиночных символов используй одинарные ('.'+#80)

[Antipod]

Можно ли в сабже провернуть следующее? (Пример из ALASM - \0 тут первый параметр макроса.)
Если да, то как?

MACRO GETREALFRQ
CALL chn\0volumer ;не портит DE
chn\0frq=$+1
LD HL,0
chn\0glisson=$
CALL chn\0glisser ;не портит DE
LD A,H ;HL=frq
SUB E;_tmin+(_wmin*_div) ;минимальный период
JNC $+3
XOR A
ADD A,E;_tmin+(_wmin*_div)
LD (bch\0t),A ;realfrq
SUB _tmin ;CY=0
RRA
SRL A
LD C,A
LD A,(chn\0volH)
CP C
JC $+4
LD A,C
DEC A
SUB D;1
ADC A,D;1
LD (bch\0w1),A
;imp0=realfrq/div-imp1
SUB C
NEG
LD (bch\0w0),A
ENDM

можно. Если переделать в такое:

	macro GETREALFRQ param
	CALL param_volumer ;не портит DE
param_frq=$+1
	LD HL,0
param_glisson=$
	CALL param_glisser ;не портит DE
	LD A,H ;HL=frq
	SUB E;_tmin+(_wmin*_div) ;минимальный период
	JNC $+3
	XOR A
	ADD A,E;_tmin+(_wmin*_div)
	LD (param_t),A ;realfrq
	SUB _tmin ;CY=0
	RRA
	SRL A
	LD C,A
	LD A,(param_volH)
	CP C
	JC $+4
	LD A,C
	DEC A
	SUB D;1
	ADC A,D;1
	LD (param_w1),A
	;imp0=realfrq/div-imp1
	SUB C
	NEG
	LD (param_w0),A
	endm

вопрос встал тут:
http://zx.pk.ru/showpost.php?p=157080&postcount=260
добавлено в официальную версию тут:
http://zx.pk.ru/showpost.php?p=163066&postcount=283
имплементация где-то между этими двумя постами.

[alone]

С какими названиями метки сгенерируются в результате?

[Antipod]

С какими названиями метки сгенерируются в результате?

http://zx.pk.ru/showpost.php?p=159487&postcount=264