debug var in macro

If you just need to quickly peek at a number and decimal representation is enough for you, you can use this simple trick (inherited from fasm's REPT):

Code:

var = 10

rept 1, x: var
    display `x
end rept

If you'd prefer to show number as hexadecimal, you may use a macro similar to the ones that exist for fasm:

Code:

macro disphex? value*
        local number,digit   
        number = value   
        if number < 0   
                display '-'
                number = - number   
        end if   
        repeat 1 + (bsr number shr 2)   
                digit = ((number) shr ((%%-%) shl 2)) and 0Fh
                if % = 1 & digit > 9
                        display '0'
                end if
                if digit < 10
                        display '0'+digit
                else
                        display 'A'+digit-10
                end if
        end repeat   
        display 'h'
end macro

disphex var

Then there is another macro that you can use to display floating-point numbers.

And then you could even combine various macros into one able to display various types of values:

Code:

macro disphex? value*
        local number,digit   
        number = value   
        if number < 0   
                display '-'
                number = - number   
        end if   
        repeat 1 + (bsr number shr 2)   
                digit = ((number) shr ((%%-%) shl 2)) and 0Fh
                if % = 1 & digit > 9
                        display '0'
                end if
                if digit < 10
                        display '0'+digit
                else
                        display 'A'+digit-10
                end if
        end repeat   
        display 'h'
end macro

macro dispfloat? value*,precision:2
        local x,i,pos,sgn,dgt,txt 
        x = value 
        x = x * 1e#precision 
        sgn = 0 
        if x < 0 
                x = -x 
                sgn = 1  
        end if  
        i = trunc x 
        if x - i >= float 1/2 
                i = i + 1 
        end if 
        pos = 0 
        txt = '' 
        while i | pos <= precision 
                dgt = i mod 10 
                i = i / 10 
                txt = txt shl 8 + '0' + dgt 
                pos = pos + 1 
                if pos = precision 
                        txt = txt shl 8 + '.' 
                end if 
        end while  
        if sgn  
                txt = txt shl 8 + '-'  
        end if
        display string txt
end macro

macro dispx? values&
        iterate value, values
                if value eqtype ''
                        display value
                else if value eqtype 1f
                        dispfloat value
                else if value eqtype 0 & value relativeto 0
                        disphex value
                else
                        err 'unsupported kind of value'
                end if
        end iterate
        display 13,10
end macro

; Usage example:

x = 10
y = 3.14

dispx 'x = ',x,' & y = ',y

It could be further extended to show linear polynomial values, but that would depend on what kind of ELEMENT symbols you have defined.