📄 pidtext.lis
字号:
02F8 ; {
02F8 .dbline 162
02F8 ; Ed=e_0-Ec;
02F8 C0900C00 lds R12,_e_0
02FC D0900D00 lds R13,_e_0+1
0300 CA18 sub R12,R10
0302 DB08 sbc R13,R11
0304 .dbline 163
0304 ; s_Ed=1;
0304 0024 clr R0
0306 0394 inc R0
0308 0986 std y+9,R0
030A .dbline 164
030A ; }
030A .dbline 165
030A ; }
030A .dbline 166
030A ; }
030A 37C0 rjmp L30
030C L29:
030C .dbline 168
030C ; else
030C ; {
030C .dbline 169
030C ; if (s_e_0==0)
030C 20900300 lds R2,_s_e_0
0310 2220 tst R2
0312 D1F4 brne L37
0314 .dbline 170
0314 ; {
0314 .dbline 171
0314 ; if (s_Ec==0)
0314 0B84 ldd R0,y+11
0316 0020 tst R0
0318 61F4 brne L39
031A .dbline 172
031A ; {
031A .dbline 173
031A ; Ed=Ec-e_0;
031A 20900C00 lds R2,_e_0
031E 30900D00 lds R3,_e_0+1
0322 CA2C mov R12,R10
0324 DB2C mov R13,R11
0326 C218 sub R12,R2
0328 D308 sbc R13,R3
032A .dbline 174
032A ; s_Ed=1;
032A 0024 clr R0
032C 0394 inc R0
032E 0986 std y+9,R0
0330 .dbline 175
0330 ; }
0330 24C0 rjmp L38
0332 L39:
0332 .dbline 177
0332 ; else
0332 ; {
0332 .dbline 178
0332 ; Ed=Ec+e_0;
0332 20900C00 lds R2,_e_0
0336 30900D00 lds R3,_e_0+1
033A CA2C mov R12,R10
033C DB2C mov R13,R11
033E C20C add R12,R2
0340 D31C adc R13,R3
0342 .dbline 179
0342 ; s_Ed=0;
0342 0024 clr R0
0344 0986 std y+9,R0
0346 .dbline 180
0346 ; }
0346 .dbline 181
0346 ; }
0346 19C0 rjmp L38
0348 L37:
0348 .dbline 183
0348 ; else
0348 ; {
0348 .dbline 184
0348 ; if (s_Ec==0)
0348 0B84 ldd R0,y+11
034A 0020 tst R0
034C 61F4 brne L41
034E .dbline 185
034E ; {
034E .dbline 186
034E ; Ed=Ec+e_0;
034E 20900C00 lds R2,_e_0
0352 30900D00 lds R3,_e_0+1
0356 CA2C mov R12,R10
0358 DB2C mov R13,R11
035A C20C add R12,R2
035C D31C adc R13,R3
035E .dbline 187
035E ; s_Ed=1;
035E 0024 clr R0
0360 0394 inc R0
0362 0986 std y+9,R0
0364 .dbline 188
0364 ; }
0364 0AC0 rjmp L42
0366 L41:
0366 .dbline 190
0366 ; else
0366 ; {
0366 .dbline 191
0366 ; Ed=Ec-e_0;
0366 20900C00 lds R2,_e_0
036A 30900D00 lds R3,_e_0+1
036E CA2C mov R12,R10
0370 DB2C mov R13,R11
0372 C218 sub R12,R2
0374 D308 sbc R13,R3
0376 .dbline 192
0376 ; s_Ed=0;
0376 0024 clr R0
0378 0986 std y+9,R0
037A .dbline 193
037A ; }
037A L42:
037A .dbline 194
037A ; }
037A L38:
037A .dbline 195
037A ; }
037A L30:
037A .dbline 197
037A ; //Ee=Ed+e_2
037A ; if (s_Ed==0)
037A 0984 ldd R0,y+9
037C 0020 tst R0
037E 49F5 brne L43
0380 .dbline 198
0380 ; {
0380 .dbline 199
0380 ; if (s_e_2==0)
0380 20900500 lds R2,_s_e_2
0384 2220 tst R2
0386 59F4 brne L45
0388 .dbline 200
0388 ; {
0388 .dbline 201
0388 ; Ee=Ed+e_2;
0388 20901000 lds R2,_e_2
038C 30901100 lds R3,_e_2+1
0390 4C2C mov R4,R12
0392 5D2C mov R5,R13
0394 420C add R4,R2
0396 531C adc R5,R3
0398 5B82 std y+3,R5
039A 4A82 std y+2,R4
039C .dbline 202
039C ; }
039C 45C0 rjmp L44
039E L45:
039E .dbline 204
039E ; else
039E ; {
039E .dbline 205
039E 20901000 lds R2,_e_2
03A2 30901100 lds R3,_e_2+1
03A6 C214 cp R12,R2
03A8 D304 cpc R13,R3
03AA 38F0 brlo L47
03AC .dbline 205
03AC .dbline 205
03AC 4C2C mov R4,R12
03AE 5D2C mov R5,R13
03B0 4218 sub R4,R2
03B2 5308 sbc R5,R3
03B4 5B82 std y+3,R5
03B6 4A82 std y+2,R4
03B8 .dbline 205
03B8 37C0 rjmp L44
03BA L47:
03BA .dbline 205
03BA ; if (Ed>=e_2){Ee=Ed-e_2;}else{Ee=e_2-Ed;s_Ee=1;}
03BA .dbline 205
03BA 20901000 lds R2,_e_2
03BE 30901100 lds R3,_e_2+1
03C2 2C18 sub R2,R12
03C4 3D08 sbc R3,R13
03C6 3B82 std y+3,R3
03C8 2A82 std y+2,R2
03CA .dbline 205
03CA 0024 clr R0
03CC 0394 inc R0
03CE 0C86 std y+12,R0
03D0 .dbline 205
03D0 .dbline 206
03D0 ; }
03D0 .dbline 207
03D0 ; }
03D0 2BC0 rjmp L44
03D2 L43:
03D2 .dbline 209
03D2 ; else
03D2 ; {
03D2 .dbline 210
03D2 ; if (s_e_2==0)
03D2 20900500 lds R2,_s_e_2
03D6 2220 tst R2
03D8 D1F4 brne L49
03DA .dbline 211
03DA ; {
03DA .dbline 212
03DA 20901000 lds R2,_e_2
03DE 30901100 lds R3,_e_2+1
03E2 C214 cp R12,R2
03E4 D304 cpc R13,R3
03E6 50F0 brlo L51
03E8 .dbline 212
03E8 .dbline 212
03E8 4C2C mov R4,R12
03EA 5D2C mov R5,R13
03EC 4218 sub R4,R2
03EE 5308 sbc R5,R3
03F0 5B82 std y+3,R5
03F2 4A82 std y+2,R4
03F4 .dbline 212
03F4 0024 clr R0
03F6 0394 inc R0
03F8 0C86 std y+12,R0
03FA .dbline 212
03FA 16C0 rjmp L50
03FC L51:
03FC .dbline 212
03FC ; if (Ed>=e_2){Ee=Ed-e_2;s_Ee=1;}else{Ee=e_2-Ed;}
03FC .dbline 212
03FC 20901000 lds R2,_e_2
0400 30901100 lds R3,_e_2+1
0404 2C18 sub R2,R12
0406 3D08 sbc R3,R13
0408 3B82 std y+3,R3
040A 2A82 std y+2,R2
040C .dbline 212
040C .dbline 213
040C ; }
040C 0DC0 rjmp L50
040E L49:
040E .dbline 215
040E ; else
040E ; {
040E .dbline 216
040E ; Ee=Ed+e_2;s_Ee=1;
040E 20901000 lds R2,_e_2
0412 30901100 lds R3,_e_2+1
0416 4C2C mov R4,R12
0418 5D2C mov R5,R13
041A 420C add R4,R2
041C 531C adc R5,R3
041E 5B82 std y+3,R5
0420 4A82 std y+2,R4
0422 .dbline 216
0422 0024 clr R0
0424 0394 inc R0
0426 0C86 std y+12,R0
0428 .dbline 217
0428 ; }
0428 L50:
0428 .dbline 218
0428 ; }
0428 L44:
0428 .dbline 220
0428 ; //Ef=Kd*Ee
0428 ; if (s_Ee==0)
0428 0C84 ldd R0,y+12
042A 0020 tst R0
042C 49F4 brne L53
042E .dbline 221
042E ; {
042E .dbline 222
042E ; Ef=Kd*Ee;
042E 2A81 ldd R18,y+2
0430 3B81 ldd R19,y+3
0432 00910200 lds R16,_Kd
0436 1127 clr R17
0438 00D0 rcall mpy16s
043A A02E mov R10,R16
043C B12E mov R11,R17
043E .dbline 223
043E ; }
043E 0AC0 rjmp L54
0440 L53:
0440 .dbline 225
0440 ; else
0440 ; {
0440 .dbline 226
0440 ; Ef=Kd*Ee;
0440 2A81 ldd R18,y+2
0442 3B81 ldd R19,y+3
0444 00910200 lds R16,_Kd
0448 1127 clr R17
044A 00D0 rcall mpy16s
044C A02E mov R10,R16
044E B12E mov R11,R17
0450 .dbline 227
0450 ; s_Ef=1;
0450 8824 clr R8
0452 8394 inc R8
0454 .dbline 228
0454 ; }
0454 L54:
0454 .dbline 230
0454 ; //Eg=Ea+Eb
0454 ; if (s_Ea==0)
0454 0884 ldd R0,y+8
0456 0020 tst R0
0458 C1F4 brne L55
045A .dbline 231
045A ; {
045A .dbline 232
045A ; if (s_Eb==0)
045A 0A84 ldd R0,y+10
045C 0020 tst R0
045E 29F4 brne L57
0460 .dbline 233
0460 ; {
0460 .dbline 234
0460 ; Eg=Ea+Eb;
0460 C62E mov R12,R22
0462 D72E mov R13,R23
0464 CE0C add R12,R14
0466 DF1C adc R13,R15
0468 .dbline 235
0468 ; }
0468 2AC0 rjmp L56
046A L57:
046A .dbline 237
046A ; else
046A ; {
046A .dbline 238
046A 6E15 cp R22,R14
046C 7F05 cpc R23,R15
046E 28F0 brlo L59
0470 .dbline 238
0470 .dbline 238
0470 C62E mov R12,R22
0472 D72E mov R13,R23
0474 CE18 sub R12,R14
0476 DF08 sbc R13,R15
0478 .dbline 238
0478 22C0 rjmp L56
047A L59:
047A .dbline 238
047A ; if (Ea>=Eb){Eg=Ea-Eb;}else{Eg=Eb-Ea;s_Eg=1;}
047A .dbline 238
047A CE2C mov R12,R14
047C DF2C mov R13,R15
047E C61A sub R12,R22
0480 D70A sbc R13,R23
0482 .dbline 238
0482 0024 clr R0
0484 0394 inc R0
0486 0D86 std y+13,R0
0488 .dbline 238
0488 .dbline 239
0488 ; }
0488 .dbline 240
0488 ; }
0488 1AC0 rjmp L56
048A L55:
048A .dbline 242
048A ; else
048A ; {
048A .dbline 243
048A ; if (s_Eb==0)
048A 0A84 ldd R0,y+10
048C 0020 tst R0
048E 81F4 brne L61
0490 .dbline 244
0490 ; {
0490 .dbline 245
0490 6E15 cp R22,R14
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -