tjpoty 2010-6-28 21:32
8255流水灯显示 很酷的哦
现在大家都在用电脑实现一些声音效果 但是大家有没有想过如果用一些老古董的东西会给人更奇妙的感觉
现在就让我们用8255来实现流水灯,8255这种板子在很多学校里都有淘汰的@@
首先我们用的是汇编语言 ,代码如下:
8255流水灯显示实验
;****************根据查看端口资源修改下列符号值*******************
IOY0 EQU 9C00H ;片选IOY0对应的端口始地址
;*****************************************************************
MY8255_A EQU IOY0+00H*4 ;8255的A口地址
MY8255_B EQU IOY0+01H*4 ;8255的B口地址
MY8255_C EQU IOY0+02H*4 ;8255的C口地址
MY8255_MODE EQU IOY0+03H*4 ;8255的控制寄存器地址
STACK1 SEGMENT STACK
DW 256 DUP(?)
STACK1 ENDS
DATA SEGMENT
LA DB ? ;定义数据变量
LB DB ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
MOV DX,MY8255_MODE ;定义8255工作方式
MOV AL,80H ;工作方式0,A口和B口为输出
OUT DX,AL
MOV DX,MY8255_A ;写A口发出的起始数据
MOV AL,80H
OUT DX,AL
MOV LA,AL
MOV DX,MY8255_B ;写B口发出的起始数据
MOV AL,01H
OUT DX,AL
MOV LB,AL
LOOP1: CALL DALLY
MOV AL,LA ;将A口起始数据右移再写入A口
ROR AL,1
MOV LA,AL
MOV DX,MY8255_A
OUT DX,AL
MOV AL,LB ;将B口起始数据左移再写入B口
ROL AL,1
MOV LB,AL
MOV DX,MY8255_B
OUT DX,AL
MOV AH,1 ;判断是否有按键按下
INT 16H
JZ LOOP1 ;无按键则跳回继续循环,有则退出
QUIT: MOV AX,4C00H ;结束程序退出
INT 21H
DALLY PROC NEAR ;软件延时子程序
PUSH CX
PUSH AX
MOV CX,3FFH
D1: MOV AX,0FFFFH
D2: DEC AX
JNZ D2
LOOP D1
POP AX
POP CX
RET
DALLY ENDP
CODE ENDS
END START
连接的话 就是在电脑上用数据线连到板子,然后IOY0 CS RDWR的线接好 就可以看到流水灯了 试试吧@@ 首次发主题 请大家都支持 版主多体谅
zsyooxx 2010-6-28 21:36
非常感谢的呀 可是这种板子到底哪里有呀?有照片的话比较好吧
anywn0911 2010-6-28 23:27
看的我云里雾里,说的是啥都不知道!哈哈!路过顶一下楼主
willfate 2010-6-29 23:21
LZ啊,麻烦你还是上图片的,说有个P用啊,关键还是图片
board1985 2010-6-29 23:34
太专业了:excellence ,看到一半做不下去。:faint
sis00 2010-6-29 23:56
0FFFFH
这个是指灯色吗?那么端口2和端口1交互的时候是一样的?
scwer 2010-6-30 00:16
太专业了,相当的厉害,有没有什么照片的贴出来看看那
moshou4444 2010-6-30 00:20
经鉴定 明显的95/98程序 nt系统无法运行 可以用Masm进行汇编 在虚拟机里边测试
sexmylove 2010-6-30 00:30
这个就是单片机么?没一定专业水平的我想应该看不懂吧。我学的时候就很头大。希望楼主为了大家不能做点视频或者图片教程看看?
另外8255这种东西,应该在机电类专业学校有很多吧。
darthvader 2010-6-30 00:31
汇编啊,好久没有碰过了,全部忘光光了,想起了大学的日子,怀念
kfmxq1 2010-6-30 20:09
有没有照片让我看看啊.再说机箱漂亮貌似没有什么意义吧
11级总裁 2010-6-30 20:31
是单片机,这东西没啥意思,就是课后练习题,只要学过的都搞过这个,我们考试的时候要做的是电子表、和电子屏幕。比这难多了。
jf709166666 2010-6-30 21:11
这帖好水啊。这东西还要专业的工具把。需要特殊的软件进行的。
88347858 2010-7-15 14:34
感谢楼主:excellence :excellence