【正文】 DATA1 小 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２８ JZ C9 LJMP C7 C3: CLR C MOV A,DATA2 SUBB A,DATA3 JC C9 。DATA2 小 JZ C8 LJMP C6 C5: CLR C MOV A,DATA1 SUBB A,DATA3 JC C7 。DATA1 小 JZ C7 LJMP C5 。五秒鐘延時(shí) DELAY:MOV R7,100 DLL: MOV R6,200 DL: MOV R5,123 NOP DJNZ R5,$ DJNZ R6,DL DJNZ R7,DLL RET DELAY1MS:MOV R7,4 DE1MS: MOV R6,123 NOP DJNZ R6,$ DJNZ R7,DE1MS RET light: LCALL AD549 MOV DATA1,DATA549 LCALL DEL10MS11 LCALL AD549 MOV DATA2,DATA549 LCALL DEL10MS11 LCALL AD549 MOV DATA3,DATA549 LCALL DEL10MS11 LCALL LVBO1 ret 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２７ 。CY=1 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２６ EXIT: CLR EX0 。CY=0 setb motor_in3 。 DEMONSTRATE: MOV C0_COUNT,0 clr motor_in3 setb motor_in4 。 。 。 判斷是否有串口退出 ；數(shù)是上個(gè) or_houdou: jnb place,in_con sjmp in_wait Orgin_exit: ret 。 判斷是否有串口退出 lcall DEL10MS Org_next: jb place,in_wait jnb f0,Orgin_j1 inc count sjmp in_j2 Orgin_j1: dec count 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２５ in_j2: djnz c0_count,in_con sjmp Orgin_exit in_con: jb place, or_houdou 。 5s 啟動(dòng) in_wait: jnb place,_next 。收窗簾 xch a,count clr c subb a,count mov c0_count,a clr f0 。放窗簾 setb f0 ljmp in_judge ORGIN_DOWN: setb motor_en clr motor_in4 。 Orgin_c: MOV A,DCOUNT CJNE A,COUNT,CONTINUE LJMP Orgin_exit CONTINUE: JC ORGIN_DOWN clr c subb a,count mov c0_count,a setb motor_en clr motor_in3 。入口 DCOUNT， COUNT 。串口無線接受命令 RECIEVE: clr ti clr ri mov mand,sbuf SETB RFFLAG RETI 。開窗戶 POP ACC POP PSW RETI 。清單元 MOV R0,30H MOV R7,48 CLEARL: MOV R0,A INC R0 DJNZ R7,CLEARL RET 。gao,di,hao pere: mov a,shuru clr c subb a,shang jc xiabi setb gao clr di clr hao sjmp tui xiabi: mov a,shuru clr c subb a,xia jnc haotui clr hao 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２３ clr gao setb di sjmp tui haotui: setb hao clr gao clr di tui: ret SETSTART:MOV TMOD,21H 。 入口 light_in: lcall light mov shuru,DATAAD mov shang,light0 mov xia,light1 lcall pere 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２２ jb gao,kai2 jb hao, kai1 mov shuru,dataad mov shang,light2 mov xia,0 lcall pere jb gao,quankai0 jb hao,quanguan3 sjmp lightexit quanguan3: mov dcount,3 lcall Orgin_c sjmp lightexit quankai0: mov dcount,0 lcall Orgin_c sjmp lightexit kai2: mov dcount,2 lcall Orgin_c sjmp lightexit kai1: mov dcount,1 lcall Orgin_c sjmp lightexit lightexit: clr lightflag ret 。 。 。 w_innext: clr fengda clr windflag w_exit: ret 。 。 。 wind_in: jnb ,w_innext setb window sjmp w_exit 。風(fēng)檢測啟動(dòng)標(biāo)志 ljmp intell IN_LIGHT: lcall light_in 。風(fēng)檢測啟動(dòng)標(biāo)志 JB lightflag,IN_LIGHT 。智能 菏澤學(xué)院本科生課程設(shè)計(jì)（論文） ２１ c8_INTELLIGENT: mov mand,0 mov a,0f1h orl tmod,01h mov th0,4ch mov tl0,0 setb ET0 SETB EX0 SETB EA SETB TR0 INTELL: JB RFFLAG,C9_EXIT。全開窗簾 c7_c_open: mov mand,0 mov dcount,0 lcall Orgin_c ret 。窗簾 1 c5_c_open1: mov mand,0 mov dcount,1 lcall Orgin_c ret 。開窗戶 c3_w_openw: mov mand,0 setb window setb WINDOWSTU ret 。lcall Orgin_c lcall DEMONSTRATE MOV COUNT,0 MOV IE,0 SETB ES ret 。窗簾示教 。 c0_keep: 。全開窗簾 lcall c7_c_open ljmp main 。窗簾 1 lcall c5_c_open1 ljmp main 。開窗戶 lcall c3_w_openw ljmp main 。窗簾示教 lcall c1_DEMONSTRATE