dongguan.asm

此程序为LED广告灯变幻,单片机为AT89C2051

  ORG 00H
 AJMP  START
 ORG 50H
START:NOP
      NOP
      MOV P3,#11110000B
      ACALL DELAY3S
      ACALL DELAY3S
LOOP: MOV 25H,#11110000B;
      MOV 26H,#11111010B ;RY
       ACALL REDXI
       ACALL DELAY3S
      MOV 25H,#11111010B;
      MOV 26H,#11111111B ;RY
       ACALL REDXI
       NOP
       NOP
      MOV 25H,#11110101B; BG
      MOV 26H,#11111111B
      ACALL REDSH
      ACALL DELAY3S
      MOV P3,#11111110B
      ACALL DELAY3S
      MOV P3,#11111101B
      ACALL DELAY3S
      MOV P3,#11111011B
      ACALL DELAY3S
      MOV P3,#11110111B
      ACALL DELAY3S
      AJMP START
REDSH:mov 21H,#7;上升
      MOV 20H,#253
REDH:MOV R6,#5
RE:   MOV P3,25H;LIGHTING
      ACALL DELAYH
      MOV P3,26H
      ACALL DELAYL
      DJNZ R6,RE
      INC 21H
      MOV A,21H
      CJNE A,#255,DE
      MOV 21H,#254
DE:   DEC 20H
      MOV A,20H
      CJNE A,#0,REDH
      MOV P3,25H;R上升END
      ACALL DELAY3S
      RET
      RET
REDXI:mov 21H,#248;下降
      MOV 20H,#2
REDH2:MOV R6,#5
RE2:  MOV P3,25H;LIGHTING
      ACALL DELAYH
      MOV P3,26H
      ACALL DELAYL
      DJNZ R6,RE2
      DEC 21H
      MOV A,21H
      CJNE A,#6,DE2
      MOV 21H,#7
DE2:  INC 20H
      MOV A,20H
      CJNE A,#245,REDH2;下降END
      ACALL DELAY3S
      NOP
      RET
      RET
DELAYL:MOV R1,20H
DK:    MOV R5,#2
DD:    MOV R2,#2
DJ:    DJNZ R2,$
       DJNZ R5,DD
       DJNZ R1,DK
       RET
DELAYH: MOV R3,21h
DD4:    MOV R4,#1
       DJNZ R4,$
       DJNZ R3,DD4
       RET
DELAY3S:MOV 27H,#5
YS2:    MOV 28H,#10
YS1:    MOV 29H,#100
YS:     MOV 30H,#150
        DJNZ 30H,$
        DJNZ 29H,YS
        DJNZ 28H,YS1
        DJNZ 27H,YS2
        RET
        RET
       END