sio2i:     mov     a,      2ch
           mov     c,      04h
           mov     acc.4,  c                ;?????
           clr     tb8
           setb    sio_c
           acall   ysf    
           mov     sbuf,   a
           jnb     ti,     $
           clr     ti
           nop
           nop
           nop
           nop
           clr     sio_c
           clr     05h
           acall   siori
           jnb     05h,    sio2j
           clr     ri
           ajmp    sioerr
sio2j:     clr     ri
           mov     a,      sbuf             ;?????
           setb    sio_c     
           mov     2dh,    a
           jnb     acc.6,  sio2k
           ajmp    sioerr
sio2k:     jb      acc.5,  sio2l
           ajmp    sioerr
sio2l:     mov     c,      acc.7
           mov     06h,    c
           anl     a,      #0fh
           mov     c,      p
           jc      sio2m
           jb      06h,    sioerr
           ajmp    sio3a
sio2m:     jb      06h,    sio3a
sioerr:    nop                  
           nop
           djnz    r4,     sio2r
           ajmp    sio1c
sio2r:     nop
           nop
           ajmp    sio1e

;sio3a:     nop
;           nop
;           jnb     03h,    sio3a1
;           clr     04h
;           clr     03h
;           ajmp    sio1c

sio3a:     mov     dph,    #7dh
           mov     dpl,    2ah
           movx    a,      @dptr
           anl     a,      #0fh
           add     a,      #70h   
           mov     r1,     a      
           mov     a,      @r1        
           xrl     a,      2ah     
           jnz     sio3d         
           mov     a,      #00h
           mov     @r1,    a      
           movx    a,      @dptr
           mov     2fh,    a
           cjne    a,      #50h,  sio3b
           ajmp    sio3d 

sio3b:     anl     a,      #0fh
           mov     dptr,   #data2
           movc    a,      @a+dptr
           mov     2eh,    a
           mov     a,      2fh
           jb      acc.3,  sio3c 
           mov     a,      26h
           orl     a,      2eh
           mov     26h,    a
           setb    02h
           ajmp    sio3d 

sio3c:     mov     a,      27h
           orl     a,      2eh
           mov     27h,    a
           setb    02h
           nop
           nop

sio3d:     jnb     04h,    sio3e
           setb   02h
           clr     04h
           ajmp    sio1c

sio3e:     setb    tb8
           mov     dptr,   #data2 
           mov     a,      2ch
           movc    a,      @a+dptr
           cpl     a
           mov     2eh,    a
           mov     a,      2ch
           add     a,      #70h
           mov     r1,     a
           mov     a,      2ah
           mov     @r1,    a
           mov     a,      2ch
           jb      acc.3,  sio3f 
           mov     a,      2eh 
           anl     a,      26h
           mov     26h,    a
           setb    02h
           ajmp    sio3g

sio3f:     mov     a,      2eh 
           anl     a,      27h
           mov     27h,    a
           setb    02h
           nop
           nop
sio3g:     mov     dph,    #7dh
           mov     dpl,    2ah
           mov     a,      2ch
           setb    acc.7
           movx    @dptr,  a 
           mov     a,      2dh
           cjne    a,      #3fh,  sio3h
           ajmp    sio1c

sio3h:     nop
           nop
           mov     a,      #0aah       ;vod_data1 begin
           mov     dptr,   #m8251d
           movx    @dptr,  a
           acall   ysw
           nop
           nop
           mov     a,      2ch         ;vod_data2 device
           anl     a,      #0fh
;           inc     a
           movx    @dptr,  a
           lcall   ysw
           nop
           nop
           mov     a,      2dh         ;vod_data3 work
           anl     a,      #1fh     
           movx    @dptr,  a
           lcall   ysw
           nop
           nop
           mov     a,      #0a1h        ;vod_data4 end
           movx    @dptr,  a
           lcall   ysw
           nop
           nop
           mov     32h,    #0ffh
;           mov     33h,    #0ffh
           ajmp    sio1c

;---------------------------------------
begin2:    nop
           nop
           mov     r4,     #02h
bn2a:      nop
           nop
           mov     dph,    #7dh
           mov     dpl,    2bh
           movx    a,      @dptr
           jz      bn2b
           inc     2bh
           mov     a,      2bh
           cjne    a,      #maxlh, bn2a      
           mov     2bh,    #01h 
           ajmp    begin3

bn2b:      nop
           nop
           mov     dph,    #7dh
           mov     dpl,    2bh
           setb    sio_c
           setb    tb8
           acall   ysf
           mov     a,      2bh
           mov     sbuf,   a
           jnb     ti,     $
           clr     ti
           nop
           nop
           clr     sio_c
           clr     05h
           acall   siori
           jb      05h,    bn2c
           clr     ri
           mov     a,      sbuf
           setb    sio_c   
           jb      rb8,    bn2c
           xrl     a,      2bh
           jz      bn2d
bn2c:      djnz    r4,     bn2b
           mov     a,      #00h
           movx    @dptr,  a
           ajmp    bn2e
bn2d:      nop
           nop
           mov     a,      #50h
           movx    @dptr,  a
bn2e:      inc     2bh
           mov     a,      2bh
           cjne    a,      #maxlh,bn2f     
           mov     2bh,    #01h 
bn2f:      nop 
           nop
begin3:    djnz    28h,    begin4
           mov     28h,    #led_time
           cpl     led_c1
           cpl     led_c2

begin4:    nop
           nop
           jb      09h,    bin41
           jnb     02h,    begin5
           clr     02h
           mov     a,      26h
           cjne    a,      30h,     bin41
           mov     a,      27h
           cjne    a,      31h,     bin41
           ajmp    begin5
            
bin41:     clr     09h
           mov     30h,    26h
           mov     31h,    27h
           mov     a,      #0aah       ;vod_data1 begin
           mov     dptr,   #m8251d
           movx    @dptr,  a
           acall   ysw
           nop
           nop
           mov     a,      26h         ;1 to 8 
           movx    @dptr,  a
           lcall   ysw
           nop
           nop
           mov     a,      27h         ;9 to 16
           movx    @dptr,  a
           lcall   ysw
           nop
           nop
           mov     a,      #0abh        ;vod_data4 end
           movx    @dptr,  a
           mov     32h,    #0ffh
;           mov     33h,    #0ffh
           clr     09h
           nop
           nop
begin5:    nop
           nop
           acall   diodeon
           nop
           nop
           djnz    32h,    begin6
           mov     32h,    #0ffh
;           djnz    33h,    begin6
;           mov     33h,    #0ffh
           setb    09h

begin6:    nop
           nop
           nop
           nop
           ajmp    begin1

;---------------------------------------
ysf:       mov     r6,     #15h
           djnz    r6,     $
           ret

;---------------------------------------
ys:        mov     r6,     #00h
           nop
           nop
           djnz    r6,     $
           ret

;---------------------------------------
ysw:       mov     r6,     #0fh
sw:        mov     r7,     #0ffh
           djnz    r7,     $
           djnz    r6,     sw
           ret

;---------------------------------------
siori:     jb      ri,     sri1
           djnz    r2,     siori
           mov     r2,     #0ffh
           djnz    r3,     siori
           mov     r3,     #timec
           setb    05h
sri1:      nop
           nop
           ret

;---------------------------------------        
diodeon:   mov     dptr,   #p8155a
           mov     a,      26h
           movx    @dptr,  a
           nop
           nop
           mov     dptr,   #p8155b
           mov     a,      #08h
           movx    @dptr,  a
           nop
           nop
           nop
           nop
           mov     a,      #07h
           movx    @dptr,  a
           nop
           nop
           mov     a,      27h
           mov     dptr,   #p8155a
           movx    @dptr,  a
           nop
           nop
           mov     dptr,   #p8155b
           mov     a,      #09h
           movx    @dptr,  a
           nop
           nop
           nop
           nop
           mov     a,      #07h
           movx    @dptr,  a
           nop
           nop
           ret
end