TSB41

TSB41

TSB41 [复制链接]

老师，我想要4094串行移位寄存器的完整显示程序，因为我感觉我上课记得程序不完整的。

LIUZZ

原帖由 TSB41 于 2009-5-1 10:55 发表
老师，我想要4094串行移位寄存器的完整显示程序，因为我感觉我上课记得程序不完整的。

           ORG 0000H
           MOV  R0,#70H
           MOV A,#6
           MOV R2,#8
LOOP2:     MOV @R0,A
           DEC A
           INC R0
           DJNZ R2,LOOP2
           lcall  display
main:     lcall   key
           ljmp  main
KEY:       ORL P1,#00111100B
           MOV A,P1
    ORL A,#11000011B
    CPL A
    JZ  NO_KEY
    LCALL DELAY
    MOV A,P1
    ORL A,#11000011B
    CPL A
    JZ  NO_KEY
N_KEY1:  JNB Acc.2,N_KEY2
  LCALL KEY1F;1#键
  LJMP NO_KEY
N_KEY2:  JNB Acc.3,N_KEY3
         LCALL KEY2F;2#键
  LJMP NO_KEY
N_KEY3:  JNB Acc.4,N_KEY4
         LCALL KEY3F
  LJMP NO_KEY
N_KEY4:  JNB Acc.5,NO_KEY
         LCALL KEY4F
NO_KEY:
          ret

KEY1F:
        inc   70h
        MOV a,70H
        cjne   a,#10, n70h10
        mov    70h,#0
n70h10:
        LCALL DISPlaY; 编1键的程序
         lcall you_KEY
  RET
KEY2F:
        inc   71h
        MOV a,71H
        cjne   a,#10, n71h10
        mov    71h,#0
n71h10:
        LCALL DISPlaY;
        lcall you_KEY
  RET
KEY3F:
        inc   72h
        MOV a,72H
        cjne   a,#10, n72h10
        mov    72h,#0
n72h10:
        LCALL DISPlaY;
         lcall you_KEY
  RET
KEY4F:
        inc   73h
        MOV a,73H
        cjne   a,#10, n73h10
        mov    73h,#0
n73h10:
         LCALL DISPlaY;
         lcall you_KEY
  RET

DELAY:   mov r6,#10h
         MOV R5 ,#0
         DJNZ R5,$
         djnz  r6,$-4
         ret

DISPlay:     MOV  R3,#6
              clr   p3.7
              MOV R0,#70H
  LOOP1:      MOV A,@R0
              MOV DPTR,#LEDCODE
              MOVC A,@A+DPTR
              MOV  R2,#8
      LOOP:   RRC  A
              MOV  P1.7,C
              CLR  P1.6
              SETB  P1.6
              DJNZ R2,LOOP
              INC R0
              DJNZ R3,LOOP1
              SETB  P3.7
              clr   p3.7
              ret
you_KEY:MOV A,P1
  ORL A,#11000011B
  CPL A
  JnZ   you_KEY
         lcall  delay
         MOV A,P1
  ORL A,#11000011B
  CPL A
  JnZ   you_KEY
         
         ret

LEDCODE:db 0d7h,12h,5dh,5bh,9ah,0cbh,0cfh,13h,0dfh,0dbh
  END