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

左手拿煙的老婆

ORG 0000H
LJMP START
ORG 000BH
6 C9 F/ }+ A) W" E) hINC 20H ;中断服务,中断计数器加1
- Z) r$ A* G) ~4 E& [7 ZMOV TH0,#0D8H
* r! Q7 @$ t1 N9 d1 PMOV TL0,#0EFH ;12M晶振，形成10毫秒中断
: t' |: f% S! M+ aRETI
START:
! h, ]5 k' _" {1 n; _0 ?' jMOV SP,#50H
MOV TH0,#0D8H
MOV TL0,#0EFH
, T2 H' D: k% A( t: GMOV TMOD,#01H
& @. S2 u( ]) n. CMOV IE,#82H
; K% A  d, X) a' r& R$ o" k! oMUSIC0:
. g: }4 ^5 Z# j0 }1 W5 q! vNOP
% U* C- S: ^$ e, AMOV DPTR,#DAT ;表头地址送DPTR
MOV 20H,#00H ;中断计数器清0
7 a. `; P, {8 M# j' uMOV B,#00H ;表序号清0
MUSIC1:
NOP
CLR A
. x+ b: t4 U9 C8 Q5 ]1 l" \. e( rMOVC A,@A+DPTR ;查表取代码
- h  B9 [* {9 Y1 yJZ END0 ;是00H,则结束
CJNE A,#0FFH,MUSIC5
LJMP MUSIC3
5 }. g) w; l, d8 J  a$ I' rMUSIC5:
! D' W) Q3 z% I  B5 e- o. ?NOP
MOV R6,A
INC DPTR
; \" b6 I5 b( K" _3 U/ H) O# s6 r  tMOV A,B
MOVC A,@A+DPTR ;取节拍代码送R7
MOV R7,A
SETB TR0 ;启动计数
' F5 d: f$ W# N( |MUSIC2:
3 d' X( e$ _- F* f& ^" @' ANOP
/ }; r0 r4 ~3 \, WCPL P3.3
/ s5 ~# t& r5 G. q7 V1 ZMOV A,R6
+ n, U1 H, J4 ^0 \: O* N/ `6 vMOV R3,A
/ {4 x0 Q# H6 t4 P" mLCALL DEL
MOV A,R7
$ v. F! R  b' ]. ZCJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
# P% _: Y' g8 f: U* a9 [, ~;不等,则继续循环
MOV 20H,#00H ;等于,则取下一代码
- }& Z; P7 O1 H* hINC DPTR
+ W( O0 z) b: ?& _8 n% J; INC B
LJMP MUSIC1
/ q: B6 \+ t3 ~/ x3 a) u" aMUSIC3:
NOP
0 b  ?; B7 Z7 z# W0 F9 V* FCLR TR0 ;休止100毫秒
7 |! {* J- v. a8 i* j6 MMOV R2,#0DH
2 r& f( o- `0 J4 s* ^7 {MUSIC4:
NOP
MOV R3,#0FFH
, W  i$ ?3 n' g/ {# e+ rLCALL DEL
& F, \+ o. G7 d# ]9 O1 QDJNZ R2,MUSIC4
' `( `) N  Y. k' F. N6 hINC DPTR
( d  B0 P1 V! \& X, p0 C) S* qLJMP MUSIC1
END0:
NOP
MOV R2,#64H ;歌曲结束,延时1秒后继续
MUSIC6:
2 i5 S! r/ I$ h5 SMOV R3,#00H
1 y8 a8 ~+ p. d% qLCALL DEL
) y% E) `2 L& O3 @- p7 c* |$ c  yDJNZ R2,MUSIC6
LJMP MUSIC0
DEL:
, p$ f" y* t; L* U+ I+ `NOP
DEL3:
MOV R4,#02H
: J' v. V% P$ q( ^: r# ]/ tDEL4:
NOP
9 |  T) n) k$ a- ?! RDJNZ R4,DEL4
+ w: m' e3 \1 C# u: SNOP
DJNZ R3,DEL3
RET
NOP
/ Y8 _+ w. o0 H1 M8 LDAT:
; D- s- h3 V# i' ddb 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
db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
& u$ `; j! B; Q) ?db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
3 `' x9 }* L+ Y. F# s1 Kdb 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
  X: M: r/ p# [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
db 30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h
+ y4 n* J) ]: d" kdb 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
+ x# x  `* W: W) W
END

qank002yq

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