SJ EQU 20H
        ORG 0000H
	AJMP START
	ORG 030H
START:  MOV SJ,#01H
K0:     JB P1.5,K1
        ACALL DELAY
        JNB P1.5,$
        INC SJ
K1:     JB P1.0,K2		   
	ACALL DELAY
        JNB P1.0,$
        SJMP START0
K2:     JB P1.1,K3		   
	ACALL DELAY
        JNB P1.1,$
        SJMP START1 
K3:     JB P1.2,K4		   
	ACALL DELAY
        JNB P1.2,$
        SJMP START2 
K4:     JB P1.3,K5		   
	ACALL DELAY
        JNB P1.3,$
        SJMP START3 
K5:     JB P1.4,K0		   
	ACALL DELAY
        JNB P1.4,$
        SJMP START4 
START0: LCALL HA
        LCALL HB
	LCALL HC
	LCALL HD
	SJMP START0
START1: LCALL HA
        AJMP START1
START2: LCALL HB
        AJMP START2
START3: LCALL HC
        AJMP START3
START4: LCALL HD
        AJMP START4
HA:     MOV P0,#11111110B
        MOV P2,#11111110B
	ACALL DELX
	MOV P0,#11111101B
        MOV P2,#11111101B
	ACALL DELX
	MOV P0,#11111011B
        MOV P2,#11111011B
	ACALL DELX
	MOV P0,#11110111B
        MOV P2,#11110111B
	ACALL DELX
	MOV P0,#11101111B
        MOV P2,#11101111B
	ACALL DELX
	MOV P0,#11011111B
        MOV P2,#11011111B
	ACALL DELX
	MOV P2,#11111111B
	RET
HB:     MOV P0,#11111110B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11111110B
	ACALL DELX
        MOV P2,#11111111B
	MOV P0,#11111101B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11111101B
	ACALL DELX
        MOV P2,#11111111B
	MOV P0,#11111011B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11111011B
	ACALL DELX
        MOV P2,#11111111B
        MOV P0,#11110111B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11110111B
	ACALL DELX
        MOV P2,#11111111B
	MOV P0,#11101111B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11101111B
	ACALL DELX
        MOV P2,#11111111B
	MOV P0,#11011111B
	ACALL DELX
	MOV P0,#11111111B
	MOV P2,#11011111B
	ACALL DELX
        MOV P2,#11111111B
	RET
HC:     MOV P0,#11111110B
	ACALL DELX
	MOV P0,#11111101B
	ACALL DELX
	MOV P0,#11111011B
	ACALL DELX
	MOV P0,#11110111B
	ACALL DELX
	MOV P0,#11101111B
	ACALL DELX
	MOV P0,#11011111B
	ACALL DELX
	MOV P0,#11111111B
        MOV P2,#11111110B
	ACALL DELX
        MOV P2,#11111101B
	ACALL DELX
        MOV P2,#11111011B
	ACALL DELX
        MOV P2,#11110111B
	ACALL DELX
        MOV P2,#11101111B
	ACALL DELX
        MOV P2,#11011111B
	ACALL DELX
        MOV P2,#11111111B
	RET
HD:     MOV P0,#00000000B
	ACALL DELX
	MOV P0,#11111111B
        MOV P2,#00000000B
	ACALL DELX
	MOV P2,#11111111B
        RET
DELX:   MOV R0,SJ
DELX0:  MOV R5,#08H
DELX1:	MOV R6,#0FFH
DELX2:	MOV R7,#0FFH
DELX3:	DJNZ R7, DELX3
	DJNZ R6, DELX2
	DJNZ R5, DELX1
        DEC R0
	CJNE R0,#00H,DELX0
	RET
DELAY:  MOV R4,#40
D2:     MOV R5,#248
        DJNZ R5,$
        DJNZ R4,D2
        RET
        END