📄 main.lis
字号:
040D AB80 add #<_ADtoPHY_X
040F B700 sta *__r1
0411 B600 lda *__r0
0413 A980 adc #>_ADtoPHY_X
0415 B700 sta *__r0
0417 5500 ldhx *__r0
0419 E601 lda 1,x
041B B700 sta *__r1
041D F6 lda ,x
041E B700 sta *__r0
0420 5500 ldhx *__r0
0422 650000 cphx #0
0425 95 tsx
0426 2603 bne X16
0428 CC0646 jmp L51
042B X16:
042B E614 lda 20,X
042D B700 sta *__r3
042F E613 lda 19,X
0431 B700 sta *__r2
0433 5500 ldhx *__r2
0435 7500 cphx *__r0
0437 95 tsx
0438 2403 bhs X17
043A CC0646 jmp L51
043D X17:
043D .dbline 236
043D ; {
043D .dbline 237
043D ; k=ADtoPHY_k1[i];
043D 3F00 clr *__r0
043F E610 lda 16,X
0441 B700 sta *__r1
0443 3800 lsl *__r1
0445 3900 rol *__r0
0447 B600 lda *__r1
0449 AB94 add #<_ADtoPHY_k1
044B B700 sta *__r1
044D B600 lda *__r0
044F A994 adc #>_ADtoPHY_k1
0451 B700 sta *__r0
0453 5500 ldhx *__r0
0455 E601 lda 1,x
0457 B700 sta *__r1
0459 F6 lda ,x
045A 95 tsx
045B B700 sta *__r0
045D 4F clra
045E E70D sta 13,X
0460 E70C sta 12,X
0462 B600 lda *__r1
0464 E70F sta 15,X
0466 B600 lda *__r0
0468 E70E sta 14,X
046A .dbline 238
046A ; k=k*1000+ADtoPHY_k2[i];
046A 3F00 clr *__r0
046C E610 lda 16,X
046E B700 sta *__r1
0470 3800 lsl *__r1
0472 3900 rol *__r0
0474 B600 lda *__r1
0476 ABA8 add #<_ADtoPHY_k2
0478 B700 sta *__r1
047A B600 lda *__r0
047C A9A8 adc #>_ADtoPHY_k2
047E B700 sta *__r0
0480 5500 ldhx *__r0
0482 E601 lda 1,x
0484 B700 sta *__r1
0486 F6 lda ,x
0487 95 tsx
0488 B700 sta *__r0
048A 4E0000 mov *__r1,*__r3
048D 4E0000 mov *__r0,*__r2
0490 3F00 clr *__r1
0492 3F00 clr *__r0
0494 A6E8 lda #-24
0496 87 psha
0497 A603 lda #3
0499 87 psha
049A 4F clra
049B 87 psha
049C 87 psha
049D E60F lda 15,X
049F 87 psha
04A0 E60E lda 14,X
04A2 87 psha
04A3 E60D lda 13,X
04A5 87 psha
04A6 E60C lda 12,X
04A8 87 psha
04A9 CD0000 jsr __mul32u
04AC A704 ais #4
04AE 86 pula
04AF B700 sta *__r4
04B1 86 pula
04B2 B700 sta *__r5
04B4 86 pula
04B5 B700 sta *__r6
04B7 86 pula
04B8 BB00 add *__r3
04BA E70F sta 15,X
04BC B600 lda *__r6
04BE B900 adc *__r2
04C0 E70E sta 14,X
04C2 B600 lda *__r5
04C4 B900 adc *__r1
04C6 E70D sta 13,X
04C8 B600 lda *__r4
04CA B900 adc *__r0
04CC E70C sta 12,X
04CE .dbline 239
04CE ; b=ADtoPHY_b1[i];
04CE 3F00 clr *__r0
04D0 E610 lda 16,X
04D2 B700 sta *__r1
04D4 3800 lsl *__r1
04D6 3900 rol *__r0
04D8 B600 lda *__r1
04DA ABD0 add #<_ADtoPHY_b1
04DC B700 sta *__r1
04DE B600 lda *__r0
04E0 A9D0 adc #>_ADtoPHY_b1
04E2 B700 sta *__r0
04E4 5500 ldhx *__r0
04E6 E601 lda 1,x
04E8 B700 sta *__r1
04EA F6 lda ,x
04EB 95 tsx
04EC B700 sta *__r0
04EE 4F clra
04EF E709 sta 9,X
04F1 E708 sta 8,X
04F3 B600 lda *__r1
04F5 E70B sta 11,X
04F7 B600 lda *__r0
04F9 E70A sta 10,X
04FB .dbline 240
04FB ; b=b*1000+ADtoPHY_b2[i];
04FB 3F00 clr *__r0
04FD E610 lda 16,X
04FF B700 sta *__r1
0501 3800 lsl *__r1
0503 3900 rol *__r0
0505 B600 lda *__r1
0507 ABE4 add #<_ADtoPHY_b2
0509 B700 sta *__r1
050B B600 lda *__r0
050D A9E4 adc #>_ADtoPHY_b2
050F B700 sta *__r0
0511 5500 ldhx *__r0
0513 E601 lda 1,x
0515 B700 sta *__r1
0517 F6 lda ,x
0518 95 tsx
0519 B700 sta *__r0
051B 4E0000 mov *__r1,*__r3
051E 4E0000 mov *__r0,*__r2
0521 3F00 clr *__r1
0523 3F00 clr *__r0
0525 A6E8 lda #-24
0527 87 psha
0528 A603 lda #3
052A 87 psha
052B 4F clra
052C 87 psha
052D 87 psha
052E E60B lda 11,X
0530 87 psha
0531 E60A lda 10,X
0533 87 psha
0534 E609 lda 9,X
0536 87 psha
0537 E608 lda 8,X
0539 87 psha
053A CD0000 jsr __mul32u
053D A704 ais #4
053F 86 pula
0540 B700 sta *__r4
0542 86 pula
0543 B700 sta *__r5
0545 86 pula
0546 B700 sta *__r6
0548 86 pula
0549 BB00 add *__r3
054B E70B sta 11,X
054D B600 lda *__r6
054F B900 adc *__r2
0551 E70A sta 10,X
0553 B600 lda *__r5
0555 B900 adc *__r1
0557 E709 sta 9,X
0559 B600 lda *__r4
055B B900 adc *__r0
055D E708 sta 8,X
055F .dbline 241
055F ; if(ADtoPHY_b0[i]==0)
055F 3F00 clr *__r0
0561 E610 lda 16,X
0563 B700 sta *__r1
0565 3800 lsl *__r1
0567 3900 rol *__r0
0569 B600 lda *__r1
056B ABBC add #<_ADtoPHY_b0
056D B700 sta *__r1
056F B600 lda *__r0
0571 A9BC adc #>_ADtoPHY_b0
0573 B700 sta *__r0
0575 5500 ldhx *__r0
0577 E601 lda 1,x
0579 B700 sta *__r1
057B F6 lda ,x
057C B700 sta *__r0
057E 5500 ldhx *__r0
0580 650000 cphx #0
0583 95 tsx
0584 264B bne L53
0586 .dbline 242
0586 ; tmp=k*adv+b;
0586 3F00 clr *__r1
0588 3F00 clr *__r0
058A E614 lda 20,X
058C B700 sta *__r3
058E E613 lda 19,X
0590 B700 sta *__r2
0592 E60F lda 15,X
0594 87 psha
0595 E60E lda 14,X
0597 87 psha
0598 E60D lda 13,X
059A 87 psha
059B E60C lda 12,X
059D 87 psha
059E B600 lda *__r3
05A0 87 psha
05A1 B600 lda *__r2
05A3 87 psha
05A4 B600 lda *__r1
05A6 87 psha
05A7 B600 lda *__r0
05A9 87 psha
05AA CD0000 jsr __mul32u
05AD A704 ais #4
05AF 86 pula
05B0 B700 sta *__r0
05B2 86 pula
05B3 B700 sta *__r1
05B5 86 pula
05B6 B700 sta *__r2
05B8 86 pula
05B9 EB0B add 11,X
05BB E707 sta 7,X
05BD B600 lda *__r2
05BF E90A adc 10,X
05C1 E706 sta 6,X
05C3 B600 lda *__r1
05C5 E909 adc 9,X
05C7 E705 sta 5,X
05C9 B600 lda *__r0
05CB E908 adc 8,X
05CD E704 sta 4,X
05CF 2049 bra L54
05D1 L53:
05D1 .dbline 244
05D1 ; else
05D1 ; tmp=k*adv-b;
05D1 3F00 clr *__r1
05D3 3F00 clr *__r0
05D5 E614 lda 20,X
05D7 B700 sta *__r3
05D9 E613 lda 19,X
05DB B700 sta *__r2
05DD E60F lda 15,X
05DF 87 psha
05E0 E60E lda 14,X
05E2 87 psha
05E3 E60D lda 13,X
05E5 87 psha
05E6 E60C lda 12,X
05E8 87 psha
05E9 B600 lda *__r3
05EB 87 psha
05EC B600 lda *__r2
05EE 87 psha
05EF B600 lda *__r1
05F1 87 psha
05F2 B600 lda *__r0
05F4 87 psha
05F5 CD0000 jsr __mul32u
05F8 A704 ais #4
05FA 86 pula
05FB B700 sta *__r0
05FD 86 pula
05FE B700 sta *__r1
0600 86 pula
0601 B700 sta *__r2
0603 86 pula
0604 E00B sub 11,X
0606 E707 sta 7,X
0608 B600 lda *__r2
060A E20A sbc 10,X
060C E706 sta 6,X
060E B600 lda *__r1
0610 E209 sbc 9,X
0612 E705 sta 5,X
0614 B600 lda *__r0
0616 E208 sbc 8,X
0618 E704 sta 4,X
061A L54:
061A .dbline 245
061A ; y=tmp/1000;
061A E607 lda 7,X
061C 87 psha
061D E606 lda 6,X
061F 87 psha
0620 E605 lda 5,X
0622 87 psha
0623 E604 lda 4,X
0625 87 psha
0626 A6E8 lda #-24
0628 87 psha
0629 A603 lda #3
062B 87 psha
062C 4F clra
062D 87 psha
062E 87 psha
062F CD0000 jsr __divmod32u
0632 A704 ais #4
0634 86 pula
0635 86 pula
0636 86 pula
0637 B700 sta *__r2
0639 86 pula
063A B700 sta *__r1
063C B600 lda *__r2
063E E702 sta 2,X
0640 B600 lda *__r1
0642 E703 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -