📄 show.lis
字号:
0395 5500 ldhx *__r2
0397 F7 sta ,x
0398 95 tsx
0399 .dbline 125
0399 E608 lda 8,X
039B AB03 add #3
039D B700 sta *__r1
039F E607 lda 7,X
03A1 A900 adc #0
03A3 B700 sta *__r0
03A5 A62E lda #46
03A7 5500 ldhx *__r0
03A9 F7 sta ,x
03AA 95 tsx
03AB .dbline 125
03AB CC0481 jmp L15
03AE L14:
03AE .dbline 126
03AE ; else if(Data[2]==2) //有两位小数
03AE E60A lda 10,X
03B0 AB02 add #2
03B2 B700 sta *__r1
03B4 E609 lda 9,X
03B6 A900 adc #0
03B8 B700 sta *__r0
03BA 5500 ldhx *__r0
03BC F6 lda ,x
03BD 95 tsx
03BE A102 cmp #2
03C0 265C bne L16
03C2 .dbline 127
03C2 ; {ReP[4]=ReP[3];ReP[3]=ReP[2];ReP[2]='.';}
03C2 .dbline 127
03C2 E608 lda 8,X
03C4 AB03 add #3
03C6 B700 sta *__r1
03C8 E607 lda 7,X
03CA A900 adc #0
03CC B700 sta *__r0
03CE 5500 ldhx *__r0
03D0 F6 lda ,x
03D1 95 tsx
03D2 B700 sta *__r1
03D4 E608 lda 8,X
03D6 AB04 add #4
03D8 B700 sta *__r3
03DA E607 lda 7,X
03DC A900 adc #0
03DE B700 sta *__r2
03E0 B600 lda *__r1
03E2 5500 ldhx *__r2
03E4 F7 sta ,x
03E5 95 tsx
03E6 .dbline 127
03E6 E608 lda 8,X
03E8 AB02 add #2
03EA B700 sta *__r1
03EC E607 lda 7,X
03EE A900 adc #0
03F0 B700 sta *__r0
03F2 5500 ldhx *__r0
03F4 F6 lda ,x
03F5 95 tsx
03F6 B700 sta *__r1
03F8 E608 lda 8,X
03FA AB03 add #3
03FC B700 sta *__r3
03FE E607 lda 7,X
0400 A900 adc #0
0402 B700 sta *__r2
0404 B600 lda *__r1
0406 5500 ldhx *__r2
0408 F7 sta ,x
0409 95 tsx
040A .dbline 127
040A E608 lda 8,X
040C AB02 add #2
040E B700 sta *__r1
0410 E607 lda 7,X
0412 A900 adc #0
0414 B700 sta *__r0
0416 A62E lda #46
0418 5500 ldhx *__r0
041A F7 sta ,x
041B 95 tsx
041C .dbline 127
041C 2063 bra L17
041E L16:
041E .dbline 128
041E ; else if(Data[2]==0) //没有小数
041E E60A lda 10,X
0420 AB02 add #2
0422 B700 sta *__r1
0424 E609 lda 9,X
0426 A900 adc #0
0428 B700 sta *__r0
042A 5500 ldhx *__r0
042C F6 lda ,x
042D 95 tsx
042E 4D tsta
042F 2650 bne L18
0431 .dbline 129
0431 ; {
0431 .dbline 130
0431 ; for(i=4;i>0;i--) //调整整数显示位置
0431 A604 lda #4
0433 E704 sta 4,X
0435 2036 bra L23
0437 L20:
0437 .dbline 131
0437 3F00 clr *__r0
0439 E604 lda 4,X
043B A001 sub #1
043D B700 sta *__r1
043F B600 lda *__r0
0441 A200 sbc #0
0443 B700 sta *__r0
0445 B600 lda *__r1
0447 EB08 add 8,X
0449 B700 sta *__r1
044B B600 lda *__r0
044D E907 adc 7,X
044F B700 sta *__r0
0451 5500 ldhx *__r0
0453 F6 lda ,x
0454 95 tsx
0455 B700 sta *__r1
0457 3F00 clr *__r2
0459 E604 lda 4,X
045B EB08 add 8,X
045D B700 sta *__r3
045F B600 lda *__r2
0461 E907 adc 7,X
0463 B700 sta *__r2
0465 B600 lda *__r1
0467 5500 ldhx *__r2
0469 F7 sta ,x
046A 95 tsx
046B L21:
046B .dbline 130
046B 6A04 dec 4,X
046D L23:
046D .dbline 130
046D E604 lda 4,X
046F A100 cmp #0
0471 22C4 bhi L20
0473 .dbline 132
0473 ; ReP[i]=ReP[i-1]; //在最前面补零
0473 ; ReP[0]='0';
0473 E608 lda 8,X
0475 B700 sta *__r1
0477 E607 lda 7,X
0479 B700 sta *__r0
047B A630 lda #48
047D 5500 ldhx *__r0
047F F7 sta ,x
0480 95 tsx
0481 .dbline 133
0481 ; }
0481 L18:
0481 L17:
0481 L15:
0481 .dbline 136
0481 ;
0481 ; //3:调整前导的0为空格
0481 ; if(ReP[0]=='0')
0481 E607 lda 7,X
0483 EE08 ldx 8,X
0485 87 psha
0486 8A pulh
0487 F6 lda ,x
0488 95 tsx
0489 A130 cmp #48
048B 260E bne L24
048D .dbline 137
048D ; ReP[0]=0x20;
048D E608 lda 8,X
048F B700 sta *__r1
0491 E607 lda 7,X
0493 B700 sta *__r0
0495 A620 lda #32
0497 5500 ldhx *__r0
0499 F7 sta ,x
049A 95 tsx
049B L24:
049B .dbline 138
049B ; for(i=1;i<4;i++)
049B A601 lda #1
049D E704 sta 4,X
049F 2058 bra L29
04A1 L26:
04A1 .dbline 139
04A1 ; {if((ReP[i-1]==0x20)&&(ReP[i]=='0')&&(ReP[i+1]!='.'))
04A1 .dbline 139
04A1 3F00 clr *__r0
04A3 E604 lda 4,X
04A5 A001 sub #1
04A7 B700 sta *__r1
04A9 B600 lda *__r0
04AB A200 sbc #0
04AD B700 sta *__r0
04AF B600 lda *__r1
04B1 EB08 add 8,X
04B3 B700 sta *__r1
04B5 B600 lda *__r0
04B7 E907 adc 7,X
04B9 B700 sta *__r0
04BB 5500 ldhx *__r0
04BD F6 lda ,x
04BE 95 tsx
04BF A120 cmp #32
04C1 2634 bne L30
04C3 3F00 clr *__r0
04C5 E604 lda 4,X
04C7 EB08 add 8,X
04C9 B700 sta *__r1
04CB B600 lda *__r0
04CD E907 adc 7,X
04CF B700 sta *__r0
04D1 5500 ldhx *__r0
04D3 F6 lda ,x
04D4 95 tsx
04D5 A130 cmp #48
04D7 261E bne L30
04D9 5500 ldhx *__r0
04DB AF01 aix #1
04DD F6 lda ,x
04DE 95 tsx
04DF A12E cmp #46
04E1 2714 beq L30
04E3 .dbline 140
04E3 3F00 clr *__r0
04E5 E604 lda 4,X
04E7 EB08 add 8,X
04E9 B700 sta *__r1
04EB B600 lda *__r0
04ED E907 adc 7,X
04EF B700 sta *__r0
04F1 A620 lda #32
04F3 5500 ldhx *__r0
04F5 F7 sta ,x
04F6 95 tsx
04F7 L30:
04F7 .dbline 140
04F7 L27:
04F7 .dbline 138
04F7 6C04 inc 4,X
04F9 L29:
04F9 .dbline 138
04F9 E604 lda 4,X
04FB A104 cmp #4
04FD 25A2 blo L26
04FF .dbline 143
04FF ; ReP[i]=0x20;}
04FF ;
04FF ; //4:调整显示的位置,把空格一起移到最后
04FF ; for(i=1;i<4;i++)
04FF A601 lda #1
0501 E704 sta 4,X
0503 201A bra L35
0505 L32:
0505 .dbline 144
0505 ; if(ReP[i]!=0x20) break;
0505 3F00 clr *__r0
0507 E604 lda 4,X
0509 EB08 add 8,X
050B B700 sta *__r1
050D B600 lda *__r0
050F E907 adc 7,X
0511 B700 sta *__r0
0513 5500 ldhx *__r0
0515 F6 lda ,x
0516 95 tsx
0517 A120 cmp #32
0519 2702 beq L36
051B .dbline 144
051B 2008 bra L34
051D L36:
051D L33:
051D .dbline 143
051D 6C04 inc 4,X
051F L35:
051F .dbline 143
051F E604 lda 4,X
0521 A104 cmp #4
0523 25E0 blo L32
0525 L34:
0525 .dbline 145
0525 ; for(k=1,j=i;j<=4;j++,k++)
0525 A601 lda #1
0527 E702 sta 2,X
0529 E604 lda 4,X
052B E703 sta 3,X
052D 2046 bra L41
052F L38:
052F .dbline 146
052F ; {
052F .dbline 147
052F ; ReP[k]=ReP[j];
052F 3F00 clr *__r0
0531 E603 lda 3,X
0533 EB08 add 8,X
0535 B700 sta *__r1
0537 B600 lda *__r0
0539 E907 adc 7,X
053B B700 sta *__r0
053D 5500 ldhx *__r0
053F F6 lda ,x
0540 95 tsx
0541 B700 sta *__r1
0543 3F00 clr *__r2
0545 E602 lda 2,X
0547 EB08 add 8,X
0549 B700 sta *__r3
054B B600 lda *__r2
054D E907 adc 7,X
054F B700 sta *__r2
0551 B600 lda *__r1
0553 5500 ldhx *__r2
0555 F7 sta ,x
0556 95 tsx
0557 .dbline 148
0557 ; if(k!=j) ReP[j]=0x20;
0557 E602 lda 2,X
0559 E103 cmp 3,X
055B 2714 beq L42
055D .dbline 148
055D 3F00 clr *__r0
055F E603 lda 3,X
0561 EB08 add 8,X
0563 B700 sta *__r1
0565 B600 lda *__r0
0567 E907 adc 7,X
0569 B700 sta *__r0
056B A620 lda #32
056D 5500 ldhx *__r0
056F F7 sta ,x
0570 95 tsx
0571 L42:
0571 .dbline 149
0571 L39:
0571 .dbline 145
0571 6C03 inc 3,X
0573 6C02 inc 2,X
0575 L41:
0575 .dbline 145
0575 E603 lda 3,X
0577 A104 cmp #4
0579 23B4 bls L38
057B L44:
057B .dbline 151
057B ; }
057B ;
057B ; NumFormatChange_End:;
057B .dbline -2
057B L13:
057B A705 ais #5
057D .dbline 0 ; func end
057D 81 rts
057E .dbsym l IntDataP 0 pi
057E .dbsym l k 2 c
057E .dbsym l j 3 c
057E .dbsym l i 4 c
057E .dbsym l Data 9 pc
057E .dbsym l ReP 7 pc
057E .dbend
.area lit
0000 L3:
0000 B7D600 .byte 183,214,0
0003 L2:
0003 A1E600 .byte 161,230,0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -