romantice.txt

来自「用8088 实现16*16LED点阵汉字滚动显示」· 文本 代码 · 共 79 行

DATA SEGMENT
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:CODE
ORG 3400H
START:JMP KK1
LO EQU 0FFE3H
L1 EQU 0FFE0H
H0 EQU 0FFE2H
H1 EQU 0FFE1H
ZIMO:DB 00H,80H,40H,48H,33H,0FCH,12H,08H,82H,08H,63H,0F8H,26H,08H,0AH,08H
     DB 13H,0F8H,22H,84H,0E2H,48H,22H,30H,22H,10H,22H,8EH,23H,04H,22H,00H  ;字模
   

LS DB 01H,02H,04H,08H,10H,20H,40H,80H
KK1:MOV BX,00H
KK2:MOV CX,08H
  LEA SI,ZIMO
  LEA DI,LS
DISP:
  MOV DX,L0
  MOV AL,[SI+BX]
  OUT DX,AL
  MOV DX,H0
  MOV AL,[DI]
  OUT DX,AL
  MOV DX,L1
  MOV AL,[SI+BX+1]
  OUT DX,AL
  MOV DX,H0
  MOV AL,[DI]
  OUT DX,AL
  MOV BP,100H
DELAY1:NOP   
  DEC BP   
  JNZ DELAY1 
  INC DI
  INC SI
  INC SI
  DEC CX
  JNZ DISP
  MOV DX,H0
  MOV AL,00H
  OUT DX,AL
  MOV CX,08H
  LEA DI,LS
DISP1:MOV DX,L0
  MOV AL,[SI+BX]
  OUT DX,AL
  MOV DX,H1
  MOV AL,[DI]
  OUT DX,AL
  MOV DX,L1
  MOV AL,[SI+BX+1]
  OUT DX,AL
  MOV DX,H1
  MOV AL,[DI]
  OUT DX,AL
  MOV BP,100H
DELAY2:DEC BP ;两个时钟
  JNZ DELAY2
  INC DI
  INC SI
  INC SI
  DEC CX
  JNZ DISP1
  MOV DX,H1
  MOV AL,00H
  OUT DX,AL
  INC BX
  INC BX
  MOV BP,2000H
DELAY3:DEC BP
  JNZ DELAY3
  CMP BX,****H    ;根据显示字数修改****
  JNB KK1
  JMP KK2
CODE ENDS
END START