全自动洗衣机程序

ORG 0000HSTART: AJMP MAIN ; 初始化ORG 0003HAJMP INT0 ; 暂停中断中断向量ORG 000BHAJMP T0 ; 定时器０中断向量ORG 0013HAJMP INT1 ; 开盖,不平衡中断中断向量ORG 0030HMAIN: MOV P1, #0F0H ; 主程序开始MOV P3,#7FH MOV SP,#35HMOV 56H,#0F0H ; ＃0F0H排水标志(指定56H为标志 ORG 0000H START: AJMP MAIN ; 初始化 ORG 0003H AJMP INT0 ; 暂停中断中断向量 ORG 000BH AJMP T0 ; 定时器０中断向量 ORG 0013H AJMP INT1 ; 开盖,不平衡中断中断向量 ORG 0030H MAIN: MOV P1, #0F0H ; 主程序开始 MOV P3,#7FH MOV SP,#35H MOV 56H,#0F0H ; ＃0F0H排水标志(指定56H为标志单元) MOV 57H,#03 ; 洗衣机标准洗衣工作程序标志(指定57H) MOV 54H,#40 ; 强洗正、反转驱动４秒赋值(指定54H存放) MOV 55H,#10 ; 强洗间歇１秒赋值(指定55H存放) MOV 58H,#06 ; 漂洗６分钟赋值(指定58H存放) CLR ET0 SETB EA ; 开总中断 CLR IT0 ; 设置外部中断０、１为低电平触发 CLR IT1 SETB PX0 ; 设置中断优先级别 SETB PT0 SETB PX1 MOV TL0,#0B0H ; 设置１００ＭＳ中断时间常数 MOV TH0,#3CH MOV TMOD,#01H KA: JNB P1.4,X1 ; 以下为按键扫描程序 AJMP KB X1: ACALL K1 KB: JNB P1.5,X2 AJMP KC X2: ACALL K2 KC: JB P3.4,KA ; 按键扫描程序结束 ACALL DEL10 JB P3.4,KA ACALL FZH JNB P3.4,$ SETB ET0 ; 开定时器０中断 SETB TR0 ; 启动定时器０ SETB P3.5 SETB EX0 CLR P3.4 MOV A ,57H CJNE A,#00H,XY ; 是排水程序？ AJMP BSH1 ; 是则跳转排水程序 XY: MOV 70H,#00 MOV 51H,#00 SETB P1.0 ; 以下为进水操作，打开进水阀 MOV A,#240 L0: CJNE A,51H,L1 ; 进水系统有故障？ AJMP FW ; 有则跳转故障处理程序 L1: JB P3.5 ,L0 ; 进水达预定水位？ CLR P1.0 ; 进水结束，关闭进水阀 MOV 70H,#00 MOV 71H,#00 MOV 72H,#00 L: MOV 50H,#00 ; 以下为洗涤／漂洗工作程序 SETB P1.2 ; 正转洗涤／漂洗驱动 MOV A,50H CJNE A,50H,$ CLR P1.2 ; 洗涤／漂洗间歇 MOV 50H,#00 MOV A,55H CJNE A,50H,$ MOV 50H,#00 SETB P1.3 ; 反转洗涤／漂洗驱动 MOV A,54H CJNE A,50H,$ CLR P1.3 ; 洗涤／漂洗间歇 MOV 50H,#00 MOV A,55H CJNE A,50H,$ MOV A,58H CJNE A,72H,L ; 洗涤／漂洗工作结束？ BSH: MOV A,56H CJNE A,#0F0h,PBSH ; 洗涤／漂洗工作结束，排水否？ DEC 57H ; 洗衣工作循环次数减1 BSH1: SetB P1.1 ; 排水操作，打开排水阀 MOV 70H,#00 MOV 51H,#00 MOV A,#60 BSH2: CJNE A,51H,BSH3 ; 排水系统有故障？ AJMP FW ; 有则跳转故障处理程序 BSH3: JNB P3.5,BSH2 ; 水位下降至预定水位？ MOV A,51H ADD A,#50 MOV 70H,#00 MOV 51H,#00 CJNE A,51H,$ ; 排水时间延长Ｄ＋５０秒 MOV 73H,#00 ; 以下为脱水程序 CLR P3.5 ; 开盖、不平衡中断请求触器允许 SETB EX1 ; 脱水期间，开盖、不平衡中断允许 BSH4: MOV 50H,#00 SETB P1.2 ; 脱水驱动５秒 MOV A,#50 CJNE A,50H,$ CLR P1.2 ; 脱水间歇２秒 MOV A,#20 MOV 50H,#00 CJNE A,50H,$ INC 73H MOV A,73H CJNE A,#17,BSH4 ; 脱水时间达2分钟？ CLR P1.1 SETB P3.5 CLR EX1 ; 脱水结束，禁止开盖、不平衡中断中断崐 MOV A,57H CJNE A,#00,BSH5 ; 洗衣工作是否结束？ AJMP PBSH ; 结束跳转结束报警程序 BSH5: MOV A,58H SUBB A,#2 ; 洗涤／漂洗时间减２分钟 MOV 58H,A AJMP XY ; 洗衣工作未结束，继续下一循环 PBSH: MOV 74H,#00 ; 洗衣结束报警程序 JK: MOV 50H,#00 BJ1: SETB P3.7 MOV A,50H CJNE A,#10,BJ1 MOV 50H,#00 BJ2: CLR P3.7 MOV A,50H CJNE A,#10,BJ2 INC 74H MOV A,74H CJNE A,#3,JK AJMP MAIN ; 洗衣工作结束，返回主程序 ; FW: CLR EX1 ; 以下为进排水系统故障处理程序 CLR P1.0 CLR P1.1 CLR P1.2 CLR P1.3 FW1: MOV 50H,#00 FW2: SETB P3.7 JNB P1.4,FW4 MOV A,50H CJNE A,#10,FW2 MOV 50H,#00 FW3: CLR P3.7 JNB P1.4,FW4 MOV A,50H CJNE A,#20,FW3 AJMP FW1 FW4: CLR P3.7 ACALL FZH JNB P1.4 ,$ AJMP MAIN ; INT0: PUSH A ; 以下为暂停中断服务程序 PUSH PSW PUSH DPH PUSH DPL SETB P3.4 ; 撤消本次中断请求信号 ACALL FZH MOV A,P1 MOV R1,A ; 保存Ｐ１端口状态 ANL A,#0F0H MOV P1,A ; 洗衣机暂停各种操作 JB P3.4,$ ; 等待启动键按下 ACALL FZH MOV A,R1 MOV P1,A ; 恢复Ｐ１口原始数据 POP DPL POP DPH POP PSW POP A CLR P3.4 RETI ; 中断返回 ; T0: PUSH A ; 定时器０定时中断服务程序 PUSH DPH PUSH DPL PUSH PSW INC 50H INC 70H ; １００ＭＳ单元累加１ MOV A,70H CJNE A,#0AH,LL ; 时间达１秒？ MOV 70H,#00 INC 51H INC 71H ; 时间达１秒，则秒单元累加１ MOV A,71H CJNE A,#3CH,LL ; 时间达１分？ MOV 71H,#00H INC 52H INC 72H ; 时间达１分，则分单元累加１ LL: POP PSW POP DPL POP DPH POP A RETI ; 中断返回 ; INT1: PUSH A ; 以下为开盖、不平衡中断服务程序 PUSH PSW PUSH DPH PUSH DPL SETB P3.5 ; 撤消本次中断请求信号 CLR P1.1 ; 停止排水操作 CLR P1.2 ; 停止脱水操作 CLR ET0 ; 关定时器０定时中断 JP0: JNB P1.6,$ ; 等待开盖或不平衡中断信号消失 SETB P1.1 ; 恢复排水操作 SETB P1.2 ; 恢复脱水操作 POP DPL POP DPH POP PSW POP A CLR P3.5 SETB ET0 ; 定时器０中断允许 RETI ; 中