⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 2oo2-g.asm

📁 用单片机实现的总线比较的2取2功能的安全计算机
💻 ASM
字号:
	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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -