Это продолжение текста программы для C51F120:
Если что, то он лежит в архиве ...
Код:
        MOV DPTR,#NoiTab

        PnDec Ch_NC,R_AY07
        SWAP A
        MOV B,A
        ANL B,#00001111B


        MOV DPTR,#EnvTab
        INC DPH

        MOV A,R_AY13
        SWAP A
        ANL A,#11110000B
        ADD A,DPL
        MOV DPL,A
        CLR A
        ADDC A,DPH
        MOV DPH,A

        PzDec Ch_EC,R_AY11
        MOV R0,A

        MOV DPTR,#VolTab

        PxDec Ch_AC,R_AY00,R_AY08,R_AY07.0
        MOV R1,A

        PxDec Ch_BC,R_AY02,R_AY09,R_AY07.1
        MOV R2,A
        ADD A,R1
        MOV R1,A
        MOV SFRPAGE,#01H
        MOV DAC1L,#0
        MOV DAC1H,A
        MOV SFRPAGE,#00H

        PxDec Ch_CC,R_AY04,R_AY10,R_AY07.2
        ADD A,R2
        MOV DAC0L,#0
        MOV DAC0H,A


        POP B
        POP R2
        POP R1
        POP R0
        POP DPTR
        POP PSW
        POP ACC
        POP SFRPAGE

        CLR P1.6

        RETI

EnvTab  DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;00
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;01
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;02
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;03

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;04
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;05
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;06
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;09
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;10
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;13
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;14
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;15





        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;00
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;01
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;02
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;03

        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;04
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;05
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;06
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;09
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;10
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;13
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;14
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;15


        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;00
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;01
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;02
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;03

        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;04
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;05
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;06
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;09
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;10
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;13
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;14
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;15
... Продолжение следует ...