;四個顯示字符數據表放在50H-6FH單元內，字符用8*8點陣，R4（30H）用于
;控制顯示靜止字的時間，R5（31H）靜止字顯示跳轉地址步距，B內放顯示首址
;
;************;

;中斷入口程序;
;************;
;
ORG0000H;程序執(zhí)行開始地址
LJMPSTART;跳至START執(zhí)行
ORG0003H;外中斷0中斷入口地址
RETI;中斷返回（不開中斷）
ORG000BH;定時器T0中斷入口地址
RETI;中斷返回（不開中斷）
ORG0013H;外中斷1中斷入口地址
RETI;中斷返回（不開中斷）
ORG001BH;定時器T1中斷入口地址
RETI;中斷返回（不開中斷）
ORG0023H;串行口中斷入口地址
RETI;中斷返回（不開中斷）
ORG002BH;定時器T2中斷入口地址
RETI;中斷返回（不開中斷）
;
;初始化程序
CLEARMEN:MOVA,#0FFH;四端口置1
MOVP1,A;
MOVP2,A;
MOVP3,A;
MOVP0,A;
MOVDPTR,#TAB;取"電子設計"字符表首址值
CLRA;
MOV21H,A;21H-24H內存單元清0
MOV22H,A;
MOV23H,A;
MOV24H,A;
MOVR3,A;R3寄存器清0
MOVR1,#50H;設字符表移入內存單元首址
MOVR2,#20H;設查表次數（32次）
CLLOOP:MOVCA,@A+DPTR;查表將"電子設計"字符數據移入內存單元
MOV@R1,A;
MOVA,R3;
INCA;
MOVR3,A;
INCR1;
DJNZR2,CLLOOP;查表32次，不到轉CLLOOP再查
RET;子程序返回
;
;主體程序
START:MOV20H,#00H;20H內存單元清0
SETB00H;20H.0位置1
START1:LCALLCLEARMEN;調用上電初始化子程序
JB00H,FUN0;20H.0位為1，執(zhí)行FUN0
JB01H,FUN1;20H.1位為1，執(zhí)行FUN1
JB02H,FUN2;20H.2位為1，執(zhí)行FUN2
AJMPSTART1;跳回START1循環(huán)
;
;鍵掃描子程序
KEYWORK:MOVP1,#0FFH;置輸入狀態(tài)
JNBP1.0,KEY1;P1.0為0（鍵按下）轉KEY1
JNBP1.1,KEY2;P1.1為0（鍵按下）轉KEY2
JNBP1.2,KEY3;P1.2為0（鍵按下）轉KEY3
KEYRET:RET;無鍵按下，子程序返回
;按鍵1功能處理
KEY1:LCALLDL10MS;延時10MS削抖動
JBP1.0,KEYRET;是干擾轉KEYRET結束
SETB00H;置逐字顯示方式標志（20H.0=1）
CLR01H;
CLR02H;
RET;子程序返回
;按鍵2功能處理
KEY2:LCALLDL10MS;
JBP1.1,KEYRET;
SETB01H;置上移顯示方式標志（20H.1=1）
CLR00H;
CLR02H;
RET;
;按鍵3功能處理
KEY3:LCALLDL10MS;
JBP1.2,KEYRET;
SETB02H;置左移顯示方式標志（20H.2=1）
CLR01H;
CLR00H;
RET
;
;逐字顯示功能程序
FUN0:MOV30H,#80H;1幀顯示時間控制（約1秒）
MOV31H,#08H;換幀跳轉步距為8
LJMPDISP1;轉顯示子程序DISP1
;上移顯示功能程序
FUN1:MOV30H,#0AH;1幀顯示時間控制（約80毫秒）
MOV31H,#01H;換幀跳轉步距為1
LJMPDISP1;轉顯示子程序DISP1
;左移顯示功能程序
FUN2:LJMPDISP2;
;
;顯示控制程序
DISP1:MOVB,#50H;顯示數據首址
MOVR4,30H;放入1幀顯示時間控制數據
MOVR5,31H;放入跳轉步距控制數據
LOOP:LCALLDISPLAY;調用顯示子程序一次
DJNZR4,LOOP;1幀顯示時間未到再轉LOOP循環(huán)
MOVR4,30H;1幀顯示時間到，重裝初值
MOVA,B;
CJNEA,#68H,CONT;不是末地址轉CONT
AJMPSTART1;是末地址，一次顯示結束跳回START1
CONT:ADDA,R5;次幀掃描首址調整
MOVB,A;
AJMPLOOP;轉LOOP進行次幀掃描
;
;顯示子程序，字符數據從P0口輸出，掃描控制字從P2口輸出，顯示1幀約需8MS
DISPLAY:MOVA,#0FFH;
MOVP0,A;關顯示數據
MOVP2,A;關掃描
MOVR6,#0FEH;賦掃描字
MOVR0,B;賦顯示數據首地址
MOVR7,#08H;一次掃描8行
DISLOOP:MOVA,@R0;取顯示數據
MOVP0,A;放入P0口
MOVP2,R6;掃描輸出（顯示某一行）
LCALLDL1MS;亮1毫秒
INCR0;指向下一行數據地址
MOVA,R6;掃描字移入A
RLA;循環(huán)左移一位
MOVR6,A;放回R6
DJNZR7,DISLOOP;8行掃描未完轉DISLOOP繼續(xù)
RET;8行掃描結束
;
;左移顯示控制程序
DISP2:MOVR5,#32;左移32次
DISP22:LCALLDISPP;調用左移顯示控制子程序
LCALLMOVH;調用高位移出處理子程序MOVH
LCALLMOVH1;調用高位移出處理子程序MOVH1
DJNZR5,DISP22;左移顯示32次控制
LJMPSTART1;跳回主程序
;
;左移顯示控制子程序
DISPP:MOVB,#50H;第一顯示字符首址
MOVR4,#25H;1幀顯示時間控制
DISPP1:LCALLDISPLAY;調用顯示子程序一次
DJNZR4,DISPP1;1幀顯示時間不到轉DISPP再循環(huán)
RET
;
;高位移出處理子程序。將"電子設計"四個字符數據的最高位移出至21H-24H單元內
MOVH:MOVR1,#21H;最高位移出存放單元首址
MOVR0,#50H;"電子設計"字符數據首址
MOVR2,#08H;每"字"移8次
MOV1:MOVA,@R0;取"電子設計"字符數據
CLRC;清進位C
RLCA;帶進位循左移
MOV@R0,A;放回原單元
MOVA,@R1;存放單元數據入A
RRCA;帶進位循右移
MOV@R1,A;放回存放單元
INCR0;字符數據地址加1
DJNZR2,MOV1;移8次未完轉MOV1再移
MOVR2,#08H;8次移完賦初值
INCR1;存放單元地址加1
MOVA,R1;判斷地址是否小于25H
SUBBA,#25H;
JZOUT;等于25H退出
AJMPMOV1;小于25H轉MOV1繼續(xù)
OUT:RET;子程序結束
;
;高位移出處理子程序。
MOVH1:MOVA,21H;21H與22H、23H、24H單元數據循交換
XCHA,24H;21H與24H全交換
XCHA,23H;23H與24H全交換
XCHA,22H;23H與22H全交換
MOV21H,A;22H與21H全交換
MOVR1,#21H;以下是重新組成顯示字符數據表程序
MOVR0,#50H;將21H-24H的各位分別移入50H-6FH的低位
MOVR2,#08H;移位次數
MOV2:MOVA,@R0;取字符數據
RRA;右移
MOV@R0,A;放回原單元
MOVA,@R1;取原移出最高位存放單元數
CLRC;清C
RRCA;帶進位循環(huán)右移
MOV@R1,A;放回原單元
MOVA,@R0;取字符數據
RLCA;帶進位循環(huán)左移
MOV@R0,A;放回字符數據
INCR0;字符數據地址加1
DJNZR2,MOV2;8次未完轉MOV2再繼續(xù)
MOVR2,#08H;8次完賦初值
INCR1;原移出最高位存放單元地址加1
MOVA,R1;判斷地址是否小于25H
SUBBA,#25H;
JZOUT;等于25H轉OUT退出
AJMPMOV2;小于25H轉MOV2繼續(xù)
;
;1毫秒延時子程序，采用調用掃鍵子程序延時，可快速讀出按紐的狀態(tài)
DL1MS:MOVR3,#64H;100*（10+2）us
LOOPK:LCALLKEYWORK
DJNZR3,LOOPK
RET
;
;0.5毫秒延時子程序
DL512:MOVR2,#0FFH
LOOP1:DJNZR2,LOOP1
RET
;
;10毫秒延時子程序
DL10MS:MOVR3,#14H
LOOP2:LCALLDL512
DJNZR3,LOOP2
RET
;
;"電子設計"顯示用ROM數據表
TAB:DB0EFH,83H,0ABH,83H,0ABH,83H,0EEH,0E0H;電
DB0FFH,0C7H,0EFH,83H,0EFH,0EFH,0CFH,0EFH;子
DB0B1H,0B5H,04H,0BFH,0B1H,0B5H,9BH,0A4H;設
DB0BBH,0BBH,1BH,0A0H,0BBH,0BBH,9BH,0BBH;計
DB00H,00H,00H,00H
END;程序結束