?? ex5117.asm
字號:
ORG 0000H
START: MOV SP,#60H
MOV R7,#00H
START1: ACALL ZH
ACALL PLAY
mov r0,#0fh
yh: djnz r0, yh
inc r7
cjne r7,#14h,start1
SJMP $
;--------------------------------------------------
PLAY: MOV DPTR,#8000H
MOV A,#0FFH
MOVX @DPTR,A ;STOP R/P
MOV A,40H ;PLAY CODE
MOV R2,#0FH
ACALL DELY ;20MS
MOVX @DPTR,A ;PE=1
ANL A,#0BFH
MOVX @DPTR,A ;PE=0
ACALL D500MS ;PLAY TIME
ACALL D500MS
; ACALL D500MS
MOV A,#0FFH
MOVX @DPTR,A ;STOP R/P
RET
ZH: MOV A,R7 ;R0 IS SEGMENT ADDRESS:0,1,2,....
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV 40H,A
RET
TAB: DB 0C0H,0C2H,0C4H,0C6H,0C8H,0CAH,0CCH
DB 0CEH
DB 0D0H,0D2H,0D4H,0D6H,0D8H,0DAH,0DCH
DB 0DEH
DB 0E0H,0E2H,0E4H,0E6H
D500MS: MOV R5,#05H
DL1: LCALL D100MS
DJNZ R5,DL1
RET
D100MS:
MOV R6,#64H
DL2: MOV R4,#0FFH
DL3: DJNZ R4,DL3
DJNZ R6,DL2
RET
DELY: PUSH 02H
LP2: PUSH 02H
LP1: PUSH 02H
LP0: DJNZ R2,LP0
POP 02H
DJNZ R2,LP1
POP 02H
DJNZ R2,LP2
POP 02H
DJNZ R2,DELY
RET
END
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -