PASM code sample

[kornalius]

Let me be the first one to share a little piece of code to show you the power of the PASM (PPL Assembler).

This sample piece of code was written some time ago to test the power of the PASM. Remember the PASM is cross-platform, any piece of code you write with it is compatible between the PC and PocketPC, no compiling required, it's dynamically compiled.

The code creates a string variable that can hold 10 characters. The assembly code moves some ASCII values into the variable and then the result is printed to the console.

#include "console.ppl"

func WinMain;
InitConsole;
ShowConsole;

sdim(StrVal$, tbyte, 10);

asmCall$ = asm(1024, {
#DEASM
:main
mov r0, StrVal$
mov WORD r2, 255
mov BYTE r1, 10
mov BYTE [R0], 65
mov BYTE [R0+1], 66
mov BYTE [R0+2], 67
mov BYTE [R0+3], 0
pplpush StrVal$
ppl ptr
ppl Writeln
});

callasm(asmCall$, 20, 30);
writeln("Test3 " + StrVal$);

freeasm(asmCall$);

return(true);
end;

[Martin_S]

Hello,
I tried to run the ASM example above on my Pocket PC, but without success.
The PPL-compiler only gives out the following error report:

PPL 1.04 Pro Compiler Error Report

error: [Unknown operand error at ´#deasm´ (1,3)]
error: [Unknown operand error at ´main´ (2,4)]
error: [No main entry point defined]

[PointOfLight]

I tried it on the PC (still only using 1.03) and I got the same error, though the numbers in parentheses were different.

[matteo.m]

this is on my PC

PPL 1.04 Pro Compiler Error Report

error: [Unknown operand error at '#deasm' (1,1)]
error: [Unknown operand error at 'main' (2,6)]
error: [No main entry point defined!]

[kornalius]

Sorry guys, I had an old piece of code in the PASM parser that was supposed to be taken out a long time ago. It is now working like it should. This fix will be in 1.05 due out this week.