模拟I/O口问题

众位大侠：我在书上看到用8051I/O口模拟串行口用于数码管显示，用74LS164实现串并，软件模拟行。
可按上面做的硬件显示时总是四个八，硬件检查没毛病，程序如下：望大家指教
VRXD EQU P2.0
VTXD EQU P2.1
MTD EQU 30H

ORG 0000H

START:MOV R1,#MTD
MOV @R1,#77H
INC R1
MOV @R1,#77H
INC R1
MOV @R1,#3EH
INC R1
MOV @R1,#7CH

MOV R2,#4
LCALL VUARTNO
SJMP START
VUARTNO:MOV R0,#MTD
TCONTU:MOV R3,#8
MOV A,@R0
TAST:JNB ACC.0,ST0
ST1:SETB VRXD
CLR VTXD
NOP
SETB VTXD
SJMP TCONT
ST0:CLR VRXD
CLR VTXD
NOP
SETB VTXD
TCONT:RR A
DJNZ R3,TAST
INC R0
DJNZ R2,TCONTU
RET
END