例说8051（教材及程序，畅销十年的好教材）

COLUMN REG P1 ;行 ROW REG P2 ;列 SCANCODE EQU 10000000B ;扫瞄码 SPEED EQU 4 ;1s延迟 S_TIME EQU -2500 ;2.5ms扫瞄时间 ORG 0 ;程序从0位址开始 JMP START ;跳至START ORG BH ;TIMER0中断向量 JMP TIMER0 ;跳至TIMER0中断副程序 ;============================================================== START: MOV IE, #10000010B ;设定TIMER0中断 MOV TMOD, #1 ;设定TIMER0为MODE 1 MOV SP, #60H ;移开堆叠指标 SETB RS0 ;切换到RB1 MOV R1, #20H ;显示记忆体起始位置 MOV R2, #8 ;扫瞄8行 MOV R3, #SCANCODE ;载入扫瞄码 CLR RS0 ;切换回RB0 MOV TH0, #>S_TIME ;设定每行扫瞄时间 MOV TL0, #<S_TIME ;设定每行扫瞄时间 SETB TR0 ;启动TIMER0 MOV DPTR, #TABLE ;将资料指标指向TABLE位置 MOV 41H, #4 ;4次载入字型 MOV 40H, #0 ;间距 MOV R0, #30H ;第一组字型位置 MOV R1, #40H ;第二组字型位置 ;============================================================== LOOP: CALL LOADING ;载入两个字型 MOV R4, #8 ;上移8次 NEXT: CALL DELAY ;稍等一下 CALL ROTATE ;资料上移 DJNZ R4, NEXT ;跳至NEXT形成一个回圈 JMP LOOP ;跳至LOOP形成一个回圈 ;============================================================== LOADING: PUSH A ;储存ACC MOV R2, #8 ;载入各8笔资料 DJNZ 51H, LOAD_1 ;是否到最後一个字? MOV 50H, #0 ;从头开始 MOV 41H, #4 ;4次载入字型 MOV R0, #30H ;第一组字型位置 MOV R1, #40H ;第二组字型位置 LOAD_1: MOV A, 50H ;将间距放入ACC MOVC A, @A+DPTR ;读入资料 MOV @R0, A ;将资料存入记忆体 INC R0 ; 指向下一个位址 MOV A, 50H ;将间距放入ACC ADD A, #8 ;ACC+8 MOVC A, @A+DPTR ;读入资料 MOV @R1, A ;将资料存入记忆体 INC R1 ;指向下一个位址 INC 50H ;指向下一个笔资料 DJNZ R2, LOAD_1 ;跳至LOAD_1形成一个回圈 POP A ;取回ACC资料 RET ;============================================================== ROTATE: PUSH A ;储存ACC SETB RS1 ;使用RB1 MOV R0, #30H ;第一组字型资料开始位址 MOV R1, #40H ;第二组字型资料开始位址 MOV R2, #8 ;旋转8次 ROTATE_1: CLR CY ;清除进位旗标 MOV A, @R1 ;将第二组字型资料放入ACC RRC A ;资料右移 MOV @R1, A ;资料回存 INC R1 ;指向下一笔资料 MOV A, @R0 ;将第一组字型资料放入ACC RRC A ;资料右移 MOV @R0, A ;资料回存 INC R0 ;指向下一笔资料 DJNZ R2, ROTATE_1 ;若不超过8次，则继续 CLR RS1 ;恢复RB0 POP A ;取回ACC资料 RET ;============================================================== DELAY: MOV R7, #SPEED D2: MOV R6, #200 D1: MOV R5, #250 DJNZ R5, $ DJNZ R6, D1 DJNZ R7, D2 RET ;============================================================== TIMER0: CLR TR0 ;关闭TIMER0 PUSH A ;储存ACC SETB RS0 ;切换到RB1 MOV COLUMN, #0 ;关闭LED阵列 MOV A, @R1 ;取出显示信号 ;=============================================================== ;使用共阳极式LED阵列, 则加入下一列指令 CPL A ;=============================================================== MOV ROW, A ;输出显示信号 MOV A, R3 ;载入扫瞄码 MOV COLUMN, A ;输出扫瞄码(显示一行) RR A ;下一个扫瞄码 MOV R3, A ;储存下一个扫瞄码 INC R1 ;下一个显示信号 DJNZ R2, NEXT_C ;未超过8行则跳至NEXT_C MOV R2, #8 ;从新开始扫瞄 MOV R1, #20H ;从第一行开始 NEXT_C: MOV TH0, #>S_TIME ;设定每行扫瞄时间 MOV TL0, #<S_TIME ;设定每行扫瞄时间 SETB TR0 ;启动TIMER0 CLR RS0 ;切换回RB0 POP A ;取回ACC RETI ;============================================================== TABLE: ;8BYTES x10 =80BYTES DB 00H, 00H, 36H, 49H ;8 DB 49H, 36H, 00H, 00H ; DB 00H, 1CH, 22H, 41H ;0 DB 41H, 22H, 1CH, 00H ; DB 00H, 00H, 27H, 45H ;5 DB 45H, 45H, 39H, 00H ; DB 00H, 40H, 44H, 7EH ;1 DB 7FH, 40H, 40H, 00H ; DB 00H, 00H, 36H, 49H ;8 DB 49H, 36H, 00H, 00H ; ;============================================================== END