《16个大字2MicrosoftWord文档》由会员分享，可在线阅读，更多相关《16个大字2MicrosoftWord文档（5页珍藏版）》请在金锄头文库上搜索。
1、- 1 -SER BIT P0.0 ; P0 数据位PLUS BIT P0.1 ; P0 移位脉冲位SCSC BIT P0.2 ; P0 P2 锁存输出脉冲位CS138 BIT P0.5 ; P0 P2 译码器片选位A138 BIT P0.6 ; P0 P2 译码器输出位B138 BIT P0.7 ; P0 P2 译码器输出位SER2 BIT P2.0 ; P2 数据位PLUS2 BIT P2.1 ; P2 移位脉冲位FLAG BIT 00HTEMP0 EQU 30H ; 暂存列移动次数TIMEP1 EQU 31H ;暂存当前数TIMEP2 EQU 32H ;暂存源数DPH2 EQU 33HD
2、PL2 EQU 34H ; P2 数据指针首址ORG 0000HAJMP MAINORG 0030H;*50 次完整送数后开始进行列移动 *;设置列移动计数器 R5，即列移动位数，其变化规律是 0、1、2、3.7;设置字节移动计数器 R7，即字节移动次数，其变化规律是 0、1、2、63MAIN: CLR SCSC ;关锁存输出CLR CS138 ;关译码器CLR PLUSMOV R7,#63 ;字节移动次数MOV DPTR,#TABDISMOV DPH2,DPHMOV DPL2,DPL ; P2 数据指针首地址暂存MAIN2:MOV R5,#0 ; 列移动次数MAIN4:LCALL START
3、 ; P0/ P2 口送出 16 个大字 50 次INC R5CJNE R5,#7,MAIN4 ; 7 次移动后转为字节移动MOV R5,#0MOV A,DPL2ADD A,#32MOV DPL2,AMOV A,DPH2ADDC A,#0MOV DPH2,ADJNZ R7, MAIN2AJMP MAIN;*50 次完整从 P0 P2 口送出 16 个大字*START:MOV R6,#50START2:MOV R2,#4 ;扫描寄存器，输出为 3-0;-一次完整送出 16 个大字- 2 -MOV DPH, DPH2MOV DPL, DPL2 ;取 P2 数据指针首址GGG:MOV R1,#64S
4、TART4: SETB FLAGLCALL SEND595P2 ; P2 送 4 行 4 个字节的数据CLR FLAGLCALL SEND595P0 ; P0 送 4 行 4 个字节的数据DJNZ R1, START4MOV DPH, DPH2MOV DPL, DPL2INC DPTR ;调整下 4 行数据指针首地址CLR CS138 ;关译码器SETB SCSC ;锁存输出CLR SCSC ;锁存输出DEC R2MOV A,R2RRC AMOV A138,C ;扫描输出RRC AMOV B138,C ;扫描输出SETB CS138 ;开译码器CJNE R2,#0, GGG;-DJNZ R6,
5、START2RET;*;* P0 P2 送 4 行数据*;列移动：列移动是在当前 DPTR 的基础上，寻找 DPTR+32 的源数，再根据移动计数器 R5 的值补充移入若干位。SEND595P0: MOV R4,#4 ; 4 个数据LOOP: MOV A,#0MOVC A,A+DPTR ;当前数CJNE R5,#0, LOOP2AJMP LOOP12 ;R5=0 不需要列移动;-列移动准备-LOOP2:MOV TEMP0,R5 ;列移动次数MOV TIMEP1,A ;暂存当前数MOV A,#32MOVC A,A+DPTR ;寻找 DPTR+32 的源数MOV TIMEP2,A ;暂存源数;-列
6、移动-LOOP6:MOV A, TIMEP2 ;源数RLC A ;移出源数高一位MOV TIMEP2,A ;暂存源数- 3 -MOV A, TIMEP1 ;当前数RLC A ;将源数移出的一位移入当前数MOV TIMEP1,A ;暂存当前数DJNZ TEMP0,LOOP6LOOP12:JB FLAG, LOOP14LCALL SONGZIJIE ;给 P0 口 595 送一个字节SJMP LOOP16LOOP14:LCALL SONGZIJIETT ;给 P2 口 595 送一个字节;-调整下一字节地址-LOOP16:INC DPTR INC DPTR INC DPTR INC DPTR ;调
7、整数据指针首地址DJNZ R4,LOOPRET;*;*给 P0 口 595 送一个字节*SONGZIJIE:RLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSCLR PLUSRLC AMOV SER,C- 4 -SETB PLUSCLR PLUSRLC AMOV SER,CSETB PLUSC
8、LR PLUSRET;*给 P2 口 595 送一个字节*SONGZIJIETT:RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RLC AMOV SER2,CSETB PLUS2CLR PLUS2RETTABDIS:DB 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0C0H, 0FFH, 0FFH, 0EFH, - 5 -0F7H, 0F3H, 0F9H, 0FCH, 0FEHEND
