light1.txt

实现交通灯功能的汇编程序.

 A0 DATA 30H
 A1 DATA 31H
 B0 DATA  32H
 B1 DATA  33H
 AABB EQU  34H
 A00 DATA 34H
 A11 DATA  35H
 B00 DATA   36H
 B11 DATA   37H
 ;ST  EQU   38H
 ;ST0 DATA   38H
 ;ST1 DATA   39H
 ;ST2 DATA   3AH
 ;ST3 DATA   3BH
 AAAB EQU   0EBH    ;A线放行,B线禁止
 AAB  EQU   0F3H    ;A线警告,B线禁止
 ABBB EQU   0DDH     ;A线禁止,B线放行
 ABB   EQU   0DEH    ;A线禁止,B线警告
 SEC DATA   25H         ;秒单元
 KEYOK BIT   20H.0
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP TIME

ORG 0030H
MAIN:MOV  A,#00H
     MOV P0,A
     MOV P3,A
     MOV SP,#5FH
     ;MOV ST0,#AAAB
     ;MOV ST1,#AAB
     ;MOV ST2,#ABBB
     ;MOV ST3,#ABB
     MOV  A00,#10
     MOV  A11,#5
     MOV  B00,#10
     MOV  B11,#5
     MOV  P0,#0FFH
     MOV  P2,#0F7H
     MOV  P1,#0FFH

     MOV  TMOD,#01H
     MOV  TH0,#HIGH(65536-20000)
     MOV  TL0,#LOW(65536-20000)
     MOV  IE,#82H

     SETB  TR0
     MOV SEC,#208
OUT: ;MOV R0,#AABB
     MOV A,A00
     MOV R7,A
     MOV A, #0EBH
     MOV P1,A
OUT0:LCALL BCDDIS
     LCALL DIS
     ;LCALL KEY
     MOV A,R7
     CJNE A,#0,OUT0
     ;INC R0
     MOV A,A11
     MOV R7,A
     MOV A,#0F3H
     MOV P1,A
OUT1:LCALL BCDDIS
     LCALL DIS
     ;LCALL KEY
     MOV A,R7
     CJNE A,#0,OUT1
     ;INC R0
     MOV A,B00
     MOV R7,A
     MOV A,#0DDH
     MOV P1,A
OUT2:LCALL BCDDIS
     LCALL DIS
     ;LCALL KEY
     MOV A,R7
     CJNE A,#0,OUT2
     ;INC R0
     MOV A,B11
     MOV R7,A
     MOV A,#0DEH
     MOV P1,A
OUT3:LCALL BCDDIS
     LCALL DIS
     ;LCALL KEY
     MOV A,R7
     CJNE A,#0,OUT3
     JMP OUT

     ;MOV P1,#00H

     ;SJMP $



TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,67H,77H
DELAY1:PUSH ACC
     PUSH PSW
     MOV R3,#2
DELAY:MOV R2,#248
LOOP:DJNZ   R2,$
     DJNZ   R3,LOOP
     POP PSW
     POP ACC
     RET
BCDDIS: PUSH ACC
     PUSH PSW
     MOV DPTR,#TAB
     MOV A,R7
     MOV B,#10
     DIV AB
     MOVC A,@A+DPTR
     MOV A0,A
     MOV B0,A
     MOV A,B
     MOVC A,@A+DPTR
     MOV A1,A
     MOV B1,A
     POP PSW
     POP ACC
     RET
DIS:PUSH ACC
    PUSH PSW
    MOV P2,#5FH
    MOV A,A1
    MOV P0,A
    LCALL DELAY1
    MOV P2,#0AFH
    MOV A,A0
    MOV P0,A
    LCALL DELAY1
    POP PSW
    POP ACC
    NOP
    NOP
    RET

TIME:;CLR  TR0
      PUSH PSW
      PUSH ACC
     MOV  TH0,#HIGH(65536-20000)
     MOV  TL0,#LOW(65536-20000)
     MOV  A,SEC
     ADD  A,#1
     ;DJNZ  R5,D1
     ;MOV R5,#50
     MOV SEC,A
     JNC D1

     DEC R7
     MOV SEC,#206

D1:  ;SETB TR0
     POP ACC
     POP PSW
     RETI

     ;
KEY:MOV P2,#0F7H
    MOV A,P2
    ANL A,#07H
    XRL A,#07H
    JZ KEYI
    MOV R3,#60
    LCALL DELAY
    MOV A,P2
    ANL A,#07H
    CJNE A,#06,KEY2
    MOV R1,#1
    SJMP KEYI
KEY2: CJNE A,#05,KEY3
    MOV R0,#09H
    MOV R1,#0AH
    SJMP KEYI
KEY3:CJNE A,#04,KEYI
     MOV R0,#05H
     MOV R1,#06H
KEYI:NOP
     RET


END