led.sdi

一个双字点阵的程序,能实现左右移动的功能.

,,,         ORG    00H
0000,75 20 00,MOVE,MOVE:    MOV    20H,#00H;代码暂存地址为20H
0003,7C 00,,         MOV    R4,#00H;74154扫描指针初值
0005,79 0F,M1,M1:      MOV    R1,#0fH;每幕停留时间
0007,7E 20,M2,M2:      MOV    R6,#32;每幕32个数据
0009,A8 20,,         MOV    R0,20H;取码指针存入R0
000B,12 00 1F,M3,M3:      CALL   READ1
000E,0C,,         INC    R4;扫描下一行
000F,DE FA,,         DJNZ   R6,M3;是否显示完一幕?
0011,7C 00,,         MOV    R4,#00h;清除74154扫描指针
0013,D9 F2,,         DJNZ   R1,M2;每幕停留时间到了吗?
0015,E5 20,,         MOV    A,20H
0017,24 08,,         ADD    A,#08
0019,F5 20,,         MOV    20H,A
001B,64 FF,,         xrl    a,#0ffh;8个字是否左移完毕?
001D,70 E6,,         JNZ    M1
,,,
001F,8C 90,READ1,READ1:   MOV    P1,R4;扫描指针载入
,,,
0021,E8,,         MOV    A,R0;取码指针载入A
0022,90 00 3C,,         MOV    DPTR,#TAB;数据指针到TAB
0025,93,,         MOVC   A,@A+DPTR;到TAB取上半部的数据码
0026,F5 80,,         MOV    P0,A
0028,08,,         INC    R0
0029,E8,,         MOV    A,R0
002A,90 00 3C,,         MOV    DPTR,#TAB;数据指针到TAB
002D,93,,         MOVC   A,@A+DPTR;到TAB取下半部数据码
002E,F5 A0,,         MOV    P2,A
0030,08,,         INC    R0
0031,7B FF,,         MOV    R3,#0ffh;延时
0033,DB FE,,         DJNZ   R3,$
0035,74 00,,         MOV    A,#00H
0037,F5 80,,         MOV    P0,A
0039,F5 A0,,         MOV    P2,A
003B,22,,         RET
003C,00 00 00 00,TAB,TAB:    DB 00h,00h,00h,00h,0F8h,7Fh,08h,21h,08h,21h,0Ch,21h,0Bh,21h,08h,21h ;
004C,08 21 08 21,,        DB 08h,21h,08h,21h,08h,21h,08h,21h,0F8h,7Fh,00h,00h,00h,00h,00h,00h ; "白" 0
,,,
005C,40 00 40 20,,        DB 40h,00h,40h,20h,44h,70h,44h,38h,44h,2Ch,44h,27h,0C4h,23h,0C4h,31h ;
006C,44 10 44 12,,        DB 44h,10h,44h,12h,46h,14h,46h,18h,64h,70h,60h,20h,40h,00h,00h,00h ; "云" 1
000E,,,        END
,,,