单片机唱歌---“祝你平安”的源程序

左手拿煙的老婆

ORG 0000H
! V9 x, Y! p/ |! `LJMP START
ORG 000BH
* O* |7 o; m' W% \7 m, _! vINC 20H ;中断服务,中断计数器加1
MOV TH0,#0D8H
4 H0 G: D3 g0 \1 ?# I6 Q( hMOV TL0,#0EFH ;12M晶振，形成10毫秒中断
RETI
% _) |6 C3 N; s' F1 }START:
$ Y9 ]/ J: f1 N) y# [$ cMOV SP,#50H
7 w/ D. j' R* }) j. a% j& HMOV TH0,#0D8H
. |) y* z2 d/ R# UMOV TL0,#0EFH
# g2 y: t) q7 E8 _MOV TMOD,#01H
MOV IE,#82H
MUSIC0:
, \/ x' C$ n/ ~# e' ZNOP
MOV DPTR,#DAT ;表头地址送DPTR
+ i  |$ m( ?: f  M1 R' W$ X. A$ CMOV 20H,#00H ;中断计数器清0
MOV B,#00H ;表序号清0
MUSIC1:
NOP
CLR A
  H+ N& X! V" _& p5 UMOVC A,@A+DPTR ;查表取代码
, N( \) V7 O2 U1 S; lJZ END0 ;是00H,则结束
$ P+ m, H& F  w7 e" \" gCJNE A,#0FFH,MUSIC5
2 t9 Y' M. Q' H; d+ WLJMP MUSIC3
6 O1 v8 f/ u; Z4 w8 K) B8 s4 n9 FMUSIC5:
NOP
1 j  ?/ m* o$ o6 i$ tMOV R6,A
INC DPTR
MOV A,B
8 L! A) X1 h. I* t0 i- C" oMOVC A,@A+DPTR ;取节拍代码送R7
/ Z0 U2 q9 v: v1 YMOV R7,A
SETB TR0 ;启动计数
) P8 I  g, ]7 k/ n6 YMUSIC2:
4 K' S9 F) C* ~1 `, B7 C$ C6 wNOP
CPL P3.3
* ~2 O, ^' i4 ]6 ]1 T! o! v, xMOV A,R6
MOV R3,A
LCALL DEL
  u( g8 e' Z  M4 G, IMOV A,R7
CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
+ A0 s# I% A0 R;不等,则继续循环
& E& q) x0 {# q. _4 F9 GMOV 20H,#00H ;等于,则取下一代码
INC DPTR
" J0 B( p3 o7 n; INC B
3 @( I  c- }3 nLJMP MUSIC1
MUSIC3:
NOP
CLR TR0 ;休止100毫秒
MOV R2,#0DH
" b4 m0 ^7 T- V3 BMUSIC4:
  [5 J5 y# q& t. r6 o% {NOP
4 f- P  V$ s  y7 D5 l4 S. a0 Q9 ZMOV R3,#0FFH
LCALL DEL
' ?7 v9 ]! a0 lDJNZ R2,MUSIC4
INC DPTR
LJMP MUSIC1
END0:
5 Y# O6 q7 c8 p' i' h* j5 C/ CNOP
MOV R2,#64H ;歌曲结束,延时1秒后继续
9 \) ~' N9 n; m/ iMUSIC6:
MOV R3,#00H
LCALL DEL
DJNZ R2,MUSIC6
: L  p8 w( ?: Q5 [LJMP MUSIC0
DEL:
NOP
DEL3:
- {, z( A: r3 z- [1 g% n0 ?MOV R4,#02H
; I$ `2 T4 w- u* G- K( oDEL4:
NOP
DJNZ R4,DEL4
" C, s: h* x' g5 R& i' ^+ N; bNOP
DJNZ R3,DEL3
4 t+ t! x2 d% O/ s0 N# ]1 J; d3 v; SRET
7 R9 H* }* _( A2 Z) b0 xNOP
DAT:
! [7 M) y+ p; [( Cdb 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
: u3 J4 R1 y) s( Bdb 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
0 Q% ^+ B; N4 Z" s# Odb 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
8 E0 c& ?1 \. [, Z( C" |, [" [# Gdb 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
db 2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h
db 20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h
db 20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h
db 20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h
db 20h,20h,2bh,10h,26h,10h,2bh,10h,26h,10h,26h,10h,2bh,10h,2bh,80h
db 18h,20h,18h,20h,26h,20h,20h,20h,20h,60h,26h,10h,2bh,20h,30h,20h
; W( m  i  L5 B# [3 S; u. p* ?db 30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h
4 l4 p- i$ W- t4 \3 v; Vdb 39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h
db 20h,10h,2bh,10h,26h,30h,30h,80h,00H

END

qank002yq

人生感悟：牵手时，即使你的手有多汗，也别放开。