RL A ;A中数据循环左移
MOV R5,A ;放回R5内
AJMP SPLAY ;跳回PLAY循环
ENDOUTS: MOV P2,#0FFH ;一次显示结束，P2口复位
MOV P0,#0FFH ;P0口复位
RET ;子程序返回
TABS: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0C6H,0BFH,88H
; 显示数 "0 1 2 3 4 5 6 7 8 9 不亮 C - A "
; 内存数 "0 1 2 3 4 5 6 7 8 9 0AH 0BH 0CH 0DH "
;STAB表，启动时显示2006年12月23日、C04-2-28（学号）用
STAB: DB 0AH,0AH,0AH,0AH,0AH,0AH,08H,02H,0CH,02H,0CH,04H,00H,0BH,0AH,0AH
DB 03H,02H,0CH,02H,01H,0CH,06H,00H,00H,02H,0AH,0AH,0AH,0AH,0AH,0AH
; 注：0A不亮，0B显示“A”，0C显示“-”
;
;***********************************************************
;ST，上电时显示年月班级用,采用移动显示,先右移,接着左移.
;***********************************************************
ST: MOV R0,#40H ;将显示内容移入40H-5FH单元
MOV R2,#20H ;
MOV R3,#00H ;
CLR A ;
MOV DPTR,#STAB ;
SLOOP: MOVC A,@A+DPTR ;
MOV @R0,A ;
MOV A,R3 ;
INC A ;
MOV R3,A ;
INC R0 ;
DJNZ R2,SLOOP ;移入完毕
MOV DISPFIRST,#40H ;以下程序从左往右移
SSLOOP: MOV R2,#50 ;控制移动速度
SSLOOP1: LCALL SDISPLAY ;
DJNZ R2,SSLOOP1 ;
INC DISPFIRST
MOV A,DISPFIRST
CJNE A,#5AH, SSLOOP ;
MOV DISPFIRST,#5AH ;以下程序从右往左移
MOV R3,#1BH ;显示27个单元
SSLOOP2: MOV R2,#32H ;控制移动速度
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] 下一页
本文关键字：程序 51单片机，单片机-工控设备 - 51单片机
