Untitled

$NOMOD51
$INCLUDE (8051.MCU)

W_ BIT 20H.3
Y_ BIT P3.2
X_ BIT 28H.2
Z_ BIT P2.5
B_ BIT 21H.4
C_ BIT 25H.0
U_ BIT 22H.0
D_ BIT P3.3
Q_ BIT P1.3

      ; Reset Vector
      org   0000h
      jmp   Start


      org   0100h
Start:	
; вЫСТАВЛЕНИЕ ЗНАЧЕНИЙ БИТОВОЙ ПАМЯТИ
      SETB W_
      ;CLR W_
      
      SETB X_
      ;CLR X_
      
      ;SETB B_
      CLR B_
      
      ;SETB C_
      CLR C_
      
      ;SETB U_
      CLR U_
; ВЫЧИСЛЕНИЕ БУЛЕВОЙ ФУНКЦИИ
      LOOP:	
TEST_W:	    	MOV A, 20H
		ANL A, #00001000B
		JZ TEST_X
		MOV A, P3
		ANL A, #00000100B
		JZ SET_Q
TEST_X:		MOV A, 28H
		ANL A, #00000100B
		JZ TEST_C
		MOV A, P2
		ANL A, #00100000B
		JZ SET_Q
TEST_C:		MOV A, 25H
	        ANL A, #0000001B
		JZ TEST_B
		MOV A, 22H
		ANL A, #00000001B
		JNZ SET_Q
TEST_B:		MOV A, 21H
	        ANL A, #00010000B
		JNZ SET_Q
TEST_D:		MOV A, P3
	        ANL A, #00001000B
		JNZ SET_Q
CLEAR_Q: 	MOV A, P1
	        ORL A, #11111111B
		MOV P1, A
		JMP END_P
SET_Q: 		MOV A, P1
	        ANL A, #00000000B
		MOV P1, A
END_P:
	
	        JMP LOOP
;====================================================================
		END