$NOGEN
%*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,0)		; nastaveni nebo vypnuti serioveho prenosu
%SET(GUMA,1)		; nastaveni nebo vypnuti gumy
%SET(GUMA_KOR,1)	; 0 - korekce jsou v um
			; 1 - korekce jsou v 10um
%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,0)		; volba typu displeje 1=LCD 0=LED
%SET(POLOHA,0)		; zapnuti, zakazani zmeny cila programu podle polohy stolu
%SET(TCHP,0)		; pov/zak uceni konstantni rychlosti
%SET(AUT10,0)		; povoleni, zakazani rezimu 10x pri AUT a TCH
%SET(KUZ,1)		; povoleni, zakazani brouseni kuzele
%SET(ZAOKROUH_Z,1)	; volba zaokrouhlovani osy Z, voli se podle kroku Z
%SET(ERRO,0)		; zapnuti snimani erroru ze vstupu IN4,5,6
%SET(POLOHA_SCH,0)	; je pou‘ita poloha SCH
%SET(A10X,0)		; povoleni 10x v rezimu A
%SET(JISKK,0)		; nedojizdeni na WSP po orovnani
%SET(JISA,0)		; 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,0)		; povoleni, zakazani tabulkoveho brouseni
%SET(M27512,0)		; 0 - pamet 27C256  1 - pamet 27C512
%SET(OSAZ,1)		; 0 - bez osy Z     1 - osa Z pritomna