8lushuzhiceliang.txt

8路输入模拟信号数值轮流测量并显示电路程序……

;
;***********************
;
;***********************
;  主程序和中断程序入口
;***********************
ORG 0000H
LJMP START
ORG 0003H
RETI
ORG 000BH
RETI
ORG 0013H
RETI
ORG 001BH
RETI 
ORG 0023H
RETI
ORG 002BH
RETI
;*******************
;  初始化程序中的各变量
;*******************
;
CLEARMEMIO: CLR A
            MOV P2,A
            MOV R0,#70H
            MOV R2,#0CH
LOOPMEN: MOV @R0,A
         INC R0
         DJNZ R2,LOOPMEN
         MOV A,#0FFH
         MOV P0,A
         MOV P1,A
         MOV P3,A
RET
;
;******************
;  主程序
;******************
START: LCALL CLEARMEMIO
MAIN: LCALL DISPLAY
      LCALL TEST
      AJMP MAIN
      NOP
      NOP
      NOP
      LJMP START

DISPLAY: MOV R3,#08H
         MOV R0,#70H
         MOV 7BH,#00H
DISLOOP1: MOV A,@R0
          MOV B,#100
          DIV AB
          MOV 7AH,A
          MOV A,#10
          XCH A,B
          DIV AB
          MOV 79H,A
          MOV 78H,B
          MOV R2,#0FFH
DISLOOP2: LCALL DISP
          DJNZ R2,DISLOOP2
          INC R0
          INC 7BH
          DJNZ R3,DISLOOP1
          RET

DISP: MOV R1,#78H
      MOV R5,#0FEH
PLAY: MOV P1,#0FFH
      MOV A,R5
      ANL P3,A
      MOV A,@R1
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      MOV P1,A
      LCALL DL1MS
      INC R1
      MOV A,P3
      JNB ACC.3,ENDOUT
      RL A
      MOV R5,A
      MOV P3,#0FFH
      AJMP PLAY
ENDOUT: MOV P3,#0FFH
        MOV P1,#0FFH
        RET

TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH

DL1MS: MOV R6,#14H
DL1: MOV R7,#19H
DL2: DJNZ R7,DL2
     DJNZ R6,DL1
     RET
;
;**********************
;  测量子程序
;**********************
TEST: CLR A
      MOV P2,A
      MOV R0,#70H
      MOV R7,#08H
      LCALL TESTART
WAIT: JB P3.7,MOVD
      AJMP WAIT

TESTART: SETB P2.3
         NOP
         NOP
         CLR P2.3
         SETB P2.4
         NOP
         NOP
         CLR P2.4
         NOP
         NOP
         NOP
         NOP
         RET

MOVD: SETB P2.5
      MOV A,P0
      MOV @R0,A
      CLR P2.5
      INC R0
      MOV A,P2
      INC A
      MOV P2,A
      CLR C
      CJNE A,#08H,TESTCON
      JC TESTCON
      CLR A
      MOV P2,A
      MOV A,#0FFH
      MOV P0,A
      MOV P1,A
      MOV P3,A
      RET
TESTCON: LCALL TESTART
         LJMP WAIT

END