微机原理 交通灯实验源代码

LCD EQU 07FE0H
LCDWI EQU LCD+0
LCDWD EQU LCD+1
LCDRS EQU LCD+2
LCDRD EQU LCD+3

TIM_CTL EQU 7FE7H
TIMER0 EQU 7FE4H
TIMER1 EQU 7FE5H

MODE02 EQU 00110100B


Port0 EQU 7FE8H
Port1 EQU 7FE9H

PA EQU 0FFD8H
PB EQU 0FFD9H
PC EQU 0FFDAH
PCTL EQU 0FFDBH


code segment
assume cs:code
org 1000h

lin db 0
col db 0
num db 0
dis_num db 0
temp0 db 0
temp1 db 0
count db 0
IRQ_num db 0
IRQ_count db 0

START:mov al,02h
call init_lcd
call send_com
call delay

mov lin,1
mov col,1

mov al,0FH
mov count,al
mov al,count
mov dis_num,al
call dis_number
call cs_led
call delay2

; mov bx,offset LCDTAB1
;mov lin,0
;mov col,1
;mov num,5
; call dis_english

lgs1: mov al,count
mov dis_num,al
call dis_number
call red_led
call delay3
call init_8259
call D8253
mov al,count
cmp al,0
jnz lgs1

call yellow1_led

mov al,0fH
mov count,al
call green_led


lgs2:
mov al,count
mov dis_num,al
call dis_number
call D8253
call init_8259
mov al,count
cmp al,0
jnz lgs2

call yellow2_led

mov al,0fH
mov count,al
jmp lgs1


INT8259:
cli
push ax
push dx
mov al,20H
mov dx,Port0
out dx,al
mov al,count
dec al
mov count,al
pop dx
pop ax
sti
IRET

init_8259 proc
CLI
mov ax,offset INT8259
mov bx,003CH
mov [bx],ax
mov bx,003EH
mov ax,0000H
mov [bx],ax
mov al,13H

mov dx,Port0
out dx,al
mov al,08H
mov dx,Port1
out dx,al
mov al,09H
out dx,al
mov al,7FH
out dx,al
mov SI,0000H
STI
RET
init_8259 endp


cs_led proc
push ax
push dx
mov al,10001001B
mov dx,PCTL
out dx,al

mov dx,PA
mov al,11011011B
out dx,al

mov dx,PB
mov al,00000110b
out dx,al

pop dx
pop ax
ret
cs_led endp


red_led proc

push ax
push dx
mov al,10001001B
mov dx,PCTL
out dx,al

mov dx,PA
mo

v al,10011110B
out dx,al

mov dx,PB
mov al,00000111B
out dx,al
pop dx
pop ax
ret

red_led endp


green_led proc

push ax
push dx
mov al,10001001B
mov dx,PCTL
out dx,al

mov dx,PA
mov al,11110011B
out dx,al

mov dx,PB
mov al,00001100B
out dx,al

pop dx
pop ax
ret

green_led endp


yellow1_led proc

push ax
push dx
push cx
mov al,10001001B
mov dx,PCTL
out dx,al
mov cx,3

L1: mov dx,PA
mov al,01011101B
out dx,al

mov dx,PB
mov al,00000111B
out dx,al

call delay4

mov dx,PB
mov al,00000111B
out dx,al

mov dx,PA
mov al,11011111B
out dx,al
call delay4
LOOP L1
pop cx
pop dx
pop ax
ret
yellow1_led endp


yellow2_led proc

push ax
push dx
push cx
mov al,10001001B
mov dx,PCTL
out dx,al
mov cx,5

L2: mov dx,PA
mov al,11101011B
out dx,al

mov dx,PB
mov al,00001010B
out dx,al

call delay4

mov dx,PA
mov al,11111011B
out dx,al

mov dx,PB
mov al,00001110B
out dx,al
call delay4

LOOP L2
pop cx
pop dx
pop ax
ret
yellow2_led endp


D8253 proc
push dx
push ax
mov dx,TIM_CTL
mov al,MODE02
out dx,al

mov dx,TIMER0
mov ax,20000
out dx,al

mov al,ah
out dx,al

pop ax
pop dx
ret
D8253 endp


dis_number proc
push ax
mov al,lin
cmp al,0
jnz nu0
mov al,80h
jmp nu1
nu0: cmp al,1
jnz nuret
mov al,0C0h
nu1: add al,col
call send_com
mov ah,0
mov al,dis_num
mov bl,10
div bl
mov temp0,ah
mov ah,0
mov bl,10
div bl
mov temp1,ah
add al,30h
call send_data
mov al,temp1
add al,30h
call send_data
mov al,temp0
add al,30h
call send_data
pop ax
nuret: ret
dis_number endp




dis_english proc
push ax
mov al,lin
cmp al,0
jnz ch0
mov al,80h
jmp ch1
ch0: cmp al,1
jnz chret
mov al,0C0h
ch1: add al,col
call send

_com
mov ah,num
ch2: mov al,[bx]
inc bx
call send_data
dec ah
jnz ch2
pop ax
chret: ret
dis_english endp



close_lcd proc
push ax
mov al, 01h
call send_com
pop ax
ret
close_lcd endp




init_lcd proc
mov dx,LCDWI
mov al,30h
out dx,al
call delay
mov al,30h
out dx,al
call delay
mov al,30h
out dx,al
call delay
mov al,38h
out dx,al
call delay
mov al,08h
out dx,al
call delay
mov al,01h
out dx,al
call delay
mov al,0eh
out dx,al
call delay
call chkbusy
lcd_p: mov al,06h
call send_com
mov al,02h
call send_com
call delay
ret
init_lcd endp




chkbusy proc
push dx
push ax
mov dx,LCDRS
rechk: in al,dx
mov cl,al
rol cl,1
jc rechk
pop ax
pop dx
ret
chkbusy endp



send_com proc
call chkbusy
push dx
mov dx,LCDWI
out dx,al
pop dx
ret
send_com endp



send_data proc
call chkbusy
push dx
mov dx,LCDWD
out dx,al
pop dx
ret
send_data endp



delay proc
push cx
mov cx,1000h
loop $
pop cx
ret
delay endp



delay1 proc
push cx
mov cx, 0080h
loop $
pop cx
ret
delay1 endp



delay2 proc
push ax
push cx
mov ah, 0
mov cx, ax
dloop: push cx
mov cx, 65535
loop $
pop cx
loop dloop
pop cx
pop ax
ret
delay2 endp

delay3 proc
push cx
mov cx, 0500h
loop $
pop cx
ret
delay3 endp

delay4 proc
push cx
mov cx, 32517
loop $
pop cx
ret
delay4 endp


LCDTAB1: DB "BEGIN: "

code ends
end START