微机原理实验考试代码.docx

1用74LS273设计1个七段显示器的接口。在该七段显示器上循环显示：0、1、2、3（3FH,06H,5BH,4FH）。2用74LS244设计一个输入接口。从输入端口读入开关状态（高表示1，低表示0），以十进制形式在CRT显示器上显示输入结果（0255）。如：输入开关状态：高高高高低低低低CRT显示：2403用DAC0832设计一个D/A接口(单缓冲方式) 产生三角波, 端口地址仅为B883H。4用8255设计一个输入输出接口，C口输入开关表示的原码数，转换为补码后从B口输出到发光二极管上显示（高和亮表示1，低和灭表示0）。如：输入开关状态：低高高低低高低高发光二极管: 灭亮亮灭灭亮灭亮输入开关状态：高低低低低高低高发光二极管: 亮亮亮亮亮灭亮亮5用8255设计一个七段显示器接口，C端口输出,端口地址仅为B810HB813，在该七段显示器上循环显示6、7、8、9（7DH,07H,7FH,6FH）6用AD0809设计一个A/D接口，从IN4输入直流电压值05V，在CRT显示器上以00FFH的形式显示采样结果。如：输入5VCRT显示：FFH( 允许有误差)如：输入0V CRT显示：00H7用74LS273设计1个七段显示器的接口。在该七段显示器上循环显示：4、5、6、7（66H,6DH,7DH,07H）。8用DAC0832设计一个D/A接口(单缓冲方式) 产生锯齿波, 端口地址仅为B803H。9用74LS273设计1个七段显示器的接口。从键盘输入1个字符(A-D)，在七段显示器上闪亮显示该字符。设显示字型为：A、b、C、d（77H,7CH,39H,5EH）。10用AD0809设计一个A/D接口，从IN1输入直流电压值05V，在CRT显示器上以十进制形式显示采样结果。如：输入5VCRT显示：255( 允许有误差)如：输入0V CRT显示：0 OUT DX,AL mov ax,0fffhlop: loop $ dec ax jnz lop MOV AH,11 INT 21H CMP AL,0 JNE EXIT INC BX CMP BX,4 JE AGINE JMP AGNEXIT: RETbegin endpcode ends end begin2、stack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 3 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d800h in al,dx mov bx,offset obuf+2 mov ch,10 1、stack segment stack stack dw 32 dup(0)stack endsdata segmentsegpt DB 3fh,06h,5bh,4fhdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,axAGINE: MOV BX,0AGN: MOV AL,segptBX MOV DX,0d800Hag: mov ah,0 div ch add ah,30h mov bx,ah dec bx or al,al jnz ag inc bx mov dx,bx mov ah,9 int 21h retbegin endpcode endsend begin CMP AL,0FFH JNE NEXTNEXT1:OUT DX,AL DEC AL CMP AL,0 JNE NEXT1 PUSH AX MOV AH,11 INT 21H CMP AL,0 POP AX JZ NEXT retbegin endpcode ends end begin3、stack segment stack stack dw 32 dup (?)stack endsdata segmentdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV DX,0D883HNEXT: OUT DX,AL INC ALMOV DX,0D862H IN AL,DX TEST AL,80H JZ NEXT AND AL,7FH NEG ALNEXT: MOV DX,0D861H not al OUT DX,AL RETbegin endpcode ends end begin4、stack segment stack stack dw 32 dup(?)stack endsdata segmentdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV DX,0D863H MOV AL,89H OUT DX,AL MOV DX,0D812H OUT DX,AL MOV AX,50000WT2: MOV DX,50000WT1: DEC DX JNZ WT1 DEC AX JNZ WT2 MOV AH,11 INT 21H CMP AL,0 JNE EXIT INC BX CMP BX,4 JE AGINE JMP AGNEXIT: RETbegin endpcode ends end begin6、stack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 0,0,0,H,$cnt db 2data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d804h out dx,al call delay in al,dx mov bx,2 mov ch,10hag: mov ah,0 div ch add ah,30h5、stack segment stack stack dw 32 dup(0)stack endsdata segmentsegpt DB 7DH,07H,7FH,67Hdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV DX,0D813H MOV AL,80H OUT DX,ALAGINE: MOV BX,0AGN: MOV AL,segptBXcmp ah,3ah jb lop1 add ah,7lop1: mov obufbx,ah dec bx or bx,bx jnz ag inc bx mov dx,bx mov ah,9 int 21h retbegin endpdelay proc push bx push cx mov bx,100next: loop next dec bx jnz next pop cx pop bx retdelay endpcode endsend begin MOV DX,0D803HUP: OUT DX,AL INC AL PUSH AX MOV AH,11 INT 21H CMP AL,0 POP AX JZ UP retbegin endpcode ends end begin MOV DX,0d800H OUT DX,ALmov ax,0fffhlop: loop $ dec ax jnz lop MOV AH,11 INT 21H CMP AL,0 JNE EXIT INC BX CMP BX,4 JE AGINE JMP AGNEXIT: RETbegin endpcode ends end begin8、stack segment stack stack dw 32 dup (?)stack endsdata segmentdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax7、stack segment stack stack dw 32 dup(0)stack endsdata segmentsegpt DB 66h,6dh,7dh,07hdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,axAGINE: MOV BX,0AGN: MOV AL,segptBX add ah,30h mov bx,ah dec bx or al,al jnz lop1 inc bx mov dx,bx mov ah,9 int 21h retbegin endpdelay proc push bx push cx mov bx,100next: loop next dec bx jnz next pop cx pop bx retdelay endpcode endsend begin10、stack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 3 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d801h out dx,al call delay in al,dx mov bx,offset obuf+2 mov ch,10lop1: mov ah,0 div ch mov al,0out dx,al call delay push ax mov ah,0bh int 21h cmp al,0 pop ax jz ag retbegin endpdelay proc push bx push cx mov bx,0FFFHnext: loop next dec bx jnz next pop cx pop bx retdelay endpcode endsend begin9、stack segment stack stack dw 32 dup(?)stack endsdata segmentsegpt db 77H,7CH,39H,5EHdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov ah,1 int 21h sub al,41h mov bl,al mov bh,0 mov dx,0d800hag: mov al,segptbx out dx,al call delay mov ds,ax mov dx,0d801h in al,dx test al,80h jz next and al,7fh neg alnext: NOT AL mov dx,0d802h out dx,al retbegin endpcode endsend begin P89（2）I/Ostack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 3 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ch,10ag: mov ah,0 div ch add ah,30h mov bx,ah dec bx or al,al jnz ag inc bx mov dx,bx mov ah,9 int 21h retbegin endpcode endsend beginP89（1）I/Ostack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 3 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d801h in al,dx mov bx,offset obuf+2ag: mov dx,0 div cx add dl,30h mov bx,dl dec bx or ax,ax jnz ag inc bx mov dx,bx mov ah,9 int 21h retbegin endpdelay proc push bx push cx mov bx,100next: loop next dec bx jnz next pop cx pop bx retdelay endpcode endsend beginP126（1） ADCstack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 4 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d800h out dx,al call delay in al,dx mov bx,offset obuf+3 mov ah,0 mov cx,5000 mul cx mov cx,100h div cx mov cx,10 jb lop1 add ah,7lop1: mov bx,ah dec bx or al,al jnz ag inc bx mov dx,bx mov ah,9 int 21h retbegin endpdelay proc push bx push cx mov bx,100next: loop next dec bx jnz next pop cx pop bx retdelay endpcode endsend beginP126（2）ADCstack segment stack stack dw 32 dup(?)stack endsdata segmentobuf db 2 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,0d801h out dx,al call delay in al,dx mov bx,offset obuf+1 mov ch,10hag: mov ah,0 div ch add ah,30h cmp ah,3ah call change test al,80h jz next neg alnext: not al mov dx,0d800h out dx,al retbegin endpchange proc mov al,0agn: mov ah,10h mul ah cmp byte ptrsi,3ah jb lop sub byte ptrsi,7lop: and byte ptrsi,0fh add al,si inc si loop agn retchange endpcode endsend beginP155（1）8255stack segment stack stack dw 32 dup(?)stack endsdata segmentibuf db 3,0,3 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov al,80h mov dx,0d803h out dx,al mov dx,offset ibuf mov ah,10 int 21h mov si,offset ibuf+2 mov cl,ibuf+1 mov ch,0ADD AL,30H MOV BX,AL pop ax SHR AX,1 DEC BX LOOP AGN INC BX MOV DX,BX MOV AH,9 INT 21H retbegin endpdelay proc push bx push cx mov bx,100next: loop next dec bx jnz next pop cx pop bx retdelay endpcode ends end beginP126（3）ADCstack segment stack stack dw 32 dup (?)stack endsdata segmentOBUF DB 8 DUP (?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV BX,OFFSET OBUF+7 MOV DX,0D800H OUT DX,AL CALL DELAY IN AL,DX MOV CX,8AGN: push ax MOV AH,0 AND AL,01H add bx,7 MOV CX,8AGN: push ax MOV AH,0 AND AL,01H ADD AL,30H MOV BX,AL pop ax SHR AX,1 DEC BX LOOP AGN INC BX MOV DX,BX MOV AH,9 INT 21H retbegin endpcode endsend beginP155（2）8255stack segment stack stack dw 32 dup(?)stack endsdata segmentibuf db 8 dup(?),B,$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov al,82h mov dx,0d803h out dx,al mov dx,0d801h in al,dx mov bx,offset ibuf OUT DX,AL MOV DX,0D802H IN AL,DX TEST AL,80H JZ NEXT AND AL,7FH NEG ALNEXT: NOT AL MOV DX,0D801H OUT DX,AL RETbegin endpcode ends end beginP155（3）8255stack segment stack stack dw 32 dup(?)stack endsdata segmentdata endscode segmentbegin proc farassume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV DX,0D803H MOV AL,89Hmov ch,0 mov si,offset ibuf+2 call change mov dx,0d803h not al out dx,al retbegin endpchange proc mov al,0agn: mov ah,10 mul ah and byte ptrsi,0fh add al,si inc si loop agn retchange endpcode endsend beginP174（1）LEDstack segment stack stack dw 32 dup(?)stack endsdata segmentibuf db 4,0,4 dup(?),$data endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov dx,offset ibuf mov ah,10 int 21h mov cl,ibuf+1 AGN: MOV AL,segptBX MOV DX,0d801H OUT DX,AL MOV AX,50000WT2: MOV DX,50000WT1: DEC DX JNZ WT1 DEC AX JNZ WT2 MOV AH,11 INT 21H CMP AL,0 JNE EXIT INC BX CMP BX,16 JE AGINE JMP AGNEXIT: RETbegin endpcode ends end beginP155（4）8255stack segment stack stack dw 32 dup(0)stack endsdata segmentsegpt DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,67H,77H,7CH,39H,5EH,79H,71Hdata endscode segmentbegin proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax push ax mov ax,data mov ds,ax MOV DX,0d803H MOV AL,80H OUT DX,ALAGINE: MOV BX,0OUT DX,AL MOV AX,50000WT2: MOV DX,50000W