【正文】 MOV P2,A MOV A,@R1 MOV DPTR,TAB MOVC A,@A+DPTR MOV P0,A LCALL DL1MS INC R1 MOV A,R5 本 科 專 業(yè) 課 課 程 設(shè) 計 第 28 頁 共 33 頁 JNB ,ENDOUT RR A MOV R5,A AJMP PLAY ENDOUT: MOV P2,0FFH MOV P0,0FFH RET TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,88H,0BFH 。共陽段碼表 “ 0”，“ 1”，“ 2”，“ 3”，“ 4”，“ 5”，“ 6”，“ 7”，“ 8”，“ 9”，“不亮”，“ A”， “ — ” ****************中斷程序 **************** INTT0: CLR EA 。T0 中斷， 65ms 中斷一次 CLR TR0 MOV TH0,00H MOV TL0,00H SETB ET1 SETB EA SETB TR0 。啟動計數(shù)器 T0，用以計算超聲來回時間 SETB TR1 。開啟發(fā)超聲波用定時器 T1 OUT: RETI INTT1: CPL VOUT 。T1 中斷，發(fā)超聲波用 DJNZ R4,RETIOUT CLR TR1 。超聲波發(fā)送完畢，關(guān) T1 CLR ET1 MOV R4,04H SETB EX0 。開啟接收回波中斷 RETIOUT: RETI PINT0: CLR TR0 。外中斷 0，收到回波時進(jìn)入，關(guān)計數(shù)器 本 科 專 業(yè) 課 課 程 設(shè) 計 第 29 頁 共 33 頁 CLR TR1 CLR ET1 CLR EA CLR EX0 MOV 44H,TL0 。將計數(shù)值移入處理單元 MOV 45H,TH0 SETB 00H 。接收成功標(biāo)志 RETI *************延時程序 ************* DL1MS: MOV R6,14H DL: MOV R7,19H DL1: DJNZ R7,DL1 DJNZ R6,DL RET ************距離計 算程序（距離 =計數(shù)值 17／ 1000Cm ********************** MATH: PUSH ACC PUSH PSW PUSH B MOV PSW,18H MOV R3,45H MOV R2,44H MOV R1,00D MOV R0,17D LCALL MUL2BY2 MOV R3,03H MOV R2,0E8H LCALL DIV4BY2 LCALL DIV4BY2 MOV 40H,R4 MOV A,40H JNZ J0 本 科 專 業(yè) 課 課 程 設(shè) 計 第 30 頁 共 33 頁 MOV 40H,0AH 。最高位為 0，不點亮 J0: MOV A,R0 MOV R4,A MOV A,R1 MOV R5,A MOV R3,00D MOV R2,100D LCALL DIV4BY2 MOV 41H,R4 MOV A,41H JNZ J1 MOV A,40H 。次高位為 0，先看最高位是否為不亮 SUBB A, 0AH JNZ J1 MOV 41H,0AH。 ；最高位不亮，次高位也不亮 J1: MOV A, R0 MOV R4, A MOV A, R1 MOV R5, A MOV R3, 00D MOV R2, 10D LCALL DIV4BY2 MOV 42H, R4 MOV A, 42H JNZ J2 MOV A,41H。 ；次次高位為 0，先看次高位是否為不亮 SUBB A, 0AH JNZ J2 MOV 42H,0AH。 ；次高位不亮，次次高位也不亮 J2: MOV 43H, R0 POP B 本 科 專 業(yè) 課 課 程 設(shè) 計 第 31 頁 共 33 頁 POP PSW POP ACC RET *************************2 字節(jié)無符號數(shù)乘法程序 ************************** MUL2BY2: CLR A MOV R7, A MOV R6, A MOV R5, A MOV R4, A MOV 46H, 10H MULLOOP1: CLR C MOV A, R4 RLC A MOV R4, A MOV A, R5 RLC A MOV R5, A MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A MOV R7, A MOV A, R0 RLC A MOV R0, A MOV A, R1 RLC A MOV R1, A JNC MULLOOP2 MOV A, R4 ADD A, R2 本 科 專 業(yè) 課 課 程 設(shè) 計 第 32 頁 共 33 頁 MOV R4, A MOV A, R5 ADDC A, R3 MOV R5, A MOV A, R6 ADDC A, 00H MOV R6, A MOV A, R7 ADDC A, 00H MOV R7, A MULLOOP2: DJNZ 46H, MULLOOP1 RET **********************4 字節(jié)／ 2 字節(jié)無符號數(shù)除發(fā)程序 *********************** DIV4BY2: MOV 46H, 20H MOV R0, 00H MOV R1, 00H DIVLOOP1: MOV A, R4 RLC A MOV R4, A MOV A, R5 RLC A MOV R5, A MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A MOV R7, A MOV A, R0 RLC A MOV R0, A MOV A, R1 本 科 專 業(yè) 課 課 程 設(shè) 計 第 33 頁 共 33 頁 RLC A MOV R1, A CLR C MOV A, R0 SUBB A, R2 MOV B, A MOV A, R1 SUBB A, R3 JC DIVLOOP2 MOV R0, B MOV R1, A DIVLOOP2: CPL C DJNZ 46H, DIVLOOP1 MOV A, R4 RLC A MOV R4, A MOV A, R5 RLC A MOV R5, A MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A MOV R7, A RET END。 ；程序結(jié)束