jianpan.asm

WAVE6000编写的常用的程序 包括键盘 通信 数据转换

org 0000h
ajmp main
main:mov sp,#60h
    l:acall key
      sjmp l

key:
     mov p0,#0ffh
     mov p0,#00h
     mov a,p0
     anl a,#0fh
     cjne a,#0fh,go
     sjmp return
  go:   acall delay
     mov p0,#00h
     mov a,p0
     anl a,#0fh
     cjne a,#0fh, go1
      sjmp return
   go1:  mov a,#0f7h
     clr F0
     mov 21h,#00h
     mov r5,#00h
loop:     cjne r5,#04h,goon1
  return:   ret
     goon1:mov p1,a
           mov r4,p1
           push acc
           mov a,r4
           anl  a,#0f0h
           mov r4,a
           pop acc

  cjne r4, #70h,goon2
            clr c
            push acc
            mov a,r5
            rlc a
            rlc a
            mov  21h,a
            pop acc
            setb F0
          sjmp re
    goon2:      cjne r4, #0b0h,goon3
            clr c
            push acc
            mov a,r5
            rlc a
            rlc a
            add a,#01h
            mov  21h,a
            pop acc
            setb F0
          sjmp re
    goon3:      cjne r4, #0d0h,goon4
            clr c
            push acc
            mov a,r5
            rlc a
            rlc a
            add a,#02h
            mov  21h,a
            pop acc
            setb F0
          sjmp re
    goon4:      cjne r4, #0e0h,re
            clr c
            push acc
            mov a,r5
            rlc a
            rlc a
            add a,#03h
            mov  21h,a
            pop acc
            setb F0
          sjmp re
   re:jb  F0,end1
     clr c
     rlc a
     orl a,#80h
    inc r5
    sjmp loop
 end1 :
     mov a,21h
     anl a,#0fh
     mov p0,a
     acall delay
     mov p0,a
sjmp loop

 delay: mov      r7,    #18h
d1:    mov      r6,    #0ffh

       djnz     r6,   $
       djnz     r7,   d1
       ret

    sjmp loop