?? 21點陣.asm
字號:
;顯示字用查表法，不占內存，用四個16*16共陽LED點陣顯示，
;效果：向上滾動顯示字，每次四個，重復循環。
;R2：行掃描地址(從00-0FH)。
;R3：滾動顯示時控制移動速度，也可控制靜止顯示的時間。
ORG 0000H
AJMP START
ORG 000BH ;T0
AJMP INTT0
ORG 0030H
;***************初始化程序 ;
START: MOV P2,#7FH ;清LED
MOV 20H,#00H ;清標志,00H為1幀掃描結束標志
CLR P1.6 ;串行寄存器打入輸出端控制位
MOV TMOD,#01H ;使用T0作16位定時器,行掃描用。
MOV TH0,#0FCH ;1ms初值(12MHZ)
MOV TL0,#18H
MOV SCON,#00H ;串口0方式傳送顯示字節
MOV IE,#82H ;T0中斷允許,總中斷允許
MOV SP,#70H
LCALL DIS1 ;顯示準備，黑屏，1.5秒
MAIN: MOV DPTR,#TAB
LCALL MOVDISP ;逐排顯示，每次四字)
MOV DPTR,#TAB
LCALL MOVDISP1 ;滾動顯示，每排四字)
AJMP MAIN
; 四字逐排顯示子程序 ;
;每次四字移入移出顯示方式，入口時定義好DPTR值
MOVDISP: MOV R1,#6 ;顯示6排字,每排四字(R1=排數)
DISLOOP: MOV R3,#100 ;每排顯示時間1.6*100=1.6S
DISMOV: MOV R2,#00H ;第0行開始
SETB TR0 ;開掃描（每次一幀）
WAITMOV: JBC 00H,DISMOV1 ;標志為1掃描一幀結束（16毫秒為1幀，每行1毫秒）
AJMP WAITMOV
DISMOV1: DJNZ R3,DISMOV ;1幀重復顯示（控制顯示時間）
MOV A,#128 ;顯示字指針移一排（每排4字*32=128）
ADD A,DPL ;
MOV DPL,A
MOV A,#0
ADDC A,DPH
MOV DPH,A
DEC R1 ;R1為0，顯示完
MOV A,R1
JZ MOVOUT ;
AJMP DISLOOP ;
MOVOUT: RET ;移動顯示結束
;********************;
; 四字滾動顯示子程序 ;
;每排四字向上移出顯示方式，入口時定義好DPTR值
MOVDISP1: MOV R1,#255 ;向上移動顯示6排字,每排四字(R1=排數*16)
DISLOOP1: MOV R3,#10 ;移動速度1.6*10=0.16S
DISMOV2: MOV R2,#00H ;第0行開始
SETB TR0 ;開掃描（每次一幀）
WAITMOV1: JBC 00H,DISMOV3 ;標志為1掃描一幀結束（16毫秒為1幀，每行1毫秒）
AJMP WAITMOV1
DISMOV3: DJNZ R3,DISMOV2 ;1幀重復顯示（控制移動速度）
INC DPTR ;顯示字指針移一行（二字節位置）
INC DPTR
DEC R1 ;R1為0，顯示完
MOV A,R1
JZ MOVOUT1 ;
AJMP DISLOOP1 ;
MOVOUT1: RET ;移動顯示結束
;*****************;
; 四個字顯示子程序 ;
;靜止顯示表中某四個字
DIS1: MOV R3,#5AH ;靜止顯示時間控制（16MS*#=1.6秒）
DIS11: MOV R2,#00H ;一幀掃描初始值（行地址從00-0FH）
MOV DPTR,#TAB ;取表首址
SETB TR0 ;開掃描（每次一幀）
WAIT11: JBC 00H,DIS111 ;為1，掃描一幀結束
AJMP WAIT11
DIS111: DJNZ R3,DIS11
RET
; 掃描程序 ;
;************;
;1MS傳送一行，每行顯示1毫秒,一次傳送四個字的某行共8個字節.
INTT0: PUSH ACC
MOV TH0,#0FCH ;1ms初值重裝
MOV TL0,#18H
MOV A,#97 ;指向第四個字行右字節
ADD A,DPL
MOV DPL,A
MOV A,#0
ADDC A,DPH
MOV DPH,A
MOV A,#0
MOVC A,@A+DPTR ;查表
MOV SBUF,A ;串口0方式發送
WAIT: JBC TI,GO ;等待發送完畢
AJMP WAIT ;
GO: MOV A,DPL ;指向第四個字行左字節
SUBB A,#1
MOV DPL,A
MOV A,DPH
SUBB A,#0
MOV A,#0
MOVC A,@A+DPTR
MOV SBUF,A
WAIT1: JBC TI,GO1
AJMP WAIT1
;
GO1: MOV R0,#03H
MLOOP: MOV A,DPL ;指向前三個字行右字節
SUBB A,#31
MOV DPL,A
MOV A,DPH
SUBB A,#0
MOV DPH,A
MOV A,#0
MOVC A,@A+DPTR ;查表
MOV SBUF,A ;串口0方式發送
WAIT2: JBC TI,GO2 ;等待發送完畢
AJMP WAIT2 ;
GO2: MOV A,DPL ;指向前三個字行左字節
SUBB A,#1
MOV DPL,A
MOV A,DPH
SUBB A,#0
MOV DPH,A
MOV A,#0
MOVC A,@A+DPTR
MOV SBUF,A
WAIT3: JBC TI,GO3
AJMP WAIT3
GO3: DJNZ R0,MLOOP ;執行三次
SETB P1.7 ;關行顯示，準備涮新
NOP ;串口寄存器數據穩定
SETB P1.6 ;產生上升沿，行數據打入輸出端
NOP ;
NOP ;
CLR P1.6 ;恢復低電平
MOV A,R2 ;修改顯示行地址
ORL A,#0F0H ;修改顯示行地址
MOV R2,A ;修改顯示行地址
MOV A,P1 ;修改顯示行地址
ORL A,#0FH ;修改顯示行地址
ANL A,R2 ;修改顯示行地址
MOV P1,A ;修改完成
CLR P1.7 ;開行顯示
INC R2 ;下一行掃描地址值
INC DPTR ;
INC DPTR ;下一行數據地址
MOV A,R2
ANL A,#0FH
JNZ GO4
SETB 00H ;R2為10H，現為末行掃描，置1幀結束標志
MOV A,DPL ;指針修正為原幀初值
SUBB A,#32
MOV DPL,A
MOV A,DPH
SUBB A,#0
CLR TR0 ;一幀掃描完，關掃描
GO4: POP ACC
RETI ;退出
;***************;
; 掃描文字表 ;
;***************;
; 共五排字,每排四個字,前后為黑屏
TAB:
DB 000H,0C0H,000H,0C0H,0FCH,0FCH,0FCH,0FCH,00DH,08CH,06DH,08CH,06BH,060H,038H,060H ;
DB 018H,060H,018H,060H,03CH,070H,064H,0D8H,0E1H,08CH,043H,006H,006H,000H,000H,000H ; "歡" 0
DB 001H,080H,067H,0FCH,067H,07CH,036H,06CH,006H,06CH,0F6H,06CH,0F6H,06CH,036H,06CH ;
DB 036H,06CH,037H,07CH,036H,06CH,030H,060H,038H,000H,06FH,0FEH,0C7H,0FEH,000H,000H ; "迎" 1
DB 001H,080H,001H,080H,031H,088H,019H,098H,019H,0B0H,009H,0A0H,0FFH,0FEH,0FFH,0FEH ;
DB 006H,0C0H,006H,0C0H,006H,0C0H,00CH,0C4H,018H,0C6H,0F0H,0FEH,060H,07CH,000H,000H ; "光" 2
DB 000H,0C0H,018H,0C0H,0D9H,0FCH,0D9H,0FCH,0DBH,000H,0DEH,060H,0D8H,030H,0DBH,0FCH ;
DB 0DBH,0FCH,0DBH,06CH,0DBH,06CH,0DBH,06CH,0DBH,0FCH,01BH,0FCH,01BH,00CH,000H,000H ; "臨" 3
DB 000H,000H,0FDH,0FCH,0FDH,0FCH,058H,060H,031H,0FCH,0FDH,08CH,0FDH,0ACH,035H,0ACH ;
DB 031H,0ACH,031H,0ACH,031H,0ACH,030H,060H,030H,0D8H,071H,08CH,063H,006H,000H,000H ; "預" 4
DB 060H,000H,033H,0FCH,003H,0FCH,0FBH,00CH,0FBH,00CH,01BH,00CH,033H,0FCH,033H,0FCH ;
DB 079H,0B0H,0FDH,0B0H,035H,0B0H,031H,0B6H,033H,036H,03EH,03EH,034H,01CH,000H,000H ; "祝" 5
DB 003H,000H,003H,000H,003H,000H,003H,000H,07FH,0FCH,07FH,0FCH,003H,000H,003H,000H ;
DB 003H,000H,007H,080H,006H,0C0H,00CH,060H,018H,030H,030H,018H,060H,00CH,000H,000H ; "大" 6
DB 003H,000H,07FH,0FCH,07FH,0FCH,060H,00CH,01FH,0F0H,01FH,0F0H,006H,018H,01FH,030H ;
DB 077H,060H,00DH,0F0H,03BH,0D0H,076H,0D8H,00CH,0CCH,07BH,0C4H,063H,080H,000H,000H ; "家" 7
DB 003H,000H,01FH,0F8H,01FH,0F8H,018H,018H,01FH,0F8H,018H,018H,01FH,0FAH,018H,01EH ;
DB 07FH,0FCH,07FH,0F8H,000H,0D8H,003H,098H,00FH,018H,07CH,078H,070H,070H,000H,000H ; "身" 8
DB 018H,060H,018H,060H,030H,060H,037H,0FEH,077H,0FEH,070H,0E0H,0F1H,0F0H,0B1H,0F8H ;
DB 033H,068H,032H,064H,037H,0FEH,03DH,0FAH,030H,060H,030H,060H,030H,060H,000H,000H ; "體" 9
DB 030H,030H,03EH,0FCH,03EH,0FCH,066H,034H,067H,0FEH,0EDH,0FEH,0EEH,034H,06EH,0FCH ;
DB 062H,030H,06AH,0FCH,06EH,030H,064H,0FEH,06EH,030H,07BH,0FEH,060H,0FEH,000H,000H ; "健" 10
DB 001H,080H,07FH,0FEH,07FH,0FEH,061H,080H,06FH,0F8H,061H,098H,07FH,0FEH,061H,098H ;
DB 06FH,0F8H,069H,0C0H,06DH,0D8H,067H,0B0H,06DH,09CH,0D9H,08CH,043H,080H,000H,000H ; "康" 11
DB 000H,000H,0FFH,0FCH,0FFH,0FCH,006H,000H,006H,000H,007H,0F0H,007H,0F0H,00CH,030H ;
DB 00CH,030H,00CH,030H,018H,030H,018H,030H,030H,030H,061H,0E0H,0C0H,0C0H,000H,000H ; "萬" 12
DB 001H,080H,07FH,0FEH,07FH,0FEH,001H,080H,03FH,0F8H,031H,098H,03FH,0F8H,001H,080H ;
DB 03FH,0FCH,001H,08CH,0FFH,0FEH,001H,08CH,03FH,0FCH,001H,080H,007H,000H,000H,000H ; "事" 13
DB 018H,000H,018H,000H,018H,0FCH,0FEH,0FCH,0FEH,0CCH,036H,0CCH,036H,0CCH,036H,0CCH ;
DB 066H,0CCH,036H,0CCH,01CH,0CCH,01CH,0FCH,036H,0FCH,062H,0CCH,0C0H,000H,000H,000H ; "如" 14
DB 001H,080H,07FH,0FCH,07FH,0FCH,00CH,060H,07FH,0FEH,000H,000H,01FH,0F8H,018H,018H ;
DB 01FH,0F8H,018H,018H,01FH,0F8H,001H,000H,02DH,08CH,06CH,0B6H,0C7H,0F2H,000H,000H ; "意" 15
DB 000H,000H,03FH,0F8H,03FH,0F8H,001H,080H,001H,080H,001H,080H,07FH,0FEH,07FH,0FEH ;
DB 001H,080H,003H,0C0H,006H,060H,00CH,030H,018H,018H,070H,00EH,060H,006H,000H,000H ; "天" 16
DB 000H,000H,03FH,0F8H,03FH,0F8H,001H,080H,001H,080H,001H,080H,07FH,0FEH,07FH,0FEH ;
DB 001H,080H,003H,0C0H,006H,060H,00CH,030H,018H,018H,070H,00EH,060H,006H,000H,000H ; "天" 17
DB 000H,000H,07FH,0FCH,07FH,0FCH,00CH,060H,00CH,060H,00CH,060H,0FFH,0FEH,0FFH,0FEH ;
DB 00CH,060H,00CH,060H,00CH,060H,018H,060H,018H,060H,070H,060H,020H,060H,000H,000H ; "開" 18
DB 000H,000H,003H,000H,001H,080H,000H,080H,000H,000H,006H,010H,036H,018H,036H,00CH ;
DB 066H,006H,066H,006H,046H,010H,006H,018H,007H,0F8H,003H,0F0H,000H,000H,000H,000H ; "心" 19
END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -