c语言蜂鸣器程序兰花草,单片机兰花草的程序

满意答案

ORG 0000H

JMP MAIN

ORG 000BH

JMP TT0

MAIN:MOV TMOD,#01

MOV IE,#82H

MAIN0: MOV 30H,#00

NEXT: MOV A,30H

MOV DPTR,#TABLE

MOVC A,@A+DPTR

MOV R2,A

JZ STOP

ANL A,#0FH

MOV R5,A

MOV A,R2

SWAP A

ANL A,#0FH

JNZ SING

CLR TR0

JMP W1

SING: DEC A

MOV 22H,A

RL A

MOV DPTR,#TABLE1

MOVC A,@A+DPTR

MOV TH0,A

MOV 21H,A

MOV A,22H

RL A

INC A

MOVC A,@A+DPTR

MOV TL0,A

MOV 20H,A

SETB TR0

W1: CALL DELAY

INC 30H

JMP NEXT

STOP: CLR TR0

JMP MAIN0

TT0: PUSH ACC

PUSH PSW

MOV TL0,20H

MOV TH0,21H

CPL P1.0

POP PSW

POP ACC

RETI

DELAY:MOV R7,#2

W2: MOV R4,#125

W3: MOV R3,#248

DJNZ R3,$

DJNZ R4,W3

DJNZ R7,W3

DJNZ R5,DELAY

RET

TABLE1:

DW 64021,64103,64260,64400

DW 64524,64580,64684,64777

DW 64820,64898,64968,65030

DW 64934

TABLE:

; 1

DB 42H,82H,82H,82H,84H,02H,72H

DB 62H,72H,62H,52H,48H

DB 0B2H,0B2H,0B2H,0B2H,0B4H,02H,0A2H,

; 2

DB 12H,0A2H,0D2H,92H,88H

DB 82H,0B2H,0B2H,0A2H,84H,02H,72H

DB 62H,72H,62H,52H,44H,02H,12H

; 3

DB 12H,62H,62H,52H,44H,02H,82H

DB 72H,62H,52H,32H,48H

DB 00

END

00分享举报