fanbianyi.asm

数控直流电源.步进0.1V可调节电压0到20V,输出电压通过数码管显示,并且有掉电存储功能

	  Q0000:             MOV   A,#00H                       ;0000   74 00
                   MOV   P0,A                         ;0002   F5 80
                   CLR   P2.7                         ;0004   C2 A7
                   SETB  P2.7                         ;0006   D2 A7
                   SETB  P2.7                         ;0008   D2 A7
                   CLR   P2.0                         ;000A   C2 A0
                   CLR   P2.1                         ;000C   C2 A1
                   CLR   P2.2                         ;000E   C2 A2
                   MOV   P0,#0FEH                     ;0010   75 80 FE
                   LCALL Q019F                        ;0013   12 01 9F
                   MOV   P0,#0FFH                     ;0016   75 80 FF
                   MOV   P0,#0FDH                     ;0019   75 80 FD
                   LCALL Q019F                        ;001C   12 01 9F
                   MOV   P0,#0FFH                     ;001F   75 80 FF
                   MOV   P0,#0FBH                     ;0022   75 80 FB
                   LCALL Q019F                        ;0025   12 01 9F
                   MOV   P0,#0FFH                     ;0028   75 80 FF
                   MOV   P0,#0F7H                     ;002B   75 80 F7
                   LCALL Q019F                        ;002E   12 01 9F
                   MOV   P0,#0FFH                     ;0031   75 80 FF
                   MOV   P0,#0EFH                     ;0034   75 80 EF
                   LCALL Q019F                        ;0037   12 01 9F
                   MOV   P0,#0FFH                     ;003A   75 80 FF
                   MOV   P0,#0DFH                     ;003D   75 80 DF
                   LCALL Q019F                        ;0040   12 01 9F
                   MOV   P0,#0FFH                     ;0043   75 80 FF
                   MOV   P0,#00H                      ;0046   75 80 00
                   LCALL Q019F                        ;0049   12 01 9F
                   MOV   P0,#0FFH                     ;004C   75 80 FF
                   ACALL Q00EC                        ;004F   11 EC
                   SETB  P2.7                         ;0051   D2 A7
                   MOV   R7,A                         ;0053   FF
                   NOP                                ;0054   00
                   ACALL Q00AE                        ;0055   11 AE
Q0057:             ACALL Q00B6                        ;0057   11 B6
                   SETB  P1.4                         ;0059   D2 94
                   SETB  P1.5                         ;005B   D2 95
                   SETB  P1.6                         ;005D   D2 96
                   JNB   P1.4,Q006E                   ;005F   30 94 0C
                   JNB   P1.5,Q0084                   ;0062   30 95 1F
                   JNB   P1.6,Q009A                   ;0065   30 96 32
                   JNB   P1.7,Q00A6                   ;0068   30 97 3B
                   LJMP  Q0057                        ;006B   02 00 57
;==========================================================================
Q006E:             CJNE  R7,#0C8H,Q0074               ;006E   BF C8 03
                   LJMP  Q0057                        ;0071   02 00 57
;==========================================================================
Q0074:             JNB   P1.4,Q007F                   ;0074   30 94 08
                   ACALL Q00B6                        ;0077   11 B6
                   INC   R7                           ;0079   0F
                   ACALL Q00AE                        ;007A   11 AE
                   LJMP  Q0057                        ;007C   02 00 57
;==========================================================================
Q007F:             ACALL Q00B6                        ;007F   11 B6
                   LJMP  Q0074                        ;0081   02 00 74
;==========================================================================
Q0084:             CJNE  R7,#00H,Q008A                ;0084   BF 00 03
                   LJMP  Q0057                        ;0087   02 00 57
;==========================================================================
Q008A:             JNB   P1.5,Q0095                   ;008A   30 95 08
                   ACALL Q00B6                        ;008D   11 B6
                   DEC   R7                           ;008F   1F
                   ACALL Q00AE                        ;0090   11 AE
                   LJMP  Q0057                        ;0092   02 00 57
;==========================================================================
Q0095:             ACALL Q00B6                        ;0095   11 B6
                   LJMP  Q008A                        ;0097   02 00 8A
;==========================================================================
Q009A:             MOV   P0,#00H                      ;009A   75 80 00
                   CLR   P2.7                         ;009D   C2 A7
                   SETB  P2.7                         ;009F   D2 A7
                   ACALL Q01AA                        ;00A1   31 AA
                   LJMP  Q0057                        ;00A3   02 00 57
;==========================================================================
Q00A6:             MOV   A,R7                         ;00A6   EF
                   ACALL Q00F2                        ;00A7   11 F2
                   ACALL Q00B6                        ;00A9   11 B6
                   LJMP  Q0057                        ;00AB   02 00 57
;==========================================================================
Q00AE:             MOV   A,R7                         ;00AE   EF
                   MOV   P0,A                         ;00AF   F5 80
                   CLR   P2.7                         ;00B1   C2 A7
                   SETB  P2.7                         ;00B3   D2 A7
                   RET                                ;00B5   22
;==========================================================================
Q00B6:             MOV   A,R7                         ;00B6   EF
                   MOV   B,#64H                       ;00B7   75 F0 64
                   DIV   AB                           ;00BA   84
                   MOV   R5,A                         ;00BB   FD
                   MOV   A,#0AH                       ;00BC   74 0A
                   XCH   A,B                          ;00BE   C5 F0
                   DIV   AB                           ;00C0   84
                   MOV   R4,A                         ;00C1   FC
                   MOV   R3,B                         ;00C2   AB F0
                   MOV   DPTR,#01C1H                  ;00C4   90 01 C1
                   MOV   A,R5                         ;00C7   ED
                   MOVC  A,@A+DPTR                    ;00C8   93
                   MOV   P0,A                         ;00C9   F5 80
                   CLR   P2.0                         ;00CB   C2 A0
                   ACALL Q0185                        ;00CD   31 85
                   SETB  P2.0                         ;00CF   D2 A0
                   MOV   DPTR,#01D2H                  ;00D1   90 01 D2
                   MOV   A,R4                         ;00D4   EC
                   MOVC  A,@A+DPTR                    ;00D5   93
                   MOV   P0,A                         ;00D6   F5 80
                   CLR   P2.1                         ;00D8   C2 A1
                   ACALL Q0185                        ;00DA   31 85
                   SETB  P2.1                         ;00DC   D2 A1
                   MOV   DPTR,#01C1H                  ;00DE   90 01 C1
                   MOV   A,R3                         ;00E1   EB
                   MOVC  A,@A+DPTR                    ;00E2   93
                   MOV   P0,A                         ;00E3   F5 80
                   CLR   P2.2                         ;00E5   C2 A2
                   ACALL Q0185                        ;00E7   31 85
                   SETB  P2.2                         ;00E9   D2 A2
                   RET                                ;00EB   22
;==========================================================================
Q00EC:             LCALL Q010F                        ;00EC   12 01 0F
                   ACALL Q0173                        ;00EF   31 73
                   RET                                ;00F1   22
;==========================================================================
Q00F2:             MOV   B,A                          ;00F2   F5 F0
                   LCALL Q00F8                        ;00F4   12 00 F8
                   RET                                ;00F7   22
;==========================================================================
Q00F8:             ACALL Q0165                        ;00F8   31 65
                   MOV   A,#0A0H                      ;00FA   74 A0
                   ACALL Q0141                        ;00FC   31 41
                   ACALL Q0151                        ;00FE   31 51