light.asm

交通灯控制系统

        ORG 0000H
        LJMP START
        ORG 000BH
 INT_T0:MOV TH0,#3cH
        MOV TL0,#0B4H
        DJNZ 2AH,EXT1
        MOV 2AH,#14H
        SETB 62H
   EXT1:RETI

        ORG 0040H
  START:MOV TH0,#3CH
        MOV TL0,#0B0H
        MOV TMOD,#00000001B
        MOV IE,#10000010B
        MOV SP,#40H

        MOV 20H,#3FH
        MOV 21H,#06H
        MOV 22H,#5BH
        MOV 23H,#4FH
        MOV 24H,#66H
        MOV 25H,#6DH
        MOV 26H,#7DH
        MOV 27H,#07H
        MOV 28H,#7FH
        MOV 29H,#6FH
        MOV 2AH,#14H
        MOV 2CH,#00H

        MOV 30H,#32H
        MOV 31H,#37H
        MOV 32H,#32H
        MOV 33H,#1EH
        MOV 34H,#05H
        MOV 35H,#0FH
        MOV 36H,#0FH
        SETB P2.0
        SETB P2.1
        CLR  P2.2
        CLR  P2.3
        SETB P2.4
        SETB P2.5
        SETB P2.7
        SETB TR0
        CLR 67H

  MAIN: JB  62H,M1
        LCALL SJXS
        JB  63H,M2
    AA1:JNB P0.5,KKKK1
        LCALL SJXS

    AA4:JNB P0.6,KKKK4
        LCALL SJXS
   AA5: JNB P0.4,KKKK9
        JB 67H,AA5
        LCALL SJXS
        LJMP MAIN
     M1:lcall MDS
        LJMP MAIN
     M2:LCALL JS
        LCALL SJXS
        LCALL SJXS
        LCALL SJXS
        LJMP MAIN
  KKKK1:LCALL KKK1
        lcall sjxs
        LCALL SJXS
        LCALL SJXS
        LJMP AA1
  KKKK4:LCALL KKK4
        lcall sjxs
        LCALL SJXS
        LCALL SJXS
        LJMP AA4
  KKKK9:LCALL KKK9
        LJMP MAIN

   KKK1:CLR TR0
        SETB 67H
        CLR 63H
        CLR 62H
        CLR 64H
        CLR 65H
        CLR 66H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        MOV 2AH,#14H
        MOV 30H,32H
        MOV 31H,33H
        JNB P0.4,KKK2
        JNB P0.7,KKK3
   KKA3:MOV 30H,32H
        MOV 31H,33H
        RET
   KKK2:LCALL YANS2
        MOV A,32H
        CJNE A,#01H,KKA1
        MOV 32H,#3CH
        LJMP KKA3
   KKA1:DEC 32H
        LJMP KKA3
   KKK3:LCALL YANS2
        MOV A,33H
        CJNE A,#01H,KKA2
        MOV 33H,#3CH
        LJMP KKA3
   KKA2:DEC 33H
        LJMP KKA3

   KKK4:JNB P0.5,KKK7
        SETB 67H
        CLR TR0
        CLR 62H
        CLR 63H
        CLR 64H
        CLR 65H
        CLR 66H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        MOV 2AH,#14H
        MOV 30H,35H
        MOV 31H,34H
        JNB P0.4,KKK5
        JNB P0.7,KKK6
   KKK7:MOV 30H,35H
        MOV 31H,34H
        RET
   KKK5:lcall yans2
        MOV A,35H
        CJNE A,#0BH,KKB1
        MOV 35H,#1EH
        MOV 36H,35H
        LJMP KKK7
   KKB1:DEC 35H
        MOV 36H,35H
        LJMP KKK7
   KKK6:LCALL YANS2
        MOV A,34H
        CJNE A,#01H,KKB2
        MOV 34H,#0AH
        LJMP KKK7
   KKB2:DEC 34H
        LJMP KKK7

   KKK9:JB P0.7,KKC1
        LCALL TC11
   KKC1:RET
   TC11:LCALL YANS2
        CLR 62H
        CLR 63H
        CLR 64H
        CLR 65H
        CLR 66H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        MOV 2AH,#14H
        MOV 30H,32H
        MOV A,32H
        ADD A,34H
        MOV 31H,A
        SETB TR0
        CLR 67H
        RET

  YANS: MOV R2,#05H
    Y1: MOV R4,#0FFH
    Y2: DJNZ R4,Y2
        DJNZ R2,Y1
        RET

 YANS1: MOV R5,#02H
   YY1: MOV R6,#0A0H
   YY2: DJNZ R6,YY2
        DJNZ R5,YY1
        RET
  YANS2:
        MOV  R7,#20H
  YYSS1:LCALL YANS
        DJNZ R7,YYSS1
        RET

   JS:  MOV R7,#0AH
   JS1: CPL P2.7
        LCALL YANS1
        DJNZ R7,JS1
        SETB P2.7
        LCALL SJXS
        LCALL SJXS
        LCALL SJXS
        RET

  MDS:  CLR 62H
        JB 66H,MD10          ;SS
        JB 65H,MD5            ;AA
        JB 64H,MD3
        DEC 31H
        DJNZ 30H,MD1   ;aaa
        JB 63H,MD2
        SETB 63H
        MOV 30H,34H
        SETB P2.2            ;2
        CLR P2.1
        RET
    MD10:LCALL MD110
         RET
    MD2:SETB 64H
        SETB P2.1            ;3
        CLR P2.0
        SETB P2.3
        CLR P2.5
        MOV 31H,33H
        MOV A,33H
        ADD A,34H
        MOV 30H,A
        CLR 63H
    MD1:RET
    MD3:DEC 30H
        DJNZ 31H,MD1
        JB 63H,MD4
        SETB 63H
        MOV 31H,34H
        SETB P2.5             ;4
        CLR P2.4
        RET
    MD4:CLR 64H
        SETB 65H
        SETB P2.4             ;5
        CLR P2.3
        CLR 63H
        CLR P0.0
        MOV A,35H
        ADD A,35H
        ADD A,34H
        ADD A,34H
        MOV 31H,A
        MOV 30H,35H
        RET
    MD5:DEC 31H
        DJNZ 30H,MD1A
        JB 63H,MD7
        SETB 63H
        JB 64H,MD6
        SETB P0.0              ;6
    MD8:MOV 30H,34H

   MD1A:RET
    MD7:JB 64H,MD9
        SETB 64H
        CLR P0.1              ;7
        SETB P2.1
        CLR 63H
        MOV 30H,34H
        RET
    MD6:SETB P0.1
        LJMP MD8           ;8
    MD9:CLR 63H
        CLR 64H
        CLR 65H
        SETB 66H
        SETB P2.1      ;9
        CLR P0.2
        MOV A,36H
        ADD A,36H
        ADD A,34H
        ADD A,34H
        MOV 30H,A
        MOV 31H,36H
        RET
   MD110:DEC 30H
        DJNZ 31H,MD1
        JB 63H,MD11
        SETB 63H
        CLR P2.4            ;10
        MOV 31H,34H
        JB 64H,MD12
        SETB P0.2
        RET
   MD11:JB 64H,MD13
        SETB 64H
        SETB P2.4              ;11
        CLR P0.3
        CLR 63H
        MOV 31H,36H
        RET
   MD12:SETB P0.3
        RET
   MD13:CLR 63H
        CLR 64H
        CLR 66H
        SETB P2.4
        CLR P2.2
        SETB P2.0
        CLR P2.3
        MOV 30H,32H
        MOV A,32H
        ADD A,34H
        MOV 31H,A
        RET

  SJXS: MOV R3,#00000001B
        CLR 60H
        CLR 61H
        MOV R1,#30H
     K3:MOV A,@R1
        MOV B,#0AH
        DIV AB
     K1:ADD A,#20H
        MOV R0,A
        MOV P1,@R0
        MOV P3,R3
        LCALL YANS
        MOV A,R3
        RL A
        MOV R3,A
        MOV A,B
        JB 60H,K2
        SETB 60H
        LJMP K1
     K2:JB 61H,K4
        MOV R1,#31H
        CLR 60H
        SETB 61H
        LJMP K3
     K4:RET

END