微机课程设计停车场系统源代码

data segment

ioport equ 0ec00h-0280h ;tpc卡中设备的io地址

ioporta equ ioport+0280h ;8255a口地址

ioportb equ ioport+0281h ;8255b口地址

ioportc equ ioport+0282h ;8255c口地址

io8255 equ ioport+0283h ;8255控制寄存器地址

io8253a equ ioport+288h;8253通道0

io8253b equ ioport+289h;8253通道1

io8253c equ ioport+28ah;8253通道2

io8253d equ ioport+28bh;8253控制寄存器

proth equ ioport+290h ;行选

protlr equ ioport+298h ;红选

protly equ ioport+2a0h ;黄选

num db 3,4 dup(0)

a db 00h,00h ;用于存放空闲车位的十位和个位

state_a db 00h ;标志a口状态，1表示状态后，2标志状态中

state_b db 00h ;标志b口状态，1表示状态后，2标志状态中

led db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh;八段LED

copyright DB '

*******************************************************',0DH,0AH

DB '* southeast university *',0DH,0AH

DB '*---------------------------------------------------- *',0DH,0AH

DB '* system on parking lot management *',0DH,0AH

DB '* version：2013-05-29 *',0DH,0AH

DB '*----------------------------------------------------*',0DH,0AH

DB '* feijiahui lizhouyang *',0DH,0AH

DB '* 08011318 08011328 *',0Dh,0Ah

DB

'*******************************************************',0Dh,0Ah,'$'

mess1 db 'Please decide the parks scale with input num(00~99):' ,0dh,0ah,'$'

mess2 db 'Illegal input!' ,0dh,0ah,'$'

string1 db 0dh,0ah,'A car is in from port A',0dh,0ah,'$'

string2 db 0dh,0ah,'A car is out from port A',0dh,0ah,'$'

string3 db 0dh,0ah,'A car is in from port B',0dh,0ah,'$'

string4 db 0dh,0ah,'A car is out from port B',0dh,0ah,'$'

string5 db 0dh,0ah,'No car is in the park!',0dh,0ah,'$'

string6 db 0dh,0ah,'point',0dh,0ah,'$'

string7 db 0dh,0ah,'minutes',0dh,0ah,'$'

string8 db 0dh,0ah,'seconds',0dh,0ah,'$'

string9 db 0dh,0ah,'Number is',0dh,0ah,'$'

led_in db 00h,18h,30h,7fh,7fh,30h,18h,00h ;箭头进 led_out db 00h,18h,0ch,0feh,0feh,0ch,18h,00h ;箭头出

bz dw ?

sx dw ?

data ends

stacks segment stack

db 100 dup (?)

stacks ends

code segment

assume cs:code,ss:stacks,ds:data

main proc far

start: mov ax,data ;??????

mov ds,ax

mov dx,io8253d ;???0????3

mov al,36h ;00110110,??????????,??3(?????),??? out dx,al

mov al,70h ;01110000,???1,????0

out dx,al

mov dx,io8253a ;???0??1024(?????)

mov al,00h

out dx,al

mov al,08h

out dx,al

mov dx,io8255;a b???0??,???????,c???????

mov al,89h

out dx,al

mov dx,ioportb;

mov al,0ffh

out dx,al

mov dx,offset copyright

mov ah,09h

int 21h

again: mov dx,offset mess1 ;提示信息

mov ah,09h ;系统调用，在电脑屏幕上显示mess1 int 21h

mov dx,offset num mov ah,0ah int 21h mov al,num[2] cmp al,30h jb error cmp al,39h ja error mov al,num[3] cmp al,30h jb error cmp al,39h ja error ;系统调用，从键盘输入初始的"空车位数"到缓冲区 ;判断输入数值是否符合条件 ;小于0的话就转移到error ;大于9的话就转移到error

sub al,30h ;将ASCII码转换为数字

mov bl,al

mov al,num[2]

sub al,30h

mov bh,al

jmp check

error: mov dx,offset mess2

mov ah,09h

int 21h

jmp again

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> check: call disp;????????,????99

mov dx,ioportc

in al,dx

and al,0fh

cmp al,0

jz check;???,????

ckout1:

test al,02

jnz out1;??1????

ckin1:

test al,01

jnz in1;??1????

ckout2:

test al,08

jz ckin2

jmp out2;??2????

ckin2 :

test al,04

jz check

jmp in2;??2????

out1: push ax

call delay1;??2s

call delay1

mov dx,ioportb

mov al,80h;??A?????

out dx,al

wait1: mov state_b,2

call disp_mat

mov dx,ioportc;?????????? in al,dx

test al,02

jnz wait1;????,???1s???? call delay1

call delay1

call delay1

mov dx,ioportb

mov al,0c0h;??A???

out dx,al

mov state_b,1;

call disp_mat

call disp

mov ax,bx

cmp al,9

jnz next1

inc ah

mov al,0ffh

next1: inc al

mov bx,ax call disp;?????

call disp2;显示时间

mov dx,offset string2;???? mov ah,09h

int 21h

pop ax

jmp check;?A??????,?????????,??B?

in1: push ax

cmp bx,0;???????

jz ckout2;????,?????,??B??? call delay1;???,??2s

call delay1

mov dx,ioportb

mov al,80h;??A?????

out dx,al

wait2: mov state_a,2

call disp_mat

mov dx,ioportc;检测信号是否仍然有效 in al,dx

test al,01

jnz wait2;??????,??

call delay1

mov dx,ioportb

mov al,0c0h;????

out dx,al

mov state_a,1

call disp_mat

call disp

call disp2;显示时间

mov dx,offset string1;????

mov ah,09h

int 21h

mov ax,bx;?????

cmp al,0

jnz next2

dec ah

mov al,0ah

next2: dec al

mov bx,ax

call disp;?????

pop ax

jmp check;???B???????

out2: push ax

mov ax,bx

call delay1;??2s

call delay1

mov dx,ioportb

mov al,40h;??A?????

out dx,al

wait3: mov state_b,2

call disp_mat

mov dx,ioportc;??????????

in al,dx