jian.bak

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

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

key: 
     mov a,#0f7h
     clr F0
     mov 21h,#00h
     mov r5,#00h
loop:     cjne r5,#04h,goon1
     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 p0,21h   
   ret