DEVICE 	ZXSPECTRUM128
	org	#4000

	defarray nKeys #1A,#1B,#1C,#1D,#1E,#1F,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#01,#02,#03,#04,#05,#06,#07,#08,#09,#0A,#0B,#0C,#0D,#0E,#0F,#10,#11,#12,#13,#14,#15,#16,#17,#18,#19

/*
;текст слова анализатора
	MACRO	Word text
;.nTxt	=	$
;	db	text
;.eTxt	=	$
;	org	.nTxt
	LUA
	  sj.add_byte(sj.get_byte(sj.current_address) + 128)
	ENDLUA
;	org	.eTxt
	ENDM
*/

;текст слова анализатора
	MACRO	Word text
	LUA
	  sj.add_byte(sj.get_byte(sj.current_address) + 128)
	ENDLUA
	ENDM


;дескриптор опции
;=0 цифра/буква выбора опции 0-5/A-Z
;=1 номер атрибутов в таблице
;=2 адрес п/п определения доступности опции
;=3 адрес п/п
	MACRO	dOption Key, nAttr, Proc1, Proc2
.tKey	DEFL	Key-#30
	db	nAttr*#20+nKeys[.tKey]
	db	(Proc1-#8DD)/#100*#04+(Proc2-#468)/#100*#10
	db	(Proc1-#8DD)%#100
	db	(Proc2-#468)%#100
	ENDM


;	dOption "0",0,#947,#533

/*
.nTxt1	equ	$
	db	"TEXT"
.eTxt1	equ	$
	org	.nTxt1
	LUA
	  sj.add_byte(sj.get_byte(sj.current_address) + 128)
	ENDLUA
	org	.eTxt1
*/

	Word "NOP1"