函数发生器程序

/*数码管按共阴的算，假设DA0832片选接在平P2.0口上*/

ORG 0000H

LJMP MAIN

ORG 0003H

LJMP L0

MAIN:MOV R2,#01H                  

      MOV R4,#01H                 

pp: SETB EA

      SETB EX0                 

      MOV A,P1

      JNB ACC.0,ZXB      

      JNB ACC.1,SJB     

      JNB ACC.2,FB       

      AJMP PP

         /*正弦波*/

ZXB:MOV R1,#00H

LOOP1:MOV A,R1

      MOV DPTR,#TABLE1            

      MOVC A,@A+DPTR               

      MOV B,R2

      MUL AB             

      INC R1

      XCH A,R1

      CLR C

      SUBB A, #0AH                   

      JNC LK1                

      ADD A,#0AH

      XCH A,R1                     

      ADD A,#80H                   

      AJMP LK0

LK1:ADD A,#0AH

      XCH A,R1

      MOV R3,A

      MOV A,#80H

      CLR C

      SUBB A,R3                     

LK0:

      CALL DELAY

      CJNE R1,#12H,LOOP1

      LJMP PP

 

/*三角波*/

SJB:MOV R1,#00H

LOOP2:MOV A,R1

      MOV DPTR,#TABLE2             

      MOVC A,@A+DPTR               

      MOV B,R2

      MUL AB             

      INC R1

      XCH A,R1

      CLR C

      SUBB A,#0DH                 

      JNC LK5                      

      ADD A,#0DH

      XCH A,R1                      

      ADD A,#80H                   

      AJMP LK4

LK5:ADD A,#0DH

      XCH A,R1

      MOV R3,A

      MOV A,#80H

      CLR C

      SUBB A,R3                    

LK4:

      CALL DELAY

      CJNE R1,#18H,LOOP2

      LJMP PP

 

/*方波*/

FB:MOV R1,#00H

LOOP3:MOV A,R1

      MOV DPTR,#TABLE3              

      MOVC A,@A+DPTR               

      MOV B,R2

      MUL AB              

      INC R1

      XCH A,R1

      CLR C

      SUBB A,#0AH                   

      JNC LK3                  

      ADD A,#0AH

      XCH A,R1                     

      ADD A,#80H                   

      AJMP LK2

LK3:ADD A,#0AH

      XCH A,R1

      MOV R3,A

      MOV A,#80H

      CLR C

      SUBB A,R3                    

LK2:

      CALL DELAY

      CJNE R1,#12H,LOOP3

      LJMP PP

DELAY:MOV DPTR,#0FEFFH

      MOVX @DPTR,A

        ; ACALL DISUP

      MOV A,R4

         MOV R5,A

KD0:  DEC R5

      CJNE R5,#00H,KD0

      MOV R5,A

      RET

 

/*外中断服务程序        */

   L0:CLR EA

      MOV B,A

      PUSH B

      PUSH PSW

/*判断幅度*/

  L1:    JB P1.3,L2                  

      JNB P1.5,KK0                              

      CJNE R2,#0AH,KK1             

      SJMP LD1

KK1:INC R2       

      SJMP LD1

KL1:CJNE R2,#00H,KK1

      SJMP LD1

KK0:DEC R2                       

LD1:JNB P1.3,LD1

      LJMP LEND

  /*判断频率的*/

   L2:JB P1.4 ,LEND

      JB P1.6,KLL                      

      CJNE R4,#0FFH,KF1

         SJMP MAX

KF1:  CLR C

      ADD A,#0FH    

      JC MAX

      MOV R4,A

      LJMP LD2

MAX:  MOV R4,#0FFH

      LJMP LD2

KLL:  MOV A,R4

      CJNE R4,#01H,KF0

         SJMP MIN

KF0:  CLR C

      SUBB A,#0FH

      JC MIN

      MOV R4,A

         LJMP LD2

MIN:  MOV R4,#01H

LD2:JNB P1.4,LD2

LEND:POP PSW

      POP B

         MOV A,B

      SETB EA

      RETI

         /*显示幅度，频率

DISUP:MOV DPTR,#TABLE4               ;读取振幅数据首地址

      MOV A,R2

         MOVC A,@A+DPTR                 ;取表格数据

                                                                                             */

 

TABLE1:DB 00H,04H,08H,0AH,0CH,0CH,0AH,08H,04H,00H,04H,08H,0AH,0CH,0CH,0AH,08H ,04H

TABLE2:DB 00H,02H,04H,06H,08H,0AH,0CH,0AH,08H,06H,04H,02H,00H,02H,04H,06H,08H,0AH,0CH,0AH,08H,06H,04H,02H

TABLE3:DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,0CH,0CH,0CH,0CH,0CH,0CH,0CH,0CH ,0CH

/*TABLE4:DB 0FDH, */

 

END

 

MOV  DPTR,#83E8H

MOV  A,80H

MOVX @DPTR,A

MOV A,R2

MOV B,0C

MUL; AB