程序.txt

压缩包里面有单片机演奏音乐课题的源程序

  ORG 00H               
        JMP START             
        ORG 0BH             
        JMP TIM0              
START:  MOV  TMOD,#00000001B  
        MOV  IE,#10000010B    
START0: MOV 30H,00H           
NEXT:   MOV  A,30H            
        MOV  DPTR ,#TABLE   
        MOVC  A,@A+DPTR
        MOV  R2,A            
        JZ END0               
        ANL  A,#0FH           
        MOV  R5,A            
        MOV A,R2            
        SWAP A               
        ANL A,#0FH            
        JNZ SING            
        CLR TR0              
        JMP D1                
 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             
D1:    CALL DELAY             
       INC 30H               
       JMP NEXT               
END0:  CLR TR0               
       JMP L1                     
 L1: CALL KEY                 
       CLR EA                
       JB F0,L1              
       MOV A,22H            
       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
   L2: CALL KEY               
       SETB EA                
       JB F0,L1             
       JMP L2                
  KEY: SETB F0               
       MOV R3,#0F7H           
       MOV R1,#00H          
   L3: MOV A,R3             
       MOV P2,A              
       MOV A,P2      
       CLR C
       CPL C                 
       MOV R5,#04H        
   L4: RLC A               
       JNC KEYIN            
       INC R1                
       DJNZ R5,L4          
       MOV A,R3              
       CLR C
       CPL C                  
       RRC A                 
       MOV R3,A              
       JC L3                  
       RET
KEYIN: MOV 22H,R1           
       CLR F0               
       RET
TIM0:  PUSH ACC             
       PUSH PSW            
       MOV TL0,20H           
       MOV TH0,21H
       CPL P1.0              
       POP PSW              
       POP ACC                
       RETI
DELAY:MOV R7,#02
D2:   MOV R4,#187
D3:   MOV R3,#248
      DJNZ R3,$
      DJNZ R4,D3
      DJNZ R7,D2
      DJNZ R5,DELAY         
   RET
TABLE1:
DW  64260,64400,64524,64580
DW  64684,64777,64820,64898
DW  64968,65030,65058,65110
DW  65157,65178,65217
TABLE:
;1
		DB		42H,42H,42H,52H,64H,04H
		DB		62H,62H,62H,72H,84H,04H
		DB		92H,92H,82H,72H,64H,04H
		DB		82H,82H,52H,62H,44H,04H
		;2
		DB		42H,42H,42H,52H,64H,04H
		DB		62H,62H,62H,72H,84H,04H
		DB		92H,92H,82H,72H,64H,04H
		DB		82H,82H,52H,62H,44H,04H
		DB		00H
end