mirror of https://github.com/cc65/cc65.git
152 lines
3.1 KiB
ArmAsm
152 lines
3.1 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 11.06.1998
|
|
;
|
|
; char* ltoa (long value, char* s, int radix);
|
|
; char* ultoa (unsigned long value, char* s, int radix);
|
|
;
|
|
|
|
.export _ltoa, _ultoa
|
|
.import popax, popptr1, negeax
|
|
.import __hextab, __longminstr
|
|
.importzp sreg, ptr1, ptr2, ptr3, tmp1
|
|
|
|
.macpack cpu
|
|
|
|
.code
|
|
|
|
;
|
|
; Common subroutine to pop the parameters and put them into core
|
|
;
|
|
|
|
dopop: sta tmp1 ; will lose high byte
|
|
jsr popax ; get s to ptr2
|
|
sta ptr2
|
|
stx ptr2+1
|
|
sta ptr3 ; save for return
|
|
stx ptr3+1
|
|
jsr popptr1 ; get low word of value to ptr1
|
|
jsr popax ; get high word of value to sreg
|
|
sta sreg
|
|
stx sreg+1
|
|
rts
|
|
|
|
;
|
|
; ltoa
|
|
;
|
|
|
|
_ltoa: jsr dopop ; pop the arguments
|
|
|
|
; We must handle $80000000 in a special way, since it is the only negative
|
|
; number that has no positive 32-bit counterpart
|
|
|
|
ldx sreg+1 ; get high byte
|
|
ldy tmp1 ; get radix
|
|
cpy #10
|
|
bne ultoa
|
|
lda sreg
|
|
ora ptr1+1
|
|
ora ptr1
|
|
bne L2
|
|
cpx #$80
|
|
bne L2
|
|
|
|
ldy #11
|
|
L1: lda __longminstr,y ; copy -2147483648
|
|
sta (ptr2),y
|
|
dey
|
|
bpl L1
|
|
jmp L10
|
|
|
|
; Check if the value is negative. If so, write a - sign and negate the
|
|
; number.
|
|
|
|
L2: txa ; get high byte
|
|
bpl ultoa
|
|
lda #'-'
|
|
|
|
.if (.cpu .bitand CPU_ISET_65SC02)
|
|
sta (ptr2)
|
|
.else
|
|
ldy #0
|
|
sta (ptr2),y ; store sign
|
|
.endif
|
|
|
|
inc ptr2
|
|
bne L3
|
|
inc ptr2+1
|
|
|
|
L3: lda ptr1 ; negate val
|
|
ldx ptr1+1
|
|
|
|
jsr negeax
|
|
|
|
sta ptr1
|
|
stx ptr1+1
|
|
jmp ultoa
|
|
|
|
;
|
|
; utoa
|
|
;
|
|
|
|
_ultoa: jsr dopop ; pop the arguments
|
|
|
|
; Convert to string by dividing and push the result onto the stack
|
|
|
|
ultoa: lda #$00
|
|
pha ; sentinel
|
|
|
|
; Divide val/tmp1 -> val, remainder in a
|
|
|
|
L5: ldy #32 ; 32 bit
|
|
lda #0 ; remainder
|
|
L6: asl ptr1
|
|
rol ptr1+1
|
|
rol sreg
|
|
rol sreg+1
|
|
rol a
|
|
cmp tmp1
|
|
bcc L7
|
|
sbc tmp1
|
|
inc ptr1
|
|
L7: dey
|
|
bne L6
|
|
|
|
tay ; get remainder into y
|
|
lda __hextab,y ; get hex character
|
|
pha ; save char value on stack
|
|
|
|
lda ptr1
|
|
ora ptr1+1
|
|
ora sreg
|
|
ora sreg+1
|
|
bne L5
|
|
|
|
; Get the characters from the stack into the string
|
|
|
|
ldy #0
|
|
L9: pla
|
|
sta (ptr2),y
|
|
beq L10 ; jump if sentinel
|
|
iny
|
|
bne L9 ; jump always
|
|
|
|
; Done! Return the target string
|
|
|
|
L10: lda ptr3
|
|
ldx ptr3+1
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|