西南交大微机实验代码.doc

实验2
开关实验:
io8255a equ 288h
io8255c equ 28ah
io8255z equ 28bh
code segment
assume cs:code
start:
mov dx,io8255z
　　mov al,8bh
　　out dx,al
inout:
　　mov dx,io8255c
　　in al,dx
　　mov dx,io8255a
　　out dx,al
　　mov dl,0ffh
　　mov ah,06h
　　int 21h
　　jz inout
　　mov ah,4ch
　　int 21h
code ends
end start

交通灯控制实验：
data segment
io8255c equ 28Ah
io8255z equ 28Bh
portc1 db 21h
db 81h,01h,81h,01h,81h,01h,81h,01h,81h,01h,81h,01h
db 44h
db 42h,40h,42h,40h,42h,40h,42h,40h,42h,40h,42h,40h
db 0ffh
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
mov dx,io8255z
mov al,90h
out dx,al
mov dx,io8255c
re_on:
mov bx,0;
on:
mov al,portc1[bx]
cmp al,0ffh
jz re_on
out dx,al
inc bx
　　mov cx,200
　　test al,24h
　　jz de1
　　mov cx,10000
de1: mov di,9000
de0:
dec di
jnz de0
loop de1
push dx
mov ah,06h
　　mov dl,0ffh
　　int 21h
　　pop dx
　　jz on
exit:mov ah,4ch
int 21h
code ends
end start
七段数码管静态显示实验:
io8255a equ 288h
io8255z equ 28bh
data segment
led db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh
mesg1 db 0dh,0ah,’Input a num(0-9),other key is exit’,0dh,0ah,’$’
data ends
code segment
　　assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
mov dx,io8255z
mov ax,80h
　　out dx,al
sss:
mov dx,offset mesg1
mov ah,09h
int 21h
mov ah,01
int 21h
cmp al,’0’
jl exit

cmp al,’9’
jg exit
sub al,30h
mov bx,offset led
　　xlat
　　mov dx,io8255a
　　out dx,al
　　jmp sss
exit:
mov ah,4ch
int 21h
code ends
end start

数码管循环显示00—99
data segment

io8255a equ 288h
io8255b equ 289h
io8255c equ 28ah
io8255z equ 28bh
led db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh
buffer1 db 0,0
bz dw 01,00
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
mov dx,io8255b ;将8255设为A口输出
mov al,80h
out dx,al
mov di,offset buffer1 ;设di为显示缓冲区
loop1: mov cx,0300h;循环次数
loop2: mov bh,02
lll: mov byte ptr bz,bh
push di
dec di
add di,bz
mov bl,[di] ;bl为要显示的数
pop di
mov bh,0
mov si,offset led;置led数码管偏移地址为SI
add si,bx;求出对应的led码
mov al,byte ptr[si]
mov dx,io8255c;自8255A的口输出
out dx,al
mov al,byte ptr bz ;使相应的数码管亮
mov dx,io8255a
out dx,al
push cx
mov cx,3000 ;若显示过快，可更改cx值最大为0ffffh
delay: loop delay ;延时
pop cx
mov bh,byte ptr bz
shr bh,1
jnz lll
loop loop2 ;循环延时
mov ax,word ptr[di]

mov ah,01
int 16h
jne exit ;有键按下转exit
mov ax,word ptr[di]
inc al
aaa
mov [di],al;al中为十位
mov [di+1],ah;ah中为个位
jmp loop1
exit: mov dx,io8255a
mov al,0;关掉数码管显示
out dx,al
mov ah,4ch;返回DOS
int 21h
code ends
end start

键盘接口实验(行扫描法)
data segment
io8255a equ 288h
io8255c equ 28ah
io8255z equ 28bh
key db 37h,38h,39h,41h,54h,52h
db 34h,35h,36h,42h,53h,4dh
db 31h,32h,33h,43h,48h,4ch
db 30h,46h,45h,44h,58h,4eh
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
lp0:
mov dx,io8255z
mov al,90h
out dx,al
mov di,0
mov si,0

mov al,0
mov dx,io8255c
out dx,al
mov dx,io8255a
in al,dx
and al,00111111b
cmp al,00111111b
jz lp0
call delay

mov al,0
mov dx,io8255c
out dx,al
mov dx,io8255a
in al,dx
and al,00111111b
cmp al,00111111b
jz lp0
call delay

ABC: mov al,0
mov dx,io8255c
out dx,al
mov dx,io8255a
in al,dx
and al,00111111b
cmp al,00111111b
jz ABC
call delay

mov ah,11111110b;仅使A0输出0
mov cx,4;共四条行线

BCA: mov al,ah
mov dx,io8255c
out dx,al;输出行值
mov dx,io8255a
in al,dx;读入列值
and al,00111111b;保留低4位有效值
cmp al,00111111b;判断A0行是否有键按下
mov bl,al;有键按下，确定该键的值
rol ah;本行无键按下则继续查找下一行，循环左移（使下一行输出0）

loop BCA
jmp ABC

realy: mov dx,io8255c
in al,dx
nop
nop
nop
and al,0fh
cmp al,0fh
jnz realy
mov cx,4
mov al,bl
lp1: shr al,1
jnc lp2
inc di
loop lp1
lp2:
mov cx,6
　　 mov al,ah
lp20:
shr al,1
jnc lp3
inc si
loop lp20
lp3:
mov bx,di
mov al,6
mul bl
add ax,si
disp:
mov bx,offset key
xlat
mov dh,0
mov dl,al
mov ah,2
int 21h
jmp lp0
exit:
mov ah,4ch
int 21h
delay proc near
push cx
mov cx,20h
l1: loop l1
pop cx
ret
delay endp
code ends
end start
实验3
3.1 脉冲个数记录实验
timer_ctl equ 283h
timer0 equ 280h
io8255z equ 28bh
io8255c equ 28ah
code segment
assume cs:code
start:
mov dx,io8255z
mov al,80h
out dx,al
mov al,00010000b
mov dx,timer_ctl
out dx,al
mov dx,timer0
mov al,9
out dx,al
display:
mov al,00000000b
mov dx,timer_ctl
out dx,al
mov dx,timer0
in al,dx
mov blal
mov al,9
sub al,bl
mov dx,io8255c
out dx,al
mov ah,06h
mov dl,0ffh
int 21h
jz display
mov ah,4ch
int 21h
code ends
end start

3.2 可编程时钟发生器实验
timer_ctl equ 283h
timer0 equ 280h
timer1 equ 281h
mode03 equ 36h

mode12 equ 76h

code segment
assume cs:code
start:
mov dx,timer_ctl
mov al,mode03
out dx,al
mov dx,timer0
mov ax,500
out dx,al
mov al,ah
out dx,al
mov dx,timer_ctl
mov al,mode12
out dx,al
mov dx,timer1
mov ax,500
out dx,al
mov al,ah
out dx,al
mov ah,4ch
int 21h
code ends
end start

3.3 继电器实验
timer0 equ 280h
timer1 equ 281h
timerctl equ 283h
io8255a equ 288h
io8255z equ 28bh
code segment
assume cs:code
start:
mov dx,io8255z
mov al,90h
out dx,al
ll1:
mov al,0
out dx,al
call delay
mov al,1
out dx,al
call delay
jmp ll1

delay proc near
push dx
mov dx,timerctl
mov al,36h
out dx,al
mov dx,timer0
mov ax,1000
out dx,al
mov al,ah
out dx,al
mov dx,timerctl
mov al,70h
out dx,al
mov dx,timer1
mov ax,500
out dx,al
mov al,ah
out dx,al

ll2:
mov ah,06
mov dl,0ffh
int 21h
jne exit
mov dx,io8255a
in al,dx
and al,01
jz ll2
pop dx
ret

exit:
mov ah,4ch
int 21h
delay endp
code ends
end start

3.4 电子琴
data segment
io8255a equ 288h
io8255z equ 28bh
timer0 equ 280h
timerctl equ 283h
table dw 524,588,660,784,880,988,1048 ;高音的
;table dw 262,294,330,347,392,440,524 ;低音的
msg db 'Press 1,2,3,4,5,6,7,8,ESC:',0dh,0ah,'$'
data ends

code segment
assume cs:code, ds:data
start:
mov ax,data
mov ds,ax

mov dx,offset msg
mov ah,9
int 21h
sing:
mov ah,7
int 21h
cmp al,1bh
je finish
cmp al,'1'
jl sing
cmp al,'8'
jg sing

sub al,32h
shl al,1
mov bl,al
mov bh,0
mov ax,4240H
mov dx,0FH
div word ptr[table+bx]
mov bx,ax

mov dx,timerctl
mov al,00110110B
out dx,al
mov dx,timer0
mov ax,bx
out dx,al
mov al,ah
out dx,al
mov dx,io8255z
mov al,10000000B
out dx,al
mov dx,io8255a
mov al,03h
out dx,al
call delay
mov al,0h
out dx,al
jmp sing
finish:
mov ax,4c00h
int 21h
delay proc near
push cx
push ax
mov ax,15
x1: mov cx,0ffffh
x2: dec cx
jnz x2
dec ax
jnz x1
pop ax
pop cx
ret
delay endp
code ends
end start
3.5 演奏乐曲实验
data segment
io8255a equ 288h
io8255z equ 28bh
timer0 equ 280h
timerctl equ 283h
;table dw 524,588,660,698,784,880,998,1048
table dw 262,294,330,347,392,440,494,524

;music_dataxxx db 1,1,5,5,6,6,5,4,4,3,3,2,2,1,5,5,4,4,3,3,2,5,5,4,4,3,3,2,1,1,5,5,6,6,5,4,4,3,3,,2,2,1
music_datalzlh db 1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,4,3,1,5,6,5,4,3,1,2,5,1,2,5,1
mus_t1 db 50,50,50,100,50,50,50,100,50,50,25,50,50,25,15,15,15,15,50,25,15,15,15,15,50,25,50,75,50,50,70,50

;mus_t db 50,50,50,50,50,50,50,100,50,50,50,50,50,50,50,100,50,50,50,50,50,50,50,100,50,50,50,50,50,50,50,100,50,50,50,50,50,50,50,100,50,50,50,50,50,50,50,100

msg db 'xiao xing xing:',0dh,0ah,'$'
data ends

code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax

mov dx,offset msg
mov ah,9
int 21h ;tishi

mov bx,0
push bx

sing:
pop bx
; mov si,offset music_dataxxx
mov si,offset music_datalzlh
add si,bx
push bx
mov al,byte ptr[si] ; que pu zhi

;cmp al,'1'
;jl sing
;cmp al,'8'
;jg sing

;sub al,31h
shl al,1
mov bl,al
mov bh,0
mov ax,4240h
mov dx,0fh
div word ptr[table+bx]
mov bx,ax

mov dx,timerctl
mov al,00110110B
out dx,al

mov dx,timer0
mov ax,bx
out dx,al

mov al,ah
out dx,al

mov dx,io8255z ;she zhi 8255
mov al,10000000B
out dx,al

mov dx,io8255a
mov al,03h
out dx,al
lea si,mus_t1
;lea si,mus_t ;diao yon shi jian biao
mov bx,[si]
call MUS_D
;out dx,al
call delay
mov al,0h
out dx,al ;guan yang sheng qi

pop bx

cmp bx,42
je hehe
add bx,1
push bx
jmp sing

hehe:
mov bx,0
push bx
jmp sing

finish:
mov ax,4c00h
int 21h

MUS_D proc
Leng:
mov cx,2081
delay1: Loop delay1
dec bx
jnz Leng
ret
MUS_D endp

delay proc near
push cx
push ax
mov ax,15
x1:mov cx,0ffffh
x2:dec cx
jnz x2
dec ax
jnz x1
pop ax
pop cx
ret
delay endp
code ends
end start

实验4
int00 equ 288h
int01 equ 289h
io8255c equ 282h
io8255z equ 283h
N equ 7
code segment
assume cs:code
start:
call I8255
cli
mov bx,0
call WRITE0B
call I8259
mov cl,0
sti
l1:
cmp cl,N
jnz l1
mov ah,4ch
int 21h
INT_SERVICE PROC
push dx
; mov dx,io8255c
;mov al,0FFH
;out dx,al
inc bx
mov al,bl
mov ah,bh
mov dx,io8255c
out dx,ax
NOP
NOP
NOP
mov al,20h
out 20h,al
NOP
pop dx
iret
NT_SERVICE ENDP
WRITE0B PROC
mov ax,code
mov ds,ax

mov dx,offset INT_SERVICE
mov ax,250bh
int 21h
ret
WRITE0B ENDP
I8255 PROC
mov al,80h
mov dx,io8255z
out dx,al
ret
I8255 ENDP
I8259 PROC
mov al,00010011b
mov dx,int00
out dx,al
mov al,8
mov dx,int01
out dx,al
mov al,00000001b
out dx,al
mov al,0
out dx,al
in al,21h
and al,0f7h
out 21h,al
ret
I8259 ENDP
code ends
end start

实验5
锯齿波：
io0832a equ 290h
code segment
assume cs:code
start:
mov cl,0
mov dx,io0832a
ll1:
mov al,cl
out dx,al
add cl,1
push dx
mov ah,06h ;判断是否有键按下
mov dl,0ffh
int 21h

pop dx
jz ll1
mov ah,4ch
int 21h
code ends
end start

正弦波：
data segment
io0832a equ 290h
sin db 80h,96h,0aeh,0c5h,0d8h,0e9h,0f5h,0fdh
db 0ffh,0fdh,0f5h,0e9h,0d8h,0c5h,0aeh,96h
db 80h,66h,4eh,38h,25h,15h,09h,04h
db 00h,04h,09h,15h,25h,38h,4eh,66h
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax

l1:
mov si,offset sin
mov bh,32

ll1:
mov al,[si]
mov dx,io0832a
out dx,al

mov ah,06h ;判断是否有键按下
mov dl,0ffh
int 21h
jne exit
mov cl,1

delay: loop delay
inc si
dec bh
jnz ll1
jmp l1
exit:
mov ah,4ch
int 21h
code ends
end start
直流电机转速控制：
data segment
io8032a equ 290h
io8255c equ 282h
io8255z equ 283h
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax

mov al,85h ;8255初始化
mov dx,io8255z
out dx,al

lp1: mov dx,io8255c ;开关值赋给cx作为循环次数
in al,dx
mov ah,0
mov cx,ax

lp2: mov al,0ffh
mov dx,io8032a
out dx,al
mov ah,06h ;判断是否有键按下
mov dl,0ffh
int 21h
jne exit
loop lp2
lp3: mov cx,32
lp4: mov al,80h
mov dx,io8032a
out dx,al
mov ah,06h ;判断是否有键按下
mov dl,0ffh
int 21h
jne exit
loop lp4
jmp lp1
exit: mov ah,4ch
int 21h
code ends
end start

实验六
数模转换
io0809a equ 298h
code segment
assume cs:code
start:mov dx,io0809a
out dx,al
mov cx,0ffh
delay:loop delay
in al,dx
mov bl,al
mov cl,4
shr al,cl
call disp
mov al,bl
and al,0fh
call disp
mov ah,02
mov dl,20h
int 21h
mov dl,20h
int 21h
push dx

mov ah,06h
mov dl,0ffh
int 21h
pop dx
je start
mov ah,4ch
int 21h
disp proc near
mov dl,al
cmp dl,9
jle ddd
add dl,7
ddd:add dl,30h
mov ah,02
int 21h
ret
disp endp
code ends
end start

温度传感器数据采集
io0809a equ 298h
code segment
assume cs:code
start:mov dx,io0809a
out dx,al
mov cx,0ffh
delay:loop delay
in al,dx
mov bl,al
mov cl,4
shr al,cl
call disp
mov al,bl
and al,0fh
call disp
mov ah,02h
mov dl,20h
int 21h
mov dl,20h
int 21h
mov dl,20h
int 21h
mov dl,20h
int 21h
push dx
mov ah,06h
mov dl,0ffh
int 21h
pop dx
je start
mov ah,4ch
int 21h
disp proc near
mov dl,al
cmp dl,9
jne ddd
add dl,7
ddd:add dl,30h
mov ah,02h
int 21h
ret
disp endp
code ends
end start

压力传感器数据采集实验
io0809a equ 298h
code segment
assume cs:code
start:mov dx,io0809a
out dx,al
mov cx,0ffh
delay:loop delay
in al,dx
mov bl,al
mov cl,4
shr al,cl
call disp
mov al,bl
and al,0fh
call disp
mov ah,02h
mov dl,20h
int 21h
mov dl,20h
int 21h
push dx
mov ah,06h
mov al,0ffh
int 21h
pop dx
je start
mov ah,4ch
int 21h
disp proc near
mov dl,al
cmp dl,9
jne ddd
add dl,7
ddd:add dl,30h
mov ah,02
int 21h
ret
disp endp
code ends
end start
综合：
io0809a equ 298h
io0832a equ 290h
code segment
assume cs:code
start
mov dx,io0809a
out dx,al
mov cx,0ffh
delay: loop delay
in al,dx
mov dx,io0832a
out dx,al
push dx ;判断是否有键按下
mov ah,06h
mov dl,0ffh
int 21h
pop dx
je start ;没键按下转start
mov ah,4ch
int 21h
code ends
end