jola 

 let me copy it to you
KEY:MOV DPTR,#7FFFFH
       MOV P1,#0F0H
       MOVX A,@DPTR
       ORL A,#0F0H
       CPL A
       JNZ  IN
       RET
IN:  ACALL DELAY

      MOV R2,#04H
      MOV R4,#7FH
      MOV R7,#0
SCAN:  MOV A,R4
          RL A
    MOV R4,A
    MOV P1,A
    MOVX  A,@DPTR
    MOV R3,#04H
NEXT:RRC A
         JNC FIND
         INC R7
         DJNZ R3,NEXT
         DJNZ R2,SCAN
         RET
FIND:MOV P1,#0F0H
LOOSE:  MOVX A,@DPTR
            ORL A,#0F0H
            CPL A
            JNZ LOOSE
MOV A,R7
ADD A,#0F6H
JC ORDER
LJMP  NUMBER
NUMBER:....
.............RET
ORDER:...
.............RET

IF  YOU NEED SOME DETAIL  MESSAGE ,PLEASE CONTACT TO ME!

发表时间:2003年7月16日22:53:56