微机实验记录

前言

跑马灯硬件延时

PORT_CTL EQU 283H
PORT_A EQU 280H
PORT_B EQU 281H
PORT_C EQU 282H

;8255的控制端口
;8255的A口接的是8253的输出

CODE SEGMENT
ASSUME CS:CODE
START:
MOV AL,00110111B;  TO:2A0H T1:2A1H T2:2A2H   通道0初始化写入控制字
MOV DX,2A3H
OUT DX,AL
MOV AL,00H
MOV DX,2A0H
OUT DX,AL
MOV AL,50H
MOV DX,2A0H
OUT DX,AL

MOV AL,01110111B
MOV DX,2A3H
OUT DX,AL
MOV AL,00H
MOV DX,2A1H
OUT DX,AL
MOV AL,4H
MOV DX,2A1H
OUT DX,AL



;上面这一部分是对8253的控制，分别对0和1口进行输入计数值，对控制口输入控制字

MOV DX,PORT_CTL
MOV AL,10010000B
OUT DX,AL
MOV BL,01H  ;亮灯的信号

TEST_IT:
MOV DX,PORT_A
IN AL,DX
TEST AL,01H
JNZ ON1
;注意这里的逻辑顺序，不为0的时候是走ON2的，不能先写ON1，不然跑马灯的逻辑就会出错，就会变成不论判断与否都是执行ON1
ON2:
MOV AL,BL
MOV DX,PORT_B
OUT DX,AL
MOV DX,PORT_A
IN AL,DX
TEST AL,01H      ;读取最后一位的值来判断是否在跳动
JZ ON2            ;注意这种地方的逻辑判断
ROL BL,01
JMP TEST_IT

ON1:
MOV AL,BL
MOV DX,PORT_B
OUT DX,AL
MOV DX,PORT_A
IN AL,DX
TEST AL,01H
JNZ ON1             ;注意这种地方的逻辑判断
ROL BL,01
JMP TEST_IT
CODE ENDS
END START
;END START一定要加不然的话也会报错

跑马灯软件延时

;端口地址
PORTA  EQU 280H
PORTB EQU 281H
PORTC EQU 282H
PORT_CRO EQU 283H

CODE SEGMENT
   ASSUME CS:CODE

START:	MOV AL,82H
	MOV DX ,PORT_CRO
 	OUT DX, AL
   	MOV AL,01H
	MOV DX,PORTA
	;同样是上面是对于8255端口的操作，A口作为输出口
GO:
	OUT DX,AL
	ROL AL,1 ;下面就开始使用双重循环延时，相当于移位之后，就一直停在那一位等
      MOV BX, 16EAH
	DELAY1:
		MOV CX, 16EAH
		DELAY:
			LOOP DELAY
			DEC BX
			JNZ DELAY1
	JMP GO




CODE ENDS
END START

4*4键盘输入

  ;端口地址
PORT_A EQU 280H          ;8255 A口地址
PORT_B EQU 281H           ;8255 B口地址
PORT_C EQU 282H           ;8255 C口地址
PORT_CTL EQU 283H

;数据段，键盘扫描码表
DATA SEGMENT
;         0    1    2     3     4      5     6     7
KEY_TABLE DB  77H, 7BH , 7DH, 7EH, 0B7H, 0BBH, 0BDH, 0BEH
;         8      9     A     B     C      D	 E 	F
      DB  0D7H, 0DBH, 0DDH, 0DEH , 0E7H, 0EBH, 0EDH, 0EEH
;七段码
;                0    1    2    3    4     5    6     7
SEVEN_TABLE DB   3FH, 06H, 5BH, 4FH, 66H, 6DH, 7DH, 07H
  ;               8     9   A   B   C   D    E     F
             DB   7FH,6FH,77H,7CH，39h, 5EH, 79h,  71h, 0ffh


;代码段
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA



START:
  MOV AX, DATA
  MOV DS, AX
  ;初始化8255A,  方式0  B口输入  A，C口输出


  MOV DX, PORT_CTL ;指向控制字
  MOV AL, 82H ;控制字
  OUT DX, AL          ;写入控制字



;检测开始
;向所有行送0
Go:
  MOV DX, PORT_A   ;A口
  MOV AL, 00H
  OUT DX, AL ;向A口输出0

;读列，查看是否所有键均松开
  MOV DX, PORT_B


WAIT_OPEN:
  IN AL, DX
  AND AL, 0FH
  CMP AL,0FH
  JNE WAIT_OPEN

;是否有键压下
WAITP:
  IN AL,DX
  AND AL, 0FH
  CMP AL,0FH
  JZ WAITP

;有键压下，延时20ms，消除抖动
  MOV CX, 16EAH
DELAY:
  LOOP DELAY

;查列，看键是否仍然被压着
  IN AL, DX
  AND AL, 0FH
  CMP AL, 0FH
  JE WAITP

  MOV AL, 0FEH
  MOV CL, AL

NEXTR:
  MOV DX, PORT_A
  OUT DX, AL
  MOV DX ,PORT_B
  IN AL, DX
  AND AL, 0FH
  CMP AL, 0FH
  JNE ENCODE
  ROL CL, 01
  MOV AL,CL
  JMP NEXTR




ENCODE:
  MOV BX, 000FH
  IN AL, DX


NEXT_TRY:
  CMP AL, KEY_TABLE[BX]
  JE DONE
  DEC BX
  JNS NEXT_TRY
  MOV AH, 01
  JMP EXIT


DONE:
  MOV AL, BL
  LEA BX, SEVEN_TABLE;
  XLAT
  MOV DX, PORT_C
  OUT DX, AL
  JMP Go


EXIT:
  HLT

CODE ENDS
END START

小结