;============　電子音響===========

        org 0000h
        sjmp main

        org 000bh
        mov th0,r1
        mov tl0,r0
        cpl p1.7
        reti

main:   mov tmod,#01h
        mov ie,#82h
        mov dptr,#tab
loop:   clr a
        movc a,@a+dptr
        mov r1,a
        inc dptr
        clr a
        movc a,@a+dptr
        mov r0,a
        orl a,r1
        jz next0
        mov a,r0
        anl a,r1
        cjne a,#0ffh,next
        sjmp main
next:   mov th0,r1
        mov tl0,r0
        setb tr0
        sjmp next1
next0:  clr tr0
next1:  clr a
        inc dptr
        movc a,@a+dptr
        mov r2,a
loop1:  acall d200c
        djnz r2,loop1
        inc dptr
        ajmp loop
d200c:  mov r3,#81h
d200b:  mov a,#0ffh
d200a:  dec a
        jnz d200a

        dec r3
        cjne r3,#00h,d200b
        ret

tab:    db 0feh,25h,04h,0feh,25h,02h
        db 0feh,25h,02h,0fdh,80h,04h
        db 0feh,84h,02h,0feh,84h,02h
        db 0feh,84h,04h,0feh,25h,04h
        db 0feh,25h,02h,0feh,84h,02h
        db 0feh,0c0h,04h,0feh,84h,02h
        db 0feh,98h,02h,0feh,84h,02h
        db 0feh,57h,08h,00h,00h,04h
        db 0ffh,0ffh

        end