里的程序.asm

单片机实验程序-13种-17.4M-pdf.zip

       IN0    EQU  7FF8H
       IN1    EQU  7FF9H
       IN2    EQU  7FFAH
 8255A  EQU  BFFCH
 8255B  EQU  BFFDH
 8255K  EQU  BFFFH
            ORG    0000H 
            LJMP   MAIN
            ORG    000BH
            LJMP   LP0
            ORG    001BH
            LJMP   LP1
            ORG    0100H
MAIN:       CLR    EA
            MOV    DPTR,#8255K
            MOV    A,#80H
            MOV   @DPTR,A
            MOV   TMOD,#11H
            MOV   TH0,#3CH
            MOV   TL0,#0B0H
            MOV   TH1,#3CH
            MOV   TL1,#0B0H
            MOV   70H,#96H
            MOV   71H,#14H
	    MOV   R1,#00H
	    MOV   R2,#00H
	    MOV   R0,#60H

INIDISP:   MOV   @R0,#00H
           INC   R0
           CJNE   R0,#6CH,INIDISP
           MOV  64H,#01H
MOV  68H,#02H
MOV  SP,#40H
MOV  R7,#60H
SETB  ET0
SETB  ET1
SETB  EA
SETB  TR0
SETB  TR1
MC:   MOV  R7,73H
      ACALL DISP
      AJMP  MC
LP0:   MOV  TH0,#3CH
      MOV  TL0,#0B0H
      DJNZ  70H,FH0
MOV  70H,#96H
PUSH  0E0H
PUSH  03H
ACALL  DTCT
POP   03H
POP   0E0H
FH0: RETI

LP1:  MOV   TH1,#3CH
MOV  TL1,#0B0H
DJNZ  71H,FH1
MOV  71H,#14H
INC  R2
CJNE  R2,#03H,CAL
MOV  R1,#00H
CAL:   CJNE  R2,#00H,CNL1
       MOV 73H,#60H
       SJMP  FH1
CNL1:  CJNE  R2,#01H,CNL2
       MOV   73H,#64H
       SJMP  FH1
CNJ2:  MOV   73H,#68H
FH1:   RETI  
DISP:  MOV   R3,#08H
DISP1:MOV  A,R3
MOV  20H,A
MOV  DPTR,#8255A
MOVX  @DPTR,A
INC  DPTR
MOV   A,R7
MOV   R0,A
MOV  A,@R0
ADD  A,#14H
MOVC  A,@A+PC
JB   01H,LKDP
SJMP   OUT
LKDP:ADD A,#80H
OUT:MOVX @DPTR,A
ACALL D5MS
INC R7
MOV  A,R3
JB  ACC.0,DISP2
RR  A
MOV  R3,A
AJMP  DISP1
DISP2:RET
TAB:DB   3FH,06H,5BH,4FH,66H
    DB   6DH,7DH,07H,7FH,6FH
D5MS:PUSH  07H
PUSH  06H
MOV  R6,#32H
AA:MOV  R7,#19H
  DJNZ  R7,$
  DJNZ  R6,AA
  POP  06H
  POP  07H
  RET  
DTCT:MOV  A,R1
RL  A
RL  A
ADD  A,#60H
MOV  R0,A
MOV  A,R1
MOV  @R0,A
INC  R0
MOV  R5,#00H
MOV  R6,#04H
START:CJNE  R1,#00H,AD01
MOV  DPTR,#IN0
SJMP  TRAN
AD01:CJNE  R1,#01H,AD02
MOV   DPTR,#IN1
SJMP  TRAN
AD02:MOV DPTR,#IN2
TRAN:MOVX  @DPTR,A
NOP
NOP
JNB P3.3,$
MOVX A, @DPTR
CLR C
RRC  A
CLR  C
RRC  A
ADD  A,R5
MOV R5,A
DJNZ   R6,TRAN
MOV  A,R5
MOV  B,#03H
DIV  AB
MOV  R3,B
MOV  B,#0AH
DIV  AB
MOV @R0,A
INC  R0
MOV @R0,B
INC  R0
MOV A,R3
RL A
MOV  B,#0AH
DIV AB
MOV @R0,B
INC  R1
CJNE  R1,#03H,DTCT
MOV  R1,#00H
RET
END