00

99 DÙNG NGẮT T0(COI LẠI BẢNG MÃ NẾU SAI)
INCLUDE REG_51.PDF
CNT EQU 127
LED7 EQU 126
LED8 EQU 125
LJMP MAIN
ORG 000BH
LJMP QL
MAIN:
MOV TMOD,#01H
MOV TH0,#HIGH(-1000)
MOV TL0,#LOW(-1000)
SETB EA
SETB ET0
SETB TR0
MOV CNT,#0
MOV P2,#0
BEGIN:
CALL DOISO
CALL DELAY
INC CNT
MOV A,CNT
CJNE A,#100,BEGIN
LJMP BEGIN
DOISO:
PUSH ACC
PUSH B
MOV B,#10

DIV AB
MOV DPTR,#BANG
MOVC A,@A+DPTR
MOV LED7,A
MOV A,B
MOVC A,@A+DPTR
MOV LED8,A
POP B
POP ACC
RET
DELAY:
PUSH 07
PUSH 06
MOV R1,#100
X1:
MOV R6,#250
DJNZ R6,$
DJNZ R1,X1
POP 06
POP 07
RET
QL:
MOV TH0,#HIGH(-1000)
MOV TL0,#LOW(-1000)
MOV P1,LED7
SETB P2.6
CALL DL
CLR P2.6
MOV P1,LED8
SETB P2.7

CALL DL
CLR P2.7
RETI
DL:
MOV R7,#200
DJNZ R7,$
RET
BANG: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END



20

87 DÙNG T0M1,NGẮT T1M2
INCLUDE REG_51.PDF
CNT EQU 127
LED6 EQU 126
LED5 EQU 125
POS EQU 124
LJMP MAIN
ORG 000BH
LJMP QL
MAIN:
MOV P2,#00H
MOV CNT,#20
MOV POS,#10H
MOV R0,#LED5
MOV TMOD,#21H
MOV TH1,#HIGH(-5000)

MOV TL1,#LOW(-5000)
SETB EA
SETB ET1
SETB TR1
BEGIN:
CALL DOISO
CALL DL_350MS
INC CNT
MOV A,CNT
CJNE A,#88,BEGIN
MOV CNT,#20
LJMP BEGIN
DOISO:
MOV A,CNT
MOV B,#10
DIV AB
MOV LED5,A
MOV LED6,B
DL_350MS:
PUSH 07
PUSH 06
MOV TMOD,#21H
MOV TH0,#HIGH(-1000)
MOV TL0,#LOW(-1000)
MOV R7,#3500
X2:
MOV R6,#1000
X1:
CLR TF0
SETB TR0

JNB TF0,$
DJNZ R6,X1
DJNZ R7,X2
POP 07
POP 06
RET
QL:
PUSH ACC
MOV P2,#00H
MOV DPTR,#LED_7S
MOV TH1,#HIGH(-5000)
MOV TL1,#LOW(-5000)
MOV A,@R0
MOVC A,@A+DPTR
MOV P1,A
MOV A,POS
MOV P2,A
RL A
MOV POS,A
INC R0
MOV A,R0
CJNE A,#127,EXIT
MOV R0,#LED5
MOV POS,#10H
EXIT:
POP ACC
RETI
LED_7S: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
VIẾT CHƯƠNG TRÌNH THỰC HIỆN.

NHẤN SW1 HIỂN THỊ CHỮ “good”
NHẤN SW2 HIỂN THỊ CHỮ “HEPL”
DÙNG NGẮT TIMER 1 ĐỂ QUÉT LED,CHU KÌ QUÉT 4MS
INCLUDE REG_51.PDF
LED1 EQU 127
LED2 EQU 126
LED3 EQU 125
LED4 EQU 124
LJMP MAIN
ORG 001BH
LJMP QL
SW1 BIT P1.0
SW2 BIT P1.1

MAIN:
MOV TMOD,#11H
MOV TH1,#HIGH(-8000)
MOV TL1,#LOW(-8000)
SETB EA
SETB ET1
SETB TR1
MOV P3,#0FFH
BEGIN:
JNB SW1,good
JNB SW2,HELP
LJMP BEGIN
good:
MOV LED1,#90H
MOV LED2,#0A6H
MOV LED3,#0A6H

MOV LED4,#0A4H
HELP:
MOV LED1,#8CH
MOV LED2,#83H
MOV LED3,#0C7H
MOV LED4,#89H
QL:
MOV TH1,#HIGH(-8000)
MOV TL1,#LOW(-8000)
MOV P2,LED1
CLR P3.2
CALL DL
SETB P3.2
MOV P2,LED2
CLR P3.3
CALL DL
SETB P3.3
MOV P2,LED3
CLR P3.4
CALL DL
SETB P3.4
MOV P2,LED4
CLR P3.5
CALL DL
SETB P3.5
RETI
DL:
PUSH 05
MOV R5,#200
DJNZ R5,$

POP 05
RET
END


HIỂN THỊ START-STOP
INCLUDE REG_51.PDF
SW1 BIT P3.2
SW2 BIT P3.3
POS EQU 127
MOV R0,#00H
MOV POS,#01H
MOV P2,#00H

MAIN:
JNB SW1,START
JNB SW2,HELP
LJMP MAIN
START:
MOV P2,#00H
MOV DPTR,#BANG1
JNB SW1,$
JB SW1,HIENTHI
HELP:
MOV P2,#00H
MOV DPTR,#BANG2
JNB SW2,$
JB SW2,HIENTHI
DELAY:
PUSH 07

PUSH 06
MOV TMOD,#02H
MOV TH0,#HIGH(-100)
MOV TL0,#LOW(-100)
MOV R7,#5
X1:
MOV R6,#10
X2:
CLR TF0
SETB TR0
JNB TF0,$
DJNZ R6,X1
DJNZ R7,X2
POP 07
POP 06
RET
HIENTHI:
MOV P2,#00H
MOV A,R0
MOVC A,@A+DPTR
MOV P1,A
MOV A,POS
MOV P2,A
RL A
;MOV POS,A
INC R0
CALL DELAY
CJNE R0,#5,HIENTHI
MOV POS,A
MOV R0,#0

MOV POS,#01H
JNB SW1,START
JNB SW2,HELP
LJMP HIENTHI
BANG1: DB 6DH,78H,5CH,50H,78H
BANG2: DB 76H,79H,38H,73H
END


DỊCH 1 LED SÁNG D1

D8 VÀ NGƯỢC LẠI, SỐ LÀN CÓ THỂ THAY
ĐỔI(CAO PHI)
INCLUDE REG_51.PDF
MOV R4,#5 ;SO LAN QUAY THUAN
MOV R5,#8 ;SO LED CHAY
MOV R1,#10 ;SO LAN QUAY NGUOC
MOV R0,#3 ;SO LAN LAP LAI
X2:
MOV A,#01H
X1:
MOV P1,A
CALL DL
RL A
DJNZ R5,X1
MOV R5,#8
DJNZ R4,X2
MOV R4,#5
X3:
MOV A,#80H

X4:
MOV P1,A
CALL DL
RR A
DJNZ R5,X4
MOV R5,#8
DJNZ R1,X3
MOV R1,#10
DJNZ R0,X2
SJMP $
DL:
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6,LAP
RET
END

DỊCH 1 LED SÁNG DẦN D1

D8 VÀ NGƯỢC LẠI, SỐ LẦN CÓ THỂ THAY
ĐỔI
INCLUDE REG_51.PDF
MOV R1,#6 ;SO LAN QUAY THUAN
MOV R2,#3 ;SO LAN QUAY NGUOC
MOV R3,#7 ;SÔ LÂN LAP LAI
MAIN:
MOV A,#01H
X1:

SETB C
MOV P1,A
RLC A
CALL DELAY
JNC X1
DJNZ R1,MAIN
LJMP X2
X2:
MOV A,#80H
X3:
SETB C
MOV P1,A
RRC A
CALL DELAY
JNC X3
DJNZ R2,X2
LJMP X4
X4:
DJNZ R3,$
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6, LAP
POP 07
POP 06
RET

END


TẮT DẦN D1

D8 5 LẦN
INCLUDE REG_51.PDF
DEM EQU 127
MOV DEM,#0
BEGIN:
MOV A,#0FFH

MAIN:
MOV P1,A
CALL DELAY
CLR C
RLC A

JNB ACC.7,NEXT
SJMP MAIN
NEXT: MOV P1,A
CALL DELAY
INC DEM
MOV A,DEM
CJNE A,#5,BEGIN
SJMP $
DELAY:
MOV R5,#255
X1:
MOV R4,#255

DJNZ R4,$
DJNZ R5,X1
RET
END



1.1 CHỚP TẮT 8 LED VÔ HẠN LẦN
INCLUDE REG_51.PDF
MAIN:
MOV P1,#0FFH
CALL DELAY
MOV P1,#00H
CALL DELAY
LJMP MAIN
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6,LAP
POP 07
POP 06
RET
END


1.2 CHỚP TẮT 10 LẦN

INCLUDE REG_51.PDF
MOV R7,#10
MAIN:
MOV P1,#0FFH
CALL DELAY
MOV P1,#00H
CALL DELAY
DJNZ R7,MAIN ;
SJMP $
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6,LAP
POP 07
POP 06
RET
END


1.3 1 LED SÁNG, DỊCH DẦN TỪ D1

D8 VÔ HẠN LẦN
INCLUDE REG_51.PDF
MAIN:
MOV A,#00H
BEGIN:

SETB C
MOV P1,A
RLC A
CALL DELAY
JNC BEGIN
LJMP MAIN
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6, LAP
POP 07
POP 06
RET
END


1.4 HIểN THị 1 LED SÁNG, DịCH DầN Từ D8 ĐếN D1 VớI Số LầN LặP LÀ 6
INCLUDE REG_51.PDF
MOV R1,#6
MAIN:
MOV A,#000H
BEGIN:
SETB C
MOV P1,A
RRC A
CALL DELAY

JNC BEGIN
DJNZ R1,MAIN
LJMP $
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6, LAP
POP 07
POP 06
RET
END


1.5 DịCH MộT LED SÁNG Từ D1

 D8
MAIN:
MOV A,#01H
BEGIN:
MOV P1, A
RL A
CALL DELAY
LJMP BEGIN
DELAY:
PUSH 06 ; cất nội dung R6 vào ngăn xếp
PUSH 07 ; cất nội dung R7 vào ngăn xếp

MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$ ;  X: DJNZ R7,X
DJNZ R6, LAP
POP 07 ; lấy lại giá trị cũ của R7 trong ngăn xếp
POP 06 ; lấy lại giá trị cũ của R0 trong ngăn xếp
RET ; kết thúc chương trình con.
END


1.6 DịCH MộT LED SÁNG Từ D8

 D1
MAIN:
MOV A,#80H
BEGIN:
MOV P1, A
RR A
CALL DELAY
LJMP BEGIN
DELAY:
PUSH 06 ; cất nội dung R6 vào ngăn xếp
PUSH 07 ; cất nội dung R7 vào ngăn xếp
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$ ;  X: DJNZ R7,X
DJNZ R6, LAP
POP 07 ; lấy lại giá trị cũ của R7 trong ngăn xếp

POP 06 ; lấy lại giá trị cũ của R0 trong ngăn xếp
RET ; kết thúc chương trình con.
END




1.7 SÁNG DầN CÁC LED Từ D1 

 D8
1.8 TƯƠNG TỰ D8

D1
MAIN:MOV A,#01H
BEGIN:
SETB C
MOV P1, A
RLC A
CALL DELAY
JNC BEGIN
LJMP MAIN
DELAY:
PUSH 06 ; cất nội dung R6 vào ngăn xếp
PUSH 07 ; cất nội dung R7 vào ngăn xếp
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$ ;  X: DJNZ R7,X
DJNZ R6, LAP
POP 07 ; lấy lại giá trị cũ của R7 trong ngăn xếp

POP 06 ; lấy lại giá trị cũ của R0 trong ngăn xếp
RET ; kết thúc chương trình con.
END



1.9 TắT DầN CÁC LED Từ D1

 D8
INCLUDE REG_51.PDF
MAIN:
MOV A,#0FFH
BEGIN:
MOV P0,A
CLR C
RLC A
CALL DELAY
JC BEGIN
LJMP MAIN
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6,LAP
POP 07
POP 06
RET

END

1.10 TắT DầN CÁC LED Từ D8  D1 JONG BAIF 1.9 NHUNG
THAY RLC A =RRC A


1.11 TắT DầN CÁC LED Từ D8

 D1, THựC HIệN LặP LạI 20 LầN.
INCLUDE REG_51.PDF
MOV R7,#20
MAIN:
MOV A,#0FFH
BEGIN:
CLR C
MOV P0,A
RRC A
CALL DELAY
JC BEGIN
DJNZ R7,MAIN
SJMP $
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP: MOV R7,#255
DJNZ R7,$
DJNZ R6,LAP
POP 07
POP 06

RET
END


BÀI BỎ XUNG:
B1;SÁNG DẦN CÁC LED TỪ D1_D8, 247 LẦN VẦ NGƯỢC LẠI 300 LẦN,LẶP
LẠI WÁ TRÌNH TRÊN 4 LẦN

INCLUDE REG_51.PDF
MOV R5,#4
X1:
MOV A,#00H
BEGIN:
CALL CT1
CALL CT2
DJNZ R5,X1
LJMP $
;
CT1:
PUSH 01
PUSH 02
MOV R1,#13
X2:
MOV R2,#19
X3:
MOV A,#01H
X4:
SETB C
MOV P1,A
CALL DELAY

RLC A
JNC X4
DJNZ R2,X3
DJNZ R1,X2
POP02
POP01
RET
;
CT2:
PUSH 03
PUSH 04
MOV R3,#10
X5:
MOV R4,#30
X6:
MOV A,#80H
X7:
SETB C
MOV P1,A
CALL DELAY
RRC A
JNC X7
DJNZ R4,X6
DJNZ R3,X5
POP04
POP03
RET
;
DELAY:
PUSH 00

PUSH 07
MOV R0,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R0,LAP
POP 07
POP 00
RET
END
B2; DỊCH 1 LED SÁNG TỪ D1_D8, 247 LẦN VẦ NGƯỢC LẠI 300 LẦN,LẶP
LẠI WÁ TRÌNH TRÊN 4 LẦN:

INCLUDE REG_51.PDF
MOV R5,#4
X1:
MOV A,#00H
BEGIN:
CALL CT1
CALL CT2
DJNZ R5,X1
LJMP $
;
CT1:
PUSH 01
PUSH 02
MOV R1,#13
X2:
MOV R2,#19
X3:

MOV A,#01H
X4:
CLR C
MOV P1,A
CALL DELAY
RLC A
JNC X4
DJNZ R2,X3
DJNZ R1,X2
POP02
POP01
RET
;
CT2:
PUSH 03
PUSH 04
MOV R3,#10
X5:
MOV R4,#30
X6:
MOV A,#80H
X7:
CLR C
MOV P1,A
CALL DELAY

RRC A
JNC X7
DJNZ R4,X6
DJNZ R3,X5

POP04
POP03
RET
;
DELAY:
PUSH 00
PUSH 07
MOV R0,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R0,LAP
POP 07
POP 00
RET
END

B1;SÁNG DẦN CÁC LED TỪ D1_D8, 247 LẦN VẦ DỊCH 1 LED SÁNG TỪ
D8_D1:SỐ LẦN MÌNH TỰ THAY ĐỔI:

BÀI CHƯA ĐÚNG
INCLUDE REG_51.PDF
MOV R5,#4
X1:
MOV A,#00H
BEGIN:
CALL CT1
CALL CT2
DJNZ R5,X1
LJMP $

;
CT1:
PUSH 01
PUSH 02
MOV R1,#2
X2:
MOV R2,#3
X3:
MOV A,#01H
X4:
SETB C
MOV P1,A
CALL DELAY
RLC A
JNC X4
DJNZ R2,X3
DJNZ R1,X2
POP 02
POP 01
RET
;
CT2:
PUSH 03
PUSH 04
MOV R3,#2
X5:
MOV R4,#2
X6:
MOV A,#80H
X7:

CLR C
MOV P1,A
CALL DELAY
RRC A
JNC X7
DJNZ R4,X6
DJNZ R3,X5
POP 04
POP 03
RET
;
DELAY:
PUSH 00
PUSH 07
MOV R0,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R0,LAP
POP 07
POP 00
RET
END
2.1 HIểN THị Số 5 TRÊN LED1 (tùy theo bảng mã)
INCLUDE REG_51.PDF
MAIN:
MOV P2,#00H ; tắt các led
MOV P1,#6DH ; đặt DATA số 5 ra P1
MOV P2,#01H ; mở nguồn led1
SJMP $

END

2.2 HIểN THị Số 54 TRÊN 2 LED 7 VÀ 8(tùy theo bảng mã)
INCLUDE REG_51.PDF
MAIN:
MOV P2,#00H
BEGIN:
MOV P1,#6DH
SETB P2.6
CALL DELAY
CLR P2.6
MOV P1,#66H
SETB P2.7
CALL DELAY
CLR P2.7
LJMP BEGIN
DELAY:
PUSH 07H
MOV R7,#100
DJNZ R7,$
POP 07H
RET
END

2.3 TĂNG DầN Từ 0

9 TRÊN LED 8 (TÙY THEO BẢNG MÃ)
INCLUDE REG_51.PDF
CNT EQU 127
MAIN:

MOV P2,#00H
MOV CNT,#0
MOV DPTR,#MA_7S
BEGIN:
MOV A,CNT
MOVC A,@A+DPTR
MOV P1,A
SETB P2.7
CALL DELAY
INC CNT
MOV A,CNT
CJNE A,#10,BEGIN
MOV CNT,#0
LJMP BEGIN
DELAY:
PUSH 06
PUSH 07
MOV R6,#255
LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6, LAP
POP 07
POP 06
RET
MA_7S: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END


2.4 HIểN THị: 15-10-06 TRÊN 8 LED

INCLUDE REG_51.PDF
MAIN:
MOV P2,#00H
BEGIN:
MOV P1,#06H
SETB P2.0
CALL DELAY
CLR P2.0

MOV P1,#6DH
SETB P2.1
CALL DELAY
CLR P2.1

MOV P1,#40H
SETB P2.2
CALL DELAY
CLR P2.2

MOV P1,#06H
SETB P2.3
CALL DELAY
CLR P2.3

MOV P1,#3FH
SETB P2.4
CALL DELAY
CLR P2.4

MOV P1,#40H

SETB P2.5
CALL DELAY
CLR P2.5

MOV P1,#3FH
SETB P2.6
CALL DELAY
CLR P2.6

MOV P1,#7CH
SETB P2.7
CALL DELAY
CLR P2.7
LJMP BEGIN
DELAY:
PUSH 07
MOV R7,#100
DJNZ R7,$
POP 07H
RET
END



2.5 TĂNG DầN Từ 00 – 99 KHÔNG CÓ NGẮT
INCLUDE REG_51.PDF
CNT EQU 127
DONVI EQU 126
CHUC EQU 125
MAIN:

MOV P2,#0
MOV CNT,#0
BEGIN:
CALL DL
INC CNT
MOV A,CNT
CJNE A,#100,BEGIN
LJMP MAIN
DL:
PUSH 07
MOV R7,#200
X1:
CALL DISPLAY
DJNZ R7,X1
POP 07
RET
DISPLAY:
PUSH ACC
PUSH B
MOV DPTR,#MA_7S
MOV A,CNT
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV P1,A
SETB P2.6
CALL DELAY
CLR P2.6
MOV A,B
MOVC A,@A+DPTR

MOV P1,A
SETB P2.7
CALL DELAY
CLR P2.7
POP B
POP ACC
RET
;====================================
DELAY:
PUSH 07
MOV R7,#255
DJNZ R7,$
POP 07
RET
MA_7S: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END








2.6 - NHấN SW1: HIểN THị Số 3 TRÊN LED8
- NHấN SW2: HIểN THị Số 7 TRÊN LED8
- NHấN SW3: TắT CÁC THÔNG TIN ĐANG HIểN THị
SW1 BIT P3.0 ; khai báo kiểu BIT: SW1  P3.0
SW2 BIT P3.1
SW3 BIT P3.2

MAIN:
MOV P2,#00H ; tắt các led
SETB P2.7 ; mở nguồn led8
BEGIN:
JNB SW1,HT3 ; nếu SW1 nhấn thì  HT3
JNB SW2,HT7
JNB SW3,TAT
LJMP BEGIN
SW1:
MOV P1,#4FH ; hiển thị số 7
LJMP BEGIN ; trở về tiếp tục kiểm tra phím
SW2:
MOV P1,#07H
LJMP BEGIN
SW3:
MOV P2,#00H
LJMP BEGIN
END


2.7 - NHấN SW1: TĂNG NộI DUNG HIểN THị MộT ĐƠN Vị TRÊN LED1 (0-1-2-
3-4-5…9-0)
- NHấN SW2: GIảM NộI DUNG HIểN THị MộT ĐƠN Vị TRÊN LED1 (9-8-7…2-1-
0-9)
INCLUDE REG_51.PDF
CNT EQU 127
SW1 BIT P3.0
SW2 BIT P3.1
MAIN:
MOV P2,#00H

SETB P2.0
MOV CNT,#0
BEGIN:
JNB SW1,TANG
JNB SW2,GIAM
MOV A,CNT
MOVC A,@A+DPTR
MOV P1,A
LJMP BEGIN
TANG:
INC CNT
MOV A,CNT
CJNE A,#10,TROVE
MOV CNT,#0
TROVE:
CALL DELAY
LJMP BEGIN
GIAM:
DEC CNT
MOV A,CNT
CJNE A,#255,TROVE
MOV CNT,#0
LJMP TROVE
DELAY:
PUSH 05
PUSH 06
PUSH 07
MOV R5,#2
LAP1:
MOV R6,#255

LAP:
MOV R7,#255
DJNZ R7,$
DJNZ R6, LAP
DJNZ R5,LAP1
POP 07
POP 06
POP 05
RET
MA_7S: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END


2.8 GIốNG CHƯƠNG TRÌNH 1 NHƯNG HIểN THị CÁC Số THAY ĐổI TRONG
KHOảNG 00 – 99.
INCLUDE REG_51.PDF
CNT EQU 127
SW1 BIT P3.0
SW2 BIT P3.1
MAIN:
MOV P2,#00H
SETB P2.6
SETB P2.7
MOV CNT,#0
MOV DPTR,#MA7S
BIG:
JNB SW1,TANG
JNB SW2,GIAM
MOV A,CNT
MOVC A,@A+DPTR

MOV P1,A
CALL DISP
LJMP BIG
TANG:
INC CNT
CALL DISP
MOV A,CNT
CJNE A,#100,TROVE
MOV CNT,#0
TROVE:
CALL DELAY
LJMP BIG
GIAM:
DEC CNT
CALL DISP
MOV A,CNT
CJNE A,#255,TROVE
MOV CNT,#99
LJMP TROVE
DELAY: PUSH 05
PUSH 06
PUSH 07
MOV R5,#3
LAP1: MOV R6,#255
LAP:
MOV R7,#255
CALL DISP
DJNZ R7,$
DJNZ R6,LAP
DJNZ R5,LAP1

POP 07
POP 06
POP 05
RET
DISP:
PUSH ACC
PUSH B
MOV A,CNT
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV P1,A
SETB P2.6
CALL DL
CLR P2.6
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
SETB P2.7
CALL DL
CLR P2.7
POP B
POP ACC
RET
DL:
PUSH 07
MOV R7,#100
DJNZ R7,$
POP 07
RET

MA7S:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END