music1.asm

共有 45 个程序源码

    org 0000h
reset: ljmp main
       org 000bh
       ljmp it0p
       org 001bh
       ljmp it1p
       org 0100h
main:  mov sp,#70h
       clr p1.0
       mov ip,#08h
       mov r1,#24h
       mov r2,#10h
       mov r3,#00h
       lcall ptom2
       clr tr0
       clr tr1
       clr p1.0
here:  ljmp reset
ptom2: mov tmod,#11h
       mov dptr,#1100h
       mov a,r3
       movc a,@a+dptr
       anl a,#0fh
       mov r0,a
       mov a,r3
       movc a,@a+dptr
       swap a
       anl a,#0fh
       rl a
       mov r7,a
       mov dptr,#0200h
       mov a,r7
       movc a,@a+dptr
       mov tl0,a
       mov a,r7
       dec a
       movc a,@a+dptr
       mov th0,a
       mov th1,#0bh
       mov tl1,#0dch
       setb ea
       setb et1
       setb et0
       setb tr1
       setb tr0
here1: cjne r0,#0h,here1
       djnz r1,loop1
       ret
loop1: inc r3
       mov dptr,#0300h
       mov a,r3
       movc a,@a+dptr
       anl a,#0fh
       mov r0,a
       mov a,r3
       movc a,@a+dptr
       swap a
       anl a,#0fh
       rl a
       mov r7,a
       sjmp here1
it0p:  cpl p1.0
       mov dptr,#1000h
       mov a,r7
       movc a,@a+dptr
       mov tl0,a
       mov a,r7
       dec a
       movc a,@a+dptr
       mov th0,a
       reti
it1p:  mov th1,#0bh
       mov tl1,#0dch
       dec r0
       reti

      org 0200h
 db  0ffh,10h,0ffh,2bh,0ffh,42h,0ffh,4ch
 db  0ffh,60h,0ffh,71h,0ffh,81h
 db  0feh,22h,0feh,56h,0feh,85h,0feh,9ah
 db  0feh,0c1h,0feh,0e3h,0feh,03h
      org 0300h
 db 14h,24h,34h,14h,14h,24h,34h,14h,34h
 db 44h,58h,34h,44h,58h,52h,62h,52h,42h
 db 34h,24h,52h,62h,52h,42h,34h,24h,14h
 db 54h,18h,14h,54h,18h