p8155k     equ    7f00h 
p8155a     equ    7f01h
p8155b     equ    7f02h
p8155c     equ    7f03h
p8155ram   equ    7d00h
m8251c     equ    0bfffh
m8251d     equ    0be00h
timec      equ    18h
led_time   equ    08h
sio_c      equ    p3.2
led_c1     equ    p3.4
led_c2     equ    p1.7
maxlh      equ    3ch

;***********************************************************
;        DH_N205...vod.asm         2002.07.15
;***********************************************************
                   org     0000h       
                   ajmp    main

                   org     0013h
                   ajmp    main_it1
                   
                   org     0030h

;***********************************************************
datal:     db    01h, 02h, 04h, 08h, 10h, 20h, 40h, 80h
           db    00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h
datah:     db    00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h
           db    01h, 02h, 04h, 08h, 10h, 20h, 40h, 80h
data2:     db    01h, 02h, 04h, 08h, 10h, 20h, 40h, 80h
           db    01h, 02h, 04h, 08h, 10h, 20h, 40h, 80h

;***********************************************************
main_it1:  push    acc
           push    dph
           push    dpl
           mov     dptr,   #m8251c
           movx    a,      @dptr
           rrc     a
           rrc     a
           jc      m_it0_1
           ajmp    it0_exit

m_it0_1:   mov     dptr,   #m8251d
           movx    a,      @dptr            
           jnb     00h,    m_it0_a
           cjne    r0,     #25h,   m_it0_3
           cjne    a,      #0abh,  m_it0_2
           clr     00h
           setb    01h     
           mov     36h,    23h
           mov     37h,    24h
           ajmp    it0_exit
m_it0_2:   nop
           nop
           clr     01h
           clr     00h
           ajmp    it0_exit

m_it0_3:   mov     @r0,    a
           inc     r0
           ajmp    it0_exit

m_it0_a:   cjne    a,      #0aah,  m_it0_b
           mov     r0,     #23h
           setb    00h
           nop
           nop
m_it0_b:   nop
           nop
it0_exit:  nop
           nop
           pop     dpl
           pop     dph
           pop     acc
           reti

;***********************************************************
main:      nop
           nop
           mov     ie,     #00h
           mov     p1,     #0ffh
           mov     sp,     #08h
           clr     led_c1
           clr     led_c2
           nop
           nop
           mov     r6,     #0ffh
ysa:       mov     r7,     #0ffh
           djnz    r7,     $
           djnz    r6,     ysa
           nop
           nop
           mov     r6,     #0ffh
ysb:       mov     r7,     #0ffh
           djnz    r7,     $
           djnz    r6,     ysb
           nop
           nop
           mov     sp,     #08h
           mov     20h,    #00h
           mov     21h,    #00h
           mov     26h,    #0ffh
           mov     27h,    #0ffh
           mov     30h,    #0ffh
           mov     31h,    #0ffh
           mov     32h,    #0ffh
;           mov     33h,    #0ffh
           mov     36h,    #0ffh
           mov     37h,    #0ffh
           mov     2ah,    #01h
           mov     2bh,    #01h
           mov     r2,     #0ffh
           mov     r3,     #timec
           nop
           nop
           mov     dptr,   #p8155k          ;8155
           mov     a,      #0fh             ;pa.pb.pc=out      
           movx    @dptr,  a
           nop
           nop
           mov     dptr,   #p8155a
           mov     a,      #0ffh 
           movx    @dptr,  a
           nop
           nop
           mov     dptr,   #p8155b
           mov     a,      #07h 
           movx    @dptr,  a
           nop
           nop
           acall   diodeon
           nop
           nop
           acall   ysw 
           mov     dptr,   #m8251c          ;8251
           mov     a,      #4eh
           movx    @dptr,  a
           acall   ysw 
           mov     a,      #40h
           movx    @dptr,  a
           acall   ysw         
           mov     a,      #4eh
           mov     dptr,   #m8251c
           movx    @dptr,  a
           acall   ysw 
           mov     a,      #15h
           movx    @dptr,  a
           acall   ysw 
           nop
           nop
           mov     r0,     #70h
cshram1:   mov     @r0,    #00h
           inc     r0
           cjne    r0,     #80h,  cshram1
           nop
           nop
           mov     dptr,   #p8155ram
           nop
           nop
cshram2:   mov     a,      #00h             ;7e00h...7e7fh
           movx    @dptr,  a   
           inc     dptr
           mov     a,      dpl
           cjne    a,      #80h,  cshram2
           nop
           nop
           setb    led_c1
           setb    led_c2
           mov     28h,    #led_time
           mov     tmod,   #21h
           mov     th1,    #0fah 
           mov     tl1,    #0fah
           mov     scon,   #0d8h
           setb    tr1
           clr     tr0
           setb    it1
           setb    ex1
           setb    ea
           setb    led_c1
           setb    led_c2
           nop
           nop

;***********************************************************
begin1:    nop     
           nop
           mov     r5,     #08h
sio1b:     nop
           nop
           clr     04h
           mov     dph,    #7dh
           mov     r4,     #06h
           mov     dpl,    2ah
           movx    a,      @dptr
           jnz     sio1e

sio1c:     nop
           nop
           inc     2ah
           mov     a,      2ah
           cjne    a,      #maxlh,   sio1d
           mov     2ah,    #01h

sio1d:     djnz    r5,     sio1b
           ajmp    begin2

sio1e:     nop      
           nop
           mov     dph,    #7dh
           mov     dpl,    2ah
           setb    sio_c
           setb    tb8
           acall   ysf
           mov     a,      2ah
           mov     sbuf,   a               ;txd_1 Address
           jnb     ti,     $
           clr     ti
           nop
           nop
           nop
           nop
           clr     sio_c
           clr     05h
           acall   siori
           jb      05h,    sio1f
           clr     ri
           mov     a,      sbuf             ;rxd_1 Address
           setb    sio_c   
           jb      rb8,    sio1f
           xrl     a,      2ah
           jz      sio2a

sio1f:     djnz    r4,     sio1e
           movx    a,      @dptr
           anl     a,      #0fh             ;clr acc.7
           mov     2fh,    a
           add     a,      #70h
           mov     r1,     a      
           mov     a,      @r1    
           xrl     a,      2ah
           jnz     sio1c   
	   mov     a,      #00h
	   mov     @r1,    a
	   nop
	   nop
	   movx    @dptr,  a 
	   nop
	   nop
           mov     a,      2fh
           mov     dptr,   #data2              
           movc    a,      @a+dptr
           mov     2eh,    a
           mov     a,      2fh
           jb      acc.3,  sio1g
           mov     a,      26h   
           orl     a,      2eh
           mov     26h,    a
           setb    02h
           ajmp    sio1c

sio1g:     mov     a,      27h   
           orl     a,      2eh
           mov     27h,    a
           setb    02h
           ajmp    sio1c

sio2a:     clr     tb8
           setb    sio_c
           lcall   ysf
           mov     sbuf,   #0ffh            ;?????
           jnb     ti,     $
           clr     ti
           nop
           nop
           nop
           nop
           clr     sio_c
           clr     05h
           acall   siori
           jnb     05h,    sio2b
           clr     ri
           ajmp    sioerr

sio2b:     clr     ri
           mov     a,      sbuf             ;rxd_2 Device 
           setb    sio_c
           jnb     rb8,    sio2c             ;?????
           ajmp    sioerr

sio2c:     mov     2fh,    a
           anl     a,      #0fh
           mov     2ch,    a 
           mov     a,      2fh
           anl     a,      #0f0h
           swap    a
           xrl     a,      2ch
           jz      sio2c1
           ajmp     sioerr

sio2c1:    mov     a,      2ch
           mov     dptr,   #data2
           movc    a,      @a+dptr
           mov     2fh,    a
           mov     dph,    #7dh
           mov     dpl,    2ah
           clr     03h
           clr     04h
           mov     a,      2ch
           jb      acc.3,  sio2d
           mov     a,      36h
           ajmp    sio2e 

sio2d:     mov     a,      37h
           nop
           nop
sio2e:     anl     a,      2fh
           jnz     sio2f
           setb    04h
           setb    03h
           ajmp    sio2i

sio2f:     mov     a,      2ch
           add     a,      #70h
           mov     r1,     a
           mov     a,      @r1
           jz      sio2g
           xrl     a,      2ah
           jnz     sio2h
sio2g:     clr     04h
           ajmp    sio2i 
sio2h:     setb    04h