多功能莫尔斯码电路源程序

多功能莫尔斯码电路源程序：;程序开始
   START: ORG 0000H
          AJMP SET
          ORG 000BH   
          AJMP AUDIO1
          ORG 001BH  
          AJMP POFF       
          ORG 0030H 
     SET: MOV TMOD,#00010010B
          MOV IE,#10001010B
          MOV IP,#00000010B
          MOV SP,#030H
          MOV R5,#00H
          MOV R4,#00H
          MOV A,28H
          CLR 60H
          CLR 61H
          CLR 50H
          CLR 51H
          CJNE A,#33H,SET0
          SJMP SET2
    SET0: CJNE A,#34H,SET1
          SJMP SET2
    SET1: MOV 20H,#06H
          MOV 21H,#6DH
          MOV 22H,#06H
          MOV 23H,#5DH
          CLR 7FH
    SET2: JB P3.7,SET3
          MOV 28H,#34H
          MOV DPTR,#TAB14
          ACALL READ
          SETB TR1
          SJMP MAIN
    SET3: MOV 28H,#33H
    SET4: SETB TR1
          MOV DPTR,#TAB7
          ACALL READ
 ;主程序
    MAIN: JNB P3.0,LOOP1
          JNB P3.1,LOOP2
          JNB P3.2,LOOP3
          JNB P3.3,LOOP4
          JNB P3.4,LOOP5
          MOV R1,#00H
   MAIN1: JNB P3.5,LOOP6
          JNB P3.7,LOOP7 
          JNB P1.3,LOOP8 
          JNB P1.4,LOOP9 
          JNB P1.5,LOOP10
          CJNE R5,#01H,MAIN2
          AJMP LOOP10
   MAIN2: CJNE R5,#02H,MAIN3
          AJMP LOOP6
   MAIN3: CJNE R5,#03H,MAIN4
          AJMP DRILL
   MAIN4: CJNE R5,#04H,MAIN5
          AJMP LOOP11
   MAIN5: SJMP MAIN
 ;
   LOOP1: AJMP SLOW    
   LOOP2: AJMP QUICK    
   LOOP3: AJMP DOWN    
   LOOP4: AJMP UP     
   LOOP5: AJMP PTT     
   LOOP6: AJMP AUTOCALL
   LOOP7: MOV A,28H
          CJNE A,#33H,LOOP71
          MOV R4,#05H
          AJMP DRILL
  LOOP71: CJNE A,#34H,MAIN
          MOV R4,#04H
          AJMP SHORT   
   LOOP8: AJMP DIAN    
   LOOP9: AJMP HUA     
  LOOP10: AJMP HAND    
  LOOP11: AJMP SHORT
 ;速度增加程序
   QUICK: MOV DPTR,#TAB1
          MOV A,20H
          CJNE A,#0FH,QUICK2
          MOV DPTR,#TAB11
          ACALL READ
          AJMP MAIN
  QUICK2: INC 20H
          ANL 20H,#0FH
          MOV A,20H
          MOVC A,@A+DPTR
          MOV 21H,A
  QUICK1: MOV DPTR,#TAB5
          ACALL READ
          AJMP MAIN
 ;速度减少程序
    SLOW: MOV DPTR,#TAB1
          MOV A,20H
          CJNE A,#00H,SLOW1
          MOV DPTR,#TAB11
          ACALL READ
          AJMP MAIN
   SLOW1: DEC 20H
          ANL 20H,#0FH
          MOV A,20H
          MOVC A,@A+DPTR
          MOV 21H,A
          SJMP QUICK1