淮阴工学院毕业设计说明书（论文）
MOV A,13H SUBB A,18H MOV A,12H SUBB A,17H MOV A,11H SUBB A,16H 第 36 页 共 45 页
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 MOV 19H,A MOV A,11H SUBB A,16H JB F0,NDIV2 JC NDIV3
NDIV2: MOV 11H,A
MOV A,19H MOV 12H,A MOV A,1AH MOV 13H,A INC 15H
NDIV3: DJNZ B,NDIV1
CLR F0
DIVEND: RET LOOP4: SETB F0
SJMP DIVEND
第 37 页 共 45 页
;************************************************************** ;BCD码转换程序
；将14H、15H单元内容内数据转换成十进制BCD码放在24H、25H单元内 ;****************************************************************; BCDST: MOV R7,#10H
CLR C MOV 25H,#00H MOV 24H,#00H
KKK: MOV A,15H
RLC A MOV 15H,A MOV A,14H RLC A
淮阴工学院毕业设计说明书（论文）
MOV 14H,A MOV A,25H ADDC A,25H DA A MOV 25H,A MOV A,24H ADDC A,24H DA A MOV 24H,A DJNZ R7,KKK RET
第 38 页 共 45 页
;***************************************************************; ；A/D转换程序
;***************************************************************; ADC: MOV SP,#80H
LCALL TLC549 ;启动TLC549进行A/D转换 LCALL DELAY1
LOOP: LCALL TLC549 ;读取上次ADC值，再次启动TLC549
LCALL DELAY1 ; 进行A/D转换
MOV P2,A ;将读取的A/D转换值送往P2口显示 RET
TLC549: CLR CS549 ;选中TLC549
NOP NOP
MOV C,DOUT ;接受第一位数据 RLC A NOP
NOP
MOV R0,#07 ;置循环次数
SPIIN: SETB CLK
淮阴工学院毕业设计说明书（论文）
NOP NOP
第 39 页 共 45 页
CLR CLK ;产生有效沿，以便从器件锁存数据 NOP NOP
MOV C,DOUT ;接受下一位数据(从最高位开始) RLC A
DJNZ R0,SPIIN ;8位数据未接收完，则继续接收下一位 CLR CLK NOP NOP
SETB CLK NOP NOP
CLR CLK
SETB CS549 ;结束SPI总线操作，关闭从器件 RET
DELAY1: MOV R7,#40 ;延时子程序
DJNZ R7,$ RET
;***************************************************************; ;电压测量数据处理
;***************************************************************; VDAT: MOV R2,#00H
MOV R3,A MOV R6,#00H MOV R7,#0FFH CALL MULD2 MOV R0,#30H MOV R1,#34H
淮阴工学院毕业设计说明书（论文）
MOV A,R2 MOV @R1,A INC R1 MOV A,R3 MOV @R1,A INC R1 MOV A,R4 MOV @R1,A INC R1 MOV A,R5 MOV @R1,A INC R1 MOV @R1,#00H INC R1 MOV @R1,#00H INC R1 MOV @R1,#00H INC R1 MOV @R1,#0FFH CALL DIVD4 MOV R1,#38H MOV @R1,#00H INC R1 MOV @R1,#00H INC R1 MOV @R1,#00H INC R1 MOV @R1,#0AH CALL DIVD4 MOV 43H,33H
第 40 页 共 45 页