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

📄 2.asm

📁 51控制的十字路口交通灯 左右转 人行道
💻 ASM
字号:
org 0000H

AJMP MAIN

org 000BH

AJMP T0INT

MAIN: MOV SP,#5FH

MOV TMOD,#01H

MOV TL0,#0B0H

MOV TH0,#3CH

SETB 00H

CLR 01H

CLR 02H

CLR 03H

MOV 5BH,#0

MOV 5AH,#40

MOV 5CH,#4

MOV 5DH,#0

MOV 5EH,#4

MOV 5FH,#0

SETB TR0

MOV IE,#82H

M1:ACALL DIR

JNB P3.2,M2

JNB P3.3 ,M3

SJMP M1

M2:  ACALL DIR

ACALL DIR 

ACALL DIR

ACALL DIR

JB P3.2,M1

CLR TR0

MOV P3,#0DEH

M21: ACALL DIR

JNB P3.2,M21

SJMP M1

M3: ACALL DIR

ACALL DIR

ACALL DIR

ACALL DIR

JB P3.3,M1

JB 00H,M31

MOV P3,#7EH

SJMP M34

M31:JB 01H,M32

MOV P3,#0BEH

SJMP M34

M32: JB 02H,M33

MOV P3,#0CFH

SJMP M34

M33:MOV P3,#0DDH

M34:SETB TR0

M35:ACALL DIR

JNB P3.3,M21

SJMP M1

T0INT:PUSH ACC

PUSH PSW

MOV PSW,#08H

MOV TL0,#0B0H

MOV TH0,#3CH

INC 5BH

MOV A,5BH

CJNE A,#10,tt
pp:
jmp qq
tt:
ljmp T0ED
qq:
nop
MOV 5BH,#0

DEC 5AH

MOV A,5AH

MOV B,#10

DIV AB

MOV 5CH,A

MOV 5DH,B

MOV 5EH,A

MOV 5FH,B

MOV A,5AH

JNZ T0ED

JNB 00H,T01

CLR 00H

SETB 01H

MOV P3,#0BEH

MOV 5CH,#0

MOV 5DH,#5

MOV 5EH,#0

MOV 5FH,#5

MOV 5AH,#5

SJMP T0ED

T01:JNB 01H,T02

CLR 01H

SETB 02H

MOV P3,#0CFH

MOV 5CH,#2

MOV 5DH,#0

MOV 5EH,#2

MOV 5FH,#0

MOV 5AH,#20

SJMP T0ED

T02: JNB 02H,T03

      CLR 02H

      SETB 03H

      MOV P3,#0DDH

      MOV 5CH,#0

      MOV 5DH ,#5

MOV 5EH,#0

MOV 5FH,#5

MOV 5AH,#5

SJMP T0ED

T03: CLR 03H

SETB 00H

MOV P3,#7EH

MOV 5CH,#4

MOV 5DH,#0

MOV 5EH,#4

MOV 5FH,#0

MOV 5AH,#40

T0ED:POP PSW

POP ACC

RETI

DL:  MOV  R3,5AH

DLH: MOV  R4,#64H

DLD: MOV  R6,#0AH

DLM: MOV  R7,#64H

        NOP

        NOP

        DJNZ  R7,DLM

        DJNZ  R6,DLD

        DJNZ  R4,DLH

        DJNZ  R3,DL

        RETI

;显示子程序:

DIR: MOV R5,#4

MOV R2,#01H

MOV R0,#5CH

DIR1: MOV A,@R0

ADD A,#0CH

MOVC  A,@A+PC

MOV  P1,A

MOV  P0,R2

INC  R0

MOV  A,R2

RL  A

MOV  R2,A

ACALL  DL

DJNZ  R5,DIR1

RET

DB  3FH,06H,5BH,4FH,66H

DB  6DH,7DH,07H,7FH,67H

END

⌨️ 快捷键说明

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