静音琴的源码,有兴趣的拼音可以下载下来看看,这个是可以生产的程序.

;##############################################################
;********************************
;       串口显示A
;********************************
;       波特率=9600
;入口:  A     显示数
;--------------------------------
CK_A_XS:
        PUSH  PSW
        PUSH  IE
        CLR   EA
        PUSH  TMOD
        PUSH  PCON
        PUSH  SCON
        PUSH  TH1
        PUSH  TL1
        PUSH  IP
        PUSH  TCON
        LCALL SZBTL          ;设置波特率
        ;--------------
        CLR   TI
        MOV   SBUF,A
        JNB   TI,$
        CLR   TI
        ;--------------
        POP   TCON
        POP   IP
        POP   TL1
        POP   TH1
        POP   SCON
        POP   PCON
        POP   TMOD
        POP   IE
        POP   PSW
        RET
        include "软件陷阱.asm"
;********************************
;       串口显示RAM
;********************************
;       波特率=9600
;入口:  R0    RAM首址
;       A     显示个数
;--------------------------------
CK_RAM_XS:
        PUSH  PSW
        PUSH  IE
        CLR   EA
        PUSH  TMOD
        PUSH  PCON
        PUSH  SCON
        PUSH  TH1
        PUSH  TL1
        PUSH  IP
        PUSH  TCON
        LCALL SZBTL          ;设置波特率
        ;--------------
        XCH   A,R1
        PUSH  ACC
        CLR   TI
CK_RAM_XS1:
        MOV   A,@R0
        INC   R0
        MOV   SBUF,A
        JNB   TI,$
        CLR   TI
        DJNZ  R1,CK_RAM_XS1
        POP   ACC
        XCH   A,R1
        ;--------------
        POP   TCON
        POP   IP
        POP   TL1
        POP   TH1
        POP   SCON
        POP   PCON
        POP   TMOD
        POP   IE
        POP   PSW
        RET
        include "软件陷阱.asm"
;********************************
;       串口显示EXRAM
;********************************
;       波特率=9600
;入口:  DPTR   EXRAM首址
;       A      显示个数
;--------------------------------
CK_EXRAM_XS:
        PUSH  PSW
        PUSH  IE
        CLR   EA
        PUSH  TMOD
        PUSH  PCON
        PUSH  SCON
        PUSH  TH1
        PUSH  TL1
        PUSH  IP
        PUSH  TCON
        LCALL SZBTL          ;设置波特率
        ;--------------
        PUSH  AUXR
        XCH   A,R0
        PUSH  ACC
        ANL   AUXR,#11111101B;768EXRAM
        CLR   TI
CK_EXRAM_XS1:
        MOVX  A,@DPTR
        INC   DPTR
        MOV   SBUF,A
        JNB   TI,$
        CLR   TI
        DJNZ  R0,CK_EXRAM_XS1
        POP   ACC
        XCH   A,R0
        POP   AUXR
        ;--------------
        POP   TCON
        POP   IP
        POP   TL1
        POP   TH1
        POP   SCON
        POP   PCON
        POP   TMOD
        POP   IE
        POP   PSW
        RET
        include "软件陷阱.asm"
;********************************
;       串口显示ROM
;********************************
;       波特率=9600
;入口:  DPTR    ROM首址
;       A       显示个数
;--------------------------------
CK_ROM_XS:
        PUSH  PSW
        PUSH  IE
        CLR   EA
        PUSH  TMOD
        PUSH  PCON
        PUSH  SCON
        PUSH  TH1
        PUSH  TL1
        PUSH  IP
        PUSH  TCON
        LCALL SZBTL          ;设置波特率
        ;--------------
        XCH   A,R1           ;显示个数
        PUSH  ACC
CK_ROM_XS1:
        MOV   A,#0
        MOVC  A,@A+DPTR
        INC   DPTR
        MOV   SBUF,A
        JNB   TI,$
        CLR   TI
        DJNZ  R1,CK_ROM_XS1
        POP   ACC
        XCH   A,R1
        ;---------------
        POP   TCON
        POP   IP
        POP   TL1
        POP   TH1
        POP   SCON
        POP   PCON
        POP   TMOD
        POP   IE
        POP   PSW
        RET
        include "软件陷阱.asm"
;********************************
;       设置波特率          9600
;********************************
;出口:  A     显示数
;--------------------------------
SZBTL:
        MOV   TMOD,#20H      ;T1定时方式2,自动再装的8位定时器
        ANL   PCON,#01111111B;SMOD=0
        MOV   SCON,#40H      ;串口方式1: 8位UART,波特率受T1控制
        MOV   TH1,#0F6H      ;波特率=9600
        MOV   TL1,#0F6H      ;-2.34%
        SETB  PT1            ;PT1不低于PS
        CLR   PS             ;PS低于PT1
        CLR   ET1            ;禁止T1中断
        SETB  TR1            ;起动T1
        CLR   ET0            ;禁止T0中断
        CLR   TR0            ;不起动T0
        SETB  REN            ;允许接收
        CLR   ES             ;不允许串口中断
        RET
        include "软件陷阱.asm"
;##############################################################