找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1893|回复: 0
打印 上一主题 下一主题
收起左侧

AT90S1200单片机石油钻井皮带自动收紧汇编语言

[复制链接]
跳转到指定楼层
楼主
ID:140644 发表于 2021-1-24 17:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


;*****PD0 PD1 PD3 PB0***********
;*******************************
        .include "1200def.inc"   ;文件头,
        .org  $0000              ;org是一条伪指令
        rjmp         RESET               ;RESET  Handle
        .org $0005                       ;$0000地址之后是中断向量区,跳过中断区。中断与中断向量将在
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空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表