【正文】 GET_DM6_LOADT3: RET。*********************************************************M6_LOADTF: MOV T_STOP,1 。初次加載時(shí)間停留固定字符 MOV T_LOADTF,1 MOV DPTR,NOD_SEG MOV 55H,DPH MOV 56H,DPL MOV 20H,00H MOV 21H,02H LCALL UPDATA_NUM MOV DPTR,NOD_SEG MOV 55H,DPH MOV 56H,DPL MOV 20H,00H MOV 21H,05H LCALL UPDATA_NUM MOV DPTR,TMP_SEG1 MOV 55H,DPH MOV 56H,DPL MOV 20H,00H MOV 21H,0EH LCALL UPDATA_NUM MOV DPTR,TMP_SEG2 MOV 55H,DPH MOV 56H,DPL MOV 20H,00H MOV 21H,0FH LCALL UPDATA_NUM RET。********************************************************M6_LOADD: MOV 20H,01H MOV 21H,20H 。下半屏預(yù)緩沖區(qū)首址：hex(((L*2+1)*17)1) MOV R7,16 。每個(gè)字加載16字節(jié)數(shù)據(jù) CLR SEL_0M6_LOAD2: CLR SEL MOV DPH,2AH MOV DPL,2BH MOVX A,@DPTR 。將字模數(shù)據(jù)存入預(yù)緩沖區(qū) INC DPTR MOV 2AH,DPH MOV 2BH,DPL SETB SEL MOV DPH,20H MOV DPL,21H MOVX @DPTR,A CLR C MOV A,21H ADD A,17 。下一行字模預(yù)緩沖地址，相鄰兩行地址相差：L*2+1 MOV 21H,A JNC M6_LOAD3 INC 20HM6_LOAD3: DJNZ R7,M6_LOAD2 SETB SEL_0 RET。***************UP_SEND***********************UP_SEND: SETB SEL 。上滾類模式發(fā)送子程序 CLR SEL_0 MOV R6,16 。共發(fā)送一行字節(jié)數(shù)：L*2 MOV R7,8 。共發(fā)送一字節(jié)位數(shù)：8UP_SEN1: MOV DPH,20H MOV DPL,21H MOVX A,@DPTR MOV 24H,A 。24H,上半屏待發(fā)送緩沖區(qū)：24H MOV 26H,20H 。26H,27H地址緩存 MOV 27H,21H INC DPH 。上下屏緩沖區(qū)地址相差100H MOVX A,@DPTR MOV 25H,A 。25H,下半屏待發(fā)送緩沖區(qū)：25H MOV 20H,26H MOV 21H,27H MOV R7,8 UP_SEN2: CLR SCK MOV A,24H RRC A MOV DATA1,C MOV 24H,A MOV A,25H RRC A MOV 25H,A MOV DATA2,C SETB SCK DJNZ R7,UP_SEN2 LCALL DEC_RAM DJNZ R6,UP_SEN1 SETB SEL_0 RET。***************LF_SEND***********************LF_SEND: SETB SEL 。左滾類子程序發(fā)送子程序 CLR SEL_0 MOV R6,16 。共發(fā)送字節(jié)數(shù)：L*2 MOV R7,8 。共發(fā)送一字節(jié)位數(shù)：8LF_SEN0: MOV DPH,20H MOV DPL,21H MOVX A,@DPTR MOV 24H,A 。24H,上半屏待發(fā)送緩沖區(qū)：24H MOV 26H,20H 。26H,27H地址緩存 MOV 27H,21H MOV A,21H ADD A,10H 。上、下半屏數(shù)據(jù)地址相差：hex((L*2+1)*16) MOV 21H,A INC 20H JNC LF_SEN1 INC 20HLF_SEN1: MOV DPH,20H MOV DPL,21H MOVX A,@DPTR MOV 25H,A 。25H,下半屏待發(fā)送緩沖區(qū)：25H MOV 20H,26H MOV 21H,27H MOV R7,8 LF_SEN2: CLR SCK MOV A,24H RRC A MOV DATA1,C MOV 24H,A MOV A,25H RRC A MOV 25H,A MOV DATA2,C SETB SCK DJNZ R7,LF_SEN2 LCALL DEC_RAM DJNZ R6,LF_SEN0 SETB SEL_0 RET。**************M1_SHIFT***********************M1_SHIFT: SETB SEL 。16x16上滾模式字符移動(dòng)子程序 CLR SEL_0 MOV 20H,00H MOV 21H,00H MOV 26H,00H MOV 27H,10H 。移位數(shù)據(jù)首址：hex(L*2) MOV R6,40 MOV R7,16 M1_SHIF1: MOV DPH,26H MOV DPL,27H MOVX A,@DPTR INC DPTR MOV 26H,DPH MOV 27H,DPL MOV DPH,20H MOV DPL,21H MOVX @DPTR,A INC DPTR MOV 20H,DPH MOV 21H,DPL DJNZ R7,M1_SHIF1 MOV R7,16 DJNZ R6,M1_SHIF1 SETB SEL_0 RET。**************M2_SHIFT***********************M2_SHIFT: SETB SEL 。32x32上滾模式字符移動(dòng)子程序 CLR SEL_0 MOV 20H,00H MOV 21H,10H 。移位數(shù)據(jù)首址：hex(L*2) MOV R6,17 。待處理數(shù)據(jù)個(gè)數(shù)：L*2+1 MOV R7,33 。2個(gè)字M2_SHIF1: MOV DPH,20H MOV DPL,21H MOVX A,@DPTR MOV C,F0 RLC A MOVX @DPTR,A MOV F0,C LCALL DEC_RAM DJNZ R6,M2_SHIF1 MOV R6,17 。待處理數(shù)據(jù)個(gè)數(shù)：L*2+1 CLR C MOV A,34 。轉(zhuǎn)到下一行，相鄰兩行地址相差：（L*2+1）*2 ADD A,21H MOV 21H,A JNC M2_SHIF3 INC 20HM2_SHIF3: DJNZ R7,M2_SHIF1 SETB SEL_0 RET。**************M6_SHIFT***********************M6_SHIFT: SETB SEL 。時(shí)間模式日期字符移動(dòng)子程序 CLR SEL_0 MOV 20H,00H MOV 21H,10H 。時(shí)間區(qū)移位數(shù)據(jù)首址：hex(L*2) LCALL M6_SHIF SETB SEL_0 RETM6_SHIFD: SETB SEL 。時(shí)間模式文字字符移動(dòng)子程序 CLR SEL_0 MOV 20H,01H MOV 21H,20H 。數(shù)據(jù)區(qū)移位數(shù)據(jù)首址：hex(((L*2+1)*17)1) LCALL M6_SHIF SETB SEL_0 RET。*********************************************M6_SHIF: MOV R7,16 MOV R6,17 。待處理數(shù)據(jù)個(gè)數(shù)：L*2+1M6_SHIF1: MOV DPH,20H MOV DPL,21H MOVX A,@DPTR MOV C,F0 RLC A MOVX @DPTR,A MOV F0,C LCALL DEC_RAM DJNZ R6,M6_SHIF1 MOV R6,17 。待處理數(shù)據(jù)個(gè)數(shù)：L*2+1 CLR C MOV A,34 。轉(zhuǎn)到下一行，相鄰兩行地址相差：（L*2+1）*2 ADD A,21H MOV 21H,A JNC M6_SHIF3 INC 20HM6_SHIF3: DJNZ R7,M6_SHIF1 RET。***********************************************GET_T: CLR BUSY 。發(fā)送讀取時(shí)間聯(lián)絡(luò)信號(hào) MOV R7,5 DJNZ R7,$ SETB BUSYWAITBT: MOV C,BUSY 。等待完成 JC WAITBT CLR SEL_0 MOV DPTR,1C00H 。讀取存在特定緩沖區(qū)中的時(shí)間信息 MOVX A,@DPTR MOV 40H,A INC DPTR MOVX A,@DPTR MOV 41H,A INC DPTR MOVX A,@DPTR MOV 42H,A INC DPTR MOVX A,@DPTR MOV 48H,A INC DPTR MOVX A,@DPTR MOV 49H,A INC DPTR MOVX A,@DPTR MOV 4AH,A SETB SEL_0 RET。***********************************************GET_D: CLR BUSY 。發(fā)送讀取日期聯(lián)絡(luò)信號(hào) CLR DOWN NOP NOP NOP NOP NOP SETB BUSYWAITBD: MOV C,BUSY 。等待完成 JC WAITBD SETB DOWN RET。***************************************SAVE_NEWT: LCALL SERP 。更新時(shí)間子程序 MOV DPTR,NUM_SEG MOV 53H,DPH MOV 54H,DPL MOV 55H,53H MOV 56H,54H MOV A,51H LCALL ADDR_SHIF MOV 20H,2EH MOV 21H,2FH LCALL UPDATA_NUM MOV 55H,53H MOV 56H,54H MOV A,2FH CLR C ADD A,1 MOV 2FH,A JNC SAVE_NEWT1 INC 2EHSAVE_NEWT1: MOV A,52H LCALL ADDR_SHIF MOV 20H,2EH MOV 21H,2FH LCALL UPDATA_NUM RET。*******************************************UPDATA_NUM: SETB SEL CLR SEL_0 MOV R7,16 MOV R6,00UPDATA_NUM1: MOV DPH,55H MOV DPL,56H MOV A,R6 MOVC A,@A+DPTR MOV DPH,20H MOV DPL,21H MOVX @DPTR,A INC R6 MOV A,21H CLR C ADD A,17 。下一行地址相差：2*L+1 MOV 21H,A JNC UPDATA_NUM2 INC 20HUPDATA_NUM2: DJNZ R7,UPDATA_NUM1 SETB SEL_0 RET。*******************************************SERP: MOV A,50H 。單字節(jié)數(shù)據(jù)分離子程序 SWAP A ANL A,0FH MOV 51H,A MOV A,50H ANL A,0FH MOV 52H,A RET。*****************************************ADDR_SHIF: MOV B,16 。地址偏移子程序 MUL AB CLR C ADD A,56H MOV 56H,A JNC ADDR_SHIF1 INC 55HADDR_SHIF1: MOV A,B ADD A,55H MOV 55H,A RET