org 00h
ORG 30H
MOV P1,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
START:


JB P3.7,$ 
SB:
MOV R4,#8 
SBA:
MOV R5,#250
SBB:
JB P3.7,SXB1
DJNZ R5,SBB
DJNZ R4,SBA
MOV R4,#2
JMP SBC
SXB1:
MOV R5,#5
SXB2: 
JNB P3.7,SBB
DJNZ R5,SXB2
JMP START
SBC:
MOV R5,#250
SB1:
JB P3.7,SB2 
DJNZ R5,SB1
DJNZ R4,SBC
JMP START
SB2: 
MOV R5,#5
SB2_A:
JNB P3.7,SB1
DJNZ R5,SB2_A
MOV R4,#3
SB2_1:
MOV R5,#250
SB3: 
JNB P3.7,SXC
DJNZ R5,SB3
DJNZ R4,SB2_1
MOV R4,#2
JMP SB3_1
SXC: 
MOV R5,#5
SXC1:
JB P3.7,SB3
DJNZ R5,SXC1
JMP START
SB3_1: 
MOV R5,#250
SB3_2:
JNB P3.7,SB4
DJNZ R5,SB3_2
DJNZ R4,SB3_1
JMP START
SB4: 
MOV R5,#5
SB4_1:
JB P3.7,SB3_2
DJNZ R5,SB4_1
MOV R1,#1AH 
MOV R2,#4
PP: MOV R3,#8
JJJJ:
MOV R5,#250
JJJJ2: 
JB P3.7,JJJJ3
DJNZ R5,JJJJ2
JMP START
JJJJ3:
LCALL YS1 
MOV C,P3.7 
JNC UUU 
MOV R5,#250
JJJJ4:
JNB P3.7,UUU
NOP
DJNZ R5,JJJJ4
JMP START
UUU: MOV A,@R1 
RRC A 
MOV @R1,A 
DJNZ R3,JJJJ 
INC R1 
DJNZ R2,PP 
MOV A,1AH 
XRL A,#10000000B
JNZ EXIT 
MOV A,1BH 
XRL A,#01111111B
JNZ EXIT 
LCALL YS3
MOV A,1CH 
CPL A
XRL A,1DH 
JNZ EXIT 
LCALL YS3
AJMP BIJIAO
AA: MOV R1,#25
XX: ACALL YS2
JNB P3.7,HH 
DJNZ R1,XX
EXIT: 

AJMP START
HH: MOV R6,#4
S: ACALL YS1 
JB P3.7,EXIT 
DJNZ R6, S 
JNB P3.7, $ 
LCALL YS3
AJMP AA

BIJIAO: MOV A,1CH 
CJNE A,#10h,TT1
clr p0.0
TT1: CJNE A,#03h,T2
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.1
T2: CJNE A,#01h,T3
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.2
T3: CJNE A,#06h,T4
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.3
T4: CJNE A,#09h,T5
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.4
T5: CJNE A,#1dh,T6
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.5
T6: CJNE A,#1fh,T7
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.6
T7: CJNE A,#0dh,T8
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p0.7
T8: CJNE A,#19h,t9
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.0
T9: CJNE A,#1bh,t10
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.1
T10: CJNE A,#11h,t11
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.2
T11: CJNE A,#15h,t12
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.3
T12: CJNE A,#17h,t13
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.4
T13: CJNE A,#12h,t14
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.5
T14: CJNE A,#16h,t15
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.6
T15: CJNE A,#4ch,t16
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p1.7
T16: CJNE A,#40h,t17
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.0
T17: CJNE A,#48h,t18
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.1
T18: CJNE A,#04h,t19
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.2
T19: CJNE A,#00h,t20
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.3
T20: CJNE A,#02h,t21
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.4
T21: CJNE A,#05h,t22
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.5
T22: CJNE A,#54h,t23
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.6
T23: CJNE A,#4dh,t24
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p2.7
T24: CJNE A,#0ah,t25
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.0
T25: CJNE A,#1eh,t26
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.1
T26: CJNE A,#0eh,t27
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.2
T27: CJNE A,#1ah,t28
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.3
T28: CJNE A,#1ch,t29
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.4
T29: CJNE A,#14h,t31
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

clr p3.5
T31: CJNE A,#0ch,t32
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh

t32: AJMP AA
YS1: MOV R4,#20 
D1: MOV R5,#20
DJNZ R5,$
DJNZ R4,D1
RET
YS2: MOV R4,#10 
D2: MOV R5,#235
DJNZ R5,$
DJNZ R4,D2
RET
YS3: MOV R4,#2 
D3:MOV R5,#248
DJNZ R5,$
DJNZ R4,D3
RET
END