多功能莫爾斯碼電路源程序：;程序開始
?? 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