南昌航空大学单片机温度采集控制实验.doc

ORG 0000H LJMP MAIN ORG 000BH LJMP INT_T0 MAIN: MOV SP,#60H CALL INT7279 MOV TMOD,#01H MOV TH0,#0ECH MOV TL0,#78H MOV IE,#82H SETB TR0 LOOP1: SJMP LOOP1 INT7279: MOV A,#0A4H ; ；送复位指令 LCALL STFS ; ；调用发送一字节子程序 RETSTFS: CLR P1.0 ; ； MOV R6,#32H WAIT: DJNZ R6,WAIT ; ； MOV R7,#08H LP11: RLC A MOV P1.2,C ;； SETB P1.1 ;；clk置1 MOV R6,#08H LP5: DJNZ R6,LP5 ;；防抖 CLR P1.1 ; ；clk置0 MOV R6,#08H LP6: DJNZ R6,LP6; ；延时 DJNZ R7,LP11; ； CLR P1.2 ; ； RETINT_T0: PUSH ACC ; ；保护现场 PUSH PSW MOV PSW,#08H MOV TH0,#0ECH MOV TL0,#78H INC 3EH LCALL AD0809 LCALL CHANGE MOV A,3EH CLR C SUBB A,#50D ;；要改就改这值 JC INTLP1 LCALL DISP MOV 3EH,#00H LJMP INTLP2 ; ； INTLP1:MOV A,3EH LCALL DISP CLR P1.0 SETB P1.4 LJMP INTTC2 INTLP2 :SETB P1.0 CLR P1.4INTTC2: POP PSW POP ACC RETIAD0809:MOV A,#00H ; ;选择09INO口MOV DPTR,#0A000H ; ；片选首地址MOVX DPTR,A MOV R7,#20H ; ；延时LOOP2: R7,LOOP2 MOVX A,DPTR ; ；采样值给A再送给4CH MOV 4CH,A RETCHANGE: MOV R5,#00H ; ；存储单元R5、R6、R7清零 MOV R6,#00H ;； MOV R7,#00H MOV R2,#03H ; ；R2R3=1000D MOV R3,#0EBH ; ;实现采样值*1000D MOV R7,4CH QMUL: MOV A,R3 MOV B,R7 MUL AB XCH A,R7 MOV R6,B MOV B,R2 MUL AB ADD A,R6 MOV R6,A CLR A ADDC A,B MOV R5,A MOV A,R6 ;；实现采样值*1000D/256D MOV R3,A MOV A,R5 MOV R2,A ; MOV R0,#44H MOV R7,#10H ; ;双字节二进制转换十进制 MOV R5,#00H MOV R6,#00HLP2: CLR C MOV A,R3 RLC A MOV R3,A MOV A,R2 RLC A MOV R2,A MOV A,R6 ADDC A,R6 DA A MOV R6,A MOV A,R5 ADDC A,R5 DA A MOV R5,A DJNZ R7,LP2 MOV A,R5 LCALL AM MOV A,R6 INC R0 LCALL AM MOV A,46H ADD A,#10H MOV 46H,A RETAM: MOV R4,A SWAP A ANL A,#0FH MOV R0,A INC R0 MOV A,R4 ANL A,#0FH MOV R0,A RETDISP: MOV R5,#08H MOV R0,#40H MOV R2,#97HDP1: MOV DPTR,#TAB1 MOV A,R2 LCALL STFSMOV R6,#20HLPL:DJNZ R6,LPL MOV A,R0 MOVC A,A+DPTR ACALL STFS INC R0 DEC R2 DJNZ R5,DP1 RETTAB1: DB 7EH,30H,6DH,79H,33H,5BH,5FH,70H,7FH,7BH DB 77H,1FH,4EH,3DH,4FH,47H,0FEH,0B0H