uuu.asm

用两个中断输送WPM

           PP         BIT   P2.2
			  PT         BIT   P2.4
           WE         DATA     20H
           WD         DATA     30H
           WD1        DATA     31H
           WD2        DATA     32H
           WD3        DATA     33H
			  D_M        DATA     34H
			  D_M1       DATA     3AH
         ORG   00H
         AJMP  START

         ORG     000BH
         AJMP    TIMER

         ORG     001BH
         AJMP    TIMEQ

         ORG   100H

  START: 
         MOV     A,#0
           MOV     R0,#20H
           MOV     R1,#33
   QQW:    MOV     @R0,A
           INC     R0
           DJNZ    R1,QQW
         MOV    A,#0
         MOV    R0,A
			MOV    R1,A
			MOV    R2,A
			MOV    R3,A
			MOV    R4,A
		;	MOV    R5,A
			MOV    R6,A
			MOV    R7,A
			MOV    R5,#2
       ;     MOV    P2,A
         MOV     TMOD,#11H
         MOV     TH0,#0FEH
         MOV     TL0,#0EDH  
         MOV     TH1,#0FFH
         MOV     TL1,#00H
         SETB    TR0
         SETB    ET0
         SETB    EA
         MOV     DPTR,#TAB
      
      TUOP4:
		   

  DISY:
           MOV      A,WD
         
           MOVC     A,@A+DPTR
           MOV      P0,A
           CLR      P2.0
           ACALL    DELAY
           SETB     P2.0


           MOV      A,WD1
      
           MOVC     A,@A+DPTR
           MOV      P0,A
           CLR      P2.1
           ACALL    DELAY
           SETB     P2.1


           MOV      A,WD2
    
           MOVC     A,@A+DPTR
           MOV      P0,A
           CLR      P2.6
           ACALL    DELAY
           SETB     P2.6


           MOV      A,WD3
     
           MOVC     A,@A+DPTR
           MOV      P0,A
           CLR      P2.7
           ACALL    DELAY
           SETB     P2.7
        
         ACALL   AAD
			  INC    35H
			  MOV    A,35H
           CLR    C
           SUBB   A,#254
           JC     TUOP4
           MOV    35H,#0
			  INC    36H
			  MOV    A,36H
           CLR    C
           SUBB   A,#6
           JC     TUOP
           MOV    36H,#0
         MOV    A,R6
			  MOV      B,#100
           DIV      AB
           MOV      WD1,A
           MOV      A,B
           MOV      B,#10
           DIV      AB
           MOV      WD2,A
			  MOV      WD3,B
			  MOV      A,R5
			  CJNE    A,#1,TUOP2
			 MOV    A,#6
			 ADD    A,WD3
			 DA     A
			 MOV    3FH,A
			 ANL    A,#0FH
			 MOV    WD3,A
			 MOV    A,3FH
			 SWAP   A
			
			 ANL    A,#0FH
			 MOV    3FH,A
			 MOV    A,#5
			 ADD    A,WD2
			 ADD    A,3FH
			 DA     A
			 MOV    3FH,A
			 ANL    A,#0FH
			 MOV    WD2,A

          MOV    A,3FH
			 SWAP   A			
			 ANL    A,#0FH			 
			 ADD    A,WD1
			 MOV    WD1,A
			 MOV    A,#2
          ADD    A,WD1
			 MOV    WD1,A
   TUOP2:
			 CJNE    A,#0,TUOP
			 MOV    A,#2
			 ADD    A,WD3
			 DA     A
			 MOV    3FH,A
			 ANL    A,#0FH
			 MOV    WD3,A
			 MOV    A,3FH
			 SWAP   A
			
			 ANL    A,#0FH
			 MOV    3FH,A
			 MOV    A,#1
			 ADD    A,WD2
			 ADD    A,3FH
			 DA     A
			 MOV    3FH,A
			 ANL    A,#0FH
			 MOV    WD2,A

          MOV    A,3FH
			 SWAP   A			
			 ANL    A,#0FH			 
			 ADD    A,WD1
			 MOV    WD1,A
			 MOV    A,#5
          ADD    A,WD1
			 MOV    WD1,A

   TUOP:                      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         AJMP   DISY

    AAD:
           JNB    PT,TUO1
			  JB     WE.0,TUO
			  MOV    D_M,#0
           INC    D_M1
           MOV    A,D_M1
           CLR    C
           SUBB   A,#40
           JC     TUO
           MOV    D_M1,#0
			  CLR    WE.1
			  INC    R6
			  MOV    A,R6
           CLR    C
           SUBB   A,#255
           JC     TUO
           MOV    R6,#0
           DEC    R5
			  MOV    A,R5
			  CJNE   A,#255,TUO
			  MOV    R5,#0
			  MOV    R6,#255
           SETB   WE.0
    TUO:
 	       RET
    TUO1:
           JB     WE.1,TUO
			  MOV    D_M1,#0
		     INC    D_M
           MOV    A,D_M
           CLR    C
           SUBB   A,#40
           JC     TUO
           MOV    D_M,#0
			  CLR    WE.0
			  DEC   R6
			  MOV    A,R6
           CLR    C
           SUBB   A,#255
           JC     TUO
           MOV    R6,#254
			  INC    R5
			  MOV    A,R5
			  CJNE   A,#3,TUO
           MOV    R5,#2
			  MOV    R6,#0
			  SETB   WE.1
			  RET
 DELAY:
         MOV  R7,#11H
         DJNZ R7,$
         RET

 TIMER:  PUSH    ACC
         PUSH    PSW 
      	MOV     TH0,#0FCH
         MOV     TL0,#0E0H
        
	   	CLR     PP
			MOV     A,R5
			CPL     A
        MOV     TH1,A;#0FDH
			MOV     A,R6
         MOV     TL1,A
			SETB    TR1
         SETB    ET1
         POP     PSW
         POP     ACC
         RETI
  TIMEQ:
         PUSH    ACC
         PUSH    PSW 
      

			 SETB    PP
  
			CLR     TR1
         CLR     ET1
         POP     PSW
         POP     ACC
         RETI

  TAB:   
        DB    0A0H,0BBH,62H,32H,39H,34H,24H,0BAH,20H,30H
        DB 0F5H,05H,0B6H,97H,47H,0D3H,0F3H,85H,0F7H,0D7H

  ;TAB1:  DB 5FH,50H,3DH,79H,72H,6bH,6FH,51H,7FH,7BH


         END