;[FC][32位HEX转DEC][20190402]
;FlameCyclone
.ORG $8000
Hex_LL = $00
Hex_LH = $01
Hex_HL = $02
Hex_HH = $03
Dec_Digit = $04
DIGIT_COUNT = 10
;零页占用: 14字节
; 程序段: 0xA3字节
;$0xFFFFFFFF转4294967295耗时5508
;$0x3B9AC9FF转999999999耗时7532
; $0x5F5E0FF转99999999耗时6747
; $0x98967F转9999999耗时5974
; $0xF423F转999999耗时5133
; $0x1869F转99999耗时4264
; $0x270F转9999耗时3375
; $0x3E7转999耗时2418
; $0x63转99耗时1476
; $0x09转9耗时486
LDX #$FF
TXS
LDA #$FF
STA Hex_LL
LDA #$C9
STA Hex_LH
LDA #$9A
STA Hex_HL
LDA #$3B
STA Hex_HH
JSR Hex_To_Dec
RTS
Hex_To_Dec:
LDY #$00
Dec_Clear:
STA Dec_Digit,X
INX
CPX #DIGIT_COUNT
BCC Dec_Clear
DEX
Convert_Compare:
HH_Compare:
LDA Hex_HH
CMP Dec_Data_HH,X
BCC Convert_Digit_End
BNE Sub_LL
LDA Hex_HL
HL_Compare:
CMP Dec_Data_HL,X
BCC Convert_Digit_End
BNE Sub_LL
LDA Hex_LH
LH_Compare
CMP Dec_Data_LH,X
BCC Convert_Digit_End
BNE Sub_LL
LDA Hex_LL
LL_Compare:
CMP Dec_Data_LL,X
BCC Convert_Digit_End
Sub_LL:
LDA Hex_LL
SBC Dec_Data_LL,X
STA Hex_LL
BCS Sub_LH
DEC Hex_LH
Sub_LH:
LDA Hex_LH
SEC
SBC Dec_Data_LH,X
STA Hex_LH
BCS Sub_HL
DEC Hex_HL
Sub_HL:
LDA Hex_HL
SEC
SBC Dec_Data_HL,X
STA Hex_HL
BCS Sub_HH
DEC Hex_HH
Sub_HH:
LDA Hex_HH
SEC
SBC Dec_Data_HH,X
STA Hex_HH
Set_Digit:
INY
BNE Convert_Compare
Convert_Digit_End:
STY Dec_Digit,X
LDY #$00
DEX
BNE Convert_Compare
Convert_Finish:
STA Dec_Digit
RTS
Dec_Data_LL:
.DB $01,$0A,$64,$E8,$10,$A0,$40,$80,$00,$00
Dec_Data_LH:
.DB $00,$00,$00,$03,$27,$86,$42,$96,$E1,$CA
Dec_Data_HL:
.DB $00,$00,$00,$00,$00,$01,$0F,$98,$F5,$9A
Dec_Data_HH:
.DB $00,$00,$00,$00,$00,$00,$00,$00,$05,$3B
使用6502 Simulator编译