要求
采样:系统实时采样温度和压力值,根据压力大小确定设定温度,对应 t= p/20 + 40 (t为设定温度,p为压力值).如 p=500克,则 t 为65度, 通过温度传感器采集实时温度。
控制:用加温和冷却使实时温度与设定温度拟合.
显示: 在装置的段码显示器动态显示设定及实时温度。
DATA SEGMENT
XH DB 01H,01H,01H,10H ; 显示缓存8个单元
DB 10H,00H,00H,00H
;STATUS DB 00H ;00H:停机,0FFH:运行
SSWD DW 00H ;实时温度
SDWD DW 00H ;设定温度
DM DB 3FH,06H,5BH,4FH,66H,6DH ;段码表
DB 7DH,07H,7FH,6FH,79H,72H,73H
DB 37H,3FH,30H,40H
PA55 EQU 218H ;8255(1)
PB55 EQU 219H
PC55 EQU 21AH
P55CTL EQU 21BH
PA255 EQU 208H ;8255(2)
PB255 EQU 209H
PC255 EQU 20AH
P255CTL EQU 20BH
YAAD EQU 230H
WDAD EQU 231H
DATA ENDS
;############# ################# 主程序 ######################
CODE SEGMENT 'code'
ASSUME CS:CODE,DS:DATA,SS:DATA
START:
MOV AX,DATA
MOV DS,AX
;初始化变量值
MOV DX,P55CTL ;初始化8255(1)工作方式
MOV AL,90H ;10010000(A口方式0输入，B口和C口方式0输出)
OUT DX,AL
MOV DX,P255CTL ;初始化8255(2)工作方式
MOV AL,80H ;10000000（A口和B口和C口方式0输出）
OUT DX,AL
MOV DX,PA255 ; 8255(2)A口清零
IN AL,DX
MOV AH,AL ;将原AL的值保存在AH中
AND AL,00H ;00H
OUT DX,AL
MOV DX,PB255 ;8255(2)B口清零
IN AL,DX
MOV AH,AL
AND AL,00H
OUT DX,AL
MOV DX,PC255 ;8255(2)C口清零
IN AL,DX
MOV AH,AL
AND AL,00H
OUT DX,AL
;初始化风扇和加热装置
CALL INIT
MYRUN:
NOP
CALL AD
CALL DIVSSWDTO3NUMBER
CALL YLAD
CALL DIVSDWDTO3NUMBER
CALL CHECKTEMPERATURE
CALL DISPSTRING
JMP MYRUN
MYEXIT:
MOV AH,4CH
INT 21H
;*************************** divide real time temperature ****************
DIVSSWDTO3NUMBER PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV SI,OFFSET XH
MOV AX,SSWD
MOV DX,00H
MOV BX,10H
DIV BX
MOV BYTE PTR[SI+7],DL
DIV BX
MOV BYTE PTR[SI+6],DL
DIV BX
MOV BYTE PTR[SI+5],DL
POP DX
POP CX
POP BX
POP AX
RET
DIVSSWDTO3NUMBER ENDP
;*************************** divide preset temperature ****************
DIVSDWDTO3NUMBER PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV SI,OFFSET XH
MOV AX,SDWD
MOV DX,00H
MOV BX,10H
DIV BX
MOV BYTE PTR[SI+2],DL
DIV BX
MOV BYTE PTR[SI+1],DL
DIV BX
MOV BYTE PTR[SI+0],DL
POP DX
POP CX
POP BX
POP AX
RET
DIVSDWDTO3NUMBER ENDP
;*********************** check temperature ****************************
CHECKTEMPERATURE PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AX,SDWD
SUB AX,20H
CMP AX,SSWD
JNA GO
CALL MYDELAY
CALL MYDELAY
CALL HEATING
JMP CTEXIT
GO:
ADD AX,40H
CMP AX,SSWD
JNB WD
CALL COOLING
JMP CTEXIT
WD:
CALL INIT
CTEXIT:
POP DX
POP CX
POP BX
POP AX
RET
CHECKTEMPERATURE ENDP
;***************************** AD *********************************
;温度采集
AD PROC NEAR
MOV BX,00H
MOV CX,08H ;采样8次
BB1:
MOV DX,WDAD ;启动AD采样
MOV AX,00H
OUT DX,AL
CALL DISPSTRING ;等待AD转换
IN AL,DX ;读取AD值
ADC BX,AX ;求平均值
LOOP BB1
RCR BX,1
RCR BX,1
RCR BX,1 ;除8
MOV AL,3
MUL BL ;一位等于0.3度
CALL CHANGTOBCD ;转换成BCD码
MOV SSWD,AX
RET
AD ENDP
;**************************************YLAD**************************************************
;压力检测并转换成设定温度
YLAD PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV BX,0
MOV CX,04H ;采样4次
BB: MOV DX,YAAD ;启动A/D采样
MOV AX,0
OUT DX,AL
CALL DISPSTRING ;等待A/D转换
IN AL,DX ;读A/D值
ADC BX,AX ;求平均值
LOOP BB
MOV AX,BX
RCR AX,1
MOV BL,20
DIV BL
AND AH,00H
ADD AX,40
CALL CHANGTOBCD ;转换成BCD码
MOV BL,10H
MUL BL
MOV SDWD,AX
POP DX
POP CX
POP BX
POP AX
RET
YLAD ENDP
;***************************** Chang To BCD ************************
CHANGTOBCD PROC NEAR
PUSH DX
MOV BX,AX
MOV AX,00H
MOV CL,10H
BB2:
CLC
RCL BX,1
ADC AL,AL
DAA
MOV CH,AL
MOV AL,AH
ADC AL,AL
DAA
MOV AH,AL
MOV AL,CH
DEC CL
JNZ BB2
POP DX
RET
CHANGTOBCD ENDP
;*************************** cooling *****************************
COOLING PROC NEAR
MOV DX,P255CTL
MOV AL,00001110B
OUT DX,AL
MOV AL,00001101B
OUT DX,AL
RET
COOLING ENDP
;***************************** heating ***************************
HEATING PROC NEAR
MOV DX,P255CTL
MOV AL,00001100B
OUT DX,AL
MOV AL,00001111B
OUT DX,AL
RET
HEATING ENDP
;***************************** init ********************
;初始化：关闭风扇和加热装置
INIT PROC NEAR
MOV DX,P255CTL
MOV AL,00001111B
OUT DX,AL
MOV AL,00001101B
OUT DX,AL
RET
INIT ENDP
;********** **********8段显示**********************************
DISPSTRING PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AL,07H ;选七段显示器，把扫描灯位的控制信号送IO端口
MOV DX,PB55
OUT DX,AL
MOV SI,OFFSET XH
MOV AL,[SI] ;把相应的八段码送给AL指向的XH单元
MOV BX,OFFSET DM
XLAT
MOV DX,PC55 ;把相应的显示值输出，即段码送IO端口
OUT DX,AL
CALL MYDELAY
MOV AL,06H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OR AL,80H ;加小数点
OUT DX,AL
CALL MYDELAY
MOV AL,05H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
MOV AL,04H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
MOV AL,03H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
MOV AL,02H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
MOV AL,01H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
OR AL,80H ;加小数点
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
MOV AL,00H
MOV DX,PB55
OUT DX,AL
INC SI
MOV AL,[SI]
MOV BX,OFFSET DM
XLAT
MOV DX,PC55
OUT DX,AL
CALL MYDELAY
POP DX
POP CX
POP BX
POP AX
RET
DISPSTRING ENDP
;************************* my delay程序 ********************************
MYDELAY PROC NEAR
PUSH BX
PUSH CX
MOV BX,0008H ;延时 0008H
MEE: MOV CX,07DFFH ;07DFFH
MCC: NOP
LOOP MCC
DEC BX
JNZ MEE
POP CX
POP BX
RET
MYDELAY ENDP
CODE ENDS
END START
扫一扫
1769
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
