| Index | Manual | Download | Source | Macros | Embedded word Case ins.
Sitemap | Links | Forum | Tests | Projects

# Test t2701: Pseudoinstruction %WHILE chained

See also
  t5762
Tested procedures
  PseudopcWHILE PseudopcENDWHILE

Source file t2701.asm

            EUROASM LIST=ON, DUMP=ON, DUMPWIDTH=16, LISTREPEAT=OFF
      t2701 PROGRAM FORMAT=BIN,MODEL=TINY,WIDTH=16,LISTMAP=OFF,LISTGLOBALS=OFF,IMAGEBASE=0
      [BIN] SEGMENT PURPOSE=DATA
      %Var  %SETA 0x00          ; Initialization of control %variable.
            ; Classic %WHILE/%ENDWHILE loop.
            %WHILE %Var < 8
              DB %Var ; Actual emitting statement.
      %Var    %SETA %Var + 1 ; Modification of control %variable.
            %ENDWHILE
            ; Control %variable was abandoned at value 8
            %WHILE %Var ; Condition is TRUE if %Var <> 0.
              DB %Var ; Actual emitting statement.
      %Var    %SETA %Var - 1 ; Modification of control %variable.
            %ENDWHILE
             DB %Var
            ENDPROGRAM t2701

Expected listing t2701.asm.lst
  `| | EUROASM LIST=ON, DUMP=ON, DUMPWIDTH=16, LISTREPEAT=OFF | |t2701 PROGRAM FORMAT=BIN,MODEL=TINY,WIDTH=16,LISTMAP=OFF,LISTGLOBALS=OFF,IMAGEBASE=0 |[BIN] |[BIN] SEGMENT PURPOSE=DATA |30 |%Var %SETA 0x00 ; Initialization of control %variable. |0000: | ; Classic %WHILE/%ENDWHILE loop. |TRUE | %WHILE %Var < 8 |0000:00 | DB %Var ; Actual emitting statement. |31 |%Var %SETA %Var + 1 ; Modification of control %variable. | | %ENDWHILE |0008: | ; Control %variable was abandoned at value 8 |TRUE | %WHILE %Var ; Condition is TRUE if %Var <> 0. |0008:08 | DB %Var ; Actual emitting statement. |37 |%Var %SETA %Var - 1 ; Modification of control %variable. | | %ENDWHILE |0010:00 | DB %Var | | ENDPROGRAM t2701`

Expected messages t2701.out
  `I0180 Assembling source file "t2701.asm". I0270 Assembling source "t2701". I0310 Assembling source pass 1. I0330 Assembling source pass 2 - final. I0470 Assembling program "t2701". "t2701.asm"{2} I0510 Assembling program pass 1. "t2701.asm"{2} I0530 Assembling program pass 2 - final. "t2701.asm"{2} I0660 16bit TINY BIN file "t2701.bin" created, size=17. "t2701.asm"{16} I0650 Program "t2701" assembled in 2 passes with errorlevel 0. "t2701.asm"{16} I0750 Source "t2701" (16 lines) assembled in 2 passes with errorlevel 0. I0860 Listing file "t2701.asm.lst" created, size=954. I0990 EuroAssembler terminated with errorlevel 0.`

Expected output file t2701. bin

      0000: 00 01 02 03 04 05 06 07 08 07 06 05 04 03 02 01  °···············
      0010: 00                                               °

▲Back to the top▲