FOR macro for Poasm

[Vortex]

Simple FOR macro for Poasm to handle more effectively the loops :

Code Select Expand

ForCounter = 0

FOR_ MACRO var,init,_end

    mov     var,init

    ForCounter=ForCounter+1

@CatStr(<Cnd>,ForCounter)= _end

@CatStr(<ForLoop>,ForCounter) :

ENDM

NEXT MACRO var

    inc     var

    cmp     var,@CatStr(<Cnd>,ForCounter)

    jbe     @CatStr(<ForLoop>,ForCounter)

ENDM

[HSE]

Hi Vortex!

I think "simple" begin when you can nest loops. So so simple can be disappointing 

HSE.

[Vortex]

Hi HSE,

I already have a FOR macro for Masm allowing nested constructs :

http://masm32.com/board/index.php?topic=9378.0

Converting the same macro to Poasm is not easy.  I am receiving some error messages.

[HSE]

I already have a FOR macro for Masm allowing nested constructs

That is good. 

Converting the same macro to Poasm is not easy.

Ok. 

[vitsoft]

Converting FOR macro for €ASM is not necessary, because %FOR/%ENDFOR asm-time loops are already built-in, see https://euroassembler.eu/eatests/t2642.htm for instance.

[HSE]

Converting FOR macro for €ASM is not necessary, because %FOR/%ENDFOR asm-time loops are already built-in

   No, Vito. This macro build a runtime loop.

[jj2007]

More variants of for loops:

Code Select Expand

                For_ fct=1.5 To 2.0 Step 0.1              ; counter is a float, and therefore needs to be
                                Print Str$(fct), Spc2$    ; previously defined in .data? or with SetGlobals
                Next
                For_ each esi in My$()                                    ; loop through elements of an array
                                PrintLine Str$(ForNextCounter), Tb$, esi  ; print the counter and each element
                Next

Print masm32rt.inc with line numbers:

Code Select Expand

include \masm32\MasmBasic\MasmBasic.inc
  Init
  Recall "\Masm32\include\masm32rt.inc", i$()
  For_ each esi in i$(): <PrintLine Str$(ForNextCounter), Tb$, esi>
EndOfCode

(of course, simple nested integer loops also work fine...)

[Vortex]

Hi HSE,

To be more specific, I am trying to get work the syntax below :

Code Select Expand

level=1

@CatStr(<Sample>,level) CATSTR <test>,level

The FOR macro allowing nested constructs is a bit complicated. There are some differences between the macro engines of Masm and Poasm.

[HSE]

Hi Vortex,

Perhaps that work..  but, because apparently don't exist expansion ("%"), you don't know 

[Vortex]

Hi HSE,

As I said, Poasm and Masm have some differences. Poasm does not need the expansion symbol, you can check the code in the first posting of this thread :

Code Select Expand

@CatStr(<Cnd>,ForCounter)= _end

@CatStr(<ForLoop>,ForCounter) :

[HSE]

Hi Vortex,

Poasm does not need the expansion symbol

Just don't have.

I think is necesary to force expansion in .ECHO:

Code Select Expand

@CatStr(<Sample>,level) CATSTR <test>,level
.ECHO @CatStr(<Sample>,level)

[Vortex]

Hi HSE,

That .Echo example is already mentioned in Pelles Forum. I am sorry but this would not work as expected :

Code Select Expand

.386
.model flat,stdcall
option casemap:none

ExitProcess PROTO :DWORD
printf PROTO C :DWORD,:VARARG

includelib  \PellesC\lib\Win\kernel32.lib
includelib  msvcrt.lib

level=1

@CatStr(<Sample>,level) CATSTR <test>,level

.echo @CatStr(<Sample>,level)

.echo Sample1

.data

string db 'Hello world!'

 
.code

start:

    invoke  ExitProcess,0

END start


The result is :

Code Select Expand

"Sample1"
Sample1

If you insert the expansion symbol which is not supported by Poasm :

Code Select Expand


@CatStr(<Sample>,%level) CATSTR <test>,%level

.echo @CatStr(<Sample>,%level)

.echo Sample1

Output :

Code Select Expand

E:\PellesC\test>\PellesC\bin\poasm/AItest2 Test.asm
E:\PellesC\test\Test.asm(13): error: Invalid use of '%'.
E:\PellesC\test\Test.asm(13): fatal error: Invalid use of '1'.

[jj2007]

The Masm32 equivalent:

Code Select Expand

include \masm32\include\masm32rt.inc

level=123
  if 1 ; works fine
tmp$ CATSTR <Sample equ ">, <Sample>, %level, <">
tmp$

  elseif 1 ; assembles but prints garbage
% @CatStr(<Sample equ ">, <Sample>, %level, <">)

  else ; assembles but prints garbage
@CatStr(Sample equ ">, <Sample>, %level, <")

  endif
  echo S1=[Sample]
  % echo S1=[Sample]

.code
string db Sample, 13, 10, 0

start:
  print offset string
  invoke ExitProcess, 0
 
END start

[HSE]

Hi Vortex,

That .Echo example is already mentioned in Pelles Forum. I am sorry but this would not work as expected :

I readed that yesterday  .

Also some diferences between Andreas and Pelles in 2005 or so. Apparently POASM is a dead branch. Sorry, I don't know that before

HSE

[Vortex]

Hi HSE,

No worries. Poasm has some differences but it it's a very good assembler. Many thanks to Pelle. I am trying to test various macro constructs and these small example are helping to find the issues.