硬件AD0809转换及显示程序.doc

1. A/D转换及显示程序CODE SEGMENTASSUME CS:CODEADPORTEQU 0010h ；片选Y1=0010HORG 1000HSTART:JMP ADCONTORLADCONTORL:CALL FORMAT ；格式化子程序ADCON:MOV AX,00 ；AD0通道号送ALMOV DX,ADPORT ；AD控制口地址0010H送DXOUT DX,AL ；启动AD转换，即00H送0010HMOV CX,0500H ;软件延时100sDELAY:LOOP DELAYMOV DX,ADPORT ；0010H送DXIN AL,DX ；从0010H读取AD转换数据送ALCALL CONVERS ；调用拆字子程序，将AD转换数据拆成二进制的高4位和低4位CALL DISP ；调用7段数码显示子程序JMP ADCON ；转ADCON继续CONVERS:MOV AH,AL ；拆字子程序AND AL,0FHMOV BX,077AHMOV DS:BX,ALINC BXMOV AL,AHAND AL,0F0HMOV CL,04HSHR AL,CLMOV DS:BX,ALRETdisp: mov dx,077Fh 7段数码显示子程序 mov ah,20hdisp0: mov cx, 0ffh mov bx,dx mov bl,ds:bx mov bh,0h push dx mov dx,0ff22h ；DX指向字形控制 mov al,cs:bx+1060h OUT DX,AL mov dx,0ff21h mov al,ah OUT DX,ALdisp1: loop disp1 pop dx dec dx shr ah,01h jnz disp0 mov dx,0ff22h mov al,0ffh OUT DX,AL retdata1: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0ah db 86h,8eh,0ffh,0ch,89h,0deh,0c7h,8ch,0f3h,0bfh ；十六进制数字形代码表FORMAT: MOV BX,0 ；格式化子程序MOV WORD PTR DS:BX+077AH,0000HADD BX,2MOV WORD PTR DS:BX+077AH,0009HADD BX,2MOV WORD PTR DS:BX+077AH,0008HRETCODE ENDSEND START2. D/A转换0832应用程序ODE SEGMENTASSUME CS:CODEDAPORT EQU 0020H ；片选Y2=0020HORG 10a0hSTART:MOV AL,0FFH ；FFH送AL寄存器DACON1: MOV DX,DAPORT ；DX指向0020HOUT DX,AL ；将FFH送DX启动D/A转换，输出电压+5VMOV CX,0400H ；延时一段时间DACO2:LOOP DACO2NOT AL ；将AL求反=00HJMP DACON1CODE ENDSEND START3. 并口8255 应用交通灯控制CODE SEGMENTASSUME CS:CODEIOCONPT EQU 0FF2BH ；控制口IOAPTEQU 0FF28H ；数据口A口IOBPTEQU 0FF29H ；数据口B口IOCPTEQU 0FF2AH ；数据口C口ORG 10e0HSTART: MOV DX,IOCONPT ；DX指向控制口MOV AL,80H ；控制字送ALOUT DX,AL ；设置A、B、C口为输出工作方式MOV DX,IOBPT ；将B口置0FFH，点亮MOV AL,0FFH OUT DX,AL MOV DX,IOCPTMOV AL,0FH ;HOUT DX,ALCALL DELAY1IOLED0: MOV AL,01011010B ;13L 24HMOV DX,IOCPTOUT DX,ALCALL DELAY1CALL DELAY1MOV AL,00001010B ;13LNOUT DX,ALMOV CX,8HIOLED1: MOV DX,IOBPTMOV AL,50H OUT DX,ALCALL DELAY2MOV AL,00HOUT DX,ALCALL DELAY2LOOP IOLED1MOV DX,IOCPTMOV AL,10100101BOUT DX,AL CALL DELAY1CALL DELAY1MOV AL,00000101BOUT DX,ALMOV CX,8HIOLED2: MOV DX,IOBPTMOV AL,0A0H OUT DX,ALCALL DELAY2MOV AL,00HOUT DX,ALCALL DELAY2LOOP IOLED2MOV DX,IOCPTMOV AL,0FHOUT DX,ALCALL DELAY2JMP IOLED0DELAY1: PUSH AXPUSH CXMOV CX,0030HDE