Chuyên Đề hiệu ứng led hình trái tim 89s51

hiệu ứng sử dụng cho ho 8051
ORG 00H
MAIN:
CALL CHIP3;SANG DAN VONG QUAY PHAI
CALL CHIP34;TAT DAN VONG QUAY TRAI
CALL CHIP35;SANG DAN VONG QUAY TRAI
CALL CHIP4;TAT DAN VONG QUAY PHAI
CALL CHIP28;SANG CHAY 1 LED QUAY TRON
CALL CHIP29;ON/OFF NUA VONG TRAI TIM SANG PHAI
CALL CHIP26;CHAY 2 LED LEN XUONG
CALL CHIP25;ON/OFF CHEO GOC
CALL CHIP1;SANG CHAY 2 LED QUAY TRON
CALL CHIP20;SANG QUAY VONG 3 LAN
CALL CHIP2;SANG CHAY 3LED
CALL CHIP3;SANG DAN VONG QUAY PHAI
CALL CHIP4;TAT DAN
CALL CHIP5;TIM SANG DAN TU TREN XUONG
CALL CHIP6;TIM TAT DAN TU DUOI LEN
CALL CHIP7
CALL CHIP8
CALL CHIP33;CHAM NHAU
CALL CHIP9
CALL CHIP10
CALL CHIP11
CALL CHIP12
CALL CHIPR;TAT TIM TREN XUONG
CALL CHIPS;NHAP NHAY
CALL CHIP13
CALL CHIP14
CALL CHIP16
CALL CHIP17
CALL CHIP30;SANG DON 4 PORT
CALL CHIP31;TAT DON 4 PORT
CALL CHIP18
CALL CHIP19
CALL CHIP20
CALL CHIP21
CALL CHIP22
CALL CHIP23
CALL CHIP24
CALL CHIP32;SANG DON 2 PORT NOI TIEP
CALL CHIP27
CALL CHIP36;DAO QUA DAO LAI
LJMP MAIN
CHIP1:;SANG CHAY 2LED QUAY TRON
MOV A,#00111111B
LAPY:MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
CALL DELAY
RR A
CJNE A,#00111111B,LAPY
MOV A,#11111100B
LAPYY:MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
CALL DELAY
RL A
CJNE A,#11111100B,LAPYY
MOV A,#0FFH
MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A

MOV A,#0FFH;SANG DAN
LAPIO:CLR C
RRC A
MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
CALL DELAY
CJNE A,#00H,LAPIO

MOV A,#00H;TAT DAN
LAPIU:SETB C
RLC A
MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
CALL DELAY
CJNE A,#0FFH,LAPIU
RET

CHIP2:;SANG CHAY 3LED
MOV A,#00011111B
LAPSH:MOV P0,A
CALL DELAY
RR A
CJNE A,#00011111B,LAPSH
MOV A,#0FFH
MOV P0,A
MOV A,#00011111B
LAPSH1:MOV P2,A
CALL DELAY
RR A
CJNE A,#00011111B,LAPSH1
MOV A,#0FFH
MOV P2,A
MOV A,#00011111B
LAPSH2:MOV P3,A
CALL DELAY
RR A
CJNE A,#00011111B,LAPSH2
MOV A,#0FFH
MOV P3,A

MOV A,#00011111B
LAPSH3:MOV P1,A
CALL DELAY
RR A
CJNE A,#00011111B,LAPSH3
MOV A,#0FFH
MOV P1,A
RET

CHIP3:;SANG DAN VONG QUAY PHAI
MOV A,#0FFH
LAPC:
CLR C
RRC A
CALL DELAY
MOV P0,A
CJNE A,#00H,LAPC
MOV A,#0FFH
LAPC1:
CLR C
RRC A
CALL DELAY
MOV P2,A
CJNE A,#00H,LAPC1
MOV A,#0FFH
LAPC2:
CLR C
RRC A
CALL DELAY
MOV P3,A
CJNE A,#00H,LAPC2
MOV A,#0FFH
LAPC3:
CLR C
RRC A
CALL DELAY
MOV P1,A
CJNE A,#00H,LAPC3
RET


CHIP4:;TAT DAN VONG QUAY PHAI
MOV A,#00H
LAPD:
SETB C
RRC A
CALL DELAY
MOV P0,A
CJNE A,#0FFH,LAPD
MOV A,#00H
LAPD1:
SETB C
RRC A
CALL DELAY
MOV P2,A
CJNE A,#0FFH,LAPD1
MOV A,#00H
LAPD2:
SETB C
RRC A
CALL DELAY
MOV P3,A
CJNE A,#0FFH,LAPD2
MOV A,#00H
LAPD3:
SETB C
RRC A
CALL DELAY
MOV P1,A
CJNE A,#0FFH,LAPD3
RET

CHIP5:;TIM SANG DAN TREN XUONG
MOV R5,#0FFH
MOV R6,#0FFH
LAPG:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P0,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P1,R6
CALL DELAY
CJNE R6,#00H,LAPG
MOV R5,#0FFH
MOV R6,#0FFH
LAPH:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P2,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P3,R6
CALL DELAY
CJNE R6,#00H,LAPH
RET

CHIP6:;TAT TIM DUOI LEN
MOV R5,#00H
MOV R6,#00H
LAPHH:
SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P3,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
CALL DELAY
CJNE R6,#0FFH,LAPHH
MOV R5,#00H
MOV R6,#00H
LAPGG:
SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPGG
RET
CHIP7:;TIM SANG 2 BEN
MOV R5,#0FFH
MOV R6,#0FFH
LAPI:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
MOV P2,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P3,R6
MOV P0,R6
CALL DELAY
CJNE R6,#00H,LAPI
RET

CHIP8:;TAT TRAI TIM SANG 2 BEN
MOV R5,#00H
MOV R6,#00H
LAPI1:
SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
MOV P2,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P3,R6
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPI1
RET

CHIP9:;2 NUA TTIM TREN DUOI
MOV R1,#0FFH
MOV R2,#0FFH
MOV R5,#0FFH
MOV R6,#0FFH
LAPUI:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P0,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P1,R6
CALL DELAY
CLR C
MOV A,R1
RRC A
MOV R1,A
MOV P3,R1
CALL DELAY
CLR C
MOV A,R2
RLC A
MOV R2,A
MOV P2,R2
CALL DELAY
CJNE R5,#00H,LAPUI
RET

CHIP10:;TAT TIM TU GIUA RA
MOV R1,#00H
MOV R2,#00H
MOV R5,#00H
MOV R6,#00H
LAPUII:SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P0,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P1,R6
CALL DELAY
SETB C
MOV A,R1
RLC A
MOV R1,A
MOV P3,R1
CALL DELAY
SETB C
MOV A,R2
RRC A
MOV R2,A
MOV P2,R2
CALL DELAY
CJNE R5,#0FFH,LAPUII
RET

CHIP11:;TRAI TIM TREN XUONG
MOV R5,#0FFH
MOV R6,#0FFH
LAPO:
CLR C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
MOV P2,R5
CALL DELAY
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P0,R6
MOV P3,R6
CALL DELAY
CJNE R6,#00H,LAPO
RET

CHIP12:;SANG TIM TU DUOI LEN
MOV R5,#0FFH
MOV R6,#0FFH
LAPK:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P3,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
CALL DELAY
CJNE R6,#00H,LAPK
MOV R5,#0FFH
MOV R6,#0FFH
LAPL:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P0,R6
CALL DELAY
CJNE R6,#00H,LAPL
RET
CHIPR:;TAT TIM TREN XUONG
MOV R5,#00H
MOV R6,#00H
LAPLL:
SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPLL
MOV R5,#00H
MOV R6,#00H
LAPKK:
SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P3,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P2,R6
CALL DELAY
CJNE R6,#0FFH,LAPKK
RET

CHIPS:;NHAP NHAY
MOV R5,#5
LAPVT:
MOV P0,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
MOV P1,#0FFH
CALL DELAY
MOV P0,#00H
MOV P2,#00H
MOV P3,#00H
MOV P1,#00H
CALL DELAY
DJNZ R5,LAPVT
RET

CHIP13:;TAT CHAY DUOI

MOV A,#10000000B
LAPM:MOV P0,A
CALL DELAY
RR A
CJNE A,#10000000B,LAPM

MOV A,#10000000B
LAPM1:MOV P2,A
CALL DELAY
RR A
CJNE A,#10000000B,LAPM1

MOV A,#10000000B
LAPM2:MOV P3,A
CALL DELAY
RR A
CJNE A,#10000000B,LAPM2

MOV A,#10000000B
LAPM3:MOV P1,A
CALL DELAY
RR A
CJNE A,#10000000B,LAPM3
RET

CHIP14:;TAT DAN VONG
MOV A,#00H
LAPD0:
SETB C
RRC A
CALL DELAY
MOV P0,A
CJNE A,#0FFH,LAPD0
MOV A,#00H
LAPD11:
SETB C
RRC A
CALL DELAY
MOV P2,A
CJNE A,#0FFH,LAPD11
MOV A,#00H
LAPD22:
SETB C
RRC A
CALL DELAY
MOV P3,A
CJNE A,#0FFH,LAPD22
MOV A,#00H
LAPD33:
SETB C
RRC A
CALL DELAY
MOV P1,A
CJNE A,#0FFH,LAPD33
RET


CHIP16:;ON CHEO TRAI TIM 1
MOV R5,#0FFH
MOV R6,#0FFH
LAPII:
CLR C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
MOV P3,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
MOV P0,R6
CALL DELAY
CJNE R6,#00H,LAPII
RET

CHIP17:;OFF CHEO TTIM 1
MOV R5,#00H
MOV R6,#00H
LAPIIE:
SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
MOV P3,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPIIE
RET

CHIP18:;ON CHEO TRAI TIM 2
MOV R5,#0FFH
MOV R6,#0FFH
LAPIII:
CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
MOV P3,R5
CALL DELAY
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P2,R6
MOV P0,R6
CALL DELAY
CJNE R6,#00H,LAPIII
RET
CHIP19:;TAT CHEO TTIM2
MOV R5,#00H
MOV R6,#00H
LAPIE:
SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P1,R5
MOV P3,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P2,R6
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPIE
RET

CHIP20:;SANG QUAY VONG 3LAN
MOV R5,#5
BIG1:
MOV A,#00011111B
LAPZ:
MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
CALL DELAY
RR A
CJNE A,#00011111B,LAPZ
DJNZ R5,BIG1
MOV A,#0FFH
MOV P0,A
MOV P2,A
MOV P3,A
MOV P1,A
RET

CHIP21:;SANG NUA VONG TRAI TIM TRAI
MOV R5,#0FFH
MOV R6,#0FFH
LAPPT:CLR C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
CALL DELAY
CJNE R6,#00H,LAPPT
MOV R5,#0FFH
MOV R6,#0FFH
LAPPU:CLR C
MOV A,R5
RLC A
MOV R5,A
MOV P3,R5
CALL DELAY
CLR C
MOV A,R6
RLC A
MOV R6,A
MOV P0,R6
CALL DELAY
CJNE R6,#00H,LAPPU
RET

CHIP22:;OFF NUA VONG TT LEFT
MOV R5,#00H
MOV R6,#00H
LAPPI:SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P1,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P2,R6
CALL DELAY
CJNE R6,#0FFH,LAPPI
MOV R5,#00H
MOV R6,#00H
LAPPR:SETB C
MOV A,R5
RLC A
MOV R5,A
MOV P3,R5
CALL DELAY
SETB C
MOV A,R6
RLC A
MOV R6,A
MOV P0,R6
CALL DELAY
CJNE R6,#0FFH,LAPPR
RET

CHIP23:;SANG NUA VONG TT SANG PHAI
MOV R5,#0FFH
MOV R6,#0FFH
LAPPS:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P0,R5
CALL DELAY
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P3,R6
CALL DELAY
CJNE R6,#00H,LAPPS
MOV R5,#0FFH
MOV R6,#0FFH
LAPPX:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P2,R5
CALL DELAY
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P1,R6
CALL DELAY
CJNE R6,#00H,LAPPX
RET

CHIP24:;OFF NUA VONG TT SANG PHAI
MOV R5,#00H
MOV R6,#00H
LAPPV:SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P0,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P3,R6
CALL DELAY
CJNE R6,#0FFH,LAPPV
MOV R5,#00H
MOV R6,#00H
LAPPL:SETB C
MOV A,R5
RRC A
MOV R5,A
MOV P2,R5
CALL DELAY
SETB C
MOV A,R6
RRC A
MOV R6,A
MOV P1,R6
CALL DELAY
CJNE R6,#0FFH,LAPPL
RET

CHIP25:;ON/OFF CHEO GOC
MOV R5,#5
LAPOP:
MOV P1,#00H
MOV P2,#00H
CALL DELAY
MOV P0,#0FFH
MOV P3,#0FFH
CALL DELAY
MOV P0,#00H
MOV P3,#00H
CALL DELAY
MOV P1,#0FFH
MOV P2,#0FFH
CALL DELAY
DJNZ R5,LAPOP
RET

CHIP26:;CHAY 2LED UP/DOWN
MOV R5,#00111111B
MOV R6,#11111100B
LAPTI:MOV A,R5
RR A
MOV R5,A
MOV P0,R5
CALL DELAY
MOV A,R6
RL A
MOV R6,A
MOV P1,R6
CALL DELAY
CJNE R5,#00111111B,LAPTI
MOV R5,#00111111B
MOV R6,#11111100B
LAPTU:MOV A,R5
RR A
MOV R5,A
MOV P2,R5
CALL DELAY
MOV A,R6
RL A
MOV R6,A
MOV P3,R6
CALL DELAY
CJNE R5,#00111111B,LAPTU
MOV R5,#11111100B
MOV R6,#00111111B
LAPTE:MOV A,R5
RL A
MOV R5,A
MOV P2,R5
CALL DELAY
MOV A,R6
RR A
MOV R6,A
MOV P3,R6
CALL DELAY
CJNE R5,#11111100B,LAPTE

MOV R5,#11111100B
MOV R6,#00111111B
LAPTC:MOV A,R5
RL A
MOV R5,A
MOV P0,R5
CALL DELAY
MOV A,R6
RR A
MOV R6,A
MOV P1,R6
CALL DELAY
CJNE R5,#11111100B,LAPTC
RET

CHIP27:;NHAP NHAY NUA TRAI TIM
MOV R5,#6
BIGE:
MOV P1,#00H
MOV P3,#00H
CALL DELAY
MOV P0,#0FFH
MOV P2,#0FFH
CALL DELAY
MOV P0,#00H
MOV P2,#00H
CALL DELAY
MOV P1,#0FFH
MOV P3,#0FFH
CALL DELAY
DJNZ R5,BIGE
RET

CHIP28:;CHAY 1 LED 2 NUA TTIM
MOV R5,#5
BIGQ:
MOV A,#01111111B
LAPQ:MOV P0,A
MOV P3,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPQ
MOV P0,#0FFH
MOV P3,#0FFH
MOV A,#01111111B
LAPQ2:MOV P2,A
MOV P1,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPQ2
DJNZ R5,BIGQ
MOV P2,#0FFH
MOV P1,#0FFH
RET

CHIP29:;ON/OFF 2 NUA VONG TTIM SANG PHAI

MOV R5,#0FFH;ON
MOV R6,#0FFH
LAPY7:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P0,R5
CALL DELAYS
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P3,R6
CALL DELAYS
CJNE R6,#00H,LAPY7
MOV R5,#0FFH
MOV R6,#0FFH
LAPY8:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV P2,R5
CALL DELAYS
CLR C
MOV A,R6
RRC A
MOV R6,A
MOV P1,R6
CALL DELAYS
CJNE R6,#00H,LAPY8
MOV R1,#00H;OFF
MOV R2,#00H
LAPY9:SETB C
MOV A,R1
RRC A
MOV R1,A
MOV P0,R1
CALL DELAYS
SETB C
MOV A,R2
RRC A
MOV R2,A
MOV P3,R2
CALL DELAYS
CJNE R2,#0FFH,LAPY9
MOV R1,#00H
MOV R2,#00H
LAPY10:SETB C
MOV A,R1
RRC A
MOV R1,A
MOV P2,R1
CALL DELAYS
SETB C
MOV A,R2
RRC A
MOV R2,A
MOV P1,R2
CALL DELAYS
CJNE R2,#0FFH,LAPY10
RET
CHIP30:;SANG DON NUA TRAI TIM

MOV P2,#11111110B
MOV P1,#11111110B
MOV P3,#11111110B
MOV P0,#11111110B
LCALL DELAY500MS
MOV P2,#11111101B
MOV P1,#11111101B
MOV P3,#11111101B
MOV P0,#11111101B
LCALL DELAY500MS
MOV P2,#11111011B
MOV P1,#11111011B
MOV P3,#11111011B
MOV P0,#11111011B
LCALL DELAY500MS
MOV P2,#11110111B
MOV P1,#11110111B
MOV P3,#11110111B
MOV P0,#11110111B
LCALL DELAY500MS
MOV P2,#11101111B
MOV P1,#11101111B
MOV P3,#11101111B
MOV P0,#11101111B
LCALL DELAY500MS
MOV P2,#11011111B
MOV P1,#11011111B
MOV P3,#11011111B
MOV P0,#11011111B
LCALL DELAY500MS
MOV P2,#10111111B
MOV P1,#10111111B
MOV P3,#10111111B
MOV P0,#10111111B
LCALL DELAY500MS
MOV P2,#01111111B
MOV P1,#01111111B
MOV P3,#01111111B
MOV P0,#01111111B
LCALL DELAY500MS

LCALL DELAY500MS
MOV P2,#01111110B
MOV P1,#01111110B
MOV P3,#01111110B
MOV P0,#01111110B
LCALL DELAY500MS
MOV P2,#01111101B
MOV P1,#01111101B
MOV P3,#01111101B
MOV P0,#01111101B
LCALL DELAY500MS
MOV P2,#01111011B
MOV P1,#01111011B
MOV P3,#01111011B
MOV P0,#01111011B
LCALL DELAY500MS
MOV P2,#01110111B
MOV P3,#01110111B
MOV P2,#01110111B
MOV P0,#01110111B
LCALL DELAY500MS
MOV P2,#01101111B
MOV P1,#01101111B
MOV P3,#01101111B
MOV P0,#01101111B
LCALL DELAY500MS
MOV P2,#01011111B
MOV P1,#01011111B
MOV P3,#01011111B
MOV P0,#01011111B
LCALL DELAY500MS
MOV P2,#00111111B
MOV P1,#00111111B
MOV P3,#00111111B
MOV P0,#00111111B

LCALL DELAY500MS
MOV P2,#00111110B
MOV P1,#00111110B
MOV P3,#00111110B
MOV P0,#00111110B
LCALL DELAY500MS
MOV P2,#00111101B
MOV P1,#00111101B
MOV P3,#00111101B
MOV P0,#00111101B
LCALL DELAY500MS
MOV P2,#00111011B
MOV P1,#00111011B
MOV P3,#00111011B
MOV P0,#00111011B
LCALL DELAY500MS
MOV P2,#00110111B
MOV P1,#00110111B
MOV P3,#00110111B
MOV P0,#00110111B
LCALL DELAY500MS
MOV P2,#00101111B
MOV P1,#00101111B
MOV P3,#00101111B
MOV P0,#00101111B
LCALL DELAY500MS
MOV P2,#00011111B
MOV P1,#00011111B
MOV P3,#00011111B
MOV P0,#00011111B

LCALL DELAY500MS
MOV P2,#00011110B
MOV P1,#00011110B
MOV P3,#00011110B
MOV P0,#00011110B
LCALL DELAY500MS
MOV P2,#00011101B
MOV P1,#00011101B
MOV P3,#00011101B
MOV P0,#00011101B
LCALL DELAY500MS
MOV P2,#00011011B
MOV P1,#00011011B
MOV P3,#00011011B
MOV P0,#00011011B
LCALL DELAY500MS
MOV P2,#00010111B
MOV P1,#00010111B
MOV P3,#00010111B
MOV P0,#00010111B
LCALL DELAY500MS
MOV P2,#00001111B
MOV P1,#00001111B
MOV P3,#00001111B
MOV P0,#00001111B

LCALL DELAY500MS
MOV P2,#00001110B
MOV P1,#00001110B
MOV P3,#00001110B
MOV P0,#00001110B
LCALL DELAY500MS
MOV P2,#00001101B
MOV P1,#00001101B
MOV P3,#00001101B
MOV P0,#00001101B
LCALL DELAY500MS
MOV P2,#00001011B
MOV P1,#00001011B
MOV P3,#00001011B
MOV P0,#00001011B
LCALL DELAY500MS
MOV P2,#00000111B
MOV P1,#00000111B
MOV P3,#00000111B
MOV P0,#00000111B

LCALL DELAY500MS
MOV P2,#00000110B
MOV P1,#00000110B
MOV P3,#00000110B
MOV P0,#00000110B
LCALL DELAY500MS
MOV P2,#00000101B
MOV P1,#00000101B
MOV P3,#00000101B
MOV P0,#00000101B
LCALL DELAY500MS
MOV P2,#00000011B
MOV P1,#00000011B
MOV P3,#00000011B
MOV P0,#00000011B
LCALL DELAY500MS
MOV P2,#00000010B
MOV P1,#00000010B
MOV P3,#00000010B
MOV P0,#00000010B
LCALL DELAY500MS
MOV P2,#00000001B
MOV P1,#000000010B
MOV P3,#00000001B
MOV P0,#000000010B
LCALL DELAY500MS
MOV P2,#00000000B
MOV P1,#00000000B
MOV P3,#00000000B
MOV P0,#00000000B
RET

CHIP31:;TAT DON NUA TRAI TIM
MOV P1,#0FFH
MOV P2,#0FFH
LCALL DELAY500MS
MOV P2,#00000001B
MOV P1,#00000001B
MOV P3,#00000001B
MOV P0,#00000001B
LCALL DELAY500MS
MOV P2,#00000010B
MOV P1,#00000010B
MOV P3,#00000010B
MOV P0,#00000010B
LCALL DELAY500MS
MOV P2,#00000100B
MOV P1,#00000100B
MOV P3,#00000100B
MOV P0,#00000100B
LCALL DELAY500MS
MOV P2,#00001000B
MOV P1,#00001000B
MOV P3,#00001000B
MOV P0,#00001000B
LCALL DELAY500MS
MOV P2,#00010000B
MOV P1,#00010000B
MOV P3,#00010000B
MOV P0,#00010000B
LCALL DELAY500MS
MOV P2,#00100000B
MOV P1,#00100000B
MOV P3,#00100000B
MOV P0,#00100000B
LCALL DELAY500MS
MOV P2,#01000000B
MOV P1,#01000000B
MOV P3,#01000000B
MOV P0,#01000000B
LCALL DELAY500MS
MOV P2,#10000000B
MOV P1,#10000000B
MOV P3,#10000000B
MOV P0,#10000000B
LCALL DELAY500MS

LCALL DELAY500MS
MOV P2,#10000001B
MOV P1,#10000001B
MOV P3,#10000001B
MOV P0,#10000001B
LCALL DELAY500MS
MOV P2,#10000010B
MOV P1,#10000010B
MOV P3,#10000010B
MOV P0,#10000010B
LCALL DELAY500MS
MOV P2,#10000100B
MOV P1,#10000100B
MOV P3,#10000100B
MOV P0,#10000100B
LCALL DELAY500MS
MOV P2,#10001000B
MOV P1,#10001000B
MOV P3,#10001000B
MOV P0,#10001000B
LCALL DELAY500MS
MOV P2,#10010000B
MOV P1,#10010000B
MOV P3,#10010000B
MOV P0,#10010000B
LCALL DELAY500MS
MOV P2,#10100000B
MOV P1,#10100000B
MOV P3,#10100000B
MOV P0,#10100000B
LCALL DELAY500MS
MOV P2,#11000000B
MOV P1,#11000000B
MOV P3,#11000000B
MOV P0,#11000000B

LCALL DELAY500MS
MOV P2,#11000001B
MOV P1,#11000001B
MOV P3,#11000001B
MOV P0,#11000001B
LCALL DELAY500MS
MOV P2,#11000010B
MOV P1,#11000010B
MOV P3,#11000010B
MOV P0,#11000010B
LCALL DELAY500MS
MOV P2,#11000100B
MOV P1,#11000100B
MOV P3,#11000100B
MOV P0,#11000100B
LCALL DELAY500MS
MOV P2,#11001000B
MOV P1,#11001000B
MOV P3,#11001000B
MOV P0,#11001000B
LCALL DELAY500MS
MOV P2,#11010000B
MOV P1,#11010000B
MOV P3,#11010000B
MOV P0,#11010000B
LCALL DELAY500MS
MOV P2,#11100000B
MOV P1,#11100000B
MOV P3,#11100000B
MOV P0,#11100000B

LCALL DELAY500MS
MOV P2,#11100001B
MOV P1,#11100001B
MOV P3,#11100001B
MOV P0,#11100001B
LCALL DELAY500MS
MOV P2,#11100010B
MOV P1,#11100010B
MOV P3,#11100010B
MOV P0,#11100010B
LCALL DELAY500MS
MOV P2,#11100100B
MOV P1,#11100100B
MOV P3,#11100100B
MOV P0,#11100100B
LCALL DELAY500MS
MOV P2,#11101000B
MOV P1,#11101000B
MOV P3,#11101000B
MOV P0,#11101000B
LCALL DELAY500MS
MOV P2,#11110000B
MOV P1,#11110000B
MOV P3,#11110000B
MOV P0,#11110000B

LCALL DELAY500MS
MOV P2,#11110001B
MOV P1,#11110001B
MOV P3,#11110001B
MOV P0,#11110001B
LCALL DELAY500MS
MOV P2,#11110010B
MOV P1,#11110010B
MOV P3,#11110010B
MOV P0,#11110010B
LCALL DELAY500MS
MOV P2,#11110100B
MOV P1,#11110100B
MOV P3,#11110100B
MOV P0,#11110100B
LCALL DELAY500MS
MOV P2,#11111000B
MOV P1,#11111000B
MOV P3,#11111000B
MOV P0,#11111000B

LCALL DELAY500MS
MOV P2,#11111001B
MOV P1,#11111001B
MOV P3,#11111001B
MOV P0,#11111001B
LCALL DELAY500MS
MOV P2,#11111010B
MOV P1,#11111010B
MOV P3,#11111010B
MOV P0,#11111010B
LCALL DELAY500MS
MOV P2,#11111100B
MOV P1,#11111100B
MOV P3,#11111100B
MOV P0,#11111100B
LCALL DELAY500MS
MOV P2,#11111101B
MOV P1,#11111101B
MOV P3,#11111101B
MOV P0,#11111101B
LCALL DELAY500MS
MOV P2,#11111110B
MOV P1,#11111110B
MOV P3,#11111110B
MOV P0,#11111110B
LCALL DELAY500MS
MOV P2,#11111111B
MOV P1,#11111111B
MOV P3,#11111111B
MOV P0,#11111111B
RET

CHIP32:;SANG DON NOI TIEP
;SANG DAN P0,3 NOI TIEP
MOV P3,#11111110B
MOV P0,#11111110B
LCALL DELAY500MS
MOV P3,#11111101B
MOV P0,#11111101B
LCALL DELAY500MS
MOV P3,#11111011B
MOV P0,#11111011B
LCALL DELAY500MS
MOV P3,#11110111B
MOV P0,#11110111B
LCALL DELAY500MS
MOV P3,#11101111B
MOV P0,#11101111B
LCALL DELAY500MS
MOV P3,#11011111B
MOV P0,#11011111B
LCALL DELAY500MS
MOV P3,#10111111B
MOV P0,#10111111B
LCALL DELAY500MS
MOV P3,#01111111B
MOV P0,#01111111B
LCALL DELAY500MS

LCALL DELAY500MS
MOV P3,#01111110B
MOV P0,#01111110B
LCALL DELAY500MS
MOV P3,#01111101B
MOV P0,#01111101B
LCALL DELAY500MS
MOV P3,#01111011B
MOV P0,#01111011B
LCALL DELAY500MS
MOV P3,#01110111B
MOV P0,#01110111B
LCALL DELAY500MS
MOV P3,#01101111B
MOV P0,#01101111B
LCALL DELAY500MS
MOV P3,#01011111B
MOV P0,#01011111B
LCALL DELAY500MS
MOV P3,#00111111B
MOV P0,#00111111B

LCALL DELAY500MS
MOV P3,#00111110B
MOV P0,#00111110B
LCALL DELAY500MS
MOV P3,#00111101B
MOV P0,#00111101B
LCALL DELAY500MS
MOV P3,#00111011B
MOV P0,#00111011B
LCALL DELAY500MS
MOV P3,#00110111B
MOV P0,#00110111B
LCALL DELAY500MS
MOV P3,#00101111B
MOV P0,#00101111B
LCALL DELAY500MS
MOV P3,#00011111B
MOV P0,#00011111B

LCALL DELAY500MS
MOV P3,#00011110B
MOV P0,#00011110B
LCALL DELAY500MS
MOV P3,#00011101B
MOV P0,#00011101B
LCALL DELAY500MS
MOV P3,#00011011B
MOV P0,#00011011B
LCALL DELAY500MS
MOV P3,#00010111B
MOV P0,#00010111B
LCALL DELAY500MS
MOV P3,#00001111B
MOV P0,#00001111B

LCALL DELAY500MS
MOV P3,#00001110B
MOV P0,#00001110B
LCALL DELAY500MS
MOV P3,#00001101B
MOV P0,#00001101B
LCALL DELAY500MS
MOV P3,#00001011B
MOV P0,#00001011B
LCALL DELAY500MS
MOV P3,#00000111B
MOV P0,#00000111B

LCALL DELAY500MS
MOV P3,#00000110B
MOV P0,#00000110B
LCALL DELAY500MS
MOV P3,#00000101B
MOV P0,#00000101B
LCALL DELAY500MS
MOV P3,#00000011B
MOV P0,#00000011B

LCALL DELAY500MS
MOV P3,#00000010B
MOV P0,#00000010B
LCALL DELAY500MS
MOV P3,#000000010B
MOV P0,#000000010B
LCALL DELAY500MS
MOV P3,#00000000B
MOV P0,#00000000B

;SANG DAN P1,2 NOI TIEP
MOV P1,#11111110B
MOV P2,#11111110B
LCALL DELAY500MS
MOV P1,#11111101B
MOV P2,#11111101B
LCALL DELAY500MS
MOV P1,#11111011B
MOV P2,#11111011B
LCALL DELAY500MS
MOV P1,#11110111B
MOV P2,#11110111B
LCALL DELAY500MS
MOV P1,#11101111B
MOV P2,#11101111B
LCALL DELAY500MS
MOV P1,#11011111B
MOV P2,#11011111B
LCALL DELAY500MS
MOV P1,#10111111B
MOV P2,#10111111B
LCALL DELAY500MS
MOV P1,#01111111B
MOV P2,#01111111B
LCALL DELAY500MS

LCALL DELAY500MS
MOV P1,#01111110B
MOV P2,#01111110B
LCALL DELAY500MS
MOV P1,#01111101B
MOV P2,#01111101B
LCALL DELAY500MS
MOV P1,#01111011B
MOV P2,#01111011B
LCALL DELAY500MS
MOV P1,#01110111B
MOV P2,#01110111B
LCALL DELAY500MS
MOV P1,#01101111B
MOV P2,#01101111B
LCALL DELAY500MS
MOV P1,#01011111B
MOV P2,#01011111B
LCALL DELAY500MS
MOV P1,#00111111B
MOV P2,#00111111B

LCALL DELAY500MS
MOV P1,#00111110B
MOV P2,#00111110B
LCALL DELAY500MS
MOV P1,#00111101B
MOV P2,#00111101B
LCALL DELAY500MS
MOV P1,#00111011B
MOV P2,#00111011B
LCALL DELAY500MS
MOV P1,#00110111B
MOV P2,#00110111B
LCALL DELAY500MS
MOV P1,#00101111B
MOV P2,#00101111B
LCALL DELAY500MS
MOV P1,#00011111B
MOV P2,#00011111B

LCALL DELAY500MS
MOV P1,#00011110B
MOV P2,#00011110B
LCALL DELAY500MS
MOV P1,#00011101B
MOV P2,#00011101B
LCALL DELAY500MS
MOV P1,#00011011B
MOV P2,#00011011B
LCALL DELAY500MS
MOV P1,#00010111B
MOV P2,#00010111B
LCALL DELAY500MS
MOV P1,#00001111B
MOV P2,#00001111B

LCALL DELAY500MS
MOV P1,#00001110B
MOV P2,#00001110B
LCALL DELAY500MS
MOV P1,#00001101B
MOV P2,#00001101B
LCALL DELAY500MS
MOV P1,#00001011B
MOV P2,#00001011B
LCALL DELAY500MS
MOV P1,#00000111B
MOV P2,#00000111B

LCALL DELAY500MS
MOV P1,#00000110B
MOV P2,#00000110B
LCALL DELAY500MS
MOV P1,#00000101B
MOV P2,#00000101B
LCALL DELAY500MS
MOV P1,#00000011B
MOV P2,#00000011B

LCALL DELAY500MS
MOV P1,#00000010B
MOV P2,#00000010B
LCALL DELAY500MS
MOV P1,#000000010B
MOV P2,#000000010B
LCALL DELAY500MS
MOV P1,#00000000B
MOV P2,#00000000B
RET

CHIP33:
MOV R5,#3
BLOG:
MOV R0,#11111000B
MOV R1,#00011111B
LAPBL:
MOV A,R1
RR A
MOV R1,A
MOV P1,R1
MOV P2,R1
CALL DELAY
MOV A,R0
RL A
MOV R0,A
MOV P0,R0
MOV P3,R0
CALL DELAY
CJNE A,#00011111B,LAPBL
DJNZ R5,BLOG
MOV P0,#0FFH
MOV P1,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
RET

CHIP34:;TAT DAN QUAY TRAI
MOV A,#00H
LAPDD1:
SETB C
RLC A
CALL DELAY
MOV P1,A
CJNE A,#0FFH,LAPDD1
MOV A,#00H
LAPDD2:
SETB C
RLC A
CALL DELAY
MOV P3,A
CJNE A,#0FFH,LAPDD2
MOV A,#00H
LAPDD3:
SETB C
RLC A
CALL DELAY
MOV P2,A
CJNE A,#0FFH,LAPDD3
MOV A,#00H
LAPDD4:
SETB C
RLC A
CALL DELAY
MOV P0,A
CJNE A,#0FFH,LAPDD4
RET

CHIP35:;SANG DAN QUAY TRAI
MOV A,#0FFH
LAPDDD1:
CLR C
RLC A
CALL DELAY
MOV P1,A
CJNE A,#00H,LAPDDD1
MOV A,#0FFH
LAPDDD2:
CLR C
RLC A
CALL DELAY
MOV P3,A
CJNE A,#00H,LAPDDD2
MOV A,#0FFH
LAPDDD3:
CLR C
RLC A
CALL DELAY
MOV P2,A
CJNE A,#00H,LAPDDD3
MOV A,#0FFH
LAPDDD4:
CLR C
RLC A
CALL DELAY
MOV P0,A
CJNE A,#00H,LAPDDD4
RET

CHIP36:;CHAY 1 LED DAO QUAY TRAI
MOV R5,#3
CKK:
MOV A,#11111110B
LAPCK:
MOV P1,A
CALL DELAYS
RL A
CJNE A,#11111110B,LAPCK
MOV P1,#0FFH
MOV A,#11111110B
LAPCK1:
MOV P3,A
CALL DELAYS
RL A
CJNE A,#11111110B,LAPCK1
MOV P3,#0FFH
MOV A,#11111110B
LAPCK2:
MOV P2,A
CALL DELAYS
RL A
CJNE A,#11111110B,LAPCK2
MOV P2,#0FFH
MOV A,#11111110B
LAPCK3:
MOV P0,A
CALL DELAYS
RL A
CJNE A,#11111110B,LAPCK3
MOV P0,#0FFH
;CHAY 1 LED QUAY PHAI
MOV A,#01111111B
LAPCK4:
MOV P0,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPCK4
MOV P0,#0FFH
MOV A,#01111111B
LAPCK5:
MOV P2,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPCK5
MOV P2,#0FFH
MOV A,#01111111B
LAPCK6:
MOV P3,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPCK6
MOV P3,#0FFH
MOV A,#01111111B
LAPCK7:
MOV P1,A
CALL DELAYS
RR A
CJNE A,#01111111B,LAPCK7
MOV P1,#0FFH
DJNZ R5,CKK
RET
DELAY:
MOV R4,#130
LAP1Z:MOV R7,#100
LAP2Z:
NOP
NOP
NOP
NOP
DJNZ R7,LAP2Z
DJNZ R4,LAP1Z
RET

DELAYS:
MOV R4,#150
LAP1Q:MOV R7,#50
LAP2Q:
NOP
NOP
NOP
NOP
DJNZ R7,LAP2Q
DJNZ R4,LAP1Q
RET

DELAY500MS:
MOV R7,#250
MOV R6,#200
LOOP: DJNZ R7,$
MOV R7,#250
DJNZ R6,LOOP
RET
END