停车场出入管理控制系统.docxVIP

;************************

;***停车场出入管理系统***

;****WadeJJb*************

;************************

datasegment

ioportequ0c800h-0280h

ioportaequioport+0280h;8255a口地址ioportbequioport+0281h;b口地址ioportcequioport+0282h;c口地址io8255equioport+0283h;控制寄存器地址

ioport0equioport+288h;8253计数器0通道地址ioport1equioport+289h;8253计数器1通道地址ioport2equioport+28ah;8253计数器2通道地址io8253equioport+28bh;8253控制寄存器地址

leddb3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh;数码管译码表string1db0dh,0ah,AcarisinfromportA,0dh,0ah,$

string2db0dh,0ah,AcarisoutfromportA,0dh,0ah,$string3db0dh,0ah,AcarisinfromportB,0dh,0ah,$string4db0dh,0ah,AcarisoutfromportB,0dh,0ah,$bzdw?

dataends

codesegment

assumecs:code,ds:data

mainprocfarstart:movax,data

movds,ax

movbl,9;初始化空位数movbh,9

movdx,io8255;ab工作于0方式，作数值显示输出，c先输入开关状态，后输出栏杆控制显示

moval,81houtdx,al

check:calldisp;调用显示数值程序，初始化为99movdx,ioportc

inal,dxandal,0fh

cmpal,0

jzcheck;无操作，重复检查

ckout1:

ckin1:

ckout2:

ckin2:

testal,02

jnzout1;通道1有车出去

testal,01

jnzin1;通道1有车进入

testal,08jzckin2

jmpout2;通道2有车出去

testal,04jzcheck

jmpin2;通道2有车进入

out1: pushax

calldelay1;延迟2scalldelay1

movdx,ioportc

moval,80h;控制A口栅栏打开outdx,al

calldelay1;延迟3scalldelay1

wait1:calldelay1

calldisp

movdx,ioportc;检测信号是否仍然有效inal,dx

testal,02

jnzwait1;仍然有效，则等待1s再次检测

moval,0c0h;关闭A口栅栏

outdx,almovax,bxcmpal,9jnznext1incah

moval,0ffhnext1:incal

movbx,ax

calldisp;显示空位数

movdx,offsetstring2;显示记录movah,09h

int21hpopax

jmpckout2;若A口刚有车出去，则应该不会有车进入，检查B口

in1: pushax

cmpbx,0;检查是否有空位

jzckout2;若无空位，则暂时等待，检查B口情况calldelay1;有空位，延迟2s

calldelay1movdx,ioportc

moval,80h;控制A口栅栏打开outdx,al

wait2:calldelay1

calldispinal,dxtestal,01

jnzwait2;信号仍然有效，等待moval,0c0h;关闭栅栏

outdx,al

movdx,offsetstring1;显示记录movah,09h

int21h

movax,bx;空位数减一cmpal,0

jnznext2decahmoval,0ah

next2:decal

movbx,axmovbx,ax

calldisp;显示空位数popax

jmpckout2;跳转至B口出车信号检测

out2: pushax

calld