欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 單片機工業控制程序 [打印本頁]

作者: chanong 時間: 2014-10-13 11:49
標題: 單片機工業控制程序
;工業控制程序
;實驗目的:
;1.掌握單片機開發系統的使用
;2.掌握一次性在線仿真調試的全過程
;3.掌單片機如何編程及中斷的應用
;實驗原理:
;在工業控制中,象沖壓、注塑、輕紡、制瓶等生產過程,都是一些斷續生產過程,
;這些斷續生產過程又都是按某種順序有規律地完成預定的動作。對這類斷續生
;產過程的控制稱順序控制。
;例如注塑機要生產一個工件,其工藝過程大致按"合模→注射→延時→開模
; →產伸→產退"這么個時間順序動作。這種順序控制采用單片機是很容易實現的。
;本實驗是以控制注塑機為例而設計的典型時間順序控制實驗。
; 我們把89XX P0口的0-6位依次用發光二極管作為模擬輸出指示,
;共分7道工序,P1.7為聲光報警,P3.4為開工啟動開關,P3.2,P3.3為外部故障輸入模擬開關,
;低電平告警。
;為了問題簡單化,我們設定每道工序只有一位有輸出(高電平燈亮),工作流程表如下:
;P0.7  P0.6  P0.5  P0.4  P0.3  P0.2  P0.1  P0.0  工序  控制字
;0    0    0    0    0    0    0    1    1    01H
;0    0    0    0    0    0    1    0    2    02H
;0    0    0    0    0    1    0    0    3    04H
;0    0    0    0    1    0    0    0    4    08H
;0    0    0    1    0    0    0    0    5    10H
;0    0    1    0    0    0    0    0    6    20H
;0    1    0    0    0    0    0    0    0    40H
;1    0    0    0    0    0    0    0    0    80H
;以上設硬件接線為高電平有效,如果設硬件接線為低電平有效(灌電流,減小CPU功耗),
;LED燈亮,你又如何寫出控制字!請你畫出程序流程圖!
      ORG    0000H  ;工業順序控制程序
      AJMP MIN  ;轉主程序
      ORG    0003H  ;INT0中斷入口地址
      AJMP INTA  ;轉中斷服務程序
      ORG    0013H  ; INT1中斷入口地址
      AJMP INTB  ;轉中斷服務程序
      ORG    0050H  ;主程序
MIN:  MOV SP,#50H
MOV    P0,#0FFH ;關P0口(設高電平LED燈亮)
      MOV    P3,#0FFH ;關P3口(設低電平工作
L0056:  JNB    T0,$  ;等開工(P3.4)
      ORL    IE,#85H  ;允許INT0,INT1中斷
      ORL    IP,#04H  ;設為INT1為優先中斷
L005F:  MOV    P0,#0FEH ;執行工序1
      ACALL S00E0  ;延時
      MOV    P0,#0FDH ; 執行工序2
      ACALL S00E0  ;
      MOV    P0,#0FBH ; 執行工序3
      ACALL S00E0  ;
      MOV    P0,#0F7H ; 執行工序4
      ACALL S00E0  ;
      MOV    P0,#0EFH ; 執行工序5
      ACALL S00E0  ;
      MOV    P0,#0DFH ; 執行工序6
      ACALL S00E0  ;
      MOV    P0,#0BFH ; 執行工序7
      ACALL S00E0  ;
MOV P0,#7FH  ;執行工序8
      ACALL S00E0  ;
      SJMP L005F  ;循環
      ORG    0090H  ;INT0中斷服務程序
INTA: MOV    B,R2  ;保護現場
      MOV    P0,#0FFH ;關輸出
      MOV    20H,#0F0H ;報警聲參數
L0098:  SETB P1.7  ;P1.7輸出報警聲
      ACALL S00D0  ;延時時間比INT1長
      CLR    P1.7 ;
      ACALL S00D0  ;
      DJNZ 20H,L0098 ;不為零轉
      CLR    P1.7 ;
      ACALL S00E0  ;
      JNB    INT0,L0098 ;INT0為零繼續報警
      MOV    R2,B  ; INT0為1不報警,恢復現場
      SETB P1.7
RETI    ;中斷返回
ORG 00B0H ; INT1中斷服務程序
INTB: MOV    B,R2  ; 保護現場
      MOV    P1,#0FFH ; 關輸出
      MOV    B,#20H  ; 報警聲參數
L00B8:  SETB P1.7  ; P1.7輸出報警聲
      ACALL S00D6  ; 延時時間比INT0短
      CLR    P1.7 ;
      ACALL S00D6  ;
      DJNZ 20H,L00B8 ; 不為零轉
      CLR    P1.7 ;
      ACALL S00E0  ;
      JNB    INT1,L00B8 ; INT1為零繼續報警
      MOV    R2,B  ; INT1為1不報警,恢復現? SETB P1.7
      RETI    ; 中斷返回
  ORG  00D0H
S00D0:  MOV    R2,#07H  ;
      ACALL S00EB  ;
      RET       ;
  ORG  00D6H
S00D6:  MOV    R2,#05H  ;
      ACALL S00EB
      RET
      ORG    00E0H  ;
S00E0:  MOV    R2,#25H
      ACALL S00EB
RET
      ORG    00EBH  ;通用延時子程序
S00EB:  PUSH 02H  ;R2(復位后R2即為02H)存放時間常數,進棧保護
L00ED:  PUSH 02H  ; R2進棧保護
L00EF:  PUSH 02H  ; 進棧
L00F1:  DJNZ R2,$  ;R2不為零等待
      POP    02H  ;出棧
      DJNZ R2,L00EF ; R2不為零轉
      POP    02H  ; 出棧
      DJNZ R2,L00ED ; R2不為零轉
      POP    02H  ; 出棧
      DJNZ R2,S00EB ; R2不為零轉
      RET    ;子程序返回
      END

作者: 成森林 時間: 2018-1-31 16:54
好東西，收藏了。謝謝。

作者: 舞風 時間: 2018-5-28 19:06
喜歡實用的，贊

歡迎光臨 (http://www.raoushi.com/bbs/)