16x16点阵_三字流动纵向参考程序.docVIP

16x16点阵_三字流动纵向参考程序 ;************************************************* ;程序要实现的功能:74HC138模块驱动程序 ;占用资源：R7 ;************************************************** ;74HC138 A1 BIT P2.7 B1 BIT P2.6 C1 BIT P2.5 CTRL BIT P2.4 ;G1 ;74LS154 A2 BIT P2.7 B2 BIT P2.6 C2 BIT P2.5 D2 BIT P2.4 CTR2 BIT P2.3 ;G2 ;-------------------------------------------------- ;程序名： SENDDAT_138 ;功能： 译码子程序[向74HC138发送数据] ;入口参数：R7[传递要发送的数据] ;出口参数：无 ;占用资源：R7 ;简要说明：采用8位移位码[FEH左移]实施编码解码 ;-------------------------------------------------- SENDDAT_138: CJNE R7,#0FEH,HKE1 SETB CTRL SETB A1 SETB B1 SETB C1 AJMP HEND_K HKE1:CJNE R7,#0FDH,HKE2 SETB CTRL CLR A1 SETB B1 SETB C1 AJMP HEND_K HKE2:CJNE R7,#0FBH,HKE3 SETB CTRL SETB A1 CLR B1 SETB C1 AJMP HEND_K HKE3:CJNE R7,#0F7H,HKE4 SETB CTRL CLR A1 CLR B1 SETB C1 AJMP HEND_K HKE4:CJNE R7,#0EFH,HKE5 SETB CTRL SETB A1 SETB B1 CLR C1 AJMP HEND_K HKE5:CJNE R7,#0DFH,HKE6 SETB CTRL CLR A1 SETB B1 CLR C1 AJMP HEND_K HKE6:CJNE R7,#0BFH,HKE7 SETB CTRL SETB A1 CLR B1 CLR C1 AJMP HEND_K HKE7:CJNE R7,#07FH,HKE8 SETB CTRL CLR A1 CLR B1 CLR C1 AJMP HEND_K HKE8:CJNE R7,#0FFH,HEND_K CLR CTRL SETB A1 SETB B1 SETB C1 HEND_K:RET ;-------------------------------------------------- ;程序名： SENDDAT_138_2 ;功能： 译码子程序[向74HC138发送数据] ;入口参数：R7[传递要发送的数据] ;出口参数：无 ;占用资源：R7 ;简要说明：采用序号实施编码解码 如顺序号00H 编码为 000 译码为; 如顺序号01H 编码为 001 译码为 ;如顺序号为08H 编码为 000[随意] CTRL=0[置高电平] 译码为;借用此子程序顺带处理dp点的点亮与关闭做标识符 ;-------------------------------------------------- SENDDAT_138_2: CJNE R7,#007H,KE12 SE