课设(完)adc0809.asm

基于51单片机的电压调节系统

     ORG 0000H
     AJMP MAIN
MAIN:MOV DPTR,#TBL
     MOV 38H,#20
     MOV 7CH,#11H
     MOV 7DH,#3
     MOV 7EH,#8
     MOV 7FH,#11H
     MOV 79H,#7CH   ;显示指针
     MOV 78H,#0FEH  ;显示位码
     MOV R4,#99
DEL2:MOV R5,#100
DEL1:MOV R6,#250
     DJNZ R6,$
     LCALL  XS4
     DJNZ R5,DEL1
     DJNZ R4,DEL2
     MOV R3,#0
     MOV R4,#0
     MOV 31H,#0
;------------
;------------
LOOP:NOP
     LCALL XS4      ;动态显示
     LCALL DEL
     LCALL DEL
     DJNZ 38H,LOOP
     MOV 38H,#20
     LCALL ADC3
     LCALL NTOV
     LCALL BCD
     JB P1.0,LOP1
     LCALL DEL
     JB P1.0,LOP1
     MOV R2,#5
LOP1:CJNE R2,#5,LOP
     LCALL JPSZ
LOP: AJMP LOOP

JPSZ:JB P1.1,JYI
     LCALL DEL
     JB P1.1,JYI
     JNB P1.1,$
     MOV A,48H
     INC A
     MOV 48H,A
     CJNE A,#10,LOP9
     MOV 48H,#0
     MOV A,47H
     INC A
     MOV 47H,A
     CJNE A,#10,LOP9
     MOV 47H,#0
 JYI:JB P1.2,LOP9
     LCALL DEL
     JB P1.2,LOP9
     JNB P1.2,$
     MOV A,48H
     DEC A
     MOV 48H,A
     CJNE A,#0FFH,LOP9
     MOV 48H,#9
     MOV A,47H
     DEC A
     MOV 47H,A
     CJNE A,#0FFH,LOP9
     MOV 47H,#9
LOP9:MOV 7CH,#11H
     MOV 7DH,#10H
     MOV A,47H
     ADD A,#12H
     MOV 7EH,A
     MOV 7FH,48H
ZCXS:LCALL XS4      ;动态显示
     LCALL DEL
     LCALL DEL
     DJNZ 38H,ZCXS
     MOV 38H,#20
     JB P1.3,JPSZ
     LCALL DEL
     JB P1.3,JPSZ
     JNB P1.3,$
     MOV R2,#8
     RET
;------------
;------------
;-------------
NTOV: MOV A,30H
      CJNE A,#1,DLCD2
      CLR C
      MOV A,37H
      MOV B,#196
      MOV 41H,#0
      AJMP JSJG
DLCD2:CLR C
      MOV A,37H
      SUBB A,#175
      JNC D2D
      CLR C
      MOV A,37H
      SUBB A,#3
      JMP DLCD3
D2D:  SUBB A,#50
      JNC D3D
      CLR C
      MOV A,37H
      SUBB A,#4
      JMP DLCD3
D3D:  CLR C
      MOV A,37H
      SUBB A,#5
DLCD3:MOV 41H,#1
      MOV B,#40
JSJG: MUL AB
      MOV 36H,B
      MOV 32H,A
      RET
;------------
BCD:  CLR A
      MOV 33H,A
      MOV 34H,A
      MOV 35H,A
      MOV R1,#10H
HB3:  MOV A,32H
      RLC A
      MOV 32H,A
      MOV A,36H
      RLC A
      MOV 36H,A
      MOV A,35H
      ADDC A,35H
      DA A
      MOV 35H,A
      MOV A,34H
      ADDC A,34H
      DA A
      MOV 34H,A
      MOV A,33H
      ADDC A,33H
      MOV 33H,A
      DJNZ R1,HB3
      MOV A,35H
      SWAP A
      ANL A,#0FH
      MOV 45H,A
      MOV A,34H
      ANL A,#0FH
      MOV 44H,A
      MOV A,34H
      SWAP A
      ANL A,#0FH
      MOV 43H,A
      MOV A,33H
      ANL A,#0FH
      MOV 42H,A
      MOV A,41H
      CJNE A,#0,SDLC
      MOV A,42H
      ADD A,#12H
      MOV 7CH,A
      MOV 7DH,43H
      MOV A,42H
      CJNE A,47H,XLPD
      MOV A,43H
      CJNE A,48H,XLPD
      SETB P1.4
      AJMP ZCJC
XLPD: CLR P1.4
      AJMP ZCJC
SDLC: MOV 7CH,42H
      MOV A,42H
      JNZ XLLD
      MOV 7CH,#10H
XLLD: MOV A,43H
      ADD A,#12H
      MOV 7DH,A
      MOV A,43H
      CJNE A,47H,DLPD
      MOV A,44H
      CJNE A,48H,DLPD
      SETB P1.4
      AJMP ZCJC
DLPD: CLR P1.4
ZCJC: MOV 7EH,44H
      MOV 7FH,45H
      RET
ADC3: MOV P2,#7FH
      MOV A,31H
      CJNE A,#0, DLCD1
      MOV R0,#1
      MOVX A,@R0
      MOV 49H,A
      CLR C
      SUBB A,#0FFH
      JNC DLCFZ
      MOV 37H,49H
      MOV 30H,#1
      MOV A,#1
      MOVX @R0,A
      RET
DLCD1:MOV R0,#2
      MOVX A,@R0
      CLR C
      MOV 46H,A
      SUBB A,#7FH
      JC XLCFZ
      MOV 37H,46H
      MOV 30H,#2
      MOV A,#2
      MOVX @R0,A
      RET
XLCFZ:MOV 31H,#0
      MOV A,#1
      MOVX @R0,A
      RET
DLCFZ:MOV 31H,#1
      MOV A,#2
      MOVX @R0,A
      RET
;--动态显示每次1位------
XS4:   MOV A,#0H
       MOV P2,#0FEH
       MOVX @R0,A
       MOV R0,79H
       MOV A,@R0
       MOVC A,@A+DPTR
       CPL A
       MOV P2,#0FEH
       MOVX @R0,A
       MOV P2,#0FDH
       MOV A,78H
       MOVX @R0,A
       RL A
       MOV 78H,A
       INC 79H
       CJNE R0,#7FH,XSE
       MOV 79H,#7CH
       MOV 78H,#0FEH
XSE:   RET
;------------

;------------
DEL: DJNZ R7,DEL
     RET
;---------------------
TBL: DB  0C0H,0F9H,0A4H,0B0H,99H    ;01234
     DB  92H,82H,0F8H,080H,090H     ;56789
     DB  88H,83H,0C6H,0A1H,86H,8EH  ;ABCDEF
     DB  0FFH,0BFH                  ; -
     DB  040H,079H,024H,030H,19H    ;01234
     DB  12H,02H,78H,00H,10H     ;56789
     DB  08H,03H,46H,21H,06H,0EH,80H  ;ABCDEF
;-------------------------