有请高人帮我把这段汇编语言程序改为C语言，急啊！谢谢各位了

ORG 0
STRT: MOV A,P1
SWAP A
ANL A,#0FH
MOV 41H,A
MOV 40H,#0FFH
MLP0: CJNE A,#6,$+3
JNC PK6
MOV DPTR,#CTAB
MOV R1,A
RL A
ADD A,R1
JMP @A+DPTR
CTAB: LJMP PK0
LJMP PK1
LJMP PK2
LJMP PK3
LJMP PK4
LJMP PK5
PK6: MOV 42H,A
LJMP MLP1
PK5: MOV A,40H
CJNE A,#0FFH,PK51
MOV 42H,#01
LJMP MLP1
PK51: MOV A,42H
LCALL RR7
ANL A,#0FH
JNZ PK52
MOV A,#1
PK52: MOV 42H,A
LJMP MLP1
PK4: MOV A,40H
CJNE A,#0FFH,PK41
MOV 42H,#1
LJMP MLP1
PK41: MOV A,42H
LCALL RL9
ANL A,#0FH
JNZ PK42
MOV A,#1
PK42: MOV 42H,A
LJMP MLP1
PK3: MOV A,40H
CJNE A,#0FFH,PK31
MOV 42H,#0FEH
LJMP MLP1
PK31: MOV A,42H
LCALL RR7
ANL A,#0FH
CJNE A,#0FH,PK32
MOV A,#0FEH
PK32: ORL A,#0F0H
MOV 42H,A
LJMP MLP1
PK2: MOV A,40H
CJNE A,#0FFH,PK21
MOV 42H,#0FEH
LJMP MLP1
PK21: MOV A,42H
RL A
ANL A,#0FH
CJNE A,#0FH,PK22
MOV A,#0FEH
PK22: ORL A,#0F0H
MOV 42H,A
LJMP MLP1
PK1: MOV 42H,#0FH
LJMP MLP1
PK0: MOV 42H,#0
MLP1: MOV A,42H
ORL A,#0F0H
MOV P1,A
MOV R7,#0
MOV R6,#0
DEL1: DJNZ R6,DEL1
DJNZ R7,DEL1
MOV A,P1
SWAP A
ANL A,#0FH
CJNE A,41H,MLP2
MOV 40H,#0
LJMP MLP0
MLP2: MOV 41H,A
MOV 40H,#0FFH
LJMP MLP0
RR9: RR A
RR A
RR7: RR A
RR A
RR A
RR A
RR A
RR A
RR A
RET
RL9: RL A
RL A
RL7: RL A
RL A
RL A
RL A
RL A
RL A
RL A
RET
END;