;$XREF
;$DEBUG
$NOMOD51

;********************************************************
;*		K K M F  Automatika Int�zet		*
;*		  Elektronika Szakcsoport		*
;********************************************************
;*  Program:	Digit�lis Technika Beadand�		*
;*  V�ltozat:		V1.0				*
;*  D�tum:	xxxx.xx.xx.				*
;*  K�sz�tette:	         				*
;********************************************************
;*  A modul le�r�sa:					*
;********************************************************

	; xxxxxxx Fordit�si parancsok xxxxxxx

; Az al�bbi direkt�v�kat az XE251 parancssorb�l akt�v�lja,
; ez�rt van bet�ve el�juk a komment jel

	; xxxxxxx Deklar�ci�k xxxxxxx

$NOLIST
$INCLUDE(C:\XE251\SEGEDLET\GYAK552.INC)
$LIST




	; xxxxxxx Szegmensek deklar�l�sa xxxxxx

PROG	SEGMENT	CODE			; program		
VALTB1	SEGMENT	DATA BITADDRESSABLE	; b�jtos v�ltoz�k a BIT c�mezhet� ter�leten
?STACK	SEGMENT	IDATA			; stack mem�ria



	; xxxxxx XDATA mem�ri�ba �gyazott I/O xxxxxx

	XSEG	AT 0C000H

NGSOR:	DS	1	; Nyom�gomb sor c�me	X:0C000H
LEDSOR:	DS	1	; LED-sor c�me		X:0C001H

		

	; xxxxxx B�jtos v�ltoz�k a BIT c�mezhet� ter�leten xxxxxxx
	RSEG	VALTB1
	DS 1			;1 �res b�jt lefoglal�sa
	BEM:	 DS 1		;a bemeneti v�ltoz�knak 1 b�jt lefoglal�sa
	KIM:	 DS 1		; a kimenetnek 1 b�jt lefoglal�sa
	ATM:	 DS 1		; az �tmeneti v�ltoz�nak 1 b�jt lefoglal�s

	H_V	BIT BEM.0	;     Bemeneti,
	I_V	BIT BEM.1	;    �tmeneti �s
	J_V	BIT BEM.2	;     kimeneti
	K_V	BIT BEM.3	;     v�ltoz�k
	F_B	BIT KIM.0	;    deklar�l�sa,
	F_T	BIT KIM.7	;        �s
	AT_1	BIT ATM.0	;  helyi�rt�k ad�sa
	

	; xxxxxx STACK szegmens xxxxxxx

	RSEG    ?STACK		; STACK kezdete
	DS      10H		; 32 b�jtos STACK

	; xxxxxx Program szegmens xxxxx

	RSEG	PROG
	USING	0		; 0-�s regiszterbank

START:	LJMP	INIT		; ugr�s az inicializ�l�sra


	; ****** Inicializ�l�s ******

INIT:	MOV	SP,#?STACK-1
	MOV	BEM,#0		;a bemenet 0-�z�sa
	MOV	KIM,#0		;a kimenet 0-�z�sa
	MOV	ATM,#0		;az �tmeneti t�rol� 0-�z�sa
	MOV	DPTR,#LEDSOR	;\     a ledsor
	MOV	A,#0		;  alaphelyzetbe
	MOVX 	@DPTR,A		;/  val� �ll�t�sa

	; ****** F� programhurok ******

FOPR:	CALL	BEIR		;a be�r� szubrutin megh�v�sa

	;Bitm�velet
	MOV	C,H_V		;a C be bet�ltj�k h v�ltoz�t
	ORL	C,/I_V		;a h v�ltoz�t neg�lt i v�ltoz�val vagy kapcsolatba hozzuk
	ORL	C,/J_V		;az el�z� �rt�ket ami c ben jelent meg neg�lt J vel vagy kapcsolatba hozzuk
	MOV	AT_1,C		;a c �rt�k�t egy �tmeneti t�rol�ba t�ltj�k
	MOV	C,H_V		;a c be k�ldj�k h v�ltoz�t
	ORL	C,/K_V		;h v�ltoz� vagy kapcs. k neg�ltal
	ANL	C,AT_1		;az �tmeneti t�rol� tartalm�t �s kapcsolatba hozzuk a c ben l�v� vagy kapcsolatokkal
	MOV	AT_1,C		;�tmenetibe t�ltj�k c tartalm�t
	MOV	C,J_V		;c be k�ldj�k J v�ltoz�t
	ORL	C,I_V		;vagy kapcsolata J v�ltoz�nak I v�ltoz�val
	ORL	C,/H_V		;el�z� kifejez�s vagy kapcsolata h neg�ltal
	ANL	C,AT_1		;�s kapcsolat �tmeneti �s c tartalma k�zt	
	MOV	F_B,C		;bitm�veletes feladatr�szbe k�ldj�k a c �rt�k�t
	
	;T�bl�zat
	MOV	R7,#7		;7 es regiszterbe decim�lis 7 �rt�k ker�l
	MOV	DPTR,#IG_T	; a data pointer-t felt�lti az igazs�gt�bl�zat �rt�keivel
	MOV	R6,#0		;6 os regiszterbe 0 �rt�k ker�l
TORZS:
	MOV	A,R6		;akkuba R6 �rt�ke
	MOVC	A,@A+DPTR	;programt�rb�l visz egy b�jtot az akkuba
	CJNE	A,BEM,VEG1	;�sszehasonl�tja a k�t adatot akku tartalma �s bemneti v�ltok ha nem egyforma a VEG re ugrik
	SETB	F_T		;az igazs�gt�bl�zatos �rt�ket 1 be �ll�tja
	JMP	VEG		;a VEG re ugrik
VEG1:
	INC	R6		;inkrement�lja R6 regiszter �rt�k�t
	DJNZ	R7,TORZS	;el�sz�r dekrement�lja R7 �rt�k�t majd ellen�rzi hogy az �rt�k 0-e ha nem ugrik a megadott feladatra itt TORZS
	CLR	F_T		;0-ba �ll�tja t�bl�zatos megold�s �rt�k�t
VEG:
	CALL	KIIR		;megh�vja a kiirat� szubrutint
	SJMP	FOPR		;a f�program cimk�re ugrik

	; ****** Konstans t�bl�zatok ******

IG_T:	DB	0,2,4,5,11,13,15		;a konstans t�bl�zatot felt�ltj�k az igaz �rt�kekkel

	; ****** Szubrutim ******

	USING	1		; Register BANK 1

BEIR:	MOV	DPTR,#NGSOR		;felt�tlti a megadott �lland�val a data pointert
	MOVX	A,@DPTR			;az akkuba t�lti az �rt�ket
	ORL	A,#0F0H			;vagy kapcsolatba ker�l 0F0H-val
	CPL	A			;neg�lja Akku tartalm�t
	MOV	BEM,A			;a BEM re k�ldi akku �rt�k�t
	RET				;return

KIIR:	MOV	DPTR,#LEDSOR		;felt�lti a ledsor �rt�k�vel datapointert
	MOV	A,KIM			;akkuba k�ldi KIM-et
	ANL	A,81H			;�s kapcsolatba hozza 81H-val
	CPL	A			;neg�lja akku tartalm�t
	MOVX	@DPTR,A			;az adatpointerbe k�ldi akku �rt�k�t
	RET				;return

	
	RETI
	END			; F�jl v�ge direkt�va