calminstruction (name) tostring text&
    local value
    transform text
    compute value, +text
    arrange value, value
    stringify value
    publish name, value
end calminstruction

a tostring -1000000000
display a


flat assembler  version g.j6ia
value
test.asm [16]:
        a tostring -1000000000
tostring [4] (CALM)
Error: the value of symbol 'tostring:value' is not valid for this use.
    

include 'inline.inc'

inlinemacro dec?()
end inlinemacro

calminstruction (return) inlinemacro.dec? number*
        compute number,+number
        check number < 0
        jyes negative
        arrange number,number
        jump ready
    negative:
        compute number,-number
        arrange number,-number
    ready:
        stringify number
        publish return,number
end calminstruction

inlinemacro hex?()
end inlinemacro

calminstruction (return) inlinemacro.hex? value*
       local buffer
       compute buffer, ''
       compute value, +value
   loop:
       compute buffer, string (buffer shl 8) + '0123456789ABCDEF' shr (value shl 3 and 1111000b) and 0FFh
       compute value, value shr 4
       check value = 0
       jyes done
       check value = -1
       jno loop
       compute buffer, string (buffer shl 32) + 'F..F'
   done:
       publish return, buffer
end calminstruction 


Value = 0xcafe

display 'Dec: ',DEC(Value),10,'Hex: ',HEX(Value)