【正文】 MOV A, SLA LCALL WRBYT LCALL CACK JB F0, WRNBYT MOV R1, MTDWRDA: MOV A, @R1 LCALL WRBYT LCALL CACK JB F0, WRNBYT INC R1 DJNZ R3, WRDA LCALL STOP RETRDNBYT: MOV R3, NUMBYT LCALL STA MOV A, SLA LCALL WRBYT LCALL CACK JB F0, RDNBYTRDN: MOV R1, MRDRDN1: LCALL RDBYT MOV @R1, A DJNZ R3, ACK LCALL MNACK LCALL STOP RETACK: LCALL MACK INC R1 SJMP RDN1。 DISPLAY PROGRAM 。 顯示程序。顯示 BCD 碼在 70H73H 單元內(nèi)，采用共陰 LED 數(shù)碼管DISPLAY: MOV R1, 70H 。 顯示單元首址 MOV R2, 0FEH 。 掃描字PLAY: MOV A, R2 。 掃描字入 A MOV P2, A 。 放到端口 MOV A, @R1 。 取顯示數(shù)據(jù) ANL A, 0FH 。 去掉高四位（為 0） MOV DPTR, TAB 。 取段碼表首址 MOVC A, @A+DPTR 。 查顯示數(shù)據(jù)對應(yīng)段碼 MOV P0,A 。 段碼輸出 LCALL DL1MS 。 點(diǎn)亮 1 毫秒 INC R1 。 指向下一顯示數(shù)據(jù)地址 MOV A, R2 。 取掃描字 JNB , ENDOUT 。已掃描到第四位，轉(zhuǎn) ENDOUT 退出 RL A 。 循環(huán)左移 MOV R2, A 。 放回 R2 AJMP PLAY 。 轉(zhuǎn) PLAY 循環(huán)ENDOUT: SETB 。 關(guān)掃描 SETB 。 關(guān)掃描 SETB 。 關(guān)掃描 SETB 。 關(guān)掃描 RET 。 掃描結(jié)束。共陰段碼表（可顯示 0F）TAB: DB 3FH, 06H, 5BH, 4FH, 66H, 6DH, 7DH, 07H DB 7FH, 6FH, 77H, 7CH, 39H, 5EH, 79H, 71H DB 00H。 SSS PROGRAM 。 里程處理程序，將自行車圈數(shù)據(jù)換算成公里數(shù)SSS: MOV 19H, 64H 。 除數(shù)最高位賦值 MOV 18H, 00H 。 除數(shù)賦值 MOV 17H, 00H 。 除數(shù)賦值 MOV 16H, 00H 。 除數(shù)賦值 MOV 11H, 00H 。 被除數(shù)賦值 MOV 12H, 00H 。 被除數(shù)賦值 MOV 13H, 62H 。 被除數(shù)賦值 MOV 14H, 61H 。 被除數(shù)賦值 MOV 15H, 60H 。 被除數(shù)賦值 LCALL DIVST 。 調(diào)除法程序 LCALL BCDST 。 調(diào)二進(jìn)制轉(zhuǎn) BCD 碼程序 MOV A, 25H 。 結(jié)果處理，將 25H 數(shù)移入 A ANL A, 0FH 。 將高四位置為 0 MOV 70H, A 。 放入 70H 單元 MOV A, 25H 。 25H 數(shù)移入 A SWAP A 。 高低四位交換 ANL A, 0FH 。 將高四位置為 0 MOV 71H, A 。 放入 71H 單元 MOV A, 24H 。 24H 數(shù)移入 A ANL A, 0FH 。 將高四位置為 0 MOV 72H, A 。 放入 72H 單元 MOV A, 24H 。 24H 數(shù)移入 A SWAP A 。 高低四位交換 ANL A, 0FH 。 將高四位置為 0 MOV 73H, A 。 放入 73H 單元 RET 。 子程序返回。 VVV PROGRAM 。 時(shí)速處理程序，最大顯示速度為 99 公里/小時(shí)（用作自行車）VVV: MOV 18H,68H 。 除數(shù)賦值 MOV 17H,69H 。 除數(shù)賦值 MOV 16H,6AH 。 除數(shù)賦值 MOV 11H,00H 。 被除數(shù)賦值 MOV 12H,00H 。 被除數(shù)賦值 MOV 13H, 36H 。 被除數(shù)賦值 MOV 14H, 0EEH 。 被除數(shù)賦值 MOV 15H, 80H 。 被除數(shù)賦值 LCALL DIVST 。 調(diào)除法程序 MOV 14H, 00H 。 舍去一位 LCALL BCDST 。二進(jìn)制轉(zhuǎn) BCD 碼程序 MOV A, 25H 。以下將速度值放入顯示單元 ANL A, 0FH 。高四位為 0 MOV 70H, A 。放入 70H 內(nèi) MOV A, 25H 。再取數(shù) SWAP A 。高低四交換 ANL A, 0FH 。高四位為 0 MOV 71H, A 。放入 71H 內(nèi) MOV 72H, 00H 。72H 為 0（高二位 LED 顯示 0） MOV 73H, 00H 。73H 為 0 RET 。子程序返回。 DL1MS 。1 毫秒延時(shí)程序，LED 點(diǎn)亮用DL1MS: MOV R6, 14HDL1: MOV R7, 19HDL2: DJNZ R7, DL2 DJNZ R6, DL1 RET 。 。出錯閃爍用延時(shí)（255 毫秒）DL5S: MOV R5, 0FFHDL3: LCALL DL1MS DJNZ R5, DL3 RET。 除法子程序 。除法子程序，用作四位除法，除數(shù)在 16H19H，被除數(shù)在 11H15H。DIVST: CLR C 。運(yùn)算開始 MOV A, 13H SUBB A, 18H MOV A, 12H SUBB A, 17H MOV A, 11H SUBB A, 16H JNC LOOP4 MOV B, 10H NDIV1: CLR C MOV A, 15H RLC A MOV 15H, A MOV A, 14H RLC A MOV 14H, A MOV A, 13H RLC A MOV 13H, A MOV A, 12H RLC A MOV 12H, A MOV A, 11H RLC A MOV 11H, A MOV F0, C CLR C MOV A, 13H SUBB A, 18H MOV 1AH, A MOV A, 12H SUBB A, 17H