%*DEFINE (MOVAX	(ADRES))( ; cteni z vnejsi pameti
	MOV	R0,#%ADRES
	MOVX	A,@R0)

%*DEFINE (MOVXA	(ADRES))( ; zapis do vnejsi pameti
	MOV	R0,#%ADRES
	MOVX	@R0,A)

%*DEFINE (ZAPIS)(	; zapisovaci impuls pro	ICM 7218
	CLR	WRN
	SETB	WRN)

%*DEFINE (ZAPISCW)(	; zapis	ridiciho slova do ICM 7218
	SETB	MODE
	MOV	P4,#0FFH
	CLR	WRN
	SETB	WRN
	CLR	MODE)

%*DEFINE (CJE	(DATA,ADRES))(	; vytvoreni instrukce CJE (opak	CJNE)
	CJNE	A,%DATA,$+6
	LJMP	%ADRES)

%*DEFINE (RNZ)(		; nahrada obdobne instrukce u 8080
	JZ	$+3
	RET)

%*DEFINE (RZ)(		; nahrada obdobne instrukce u 8080
	JNZ	$+3
	RET)


%SET(HLPES,1)		; nastaveni nebo vypnuti WDOG
%*DEFINE(PES)(
%IF(%HLPES)THEN(
	SETB	WDT
	SETB	SWDT)FI)

%SET(V110,0)		; nastaveni nebo vypnuti 110V/50Hz
%SET(SER,1)		; nastaveni nebo vypnuti serioveho prenosu
%SET(GUMA,0)		; nastaveni nebo vypnuti gumy
%SET(GUMA_KOR,0)	; 0 - korekce jsou v um
			; 1 - korekce jsou v 10um
%SET(A10X,0)		; 0 - v rezimu A neni tl. 10x povoleno
			; 1 - v rezimu A jsou pridavky ovladany tl. 10x
			; 2 - pro rezim A je tl. 10x stale zapnuto (pro stroje s pİevodovanym RK)
%SET(KOTO,0)		; zapnuti, vypnuti rizeni otacek kotouce
%SET(POZAP,1)		; povoleni, zakazani postupneho	zapichu	pro K/K
%SET(ZPUVR,0)		; povoleni, zakazani prodlevy v	uvratich
%SET(KOULE,0)		; povoleni, zakazani koule
%SET(K_K,1)		; povoleni, zakazani K/K
%SET(ENKOD,0)		; zapnuti zvlastni kontroly otacek KM typ Kralupy
%SET(LCD,1)		; volba	typu displeje 1=LCD 0=LED
%SET(JEN_CESTINA,1)	; 0 - volba jedne ze 3 reci
			; 1 - jen cestina
%SET(POLOHA,0)		; zapnuti, zakazani zmeny cila programu	podle polohy stolu
%SET(TCHP,1)		; pov/zak uceni	konstantni rychlosti
%SET(AUT10,0)		; povoleni, zakazani rezimu 10x	pri AUT	a TCH
%SET(KUZ,0)		; povoleni, zakazani brouseni kuzele
%SET(ERRO,1)		; 0 - vypnuti snimani erroru ze vstupu
			; 1 - errory ze vstupu IN4,5,6
			; 2 - errory za vstupu IN3,4,5,6
%SET(POLOHA_SCH,0)	; je pou‘ita poloha SCH
%SET(JISKK,0)		; nedojizdeni na WSP po	orovnani
%SET(JISA,1)		; zadavani poctu vyjiskreni pri	A
%SET(JISP,0)		; zadavani doby	vyjiskreni pri P
%SET(ADJABS,0)		; 0 - 3. imp. provadi aut. korekce pouze u aktiviho programu
			; 1 - 3. imp. provadi aut. korekce absolutni osy
%SET(TABULK,2)		; 0 - tabulkove brouseni zakazano
			; 1 - tabulkove brouseni povoleno, max. stoupani 255um/mm
			; 2 - tabulkove brouseni povoleno, max. stoupani 512um/mm
%SET(PROG,0)		; povoleni, zakazani programovetelnych cyklu (HARDCHROM)
%SET(M27512,1)		; 0 - pamet 27C256  1 -	pamet 27C512
%SET(UHEL,0)		; brouseni s uhlem brusu
%SET(OSAZ,1)		; 0 - bez osy Z
			; 1 - osa Z pritomna, zobrazeni po 0.01 mm
			; 2 - osa Z pritomna, zobrazeni po 0.5 mm
%SET(PRAVITKO,1)	; 0 - zadne cekani
			; 1 - po zapnuti se ceka na ustaleni pravitka
%SET(OUT1,1)		; vystup OUT1	0 - nepouzit
			;		1 - 10X
			;		2 - AUC
%SET(OUT5,1)		; vystup OUT5	0 - nepouzit
			;		1 - smer stolu
			;		2 - negace OUT4
			;		3 - 10x

; Konstanty stroje a programu
; - - - - - - - - - - - - - - - - - - -

PRIRUSTEK_Z	EQU 20	; prirustek (krok) osy Z
				; BUC => 1272um  17/63 zubu
				; BUB => 1256um  16/60 zubu
NASOBEK_Z	EQU 2	; po kolika nasobcich prirustku osy Z se vola vypocet
HRANICE		EQU 5	; hranice mezi programy pro zapich a podelnym brousenim
			; cislo prvniho podelneho programu