51单片机和三菱变频器MODBUS RTU通信实例

;==========================================================================
;51单片机和三菱变频器MODBUS RTU通信实例

;所用单片机为STC12C5A60S2，使用其第二串口
;==========================================================================
Q0000: LJMP Q0387 ;0000 02 03 87
;==========================================================================
Q0003: MOV SP,#50H ;0003 75 81 50
ANL 8EH,#0F7H ;0006 53 8E F7
MOV 9AH,#50H ;0009 75 9A 50
MOV 9CH,#0FDH ;000C 75 9C FD
ANL 8EH,#0FBH ;000F 53 8E FB
ORL 8EH,#10H ;0012 43 8E 10
CLR EA ;0015 C2 AF
Q0017: MOV P2,#0FFH ;0017 75 A0 FF
JB P2.0,Q0036 ;001A 20 A0 19
JB 20H.2,Q0036 ;001D 20 02 16
JB 20H.3,Q0036 ;0020 20 03 13
JB 20H.4,Q0036 ;0023 20 04 10
JB 20H.5,Q0036 ;0026 20 05 0D
JB 20H.6,Q0036 ;0029 20 06 0A
JB 20H.7,Q0036 ;002C 20 07 07
JB 21H.0,Q0036 ;002F 20 08 04
SETB 20H.1 ;0032 D2 01
SJMP Q0038 ;0034 80 02
Q0036: CLR 20H.1 ;0036 C2 01
Q0038: JB P2.1,Q0054 ;0038 20 A1 19
JB 20H.1,Q0054 ;003B 20 01 16
JB 20H.3,Q0054 ;003E 20 03 13
JB 20H.4,Q0054 ;0041 20 04 10
JB 20H.5,Q0054 ;0044 20 05 0D
JB 20H.6,Q0054 ;0047 20 06 0A
JB 20H.7,Q0054 ;004A 20 07 07
JB 21H.0,Q0054 ;004D 20 08 04
SETB 20H.2 ;0050 D2 02
SJMP Q0056 ;0052 80 02
Q0054: CLR 20H.2 ;0054 C2 02
Q0056: JB P2.2,Q0072 ;0056 20 A2 19
JB 20H.1,Q0072 ;0059 20 01 16
JB 20H.2,Q0072 ;005C 20 02 13
JB 20H.4,Q0072 ;005F 20 04 10
JB 20H.5,Q0072 ;0062 20 05 0D
JB 20H.6,Q0072 ;0065 20 06 0A

JB 20H.7,Q0072 ;0068 20 07 07
JB 21H.0,Q0072 ;006B 20 08 04
SETB 20H.3 ;006E D2 03
SJMP Q0074 ;0070 80 02
Q0072: CLR 20H.3 ;0072 C2 03
Q0074: JB P2.3,Q0090 ;0074 20 A3 19
JB 20H.1,Q0090 ;0077 20 01 16
JB 20H.2,Q0090 ;007A 20 02 13
JB 20H.3,Q0090 ;007D 20 03 10
JB 20H.5,Q0090 ;0080 20 05 0D
JB 20H.6,Q0090 ;0083 20 06 0A
JB 20H.7,Q0090 ;0086 20 07 07
JB 21H.0,Q0090 ;0089 20 08 04
SETB 20H.4 ;008C D2 04
SJMP Q0092 ;008E 80 02
Q0090: CLR 20H.4 ;0090 C2 04
Q0092: JB P2.4,Q00AE ;0092 20 A4 19
JB 20H.1,Q00AE ;0095 20 01 16
JB 20H.2,Q00AE ;0098 20 02 13
JB 20H.3,Q00AE ;009B 20 03 10
JB 20H.4,Q00AE ;009E 20 04 0D
JB 20H.6,Q00AE ;00A1 20 06 0A
JB 20H.7,Q00AE ;00A4 20 07 07
JB 21H.0,Q00AE ;00A7 20 08 04
SETB 20H.5 ;00AA D2 05
SJMP Q00B0 ;00AC 80 02
Q00AE: CLR 20H.5 ;00AE C2 05
Q00B0: JB P2.5,Q00CC ;00B0 20 A5 19
JB 20H.1,Q00CC ;00B3 20 01 16
JB 20H.2,Q00CC ;00B6 20 02 13
JB 20H.3,Q00CC ;00B9 20 03 10
JB 20H.4,Q00CC ;00BC 20 04 0D
JB 20H.5,Q00CC ;00BF 20 05 0A
JB 20H.7,Q00CC ;00C2 20 07 07
JB 21H.0,Q00CC ;00C5 20 08 04
SETB 20H.6 ;00C8 D2 06
SJMP Q00CE ;00CA 80 02
Q00CC: CLR 20H.6 ;00CC C2 06
Q00CE: JB P2.6,Q00EA ;00CE 20 A6 19
JB 20H.1,Q00EA ;00D1 20 01 16
JB 20H.2,Q00EA ;00D4 20 02 13
JB 20H.3,Q00EA ;00D7 20 03 10
JB

20H.4,Q00EA ;00DA 20 04 0D
JB 20H.5,Q00EA ;00DD 20 05 0A
JB 20H.6,Q00EA ;00E0 20 06 07
JB 21H.0,Q00EA ;00E3 20 08 04
SETB 20H.7 ;00E6 D2 07
SJMP Q00EC ;00E8 80 02
Q00EA: CLR 20H.7 ;00EA C2 07
Q00EC: JB P2.7,Q0108 ;00EC 20 A7 19
JB 20H.1,Q0108 ;00EF 20 01 16
JB 20H.2,Q0108 ;00F2 20 02 13
JB 20H.3,Q0108 ;00F5 20 03 10
JB 20H.4,Q0108 ;00F8 20 04 0D
JB 20H.5,Q0108 ;00FB 20 05 0A
JB 20H.6,Q0108 ;00FE 20 06 07
JB 20H.7,Q0108 ;0101 20 07 04
SETB 21H.0 ;0104 D2 08
SJMP Q010A ;0106 80 02
Q0108: CLR 21H.0 ;0108 C2 08
Q010A: JNB 20H.1,Q0137 ;010A 30 01 2A
MOV 33H,#00H ;010D 75 33 00
MOV 34H,#01H ;0110 75 34 01
MOV 35H,#00H ;0113 75 35 00
MOV 36H,#06H ;0116 75 36 06
CLR A ;0119 E4
MOV 37H,A ;011A F5 37
MOV 38H,A ;011C F5 38
MOV 39H,A ;011E F5 39
MOV 3AH,#08H ;0120 75 3A 08
LCALL Q0413 ;0123 12 04 13
MOV 47H,R6 ;0126 8E 47
MOV 48H,R7 ;0128 8F 48
MOV 3FH,#00H ;012A 75 3F 00
MOV 40H,48H ;012D 85 48 40
MOV A,47H ;0130 E5 47
MOV 42H,A ;0132 F5 42
MOV 41H,#00H ;0134 75 41 00
Q0137: JNB 20H.2,Q016D ;0137 30 02 33
MOV 33H,#00H ;013A 75 33 00
MOV 34H,#01H ;013D 75 34 01
MOV 35H,#00H ;0140 75 35 00
MOV 36H,#06H ;0143 75 36 06
CLR A ;0146 E4
MOV 37H,A

;0147 F5 37
MOV 38H,A ;0149 F5 38
MOV 39H,A ;014B F5 39
MOV 3AH,#08H ;014D 75 3A 08
MOV 3BH,A ;0150 F5 3B
MOV 3CH,A ;0152 F5 3C
MOV 3DH,A ;0154 F5 3D
MOV 3EH,#02H ;0156 75 3E 02
LCALL Q041B ;0159 12 04 1B
MOV 47H,R6 ;015C 8E 47
MOV 48H,R7 ;015E 8F 48
MOV 3FH,#00H ;0160 75 3F 00
MOV 40H,48H ;0163 85 48 40
MOV A,47H ;0166 E5 47
MOV 42H,A ;0168 F5 42
MOV 41H,#00H ;016A 75 41 00
Q016D: JNB 20H.3,Q019A ;016D 30 03 2A
MOV 33H,#00H ;0170 75 33 00
MOV 34H,#01H ;0173 75 34 01
MOV 35H,#00H ;0176 75 35 00
MOV 36H,#06H ;0179 75 36 06
CLR A ;017C E4
MOV 37H,A ;017D F5 37
MOV 38H,A ;017F F5 38
MOV 39H,A ;0181 F5 39
MOV 3AH,#0DH ;0183 75 3A 0D
LCALL Q0413 ;0186 12 04 13
MOV 47H,R6 ;0189 8E 47
MOV 48H,R7 ;018B 8F 48
MOV 3FH,#00H ;018D 75 3F 00
MOV 40H,48H ;0190 85 48 40
MOV A,47H ;0193 E5 47
MOV 42H,A ;0195 F5 42
MOV 41H,#00H ;0197 75 41 00
Q019A: JNB 20H.4,Q01D1 ;019A 30 04 34
MOV 33H,#00H ;019D 75 33 00
MOV 34H,#01H ;01A0 75 34 01
MOV 35H,#00H ;01A3 75 35 00
MOV 36H,#06H ;01A6 75 36 06
CLR A ;01A9 E4
MOV 37H,A ;01AA F5 37
MOV 38H,A ;01AC F5 38
MOV 39H,A ;01AE F5 39
MOV 3AH

,#0DH ;01B0 75 3A 0D
MOV 3BH,A ;01B3 F5 3B
MOV 3CH,#03H ;01B5 75 3C 03
MOV 3DH,A ;01B8 F5 3D
MOV 3EH,#0E8H ;01BA 75 3E E8
LCALL Q041B ;01BD 12 04 1B
MOV 47H,R6 ;01C0 8E 47
MOV 48H,R7 ;01C2 8F 48
MOV 3FH,#00H ;01C4 75 3F 00
MOV 40H,48H ;01C7 85 48 40
MOV A,47H ;01CA E5 47
MOV 42H,A ;01CC F5 42
MOV 41H,#00H ;01CE 75 41 00
Q01D1: JNB 20H.5,Q0208 ;01D1 30 05 34
MOV 33H,#00H ;01D4 75 33 00
MOV 34H,#01H ;01D7 75 34 01
MOV 35H,#00H ;01DA 75 35 00
MOV 36H,#06H ;01DD 75 36 06
CLR A ;01E0 E4
MOV 37H,A ;01E1 F5 37
MOV 38H,A ;01E3 F5 38
MOV 39H,A ;01E5 F5 39
MOV 3AH,#0DH ;01E7 75 3A 0D
MOV 3BH,A ;01EA F5 3B
MOV 3CH,#07H ;01EC 75 3C 07
MOV 3DH,A ;01EF F5 3D
MOV 3EH,#0D0H ;01F1 75 3E D0
LCALL Q041B ;01F4 12 04 1B
MOV 47H,R6 ;01F7 8E 47
MOV 48H,R7 ;01F9 8F 48
MOV 3FH,#00H ;01FB 75 3F 00
MOV 40H,48H ;01FE 85 48 40
MOV A,47H ;0201 E5 47
MOV 42H,A ;0203 F5 42
MOV 41H,#00H ;0205 75 41 00
Q0208: JNB 20H.6,Q023F ;0208 30 06 34
MOV 33H,#00H ;020B 75 33 00
MOV 34H,#01H ;020E 75 34 01
MOV 35H,#00H ;0211 75 35 00
MOV 36H,#06H ;0214 75 36 06
CLR A ;0217 E4
MOV 37H,A ;0218 F5 37
MOV 38H,A ;021A F5

38
MOV 39H,A ;021C F5 39
MOV 3AH,#0DH ;021E 75 3A 0D
MOV 3BH,A ;0221 F5 3B
MOV 3CH,#0BH ;0223 75 3C 0B
MOV 3DH,A ;0226 F5 3D
MOV 3EH,#0B8H ;0228 75 3E B8
LCALL Q041B ;022B 12 04 1B
MOV 47H,R6 ;022E 8E 47
MOV 48H,R7 ;0230 8F 48
MOV 3FH,#00H ;0232 75 3F 00
MOV 40H,48H ;0235 85 48 40
MOV A,47H ;0238 E5 47
MOV 42H,A ;023A F5 42
MOV 41H,#00H ;023C 75 41 00
Q023F: JNB 20H.7,Q0276 ;023F 30 07 34
MOV 33H,#00H ;0242 75 33 00
MOV 34H,#01H ;0245 75 34 01
MOV 35H,#00H ;0248 75 35 00
MOV 36H,#06H ;024B 75 36 06
CLR A ;024E E4
MOV 37H,A ;024F F5 37
MOV 38H,A ;0251 F5 38
MOV 39H,A ;0253 F5 39
MOV 3AH,#0DH ;0255 75 3A 0D
MOV 3BH,A ;0258 F5 3B
MOV 3CH,#0FH ;025A 75 3C 0F
MOV 3DH,A ;025D F5 3D
MOV 3EH,#0A0H ;025F 75 3E A0
LCALL Q041B ;0262 12 04 1B
MOV 47H,R6 ;0265 8E 47
MOV 48H,R7 ;0267 8F 48
MOV 3FH,#00H ;0269 75 3F 00
MOV 40H,48H ;026C 85 48 40
MOV A,47H ;026F E5 47
MOV 42H,A ;0271 F5 42
MOV 41H,#00H ;0273 75 41 00
Q0276: JNB 21H.0,Q02AD ;0276 30 08 34
MOV 33H,#00H ;0279 75 33 00
MOV 34H,#01H ;027C 75 34 01
MOV 35H,#00H ;027F 75 35 00
MOV 36H,#06H ;0282 75 36 06
CLR A ;0285 E4
MOV 37H,A

;0286 F5 37
MOV 38H,A ;0288 F5 38
MOV 39H,A ;028A F5 39
MOV 3AH,#0DH ;028C 75 3A 0D
MOV 3BH,A ;028F F5 3B
MOV 3CH,#13H ;0291 75 3C 13
MOV 3DH,A ;0294 F5 3D
MOV 3EH,#88H ;0296 75 3E 88
LCALL Q041B ;0299 12 04 1B
MOV 47H,R6 ;029C 8E 47
MOV 48H,R7 ;029E 8F 48
MOV 3FH,#00H ;02A0 75 3F 00
MOV 40H,48H ;02A3 85 48 40
MOV A,47H ;02A6 E5 47
MOV 42H,A ;02A8 F5 42
MOV 41H,#00H ;02AA 75 41 00
Q02AD: JNB 20H.1,Q02B2 ;02AD 30 01 02
SETB 21H.1 ;02B0 D2 09
Q02B2: JB 20H.1,Q02BC ;02B2 20 01 07
JNB 21H.1,Q02BC ;02B5 30 09 04
SETB 20H.0 ;02B8 D2 00
CLR 21H.1 ;02BA C2 09
Q02BC: JNB 20H.2,Q02C1 ;02BC 30 02 02
SETB 21H.2 ;02BF D2 0A
Q02C1: JB 20H.2,Q02CB ;02C1 20 02 07
JNB 21H.2,Q02CB ;02C4 30 0A 04
SETB 20H.0 ;02C7 D2 00
CLR 21H.2 ;02C9 C2 0A
Q02CB: JNB 20H.3,Q02D0 ;02CB 30 03 02
SETB 21H.3 ;02CE D2 0B
Q02D0: JB 20H.3,Q02DA ;02D0 20 03 07
JNB 21H.3,Q02DA ;02D3 30 0B 04
SETB 20H.0 ;02D6 D2 00
CLR 21H.3 ;02D8 C2 0B
Q02DA: JNB 20H.4,Q02DF ;02DA 30 04 02
SETB 21H.4 ;02DD D2 0C
Q02DF: JB 20H.4,Q02E9 ;02DF 20 04 07
JNB 21H.4,Q02E9 ;02E2 30 0C 04
SETB 20H.0 ;02E5 D2 00
CLR 21H.4 ;02E7 C2 0C
Q02E9: JNB 20H.5,Q02EE ;02E9 30 05 02
SETB 21H.5 ;02EC D2 0D
Q02EE: JB 20H.5,Q02F8 ;02EE 20 05 07

JNB 21H.5,Q02F8 ;02F1 30 0D 04
SETB 20H.0 ;02F4 D2 00
CLR 21H.5 ;02F6 C2 0D
Q02F8: JNB 20H.6,Q02FD ;02F8 30 06 02
SETB 21H.6 ;02FB D2 0E
Q02FD: JB 20H.6,Q0307 ;02FD 20 06 07
JNB 21H.6,Q0307 ;0300 30 0E 04
SETB 20H.0 ;0303 D2 00
CLR 21H.6 ;0305 C2 0E
Q0307: JNB 20H.7,Q030C ;0307 30 07 02
SETB 21H.7 ;030A D2 0F
Q030C: JB 20H.7,Q0316 ;030C 20 07 07
JNB 21H.7,Q0316 ;030F 30 0F 04
SETB 20H.0 ;0312 D2 00
CLR 21H.7 ;0314 C2 0F
Q0316: JNB 21H.0,Q031B ;0316 30 08 02
SETB 22H.0 ;0319 D2 10
Q031B: JB 21H.0,Q0325 ;031B 20 08 07
JNB 22H.0,Q0325 ;031E 30 10 04
SETB 20H.0 ;0321 D2 00
CLR 22H.0 ;0323 C2 10
Q0325: JB 20H.0,Q032B ;0325 20 00 03
LJMP Q0017 ;0328 02 00 17
;==========================================================================
Q032B: SETB P1.0 ;032B D2 90
SETB P1.1 ;032D D2 91
CLR A ;032F E4
MOV 43H,A ;0330 F5 43
MOV 44H,A ;0332 F5 44
Q0334: MOV A,44H ;0334 E5 44
ADD A,ACC ;0336 25 E0
ADD A,#33H ;0338 24 33
MOV R0,A ;033A F8
INC R0 ;033B 08
MOV A,@R0 ;033C E6
MOV 9BH,A ;033D F5 9B
Q033F: MOV A,9AH ;033F E5 9A
JNB ACC.1,Q033F ;0341 30 E1 FB
ANL 9AH,#0FDH ;0344 53 9A FD
INC 44H ;0347 05 44
MOV A,44H ;0349 E5 44
JNZ Q034F ;034B 70 02
INC 43H ;034D 05

43
Q034F: XRL A,#08H ;034F 64 08
ORL A,43H ;0351 45 43
JNZ Q0334 ;0353 70 DF
CLR P1.0 ;0355 C2 90
CLR P1.1 ;0357 C2 91
CLR A ;0359 E4
MOV 45H,A ;035A F5 45
MOV 46H,A ;035C F5 46
Q035E: MOV A,9AH ;035E E5 9A
JNB ACC.0,Q035E ;0360 30 E0 FB
ANL 9AH,#0FEH ;0363 53 9A FE
MOV R7,9BH ;0366 AF 9B
MOV A,46H ;0368 E5 46
ADD A,ACC ;036A 25 E0
ADD A,#23H ;036C 24 23
MOV R0,A ;036E F8
MOV @R0,#00H ;036F 76 00
INC R0 ;0371 08
MOV @R0,07H ;0372 A6 07
INC 46H ;0374 05 46
MOV A,46H ;0376 E5 46
JNZ Q037C ;0378 70 02
INC 45H ;037A 05 45
Q037C: XRL A,#08H ;037C 64 08
ORL A,45H ;037E 45 45
JNZ Q035E ;0380 70 DC
CLR 20H.0 ;0382 C2 00
LJMP Q0017 ;0384 02 00 17
;==========================================================================
Q0387: MOV R0,#7FH ;0387 78 7F
CLR A ;0389 E4
Q038A: MOV @R0,A ;038A F6
DJNZ R0,Q038A ;038B D8 FD
MOV SP,#48H ;038D 75 81 48
LJMP Q03CE ;0390 02 03 CE
;==========================================================================
Q0393: LJMP Q0003 ;0393 02 00 03
;==========================================================================
Q0396: CLR A ;0396 E4
MOVC A,@A+DPTR ;0397 93
INC DPTR ;0398 A3
MOV R0,A ;0399 F8
Q039A: CLR A ;039A E4

MOVC A,@A+DPTR ;039B 93
INC DPTR ;039C A3
JC Q03A2 ;039D 40 03
MOV @R0,A ;039F F6
SJMP Q03A3 ;03A0 80 01
Q03A2: MOVX @R0,A ;03A2 F2
Q03A3: INC R0 ;03A3 08
DJNZ R7,Q039A ;03A4 DF F4
SJMP Q03D1 ;03A6 80 29
Q03A8: CLR A ;03A8 E4
MOVC A,@A+DPTR ;03A9 93
INC DPTR ;03AA A3
MOV R0,A ;03AB F8
ANL A,#07H ;03AC 54 07
ADD A,#0CH ;03AE 24 0C
XCH A,R0 ;03B0 C8
CLR C ;03B1 C3
RLC A ;03B2 33
SWAP A ;03B3 C4
ANL A,#0FH ;03B4 54 0F
ORL A,#20H ;03B6 44 20
XCH A,R0 ;03B8 C8
MOVC A,@A+PC ;03B9 83
JC Q03C0 ;03BA 40 04
CPL A ;03BC F4
ANL A,@R0 ;03BD 56
SJMP Q03C1 ;03BE 80 01
Q03C0: ORL A,@R0 ;03C0 46
Q03C1: MOV @R0,A ;03C1 F6
DJNZ R7,Q03A8 ;03C2 DF E4
SJMP Q03D1 ;03C4 80 0B
AJMP Q0002 ;03C6 01 02
INC A ;03C8 04
INC R0 ;03C9 08
JBC 24H.0,Q040D ;03CA 10 20 40
SJMP Q035F ;03CD 80 90
Q03CE: MOV DPTR,#0491H ;03CE 90 04 91
Q03D1: CLR A ;03D1 E4
MOV R6,#01H ;03D2 7E 01
MOVC A,@A+DPTR ;03D4 93
JZ Q0393 ;03D5 60 BC
INC DPTR ;03D7 A3
MOV R7,A ;03D8 FF
ANL A,#3FH ;03D9 54 3F
JNB ACC.5,Q03E7

;03DB 30 E5 09
ANL A,#1FH ;03DE 54 1F
MOV R6,A ;03E0 FE
CLR A ;03E1 E4
MOVC A,@A+DPTR ;03E2 93
INC DPTR ;03E3 A3
JZ Q03E7 ;03E4 60 01
INC R6 ;03E6 0E
Q03E7: XCH A,R7 ;03E7 CF
ANL A,#0C0H ;03E8 54 C0
ADD A,ACC ;03EA 25 E0
JZ Q0396 ;03EC 60 A8
JC Q03A8 ;03EE 40 B8
CLR A ;03F0 E4
MOVC A,@A+DPTR ;03F1 93
INC DPTR ;03F2 A3
MOV R2,A ;03F3 FA
CLR A ;03F4 E4
MOVC A,@A+DPTR ;03F5 93
INC DPTR ;03F6 A3
MOV R0,A ;03F7 F8
Q03F8: CLR A ;03F8 E4
MOVC A,@A+DPTR ;03F9 93
INC DPTR ;03FA A3
XCH A,R0 ;03FB C8
XCH A,DPL ;03FC C5 82
XCH A,R0 ;03FE C8
XCH A,R2 ;03FF CA
XCH A,DPH ;0400 C5 83
XCH A,R2 ;0402 CA
MOVX @DPTR,A ;0403 F0
INC DPTR ;0404 A3
XCH A,R0 ;0405 C8
XCH A,DPL ;0406 C5 82
XCH A,R0 ;0408 C8
XCH A,R2 ;0409 CA
XCH A,DPH ;040A C5 83
XCH A,R2 ;040C CA
Q040D: DJNZ R7,Q03F8 ;040D DF E9
DJNZ R6,Q03F8 ;040F DE E7
SJMP Q03D1 ;0411 80 BE
Q0413: MOV 3BH,A ;0413 F5 3B
MOV 3CH,A ;0415 F5 3C
MOV 3DH,A ;0417 F5 3D
MOV 3EH,A ;0419 F5 3E
Q041B: MOV

R3,A ;041B FB
MOV R2,#00H ;041C 7A 00
MOV R1,#33H ;041E 79 33
MOV R5,#06H ;0420 7D 06
MOV R4,A ;0422 FC
MOV 08H,R3 ;0423 8B 08
MOV 09H,R2 ;0425 8A 09
MOV 0AH,R1 ;0427 89 0A
MOV 0BH,R4 ;0429 8C 0B
MOV 0CH,R5 ;042B 8D 0C
MOV A,#0FFH ;042D 74 FF
MOV 0DH,A ;042F F5 0D
MOV 0EH,A ;0431 F5 0E
CLR A ;0433 E4
MOV R5,A ;0434 FD
MOV R4,A ;0435 FC
Q0436: CLR C ;0436 C3
MOV A,R5 ;0437 ED
SUBB A,0CH ;0438 95 0C
MOV A,R4 ;043A EC
SUBB A,0BH ;043B 95 0B
JNC Q048C ;043D 50 4D
MOV A,R5 ;043F ED
ADD A,ACC ;0440 25 E0
MOV R7,A ;0442 FF
MOV A,R4 ;0443 EC
RLC A ;0444 33
MOV R3,08H ;0445 AB 08
MOV R2,09H ;0447 AA 09
MOV R1,0AH ;0449 A9 0A
MOV DPL,R7 ;044B 8F 82
MOV DPH,A ;044D F5 83
LCALL Q04D8 ;044F 12 04 D8
XRL 0EH,A ;0452 62 0E
CLR A ;0454 E4
MOV R3,A ;0455 FB
MOV R2,A ;0456 FA
Q0457: MOV A,0EH ;0457 E5 0E
JNB ACC.0,Q046F ;0459 30 E0 13
MOV A,0DH ;045C E5 0D
CLR C ;045E C3
RRC A ;045F 13
MOV 0DH,A ;0460 F5 0D
MOV A,0EH ;0462 E5 0E
RRC A

;0464 13
MOV 0EH,A ;0465 F5 0E
XRL 0EH,#01H ;0467 63 0E 01
XRL 0DH,#0A0H ;046A 63 0D A0
SJMP Q047A ;046D 80 0B
Q046F: MOV A,0DH ;046F E5 0D
CLR C ;0471 C3
RRC A ;0472 13
MOV 0DH,A ;0473 F5 0D
MOV A,0EH ;0475 E5 0E
RRC A ;0477 13
MOV 0EH,A ;0478 F5 0E
Q047A: INC R3 ;047A 0B
CJNE R3,#00H,Q047F ;047B BB 00 01
INC R2 ;047E 0A
Q047F: MOV A,R3 ;047F EB
XRL A,#08H ;0480 64 08
ORL A,R2 ;0482 4A
JNZ Q0457 ;0483 70 D2
INC R5 ;0485 0D
CJNE R5,#00H,Q048A ;0486 BD 00 01
INC R4 ;0489 0C
Q048A: SJMP Q0436 ;048A 80 AA
Q048C: MOV R6,0DH ;048C AE 0D
MOV R7,0EH ;048E AF 0E
RET ;0490 22
;==========================================================================
Q0491: DB 0C1H, 01H,0C1H, 02H,0C1H, 03H,0C1H, 04H ;........
Q0499: DB 0C1H, 05H,0C1H, 06H,0C1H, 07H,0C1H, 08H ;........
Q04A1: DB 0C1H, 09H,0C1H, 0AH,0C1H, 0BH,0C1H, 0CH ;........
Q04A9: DB 0C1H, 0DH,0C1H, 0EH,0C1H, 0FH,0C1H, 10H ;........
Q04B1: DB 0C1H, 00H, 10H, 33H, 00H, 00H, 00H, 00H ;...3....
Q04B9: DB 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H ;........
Q04C1: DB 00H, 00H, 00H, 00H, 10H, 23H, 00H, 00H ;.....#..
Q04C9: DB 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H ;........
Q04D1: DB 00H, 00H, 00H, 00H, 00H, 00H, 00H ;.......
;==========================================================================
Q04D8: CJNE R3,#01H,Q04EB ;04D8 BB 01 10
MOV A,DPL ;04DB E5 82
ADD A,R1 ;04DD 29
MOV DPL,A ;04DE F5 82
MOV A,DPH ;04E0 E5 83
ADDC A,R2 ;04E2 3A
MOV DPH,A ;04E3 F5 83
MOVX A,@DPTR ;04E5 E0

MOV B,A ;04E6 F5 F0
INC DPTR ;04E8 A3
MOVX A,@DPTR ;04E9 E0
RET ;04EA 22
;==========================================================================
Q04EB: JNC Q04F6 ;04EB 50 09
MOV A,R1 ;04ED E9
ADD A,DPL ;04EE 25 82
MOV R0,A ;04F0 F8
MOV B,@R0 ;04F1 86 F0
INC R0 ;04F3 08
MOV A,@R0 ;04F4 E6
RET ;04F5 22
;==========================================================================
Q04F6: CJNE R3,#0FEH,Q0503 ;04F6 BB FE 0A
MOV A,R1 ;04F9 E9
ADD A,DPL ;04FA 25 82
MOV R0,A ;04FC F8
MOVX A,@R0 ;04FD E2
MOV B,A ;04FE F5 F0
INC R0 ;0500 08
MOVX A,@R0 ;0501 E2
RET ;0502 22
;==========================================================================
Q0503: MOV A,DPH ;0503 E5 83
ADD A,R2 ;0505 2A
MOV DPH,A ;0506 F5 83
MOV A,R1 ;0508 E9
MOVC A,@A+DPTR ;0509 93
MOV B,A ;050A F5 F0
INC DPTR ;050C A3
MOV A,R1 ;050D E9
MOVC A,@A+DPTR ;050E 93
RET ;050F 22
;==========================================================================