单片机电子琴汇编程序

用汇编语言编写程序，通过按键来弹凑

第1个回答 2013-09-17

KEYBUF EQU 30H
STH0 EQU 31H
STL0 EQU 32H
TEMP EQU 33H
ORG 0000H
LJMP START

ORG 000BH
LJMP INT_T0

ORG 0030H
START:
MOV TMOD,#01H
SETB ET0
SETB EA
WAIT:
MOV P3,#0FFH
CLR p3.5
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY2
LCALL DELY10MS
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY2
MOV A,p3
ANL A,#1FH
CJNE A,#1EH,NK5
MOV KEYBUF,#4
LJMP DK2
NK5: CJNE A,#0fH,NK6
MOV KEYBUF,#5
LJMP DK2
NK6: CJNE A,#1BH,NK7
MOV KEYBUF,#6
LJMP DK2
NK7: CJNE A,#17H,NK8
MOV KEYBUF,#7
LJMP DK2
NK8: NOP
DK2:
MOV A,KEYBUF
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
MOV A,KEYBUF
MOV B,#2
MUL AB
MOV TEMP,A
MOV DPTR,#TABLE1
MOVC A,@A+DPTR
MOV STH0,A
MOV TH0,A
INC TEMP
MOV A,TEMP
MOVC A,@A+DPTR
MOV STL0,A
MOV TL0,A
SETB TR0
DK2A: MOV A,p3
ANL A,#1FH
XRL A,#1FH
JNZ DK2A
CLR TR0
NOKEY2:
MOV p3,#0FFH
CLR p3.6
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY3
LCALL DELY10MS
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY3
MOV A,p3
ANL A,#1FH
CJNE A,#1EH,NK9
MOV KEYBUF,#8
LJMP DK3
NK9: CJNE A,#0fH,NK10
MOV KEYBUF,#9
LJMP DK3
NK10: CJNE A,#1BH,NK11
MOV KEYBUF,#10
LJMP DK3
NK11: CJNE A,#17H,NK12
MOV KEYBUF,#11
LJMP DK3
NK12: NOP
DK3:
MOV A,KEYBUF
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
MOV A,KEYBUF
MOV B,#2
MUL AB
MOV TEMP,A
MOV DPTR,#TABLE1
MOVC A,@A+DPTR
MOV STH0,A
MOV TH0,A
INC TEMP
MOV A,TEMP
MOVC A,@A+DPTR
MOV STL0,A
MOV TL0,A
SETB TR0
DK3A: MOV A,p3
ANL A,#1FH
XRL A,#1FH
JNZ DK3A
CLR TR0
NOKEY3:
MOV p3,#0FFH
CLR p3.7
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY4
LCALL DELY10MS
MOV A,p3
ANL A,#1FH
XRL A,#1FH
JZ NOKEY4
MOV A,p3
ANL A,#1FH
CJNE A,#1EH,NK13
MOV KEYBUF,#12
LJMP DK4
NK13: CJNE A,#0fH,NK14
MOV KEYBUF,#13
LJMP DK4
NK14: CJNE A,#1BH,NK15
MOV KEYBUF,#14
LJMP DK4
NK15: CJNE A,#17H,NK16
MOV KEYBUF,#15
LJMP DK4
NK16: NOP
DK4:
MOV A,KEYBUF
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
MOV A,KEYBUF
MOV B,#2
MUL AB
MOV TEMP,A
MOV DPTR,#TABLE1
MOVC A,@A+DPTR
MOV STH0,A
MOV TH0,A
INC TEMP
MOV A,TEMP
MOVC A,@A+DPTR
MOV STL0,A
MOV TL0,A
SETB TR0
DK4A: MOV A,p3
ANL A,#1FH
XRL A,#1FH
JNZ DK4A
CLR TR0
NOKEY4:
LJMP WAIT
DELY10MS:
MOV R6,#10
D1: MOV R7,#248
DJNZ R7,$
DJNZ R6,D1
RET
INT_T0:
MOV TH0,STH0
MOV TL0,STL0
CPL P2.0
RETI
TABLE: DB 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h
DB 80h,90h,88h,83h,0c6h,0a1h,86h,8eh
TABLE1: DW 64021,64103,64260,64400
DW 64524,64580,64684,64777
DW 64820,64898,64968,65030
DW 65058,65110,65157,65178
END

相似回答

求单片机电子琴的汇编程序答：;DIAN ZI QIN 电子琴 SPK EQU P1.0 FKEY EQU 20H.0 DI EQU 71H GAO EQU 72H KEY_NO EQU 73H NO EQU 74H TC EQU 75H OUTBIT EQU 08002H OUTSEG EQU 08004H IN EQU 08001H ORG 0000H JMP BEGIN ORG 0BH JMP TO_INT BEGIN:MOV...

单片机简易电子琴程序答：(1. 把“单片机系统”区域中的P1.0端口用导线连接到“音频放大模块”区域中的SPK IN端口上; (2. 把“单片机系统“区域中的P3.0-P3.7端口用8芯排线连接到“4X4行列式键盘”区域中的C1-C4 R1-R4端口上; 4. 相关程序内容 (1. 4X4行列式键盘识别; (2. 音乐产生的方法; 一首音乐是许多不同的音阶组成的,而...

求89c51单片机制作简易电子琴的c程序及源代码答：bit FY=0; //放乐曲时FY=1, 电子琴弹奏时FY=0uchar Song_Index=0,Tone_Index=0; //放音乐的参数uchar k, key;sbit SPK=P3^7;sbit LED1=P1^0;sbit LED2=P1^1;sbit LED3=P3^4;sbit LED4=P3^5;sbit LED5=P3^6;void Delay(uint16 count){uint8 i; while(--count != 0) {for(i = 0...

用单片机和8253做简易电子琴答：程序如下！！！硬件实验二十五 电子琴 H25.ASM OUTBIT equ 08002h IN equ 08001h P1Buf equ 6eh PulseCNT equ 70h Tone equ 72h P1 equ IOPORT1 Speaker equ 1 org 2000h 2000 9420 dcw T1Int org 2080h 2080 E79600 ljmp Start org 2084h ToneTable: ; 音调表 2084 C8FD05FE 2088 3...

高分求一个单片机电子琴c语言程序答： 5．程序框图图4.6.2 6． 汇编源程序 FLAG BIT 00H ORG 00H START: JB P1.7,START JNB FLAG,NEXT MOV R2,#200 DV: CPL P1.0 LCALL DELY500 LCALL DELY500 DJNZ R2,DV CPL FLAG NEXT: MOV R2,#200 DV1: CPL P1.0 LCALL DELY500 DJNZ ...

大家正在搜

单片机电子琴程序单片机电子琴汇编 51单片机汇编程序单片机时钟汇编程序单片机三角波汇编程序单片机汇编语言程序单片机流水灯程序汇编 51单片机流水灯程序汇编语言用51单片机做电子琴