Thông báo

Collapse
No announcement yet.

bác nào chuyển hộ mình sang file hex nhé...cảm ơn nhiều

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • bác nào chuyển hộ mình sang file hex nhé...cảm ơn nhiều

    ;-----------------------------------------------
    ; DINH NGHIA CAC KY HIEU ;
    ;-----------------------------------------------
    LED1 data p2.0
    Led2 data p2.1
    Led3 data p2.2
    ON_OFF bit p1.0
    1 bit p1.1
    2 bit p1.2
    VAR equ 30h
    value equ -39
    ;-----------------------------------------------
    ;-----------------------------------------------
    org 0h
    main: ;bat dau chuong trinh
    mov p2.0, #0h ;tat LED
    mov r1, #28
    mov VAR, #12 ;nap gia tri t_on ban dau = 6ms
    acall kt_on ;goi ct cho phim ON/OFF duoc an
    t_on:
    mov LED, #0ffh
    jb UP, next ;ko an UP => nhay den next
    acall delay_100ms ;goi ct tao tre 100ms de chong rung phim
    jnb UP, $ ;cho nha phim
    inc VAR ;tang bien dem
    mov r0, VAR
    cjne r0, #40, next ;VAR<20 => nhay den next
    mov VAR, #39 ;giu khong cho VAR vuot qua 20
    acall delay_50us
    next: jb ON_OFF, next_1 ;ko an ON_OFF => nhay den next_1
    acall delay_100ms
    jnb ON_OFF, $
    sjmp main
    next_1:
    acall delay_50us
    djnz VAR, next
    ;-----------------------------------------------
    t_off:
    mov LED, #0h
    clr c ;xoa co nho
    mov a, #40
    subb a, VAR ;thoi gian t_off duoc luu vao acc
    jnc next_2 ;nhay den next_2 neu khong nho (c=0)
    cpl a ;lay bu 1 acc
    inc a ;tang acc len 1 de tao bu 2
    next_2:
    jb DOWN, next_3 ;nhay den next_3 neu DOWN ko dc an
    acall delay_100ms
    jnb DOWN, $
    dec VAR ;giam VAR di 1 dv de T = const = 20ms
    inc a
    mov r1, a
    mov r0, VAR
    cjne r0, #0, next_3
    inc VAR ;giu cho VAR ko bi am
    next_3:
    jb ON_OFF, next_4
    acall delay_100ms
    jnb ON_OFF, $
    sjmp main
    next_4:
    acall delay_50us
    djnz r1, next_3
    sjmp t_on
    ;-----------------------------------------------
    ; CHUONG TRINH CON ;
    ;-----------------------------------------------
    kt_on:
    jb ON_OFF, $ ;cho den khi ON_OFF dc bam
    acall delay_100ms
    jnb ON_OFF, $
    ret
    ;----------------
    delay_50us:
    mov tmod, #01h ;chon timer 0, che do 16 bits
    mov th0, #high value
    mov tl0, #low value
    setb tr0
    jnb tf0, $ ;cho o day den khi tran
    clr tr0
    clr tf0
    ret
    ;----------------
    delay_100ms:
    push 5
    push 6
    push 7
    mov r7, #100
    mov r6, #2
    mov r5, #248
    djnz r5, $
    djnz r6, $-4
    djnz r7, $-8
    pop 7
    pop 6
    pop 5
    ret
    ;-----------------------------------------------
    ;-----------------------------------------------
    end

  • #2
    Mình dùng pinnacle dịch thì nó báo lỗi mấy chỗ

    Comment


    • #3
      Nguyên văn bởi tuonghp88 Xem bài viết
      ;-----------------------------------------------
      ; DINH NGHIA CAC KY HIEU ;
      ;-----------------------------------------------
      LED1 data p2.0
      Led2 data p2.1
      Led3 data p2.2
      ON_OFF bit p1.0
      1 bit p1.1
      2 bit p1.2
      VAR equ 30h
      value equ -39
      ;-----------------------------------------------
      ;-----------------------------------------------
      org 0h
      main: ;bat dau chuong trinh
      mov p2.0, #0h ;tat LED
      mov r1, #28
      mov VAR, #12 ;nap gia tri t_on ban dau = 6ms
      acall kt_on ;goi ct cho phim ON/OFF duoc an
      t_on:
      mov LED, #0ffh
      jb UP, next ;ko an UP => nhay den next
      acall delay_100ms ;goi ct tao tre 100ms de chong rung phim
      jnb UP, $ ;cho nha phim
      inc VAR ;tang bien dem
      mov r0, VAR
      cjne r0, #40, next ;VAR<20 => nhay den next
      mov VAR, #39 ;giu khong cho VAR vuot qua 20
      acall delay_50us
      next: jb ON_OFF, next_1 ;ko an ON_OFF => nhay den next_1
      acall delay_100ms
      jnb ON_OFF, $
      sjmp main
      next_1:
      acall delay_50us
      djnz VAR, next
      ;-----------------------------------------------
      t_off:
      mov LED, #0h
      clr c ;xoa co nho
      mov a, #40
      subb a, VAR ;thoi gian t_off duoc luu vao acc
      jnc next_2 ;nhay den next_2 neu khong nho (c=0)
      cpl a ;lay bu 1 acc
      inc a ;tang acc len 1 de tao bu 2
      next_2:
      jb DOWN, next_3 ;nhay den next_3 neu DOWN ko dc an
      acall delay_100ms
      jnb DOWN, $
      dec VAR ;giam VAR di 1 dv de T = const = 20ms
      inc a
      mov r1, a
      mov r0, VAR
      cjne r0, #0, next_3
      inc VAR ;giu cho VAR ko bi am
      next_3:
      jb ON_OFF, next_4
      acall delay_100ms
      jnb ON_OFF, $
      sjmp main
      next_4:
      acall delay_50us
      djnz r1, next_3
      sjmp t_on
      ;-----------------------------------------------
      ; CHUONG TRINH CON ;
      ;-----------------------------------------------
      kt_on:
      jb ON_OFF, $ ;cho den khi ON_OFF dc bam
      acall delay_100ms
      jnb ON_OFF, $
      ret
      ;----------------
      delay_50us:
      mov tmod, #01h ;chon timer 0, che do 16 bits
      mov th0, #high value
      mov tl0, #low value
      setb tr0
      jnb tf0, $ ;cho o day den khi tran
      clr tr0
      clr tf0
      ret
      ;----------------
      delay_100ms:
      push 5
      push 6
      push 7
      mov r7, #100
      mov r6, #2
      mov r5, #248
      djnz r5, $
      djnz r6, $-4
      djnz r7, $-8
      pop 7
      pop 6
      pop 5
      ret
      ;-----------------------------------------------
      ;-----------------------------------------------
      end
      tôi ko biết bạn viết chương trình gì nhưng sai rất nhiều
      làm gì có mov p2.0,#0h bạn chuyển 1 bye vào 1 bit thì đùng là bo tay,
      lệnh xử lý bít thì có rồi bạn co thể dùng clr p2.0
      với lại tôi thấy mov led,#0ffh bạn chưa định nghĩa cho led là gì mà bạn gọi ra vậy
      và rất nhiều chỗ khác nữa bạn về học lại đi

      Comment

      Về tác giả

      Collapse

      tuonghp88 Tìm hiểu thêm về tuonghp88

      Bài viết mới nhất

      Collapse

      Đang tải...
      X