急求一题啊，8255A端口地址为0218-021BH,B端口接8个LED 发光二级管，利用按钮开关控制指示灯LED0-LED7
初始全灭，第一次按S，LED0亮，第二次按S，LED1亮。。。。。第八次按，LED7亮，第九次按，LED灯全灭。。。求啊
CODE SEGMENT
ASSUME CS:CODE
START:
MOV AL,10010000B ;控制字表示A、B口都为方式0，A口输入，B口输出
MOV DX,203H
OUT DX,AL
S0:
MOV DX,200H ;读开关状态
IN AL,DX
TEST AL,01H ;测试PA0
JZ CLOSE ;合上则全亮
MOV AL,00H ;打开全灭，低电平灭，高电平亮
JMP OUTPUT
CLOSE:
MOV AL,0FFH
OUTPUT:
MOV DX,201
OUT DX,AL
JMP S0 ;重复检测
CODE ENDS
END START
声明一下，copy别人的~~
ASSUME CS:CODE
START:
MOV AL,10010000B ;控制字表示A、B口都为方式0，A口输入，B口输出
MOV DX,203H
OUT DX,AL
S0:
MOV DX,200H ;读开关状态
IN AL,DX
TEST AL,01H ;测试PA0
JZ CLOSE ;合上则全亮
MOV AL,00H ;打开全灭，低电平灭，高电平亮
JMP OUTPUT
CLOSE:
MOV AL,0FFH
OUTPUT:
MOV DX,201
OUT DX,AL
JMP S0 ;重复检测
CODE ENDS
END START
声明一下，copy别人的~~
温馨提示：内容为网友见解，仅供参考
第1个回答 2013-06-07
NAME LEDCYCLE
STACK1 SEGMENT
STA DW 100DUP(0)
TOP EQU LENGTH STA
STACK1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:STACK
START:MOV AX,DATA
MOV DS,AX
MOV AX,STACK1
MOV SS,AX
MOV SP,TOP
MOV AL,91H
MOV DX,021BH
OUT DX,AL
MOV CX,9
MOV AL,01H
PUSH AX
TEST1:MOV DX,021AH
IN AL,DX
TEST AL,01H
JNZ TEST1
DEC CX
JZ ALLQUENCH
POP AX
MOV DX,0219H
OUT DX,AL
ROL AL,1
PUSH AX
TEST2:MOV DX,021AH
IN AL,DX
TEST AL,01H
JZ TEST2
JMP TEST1
ALLQUENCH:
MOV DX,0219H
MOV AX, 00H
OUT DX,AX
MOV CX,9
JMP TEST2
MOV AH,4CH
INT 21H
CODE ENDS
END START
已经过试验检测，正确。如要试验，需改变端口地址。
STACK1 SEGMENT
STA DW 100DUP(0)
TOP EQU LENGTH STA
STACK1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:STACK
START:MOV AX,DATA
MOV DS,AX
MOV AX,STACK1
MOV SS,AX
MOV SP,TOP
MOV AL,91H
MOV DX,021BH
OUT DX,AL
MOV CX,9
MOV AL,01H
PUSH AX
TEST1:MOV DX,021AH
IN AL,DX
TEST AL,01H
JNZ TEST1
DEC CX
JZ ALLQUENCH
POP AX
MOV DX,0219H
OUT DX,AL
ROL AL,1
PUSH AX
TEST2:MOV DX,021AH
IN AL,DX
TEST AL,01H
JZ TEST2
JMP TEST1
ALLQUENCH:
MOV DX,0219H
MOV AX, 00H
OUT DX,AX
MOV CX,9
JMP TEST2
MOV AH,4CH
INT 21H
CODE ENDS
END START
已经过试验检测，正确。如要试验，需改变端口地址。
第2个回答 2012-06-03
做微机课设？追问
不是啊，小实验。。。。。
Warning: Invalid argument supplied for foreach() in /www/wwwroot/www.t2y.org3v3b34/skin/templets/default/contents.html on line 47
相似回答
