实验8、数码管显示实验

实验内容
基础部分：
1、使六位数码管从右到左逐位显示移动的数字0到9，即数字0从最右端移动到最左端，数字1从最右端移动到最左端，…，数字9从最右端移动到最左端，循环上述过程：
2、使六位数码管从左到右显示稳定的数字"123456"
拓展部分：
3、在数码管上显示学号后6位，并使用6个开关控制对应数码管的亮灭(例如，开关为1点亮，为0熄灭)。
4、在左侧的三个数码管上显示“123”，每隔1秒钟(可用软件延时，也可用8254定时)“123”向右移动一位(循环)。

代码
1

A8255 EQU 0600H
B8255 EQU 0602H
C8255 EQU 0604H
CON8255 EQU 0606H

DATA SEGMENT
TABLE1:       ;段码表
DB 3FH    ;0
DB 06H    ;1
DB 5BH    ;2
DB 4FH    ;3
DB 66H    ;4
DB 6DH    ;5
DB 7DH    ;6
DB 07H    ;7
DB 7FH    ;8
DB 6FH    ;9
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX

MOV DX,CON8255
MOV AL,81H     ;A,B--OUT,LOW 4 BITS OF C--IN
OUT DX,AL

MOV DX,A8255
MOV AL,00H       ;选择所有数码管
OUT DX,AL
MOV DX,B8255
MOV AL,00H      ;给所有数码管送段码00H，即让所有数码管熄灭
OUT DX,AL

LEA BX,TABLE1    ;TABLE1的偏移地址送BX
MOV SI,0         ;TABLE1的相对偏移地址送SI，初始为0
MOV DX,A8255
MOV AL,11011111B  ;初始选择最高位数码管，即最右端的数码管
MAIN:
X1:
CMP AL,01111111B  ;判断数码管是否到达最左端(最左端对应的位码应是11111110B)
JZ X2
OUT DX,AL         ;选择数码管
PUSH AX
MOV DX,B8255
MOV AL,[BX+SI]
OUT DX,AL         ;送段码
CALL DELAY
POP AX
JMP X1
X2:
INC SI
MOV AL,11011111B
CMP SI,10
JZ X3
JMP MAIN
X3:
MOV SI,0
JMP MAIN

DELAY:
PUSH CX
MOV CX,0FFFFH
X4: PUSH AX
POP AX
LOOP X4
POP CX
RET
CODE ENDS
END START

2

A8255 EQU 0600H
B8255 EQU 0602H
C8255 EQU 0604H
CON8255 EQU 0606H

DATA SEGMENT
TABLE1:   ;段码表
DB 06H    ;1
DB 5BH    ;2
DB 4FH    ;3
DB 66H    ;4
DB 6DH    ;5
DB 7DH    ;6
POS:                ;位码表
DB 11111110B
DB 11111101B
DB 11111011B
DB 11110111B
DB 11101111B
DB 11011111B
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX

MOV DX,CON8255
MOV AL,81H     ;A,B--OUT,LOW 4 BITS OF C--IN
OUT DX,AL

MOV DX,A8255
MOV AL,00H       ;选择所有数码管
OUT DX,AL
MOV DX,B8255
MOV AL,00H      ;给所有数码管送段码00H，即让所有数码管熄灭
OUT DX,AL

LEA BX,TABLE1    ;TABLE1的偏移地址送BX
LEA CX,POS       ;POS的偏移地址送CX
MOV SI,0         ;TABLE1和POS的相对偏移地址送SI，初始为0
MAIN:
MOV DX,A8255
MOV AL,[BX+SI]
OUT DX,AL
MOV DX,B8255
PUSH BX
MOV BX,CX
MOV AL,[BX+SI]
POP BX
OUT DX,AL
CALL DELAY
INC SI
CMP SI,6
JZ X1
JMP MAIN
X1:
MOV SI,0
JMP MAIN

DELAY:
PUSH CX
MOV CX,0FFH
X4: PUSH AX
POP AX
LOOP X4
POP CX
RET
CODE ENDS
END START

3

A8255_CON EQU 0606H
A8255_A EQU 0600H
A8255_B EQU 0602H
A8255_C EQU 0604H

DATA SEGMENT
STUID   DB 4FH    ;3
DB 07H    ;7
DB 5BH    ;2
DB 4FH    ;3
DB 3FH    ;0
DB 06H    ;1
bitchoose  DB 11111110B  ;位选码
comparevar DB 00000001B  ;用于比较
NUM DB 0   ;对应的序号
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX

MOV DX,A8255_CON
MOV AL,10000001B  ;A,B均工作在方式0，A口输出，C口高4位输出，B口输出,C口低4位输出
OUT DX,AL
LEA SI,STUID

MAIN:
MOV DX,A8255_C
IN AL,DX                    ;读C口，判断开关状态
MOV bitchoose,11111110B     ;恢复初始状态
MOV comparevar,00000001B
MOV NUM,0
CALL GETSERIALNUM
JMP MAIN

GETSERIALNUM:        ;判断高电平位置
PUSH CX
MOV CX,6
GET2:
PUSH AX
AND AL,comparevar
JNZ GET1
JMP GET3
GET1:
CALL SHOWLED
GET3:
ROL comparevar,1
ROL bitchoose,1
INC NUM
POP AX
LOOP GET2
POP CX
RET

SHOWLED:
PUSH AX
PUSH DX
MOV DX,A8255_A
MOV AL,bitchoose
OUT DX,AL
MOV DX,A8255_B
MOV AL,[NUM+SI]
OUT DX,AL
MOV DX,A8255_A
MOV AL,00H
OUT DX,AL     ;选中所有位选码
POP DX
POP AX
RET

DELAY:
PUSH CX
MOV CX,00FH
X4:
LOOP X4
POP CX
RET
CODE ENDS
END START

4

;该份代码比较冗余，请自行删掉不必要的或者进行相应更改
data segment
table1:
db 3fh;0
db 06h;1
db 5bh;2
db 4fh;3
db 66h;4
db 6dh;5
db 7dh;6
db 07h;7
db 7fh;8
db 6fh;9
data ends

code segment
assume cs:code, ds:data
start:
mov ax,data
mov ds,ax

MOV AX, OFFSET MIR6
MOV SI, 0038H
MOV [ES:SI], AX
MOV AX, CS
MOV SI, 003AH
MOV [ES:SI], AX

CLI
MOV AL, 11H
OUT 20H, AL
MOV AL, 08H
OUT 21H, AL
MOV AL, 04H
OUT 21H, AL
MOV AL, 03H
OUT 21H, AL
MOV AL, 3FH
OUT 21H, AL
STI

MOV DX, 0646H;8254
MOV AL, 76H  ;01110110B
OUT DX, AL
MOV DX, 0642H
MOV AL, 00H
OUT DX, AL
MOV AL, 48H  ;
OUT DX, AL

lea si,table1
mov dx,0606h
mov al,89h ;10001001B  A,B口输出，C口输入
out dx,al
mov dx,0602h
mov al,3fh
out dx,al
mov dx,0600h
mov al,00h
out dx,al

mov ah,11111110b
begin:
mov cx,0ah
mov bx,0001h
aa1:
push cx
mov cx,03h
mov al,ah
aa2:
call light
rol al,1
cmp al,10111111b
jnz b11
mov al,11111110b
b11:
inc bx
loop aa2

pop cx
mov bx,0001h    ;恢复bx的值
loop aa1
jmp begin

light:
;al:position
;bx:content
mov dx,0600h
out dx,al
push ax
mov al,[bx+si]
mov dx,0602h
out dx,al
pop ax
call delay
ret

MIR6:
rol ah,1
cmp ah,10111111b
jnz endi
mov ah,11111110b
endi:
iret

delay:
push cx
mov cx,0a00h
lop:loop lop
pop cx
ret
code ends
end start

• 点赞
• 收藏
• 分享
• 文章举报