fasmnewbie

Quote:

I can't display two different values for the same run.

First of all, why not? Look:

Code:

macro test a
{
        pusha
        local ..b, .go
        xor si, si

        ;push dword [..b] ;works for label
        ;push dword ..b   ;works for constant

        define address +
        define address -
        match *val,a \{
            restore address
            jmp @f
                ..b dd val
            @@:
            push dword [..b]
        \}
        match -,address \{
            restore address
            jmp @f
                ..b dd a
            @@:
            push dword ..b
        \}
        restore address

        pop si
        .go:
        xor ax, ax
        mov ax, word[si]
        xor bx, bx
        mov bx, word[si+2]
        prtr bx, -n
        prtr ax, -n
        popa
}

test 500d ;1F4h 
line 
test *mydata 

pquit 
mydata dd 500d ;1F4H    

That's what you could do.

But your approach is from the beginning is veeery wrong. Firstly, you should start using functions/procedures instead of (or at least together with) macros. Otherwise your code will be bloated with replicated code parts. That's not what macros are intended for. Secondly, your code is full of meaningless and wrong things. Why do you push dword and pop a word (with pop si)? Why do you put the a value into memory at all, if you just need to put it into the ax and bx registers? Why do you sometimes use a single dot prefix and sometimes double dot (your differentiation of those is wrong)? And many more.

macro test a
{ 
        pusha 
        local ..b, .go 
        xor si, si 

        define address + 
        define address - 
        match *val,a \{ 
            restore address 
            jmp @f 
                ..b dd val 
            @@: 
            push word [..b]
        \} 
        match -,address \{ 
            restore address 
            jmp @f 
                ..b dd a 
            @@: 
            push word ..b
        \} 
        restore address 

        pop si 
        .go: 
        mov ax, word[si]
        mov bx, word[si+2]
        prtr bx, -n 
        prtr ax, -n 
        popa 
} 
test *mydata
line
test 500d
pquit
mydata dd 500d    

macro put val*,[reg*]
{
    common local counter
        counter = 0
        define address +
        define address -
        match [x],val \{
            restore address
    forward
            mov reg,word[x+counter]
            counter = counter+2
    common
        \}
        match -,address \{
            restore address
    forward
            mov reg,(val shr (counter*8))and $FFFF
            counter = counter+2
    common
        \}
        restore address
}
put 500h,ax,bx
put [mydata],ax,bx

mydata dd 500d    

macro test a 
{ 
    pusha
    put a,ax,bx
    prtr bx, -n
    prtr ax, -n
    popa
}
test 500d ;1F4h
line
test [mydata]

pquit
mydata dd 500d ;1F4H