华北电力大学、接口与通信实验指导程序

1、实验10跑马灯mode equ 082hporta equ 8000hportb equ 8001hportc equ 8002hcaddr equ 8oo3hcode segmentassume cs:codestart:mov al,modemov dx,caddrout dx,altnport: mov dx,portbin audxcmpaljilllllobjz ltorcmpaljlllllolbjz rtolcmpalj1111011bjz lrtomjmp inportltor:mov al,0000000ibmov dx,portcli:out dx,almov cx,200

2、00loopsrolaljjncl1jmp inportrtol:movauiooooooobmov dx,portcl2:out dx,almov cx,20000loopsror al,1jnc l2jmp inportlrtom: mov al, 10000001bmov dx,portcout dx,almov cx,200loopsmov al,01000010bmov dx,portcout dx,almov cx,20000loopsmoval,00100100bmov dx,portc out dx,almov cx,20000loopsmovauoooiiooobmov dx

3、,portc out dx,almov cx,20000loopsjmp inportcode endsend start实验11每10个屮断一个输出mode equ 82hpa8255 equ 8000hctl8255 equ 8oo3hicw1 equ ()()01001 ibicw2 equ 00100000bicw4 equ 0000000ibocw1 equ ii111110bcs8259a equ 9000hcs8259b equ 9001hdata segmentcnt db 0data endscode segmentassume cs:code,ds:dataienter p

4、roc nearpush axpush dxpush bxmov dx,pa8255inc cntmov al,cntmov ah,0mov bl, 10div blcmp ah,0jnzlout dx,all:mov dx,cs8259amov al,20hout dx,alpop bxpop dxpop axiretienter endpunit proc nearmov dx,cs8259amoval,icw1out dx,almov dx,cs8259bmov al,icw2out dx,almov al,icw4out dx,almov al,ocw1out dx,alretunit

5、 endpstart proc nearmov dx,ctl8255mov al,modeout dx,alclimov ax,0mov ds,axmov bx,4*icw2mov ax,codeshlax,4add ax,offset ientermov bx,axmov ax,0inc bxinc bxmovbx,axcall unitmov ax,datamov ds,axmov cnt,()mov al,cntmov dx,pa8255out dx,alstilp:nopjmp lpstart endp code endsend start 实验12每隔一秒灯闪烁一次 countrol

6、 equ 8003h counto equ 8000h count 1 equ 8001h count2 equ 8002hcode segment assume cs:code start:mov al,00110110bmov dx,countrolout dx,almov ax, 100mov dx,countoout dx,almov al,ahout dx,almov al,01110110bmov dx,countrolout dx,almov ax, 10000mov dx,count 1out dx,almov al,ahout dx,alagain:moval,0mov dx

7、,countrolout dx,almov dx,countoin al,dxmov bl,alin al,dxmov ah,almov al,bljmp againcode endsend start 实验14循环输入55h aah ramaddr equ 0000h ramoff equ 8000hcount equ 100hcode segmentassume csxodestart: proc nearmov ax,ramaddr mov ds,axmov bx,ramoff mov ex,count mov dl,40hrepl:inc dlmov fbx,dl inc bxemp

8、dl,5ah jnz sslmov dl,40hss 1:loop rep 1jmp$code endsend start实验16 a/d转换查询方式：mode equ 82hpa equ 9000hpb equ 9001hpc equ 9002hctl equ 9003hcs0809 equ 8000hcs0809a equ 8001hcode segmentassume cs:codestart proc nearmov al,modemov dx,ctlout dx,alagain:mov al,()mov dx,cs0809out dx,altesti :mov dx,pbin al,

9、dxand al,()1hcmp al jjnz testimov cx,40hloopsmov dx,cs0809 in al,dxmov dx,paout dx,aljmp againcode endsend start 中断方式:mode equ 82hpa equ 9000hpb equ 9001hpc equ 9002hctl equ 9003hcs0809 equ 8000h cs0809a equ 8001hicw1 equ 0001001 ibicw2 equ 00100000bicw4 equ 00000001bocw1 equ 111 11110bcs8259a equ 0

10、a000hcs8259b equ 0a001h code segmentassume cs:codeienter proc nearpush axpush dxmov dx,cs0809in al,dxmov dx,paout dx,almov dx,cs8259amov al,20hout dx,alpop dxpop axiretienter endpunit proc nearmov dx,cs8259amoval,icw1out dx,almov dx,cs8259bmov aljcw2out dx,almov al,icw4out dx,almov al,ocw 1out dx,alretunit endpstart proc nearmov al,modemov dx,ctlout dx,alclimov ax,0mov ds,axmov bx,4*1cw2mov a