2oo2-g.asm

来自「用单片机实现的总线比较的2取2功能的安全计算机」· 汇编 代码 · 共 148 行

	ORG     0000H
	LJMP    MAIN

	ORG     0030H
MAIN:   

;********* DELAY-READ 3 TIMES ****************

	MOV     DPTR,#8000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#0010H
	MOVX    @DPTR,A

	MOV     DPTR,#0C000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#1010H
	MOVX    @DPTR,A

	LCALL	DELAY

	MOV     DPTR,#8000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#0011H
	MOVX    @DPTR,A

	MOV     DPTR,#0C000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#1011H
	MOVX    @DPTR,A

	LCALL	DELAY

	MOV     DPTR,#8000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#0012H
	MOVX    @DPTR,A

	MOV     DPTR,#0C000H
	MOVX    A,@DPTR
	ANL	A,#03H
	MOV	DPTR,#1012H
	MOVX    @DPTR,A

;********** 2oo3 1 *****************

	MOV	DPTR,#0010H
	MOVX    A,@DPTR
	MOV	30H,A		;2oo3-A

	MOV	DPTR,#0011H
	MOVX    A,@DPTR
	MOV	31H,A		;2oo3-B

	ANL	A,30H
	MOV	35H,A		;2oo3-AB


	MOV	DPTR,#0012H
	MOVX    A,@DPTR
	MOV	32H,A		;2oo3-C

	ANL	A,30H
	MOV	36H,A		;2oo3-AC

	MOV	A,31H		;2oo3-B
	ANL	A,32H		;2oo3-BC

	ORL	A,35H		;2oo3-BC+AB
	ORL	A,36H		;2oo3-BC+AB+AC
	MOV	3FH,A

;********** 2oo3 2 *****************

	MOV	DPTR,#1010H
	MOVX    A,@DPTR
	MOV	40H,A		;2oo3-A

	MOV	DPTR,#1011H
	MOVX    A,@DPTR
	MOV	41H,A		;2oo3-B

	ANL	A,40H
	MOV	45H,A		;2oo3-AB


	MOV	DPTR,#1012H
	MOVX    A,@DPTR
	MOV	42H,A		;2oo3-C

	ANL	A,40H
	MOV	46H,A		;2oo3-AC

	MOV	A,41H		;2oo3-B
	ANL	A,42H		;2oo3-BC

	ORL	A,45H		;2oo3-BC+AB
	ORL	A,46H		;2oo3-BC+AB+AC


	CJNE    A,3FH,LOOP1


	CJNE    A,#01H,LOOP0		
	MOV	A,#01H		;绿灯亮
	MOV     DPTR,#8000H
	MOVX    @DPTR,A

	MOV	A,#01H		;绿灯亮
	MOV     DPTR,#0C000H
	MOVX    @DPTR,A
	LJMP	MAIN

LOOP0:	CJNE    A,#02H,LOOP1		
	MOV	A,#02H		;黄灯亮
	MOV     DPTR,#8000H
	MOVX    @DPTR,A

	MOV	A,#02H		;黄灯亮
	MOV     DPTR,#0C000H
	MOVX    @DPTR,A
	LJMP	MAIN

LOOP1:	MOV	A,#04H		;红灯亮
	MOV     DPTR,#8000H
	MOVX    @DPTR,A

	MOV	A,#04H		;红灯亮
	MOV     DPTR,#0C000H
	MOVX    @DPTR,A
        LJMP	MAIN

DELAY:
      MOV   R2, #02H
      MOV   R1, #7FH
      MOV   R0, #7FH
DLP:
      DJNZ  R0, DLP
      DJNZ  R1, DLP
      DJNZ  R2, DLP
      RET

END