Question

汇编程序 8*8点阵闪烁

ORG 00H
;p2送数据
;p3扫描
START:
MOV A,#00H
MOV P2,A
MOV R0,#200
CALL DELAY
MOV R2,#7FH
MOV R3,#00H
MOV R4,#8
ROW:
MOV A,R2
MOV P3,A
RR A
MOV R2,A
COL:
MOV A,R3
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P2,A
INC R3
MOV R0,#10
CALL DELAY
CLEAR:
ORL P3,#00H
DJNZ R4,ROW
JMP START
DELAY:
MOV R1,#248
D1:
DJNZ R1,$
DJNZ R0,D1
RET
TABLE:
DB 42H,42H,42H,7EH,42H,42H,42H,42H,88H
END
ORG 00H
START:
MOV 30H,#7FH ;扫描寄存器
MOV 31H,#0 ;表指针
MOV DPTR,#TABLE ;指向表
D1:
MOV A,31H ;载入表指针
MOVC A,@A+DPTR ;载入表数据
INC 31H ;表指针自增
CJNE A,#88H,D2 ;如果没到88H 执行D2程序段
JMP START ;从新开始
D2:
MOV P2,A ;把数据送到P2口
MOV P3,30H ;把扫描数据送到P3口
MOV A,30H ;扫描数据存入 A
CALL DELAY ;延时显示
CALL DELAY ;延时显示
RR A ;右移一位
MOV 30H,A ;扫描数据存入30H
JMP D1

DELAY:
MOV R1,#248
DJNZ R1,$

RET
TABLE:
DB 42H,42H,42H,7EH,42H,42H,42H,42H,88H
END ;;
这是新编的程序 也有问题

Answer 1

ORG 00H
START:
CALL DISP
JMP START
;------------------------------------------
DISP:
MOV DPTR, #TABLE ;指向表
MOV 30H, #7FH ;扫描寄存器
MOV 31H, #8 ;表指针
D1: MOV A, 31H ;载入表指针
DEC A
MOVC A, @A + DPTR ;载入表数据
MOV P2, A ;把数据送到P2口
MOV P3, 30H ;把扫描数据送到P3口
DJNZ R7, $
DJNZ R7, $
MOV A, 30H ;扫描数据存入A
RR A ;右移一位
MOV 30H, A ;扫描数据存入30H
MOV P3, #255 ;关闭显示
DJNZ 31H, D1
RET
TABLE:
DB 42H, 42H, 42H, 7EH, 42H, 42H, 42H, 42H
;------------------------------------------
END

试试看。