txteq equ "one,"
txteq equ "two,"
txteq equ "five."

irpv a,txteq { a }
    

txteq equ "one,"
txteq equ "two,"
txteq equ "five."

; string string1 "one,two,five", 0
string1: irpv a,txteq { db a } db 0

; newtxt equ "one,two,five"
newtxt equ
irpv a,txteq { match b,newtxt \{ newtxt equ b,a \} match ,newtxt \{ newtxt equ a \}}
string2 db newtxt, 0    

; fasmg cats.g
;
; Assemble-time joining of strings ...
; https://board.flatassembler.net/topic.php?p=246886#246886

calminstruction result item
        display 10 bappend "string: " bappend item

        local i
        compute i,lengthof item
        arrange i,i
        stringify i
        display 10 bappend "length: " bappend i
end calminstruction

struc _cats items&
        iterate item, items
                . equ . bappend item
        end iterate
end struc

try equ ""
result try
try _cats "one,", "two,"
result try
try _cats "three,", "four,"
result try
try _cats "five."
result try