OUT:  
      MOV TH0,#3CH
      MOV TL0,#0B0H      
      INC R2
      CJNE R2,#10,EXIT;是否中断十次，延迟0.5秒
      mov R2,#0;重置
;*******************************十位计数        
    D:mov A,R3
      mov DPTR,#TAB
      movc A,@A+DPTR
      mov P1,A
      inc R3     
      cjne R3,#4,RE
      mov R3,#0
      Acall yellow;调用子程序yellow
      mov R7,#30
      acall delay;延迟3秒
      acall WET
调用acall WET将会向下执行RE，可只能显示十秒回不到D，求大神指导怎样从D处执行？        
 
;******************************个位计数      
   RE:MOV R0,#0
      MOV DPTR,#TAB1
      MOV R1,#10
 NEXT:MOV A,R0
      MOVC A,@A+DPTR
      MOV P0,A

      INC R0
      mov R7,#10
      ACALL DELAY
      DJNZ R1,NEXT
      
;*******************************************子程序      

SNT:   setb p2.0;南北方向停，东西方行
       clr  p2.1
       clr  p2.2
       clr  p2.3
       clr  p2.4
       setb p2.5
        sjmp D
WET:   setb p2.3;南北方向行，东西方停
       clr  p2.1
       clr  p2.5
       clr  p2.0
       clr  p2.4
       setb p2.2
       sjmp RE
yellow:setb p2.1;黄灯
       clr  p2.0
       clr  p2.2
       clr  p2.3
       clr  p2.5
      

 EXIT:RETI

单片机，求指导。