匯編語言修改求助大佬

各位大佬，能否幫忙找出這個程式的錯誤
/*SB1 1音  SB2 2音   SB3 3音  SB4 4音 SB1SB2  5音   SB2SB3  6音   SB3SB4  7音   SB1SB4  i音   SB1SB3 第一首歌  SB2SB4  第二首歌 */
ORG 0000H
LJMP KEYP0
KEYP0: MOV R0,#00H   
      CLR TR0
      SETB P2.4     ;關蜂鳴器
     SETB P2.3    ;關數碼管
WU:  MOV R0,P3  ;掃描鍵盤輸入
    CJNE R0,#0FFH,KEYPO1  ;有輸入時跳轉
  JMP WU
KEYPO1:CJNE R0,#0FBH,KEYPO2  ;輸入1音,非1音跳轉
  SETB P2.4     ;蜂鳴器置于高電平
    MOV R3,#200
MAIN01:MOV TMOD,#01H    ;初始化,作業方式1
       MOV TL0,#21H     ;寫入計數初值
       MOV TH0,#0F9H
       SETB TR0         ;啟動計數
 
WAIT1:JNB TF0,WAIT1     
     CLR TF0          
     CPL P2.4             ;蜂鳴器響
  CLR P2.3             ;數碼管顯示1
  MOV A,#11111001B
 MOV P0,A
     DJNZ R3,MAIN01
  LJMP KEYP0         ;回傳程式KEYP0
  
KEYPO2:CJNE R0,#0F7H,KEYPO3  ; 輸入2音,非2音跳轉
SETB P2.4        ;蜂鳴器置于高電平
MOV R3,#200  
MAIN02:MOV TMOD,#01H    
       MOV TL0,#0E1H         ;寫入計數初值
       MOV TH0,#0F9H
       SETB TR0
WAIT2:JNB TF0,WAIT2
     CLR TF0
     CPL P2.4            ;蜂鳴器響
  CLR P2.3            ;數碼管顯示2
  MOV A,#10100100B 
 MOV P0,A
     DJNZ R3,MAIN02
LJMP KEYP0

KEYPO3:CJNE R0,#0EFH,KEYPO4  ; 輸入3音,非3音跳轉
SETB P2.4         ;蜂鳴器置于高電平
MOV R3,#200
MAIN03:MOV TMOD,#01H      
       MOV TL0,#08CH
       MOV TH0,#0FAH
       SETB TR0
WAIT3:JNB TF0,WAIT3
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#10110000B
 MOV P0,A
     DJNZ R3,MAIN03
LJMP KEYP0

KEYPO4:
CJNE R0,#0DFH,KEYPO5           ; 輸入4音,非4音跳轉
SETB P2.4
MOV R3,#200
MAIN04:MOV TMOD,#01H             
       MOV TL0,#0D8H
       MOV TH0,#0FAH
       SETB TR0
WAIT4:JNB TF0,WAIT4
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#10011001B
 MOV P0,A
     DJNZ R3,MAIN04
LJMP KEYP0

KEYPO5: CJNE R0,#0F3H,KEYPO6        ; 輸入5音,非5音跳轉
SETB P2.4
MOV R3,#200    
MAIN05:MOV TMOD,#01H           
       MOV TL0,#068H
       MOV TH0,#0FBH
       SETB TR0
WAIT5:JNB TF0,WAIT5
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#10010010B
 MOV P0,A
     DJNZ R3,MAIN05
LJMP KEYP0

KEYPO6:CJNE R0,#0E7H,KEYPO7        ; 輸入6音,非6音跳轉
SETB P2.4
MOV R3,#200             
MAIN06:MOV TMOD,#01H
       MOV TL0,#0E9H
       MOV TH0,#0FBH
       SETB TR0
WAIT6:JNB TF0,WAIT6
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#10000010B
 MOV P0,A
     DJNZ R3,MAIN06
LJMP KEYP0

KEYPO7:CJNE R0,#0CFH,KEYPO8       ; 輸入7音,非7音跳轉
SETB P2.4
MOV R3,#200          
MAIN07:MOV TMOD,#01H
       MOV TL0,#05BH
       MOV TH0,#0FCH
       SETB TR0
WAIT7:JNB TF0,WAIT7
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#11111000B
 MOV P0,A
     DJNZ R3,MAIN07
LJMP KEYP0

KEYPO8:CJNE R0,#0DBH,KEYPO9      ; 輸入i音,非i音跳轉
       SETB P2.4
   MOV R3,#200       
MAIN08:MOV TMOD,#01H
       MOV TL0,#08FH
       MOV TH0,#0FCH
       SETB TR0
WAIT8:JNB TF0,WAIT8
     CLR TF0
     CPL P2.4
  CLR P2.3
  MOV A,#10000000B
 MOV P0,A
     DJNZ R3,MAIN08
LJMP KEYP0
KEYPO9:CJNE R0,#0EBH,KEYPO10    ;跳轉到第一首歌程式
       LJMP MUSTART1
KEYPO10:CJNE R0,#0D7H,JIELI     ;跳轉到第二首歌程式
       LJMP MUSTART2
JIELI:JMP KEYP0                 ;回傳主程式

MUSTART1:                      ;歌曲1的播放程式
     MOV R0,#00H               ;節拍表指標置零
     MOV R1,#00H               ;音符表指標置零
RTAB:MOV A,R0
     MOV DPTR,#RYTH
     MOVC A,@A+DPTR            ;查表法將一個節拍資料取出放R2計數器中
     MOV R2,A
TTAB:MOV A,R1
     MOV DPTR,#TONE 
     MOVC A,@A+DPTR
     MOV R3,A                  ;取出音符表高8位
     INC R1                    ;指標加1
     MOV A,R1
     MOV DPTR,#TONE
     MOVC A,@A+DPTR
     MOV R4,A                  ;取出低8位
     SETB P2.4                 ;輸出相應音調的方波
LOOP:MOV R5,#3BH
MAIN:MOV TMOD,#01H
     MOV TL0,R4
     MOV TH0,R3
     SETB TR0
WAIT:JNB TF0,WAIT
     CLR TF0
     CPL P2.4
MAYA:JB P3.2,MAYB             ;判斷P3.2口是否有為1
     JB P3.4,MAYB             ;判斷P3.4口是否有為1
     LJMP RA                  ;P3.4口為0則跳轉到程式RA
MAYB:JB P3.3,JIELI            ;判斷P3.3口是否有為1
     JB P3.5,JIELI            ;判斷P3.5口是否有為1
     LJMP MUSTART2            ;P3.5口為0則放第二首歌
RA:  DJNZ R5,MAIN             ;無打斷則繼續放第一首歌
     DJNZ R2,LOOP
INC R0                        ;兩個表的指標都加1
INC R1
CJNE R1,#88,RTAB              ;判斷是否取完
LJMP KEYP0
TONE:
DB 0FBH,68H,0FDH,6EH,0FDH,45H,0FCH,0EFH,0FCH,8FH,0FCH,8FH,0FCH,8FH,0FCH,5BH,0FCH,8FH
DB 0FCH,0EFH,0FDH,45H,0FBH,68H,0FBH,68H,0FCH,8FH,0FCH,5BH,0FBH,0E9H,0FBH,68H,0FBH,68H
DB 0FAH,0DBH,0FAH,8CH,0F9H,21H,0FAH,8CH,0FAH,0D8H,0FBH,68H,0FBH,68H,0FBH,68H,0FBH,68H
DB 0FBH,0E9H,0FBH,0E9H,0FBH,68H,0FBH,0E9H,0FCH,5BH,0FAH,8CH,0FCH,8FH,0FCH,8FH,0FCH,5BH
DB 0FCH,8FH,0FCH,0EFH,0FCH,0EFH,0FCH,0EFH,0FCH,8FH,0FDH,45H,0FDH,6EH,0FCH,0EFH
RYTH:
DB 04,04,04,04,04,04,04,04,04,04
DB 04,05,04,04,04,04,04,04,04,04
DB 04,04,04,06,04,04,04,07,04,04
DB 04,04,04,06,04,04,04,07,04,04
DB 04,04,04,04
MUSTART2: 
     MOV R0,#00H
     MOV R1,#00H

RTAB2:
     MOV A,R1
     MOV DPTR,#TABLE1
     MOVC A,@A+DPTR
     MOV R2,A
TTAB2: MOV A,R1
     MOV DPTR,#TONE2
     MOVC A,@A+DPTR
     MOV R3,A
     INC R1
  MOV A,R1
  MOV DPTR,#TONE2
  MOVC A,@A+DPTR
  MOV R4,A
     SETB P2.4
LOOP2: MOV R5,#9BH
MAIN2:
      MOV TMOD,#01H
     MOV TL0,R4
     MOV TH0,R3
     SETB TR0
WAITR:JNB TF0,WAITR
     CLR TF0
     CPL P2.4
MAYA1:JB P3.3,MAYB1
      JB P3.5,MAYB1
      LJMP RB
MAYB1:JB P3.2,BACK
      JB P3.4,BACK
      LJMP MUSTART1
BACK:LJMP JIELI
RB:  DJNZ R5,MAIN2
     DJNZ R2,LOOP2
    
INC R0
INC R1
CJNE R1,#64,RTAB2
LJMP KEYP0
TONE2:
DB 0FBH,68H,0FDH,6EH,0FDH,45H,0FCH,0EFH,0FCH,8FH,0FCH,8FH,0FCH,8FH,0FCH,5BH,0FCH,8FH
DB 0FCH,0EFH,0FDH,45H,0FBH,68H,0FBH,68H,0FCH,8FH,0FCH,5BH,0FBH,0E9H,0FBH,68H,0FBH,68H
DB 0FAH,0DBH,0FAH,8CH,0F9H,21H,0FAH,8CH,0FAH,0D8H,0FBH,68H,0FBH,68H,0FBH,68H,0FBH,68H
DB 0FBH,0E9H,0FBH,0E9H,0FBH,68H,0FBH,0E9H,0FCH,5BH,0FAH,8CH,0FCH,8FH,0FCH,8FH,0FCH,5BH
DB 0FCH,8FH,0FCH,0EFH,0FCH,0EFH,0FCH,0EFH,0FCH,8FH,0FDH,45H,0FDH,6EH,0FCH,0EFH
TABLE1:
DB 04,04,04,04,04,04,04,04,04,04
DB 04,05,04,04,04,04,04,04,04,04
DB 04,04,04,06,04,04,04,07,04,04
DB 04,04,04,06,04,04,04,07,04,04
DB 04,04,04,04 
 
END

轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/34952.html

標籤：匯編語言

上一篇：用串列查字典

下一篇：axaj呼叫py腳本，使用print 輸出到瀏覽器 延遲