找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 2604|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

AT90S1200單片機石油鉆井皮帶自動收緊匯編語言

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:140644 發(fā)表于 2021-1-24 17:23 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式


;*****PD0 PD1 PD3 PB0***********
;*******************************
        .include "1200def.inc"   ;文件頭,
        .org  $0000              ;org是一條偽指令
        rjmp         RESET               ;RESET  Handle
        .org $0005                       ;$0000地址之后是中斷向量區(qū),跳過中斷區(qū)。中斷與中斷向量將在
RESET:  ldi          r16,0XF0   ;1111 0000
            out            ddrd,R16
        ldi            r16,0X02   ;0000 0010
            out     ddrb,R16   ;PB1為蜂鳴器輸出
        ldi            r16,0XFF   ;1111  1111
            out          PORTD,r16  
               out            PORTB,r16  
        out            PINB,r16
        out            PIND,r16
START:  sbic    PINB,0
        RJMP    STA
        RCALL   DEL
        sbic    PINB,0
        RJMP    STA
;*********檢測蜂鳴器*************
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
;********TIME=1******************
STA:    sbic    PIND,0
        RJMP    STB
        RCALL   DEL
        sbic    PIND,0
        RJMP    STB
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
;********TIME=2******************
STB:    sbic    PIND,1
        RJMP    STC
        RCALL   DEL
        sbic    PIND,1
        RJMP    STC
;*********檢測蜂鳴器*************
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
;********TIME=3******************
STC:    sbic    PIND,3
        RJMP    START
        RCALL   DEL
        sbic    PIND,3
        RJMP    START
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        RCALL   DELAY
        cbi     PORTB,1;OPEN
        RCALL   DELAY
        sbi     PORTB,1;OFF
        RCALL   DELAY
        RJMP    START
DELAY:  LDI     R29,0Xff
DE1:    LDI     R30,0Xff
DE2:    LDI     R31,0X0A
DE3:    DEC     R31
        BRNE    DE3
                DEC     R30
        BRNE    DE2
        DEC     R29
        BRNE    DE1
        RET
DEL:    LDI     R29,0XFF
DELL:   DEC     R29
        BRNE    DELL
        RET


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表