Looking for help!

The maintainer of this distribution is looking for people to help them improve this module! If you're interested then please contact them via email.

Name

Nasm::X86 - Generate Nasm assembler code

Synopsis

Description

Generate Nasm assembler code

Version "20210330".

The following sections describe the methods in each functional area of this module. For an alphabetic listing of all methods by name see Index.

Generate Network Assembler Code

Generate assembler code that can be assembled with Nasm

Start()

Initialize the assembler

Example:

  Start;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutString "Hello World";
  Exit;
  ok assemble =~ m(Hello World);

Ds(@d)

Layout bytes in memory and return their label

   Parameter  Description
1  @d         Data to be laid out

Example:

  Start;
  my $q = Rs('a'..'z');

  my $d = Ds('0'x64);                                                           # Output area  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Vmovdqu32(xmm0, "[$q]");                                                      # Load
  Vprolq   (xmm0,   xmm0, 32);                                                  # Rotate double words in quad words
  Vmovdqu32("[$d]", xmm0);                                                      # Save
  PrintOutString($d, 16);
  Exit;
  ok assemble() =~ m(efghabcdmnopijkl)s;

Rs(@d)

Layout bytes in read only memory and return their label

   Parameter  Description
1  @d         Data to be laid out

Example:

  Start;
  Comment "Print a string from memory";
  my $s = "Hello World";

  my $m = Rs($s);  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Mov rsi, $m;
  PrintOutString rsi, length($s);
  Exit;
  ok assemble =~ m(Hello World);

Dbwdq($s, @d)

Layout data

   Parameter  Description
1  $s         Element size
2  @d         Data to be laid out

Db(@bytes)

Layout bytes in the data segment and return their label

   Parameter  Description
1  @bytes     Bytes to layout

Dw(@words)

Layout words in the data segment and return their label

   Parameter  Description
1  @words     Words to layout

Dd(@dwords)

Layout double words in the data segment and return their label

   Parameter  Description
1  @dwords    Double words to layout

Dq(@qwords)

Layout quad words in the data segment and return their label

   Parameter  Description
1  @qwords    Quad words to layout

Rbwdq($s, @d)

Layout data

   Parameter  Description
1  $s         Element size
2  @d         Data to be laid out

Rb(@bytes)

Layout bytes in the data segment and return their label

   Parameter  Description
1  @bytes     Bytes to layout

Rw(@words)

Layout words in the data segment and return their label

   Parameter  Description
1  @words     Words to layout

Rd(@dwords)

Layout double words in the data segment and return their label

   Parameter  Description
1  @dwords    Double words to layout

Rq(@qwords)

Layout quad words in the data segment and return their label

   Parameter  Description
1  @qwords    Quad words to layout

Comment(@comment)

Insert a comment into the assembly code

   Parameter  Description
1  @comment   Text of comment

Example:

  Start;

  Comment "Print a string from memory";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  my $s = "Hello World";
  my $m = Rs($s);
  Mov rsi, $m;
  PrintOutString rsi, length($s);
  Exit;
  ok assemble =~ m(Hello World);

Exit($c)

Exit with the specified return code or zero if no return code supplied

   Parameter  Description
1  $c         Return code

Example:

  Start;
  PrintOutString "Hello World";

  Exit;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  ok assemble =~ m(Hello World);

SaveFirstFour()

Save the first 4 parameter registers

RestoreFirstFour()

Restore the first 4 parameter registers

RestoreFirstFourExceptRax()

Restore the first 4 parameter registers except rax so it can return its value

SaveFirstSeven()

Save the first 7 parameter registers

RestoreFirstSeven()

Restore the first 7 parameter registers

RestoreFirstSevenExceptRax()

Restore the first 7 parameter registers except rax which is being used to return the result

Lea($target, $source)

Load effective address

   Parameter  Description
1  $target    Target
2  $source    Source

Example:

  Start;
  my $q = Rs('abababab');
  Mov(rax, 1);
  Mov(rbx, 2);
  Mov(rcx, 3);
  Mov(rdx, 4);
  Mov(r8,  5);

  Lea r9,  "[rax+rbx]";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutRegistersInHex;
  Exit;
  ok assemble() =~ m(r8: 0000 0000 0000 0005.*r9: 0000 0000 0000 0003.*rax: 0000 0000 0000 0001)s;

Mov($target, $source)

Move data

   Parameter  Description
1  $target    Target
2  $source    Source

Example:

  Start;
  Comment "Print a string from memory";
  my $s = "Hello World";
  my $m = Rs($s);

  Mov rsi, $m;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutString rsi, length($s);
  Exit;
  ok assemble =~ m(Hello World);

PushR(@r)

Push registers onto the stack

   Parameter  Description
1  @r         Register

PopR(@r)

Pop registers in reverse order from the stack so the same parameter list can be shared with pushR

   Parameter  Description
1  @r         Register

Example:

  Start;
  my $q = Rs(('a'..'p')x4);
  my $d = Ds('0'x128);
  Vmovdqu32(zmm0, "[$q]");
  Vprolq   (zmm0,   zmm0, 32);
  Vmovdqu32("[$d]", zmm0);
  PrintOutString($d, 64);
  Sub rsp, 64;
  Vmovdqu64 "[rsp]", zmm0;

  PopR rax;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutRaxInHex;
  Exit;
  ok assemble() =~ m(efghabcdmnopijklefghabcdmnopijklefghabcdmnopijklefghabcdmnopijkl)s;

Sub($target, $source)

Subtract

   Parameter  Description
1  $target    Target
2  $source    Source

PrintOutNl()

Write a new line

Example:

  Start;
  Comment "Print a string from memory";
  my $s = "Hello World";
  my $m = Rs($s);
  Mov rsi, $m;
  PrintOutString rsi, length($s);
  Exit;
  ok assemble =~ m(Hello World);

PrintOutString($string, $length)

One: Write a constant string to sysout. Two write the bytes addressed for the specified length to sysout

   Parameter  Description
1  $string    String
2  $length    Length

Example:

  Start;

  PrintOutString "Hello World";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Exit;
  ok assemble =~ m(Hello World);

PrintOutRaxInHex()

Write the content of register rax to stderr in hexadecimal in big endian notation

Example:

  Start;
  my $q = Rs('abababab');
  Mov(rax, "[$q]");
  PrintOutString "rax: ";

  PrintOutRaxInHex;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutNl;
  Xor rax, rax;
  PrintOutString "rax: ";

  PrintOutRaxInHex;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutNl;
  Exit;
  ok assemble() =~ m(rax: 6261 6261 6261 6261.*rax: 0000 0000 0000 0000)s;

PrintOutRegisterInHex($r)

Print any register as a hex string

   Parameter  Description
1  $r         Name of the register to print

Example:

  Start;
  my $q = Rs(('a'..'p')x4);
  Mov r8,"[$q]";

  PrintOutRegisterInHex r8;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Exit;
  ok assemble() =~ m(r8: 6867 6665 6463 6261)s;

PrintOutRegistersInHex()

Print the general purpose registers in hex

Example:

  Start;
  my $q = Rs('abababab');
  Mov(rax, 1);
  Mov(rbx, 2);
  Mov(rcx, 3);
  Mov(rdx, 4);
  Mov(r8,  5);
  Lea r9,  "[rax+rbx]";

  PrintOutRegistersInHex;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Exit;
  ok assemble() =~ m(r8: 0000 0000 0000 0005.*r9: 0000 0000 0000 0003.*rax: 0000 0000 0000 0001)s;

Xor($t, $s)

Xor one register into another

   Parameter  Description
1  $t         Target register
2  $s         Source register

Example:

  Start;
  my $q = Rs('abababab');
  Mov(rax, "[$q]");
  PrintOutString "rax: ";
  PrintOutRaxInHex;
  PrintOutNl;

  Xor rax, rax;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutString "rax: ";
  PrintOutRaxInHex;
  PrintOutNl;
  Exit;
  ok assemble() =~ m(rax: 6261 6261 6261 6261.*rax: 0000 0000 0000 0000)s;

Vmovdqu8($r, $m)

Move memory in 8 bit blocks to an x/y/zmm* register

   Parameter  Description
1  $r         Register
2  $m         Memory

Example:

  Start;
  my $q = Rs('a'..'p');

  Vmovdqu8 xmm0, "[$q]";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutRegisterInHex xmm0;
  Exit;
  ok assemble() =~ m(xmm0: 706F 6E6D 6C6B 6A69   6867 6665 6463 6261)s;

Vmovdqu32($r, $m)

Move memory in 32 bit blocks to an x/y/zmm* register

   Parameter  Description
1  $r         Register
2  $m         Memory

Example:

  Start;
  my $q = Rs('a'..'z');
  my $d = Ds('0'x64);                                                           # Output area

  Vmovdqu32(xmm0, "[$q]");                                                      # Load  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Vprolq   (xmm0,   xmm0, 32);                                                  # Rotate double words in quad words

  Vmovdqu32("[$d]", xmm0);                                                      # Save  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutString($d, 16);
  Exit;
  ok assemble() =~ m(efghabcdmnopijkl)s;

Vmovdqu64($r, $m)

Move memory in 64 bit blocks to an x/y/zmm* register

   Parameter  Description
1  $r         Register
2  $m         Memory

Example:

  Start;
  my $q = Rs(('a'..'p')x4);
  my $d = Ds('0'x128);
  Vmovdqu32(zmm0, "[$q]");
  Vprolq   (zmm0,   zmm0, 32);
  Vmovdqu32("[$d]", zmm0);
  PrintOutString($d, 64);
  Sub rsp, 64;

  Vmovdqu64 "[rsp]", zmm0;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PopR rax;
  PrintOutRaxInHex;
  Exit;
  ok assemble() =~ m(efghabcdmnopijklefghabcdmnopijklefghabcdmnopijklefghabcdmnopijkl)s;

Vprolq($r, $m, $bits)

Rotate left within quad word indicated number of bits

   Parameter  Description
1  $r         Register
2  $m         Memory
3  $bits      Number of bits to rotate

Example:

  Start;
  my $q = Rs('a'..'z');
  my $d = Ds('0'x64);                                                           # Output area
  Vmovdqu32(xmm0, "[$q]");                                                      # Load

  Vprolq   (xmm0,   xmm0, 32);                                                  # Rotate double words in quad words  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  Vmovdqu32("[$d]", xmm0);                                                      # Save
  PrintOutString($d, 16);
  Exit;
  ok assemble() =~ m(efghabcdmnopijkl)s;

allocateMemory($s)

Allocate memory via mmap

   Parameter  Description
1  $s         Amount of memory to allocate

Example:

  Start;
  my $N = 2048;
  my $n = Rq($N);
  my $q = Rs('a'..'p');

  allocateMemory "[$n]";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutRegisterInHex rax;
  Vmovdqu8 xmm0, "[$q]";
  Vmovdqu8 "[rax]", xmm0;
  PrintOutString rax,16;
  PrintOutNl;

  Mov rbx, rax;
  freeMemory rbx, "[$n]";
  PrintOutRegisterInHex rax;
  Vmovdqu8 "[rbx]", xmm0;
  Exit;
  ok assemble() =~ m(abcdefghijklmnop)s;

freeMemory($a, $l)

Free memory via mmap

   Parameter  Description
1  $a         Address of memory to free
2  $l         Length of memory to free

Example:

  Start;
  my $N = 2048;
  my $n = Rq($N);
  my $q = Rs('a'..'p');
  allocateMemory "[$n]";
  PrintOutRegisterInHex rax;
  Vmovdqu8 xmm0, "[$q]";
  Vmovdqu8 "[rax]", xmm0;
  PrintOutString rax,16;
  PrintOutNl;

  Mov rbx, rax;

  freeMemory rbx, "[$n]";  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

  PrintOutRegisterInHex rax;
  Vmovdqu8 "[rbx]", xmm0;
  Exit;
  ok assemble() =~ m(abcdefghijklmnop)s;

readTimeStampCounter()

Read the time stamp counter

Example:

  Start;
  for(1..10)

   {readTimeStampCounter;  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

    PrintOutRegisterInHex rax;
   }
  Exit;
  my @s = split /
/, assemble();
  my @S = sort @s;
  is_deeply \@s, \@S;

assemble(%options)

Assemble the generated code

   Parameter  Description
1  %options   Options

Example:

  Start;
  PrintOutString "Hello World";
  Exit;

  ok assemble =~ m(Hello World);  # 𝗘𝘅𝗮𝗺𝗽𝗹𝗲

Private Methods

label()

Create a unique label

Index

1 allocateMemory - Allocate memory via mmap

2 assemble - Assemble the generated code

3 Comment - Insert a comment into the assembly code

4 Db - Layout bytes in the data segment and return their label

5 Dbwdq - Layout data

6 Dd - Layout double words in the data segment and return their label

7 Dq - Layout quad words in the data segment and return their label

8 Ds - Layout bytes in memory and return their label

9 Dw - Layout words in the data segment and return their label

10 Exit - Exit with the specified return code or zero if no return code supplied

11 freeMemory - Free memory via mmap

12 label - Create a unique label

13 Lea - Load effective address

14 Mov - Move data

15 PopR - Pop registers in reverse order from the stack so the same parameter list can be shared with pushR

16 PrintOutNl - Write a new line

17 PrintOutRaxInHex - Write the content of register rax to stderr in hexadecimal in big endian notation

18 PrintOutRegisterInHex - Print any register as a hex string

19 PrintOutRegistersInHex - Print the general purpose registers in hex

20 PrintOutString - One: Write a constant string to sysout.

21 PushR - Push registers onto the stack

22 Rb - Layout bytes in the data segment and return their label

23 Rbwdq - Layout data

24 Rd - Layout double words in the data segment and return their label

25 readTimeStampCounter - Read the time stamp counter

26 RestoreFirstFour - Restore the first 4 parameter registers

27 RestoreFirstFourExceptRax - Restore the first 4 parameter registers except rax so it can return its value

28 RestoreFirstSeven - Restore the first 7 parameter registers

29 RestoreFirstSevenExceptRax - Restore the first 7 parameter registers except rax which is being used to return the result

30 Rq - Layout quad words in the data segment and return their label

31 Rs - Layout bytes in read only memory and return their label

32 Rw - Layout words in the data segment and return their label

33 SaveFirstFour - Save the first 4 parameter registers

34 SaveFirstSeven - Save the first 7 parameter registers

35 Start - Initialize the assembler

36 Sub - Subtract

37 Vmovdqu32 - Move memory in 32 bit blocks to an x/y/zmm* register

38 Vmovdqu64 - Move memory in 64 bit blocks to an x/y/zmm* register

39 Vmovdqu8 - Move memory in 8 bit blocks to an x/y/zmm* register

40 Vprolq - Rotate left within quad word indicated number of bits

41 Xor - Xor one register into another

Installation

This module is written in 100% Pure Perl and, thus, it is easy to read, comprehend, use, modify and install via cpan:

sudo cpan install Nasm::X86

Author

philiprbrenan@gmail.com

http://www.appaapps.com

Copyright

This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.

To install Nasm::X86, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Nasm::X86

CPAN shell

perl -MCPAN -e shell
install Nasm::X86

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

Looking for help!

Name

Synopsis

Description

Generate Network Assembler Code

Start()

Ds(@d)

Rs(@d)

Dbwdq($s, @d)

Db(@bytes)

Dw(@words)

Dd(@dwords)

Dq(@qwords)

Rbwdq($s, @d)

Rb(@bytes)

Rw(@words)

Rd(@dwords)

Rq(@qwords)

Comment(@comment)

Exit($c)

SaveFirstFour()

RestoreFirstFour()

RestoreFirstFourExceptRax()

SaveFirstSeven()

RestoreFirstSeven()

RestoreFirstSevenExceptRax()

Lea($target, $source)

Mov($target, $source)

PushR(@r)

PopR(@r)

Sub($target, $source)

PrintOutNl()

PrintOutString($string, $length)

PrintOutRaxInHex()

PrintOutRegisterInHex($r)

PrintOutRegistersInHex()

Xor($t, $s)

Vmovdqu8($r, $m)

Vmovdqu32($r, $m)

Vmovdqu64($r, $m)

Vprolq($r, $m, $bits)

allocateMemory($s)

freeMemory($a, $l)

readTimeStampCounter()

assemble(%options)

Private Methods

label()

Index

Installation

Author

Copyright

Module Install Instructions