ex8-8.sdi

《单片机原理实用教程——基于Proteus虚拟仿真》一书的配套光盘

,,,        ORG    0000H       ;主程序入口
0000,01 02,,        AJMP   MAIN
0002,78 30,MAIN,MAIN:   MOV    R0,#30H     ;数据区首地址
0004,7C 08,,        MOV    R4,#08H     ;八路模拟信号
0006,79 00,,        MOV    R1,#00H     ;模拟通道0
0008,75 A0 7F,,        MOV    P2,#7FH     ;ADC0809片选端口地址
000B,74 00,,        MOV    A,#00H
000D,F3,,        MOVX   @R1,A       ;启动ADC0809
000E,E5 30,LOOP,LOOP:   MOV    A,30H       ;A/D转换结果送P1口
0010,F5 90,,        MOV    P1,A
0012,30 B3 03,,        JNB    P3.3, LP    ;查询EOC状态
0015,12 00 1A,,        LCALL  RDAD        ;转换完成，调读取A/D转换结果子程序
0018,80 F4,LP,        LP:    SJMP  LOOP  ;循环等待
,,,
001A,E3,RDAD,RDAD:   MOVX   A,@R1      ;读取转换结果子程序
001B,F6,,        MOV    @R0,A      ;存入内存
001C,08,,        INC    R0         ;数据区地址加1
001D,09,,        INC    R1         ;修改模拟输入通道
001E,F3,,        MOVX   @R1,A      ;启动下一路模拟通道进行转换
001F,DC 09,,        DJNZ   R4,LOOP1   ;八路未完,循环
0021,78 30,,        MOV    R0,#30H    ;八路输入转换完毕
0023,7C 08,,        MOV    R4,#08H    ;
0025,79 00,,        MOV    R1,#00H    ;
0027,74 00,,        MOV    A,#00H
0029,F3,,        MOVX   @R1,A      ;重新启动ADC0809
002A,22,LOOP1,LOOP1:  RET               ;返回
000E,,,        END