laag-nasm 2.13.03.2

data/vendor/repo.or.cz/nasm/misc/Nindent

@@ -0,0 +1,18 @@
+#!/bin/sh
+PARAM="-npro -kr -i4 -ts8 -nut -sob -l80 -ss -ncs -cp1"
+RES=`indent --version`
+V1=`echo $RES | cut -d' ' -f3 | cut -d'.' -f1`
+V2=`echo $RES | cut -d' ' -f3 | cut -d'.' -f2`
+V3=`echo $RES | cut -d' ' -f3 | cut -d'.' -f3`
+if [ $V1 -gt 2 ]; then
+  PARAM="$PARAM -il0"
+elif [ $V1 -eq 2 ]; then
+  if [ $V2 -gt 2 ]; then
+    PARAM="$PARAM -il0";
+  elif [ $V2 -eq 2 ]; then
+    if [ $V3 -ge 10 ]; then
+      PARAM="$PARAM -il0"
+    fi
+  fi
+fi
+exec indent $PARAM "$@"

data/vendor/repo.or.cz/nasm/misc/README

@@ -0,0 +1,2 @@
+There are various helpful bits and pieces for NASM,
+including but not limited to Simon photograph =)

data/vendor/repo.or.cz/nasm/misc/c16.mac

@@ -0,0 +1,82 @@
+; NASM macro set to make interfacing to 16-bit programs easier -*- nasm -*-
+
+
+
+%imacro proc 1			; begin a procedure definition
+
+%push proc
+
+	  global %1
+
+%1:	  push bp
+
+	  mov bp,sp
+
+%ifdef FARCODE PASCAL		; arguments may start at bp+4 or bp+6
+
+%assign %$arg 6
+
+%define %$firstarg 6
+
+%else
+
+%assign %$arg 4
+
+%define %$firstarg 4
+
+%endif
+
+%define %$procname %1
+
+%endmacro
+
+
+
+%imacro arg 0-1 2		; used with the argument name as a label
+
+%00	  equ %$arg
+
+				; we could possibly be adding some
+
+				; debug information at this point...?
+
+%assign %$arg %1+%$arg
+
+%endmacro
+
+
+
+%imacro endproc 0
+
+%ifnctx proc
+
+%error Mismatched `endproc'/`proc'
+
+%else
+
+          mov sp,bp
+
+          pop bp
+
+%ifdef PASCAL
+
+          retf %$arg - %$firstarg
+
+%elifdef FARCODE
+
+	  retf
+
+%else
+
+	  retn
+
+%endif
+
+__end_%$procname:		; useful for calculating function size
+
+%pop
+
+%endif
+
+%endmacro
+

data/vendor/repo.or.cz/nasm/misc/c32.mac

@@ -0,0 +1,52 @@
+; NASM macro set to make interfacing to 32-bit programs easier -*- nasm -*-
+
+
+
+%imacro proc 1			; begin a procedure definition
+
+%push proc
+
+          global %1
+
+%1:       push ebp
+
+          mov ebp,esp
+
+%assign %$arg 8
+
+%define %$procname %1
+
+%endmacro
+
+
+
+%imacro arg 0-1 4		; used with the argument name as a label
+
+%00	  equ %$arg
+
+%assign %$arg %1+%$arg
+
+%endmacro
+
+
+
+%imacro endproc 0
+
+%ifnctx proc
+
+%error Mismatched `endproc'/`proc'
+
+%else
+
+	  leave
+
+	  ret
+
+__end_%$procname:		; useful for calculating function size
+
+%pop
+
+%endif
+
+%endmacro
+

data/vendor/repo.or.cz/nasm/misc/crcgen.c

@@ -0,0 +1,44 @@
+#include <inttypes.h>
+#include <stdio.h>
+
+int main(int argc, char *argv[])
+{
+    /* Polynomial in bit-reversed notation */
+    uint64_t poly;
+    uint64_t crctab[256], v;
+    int i, j;
+
+    poly = strtoumax(argv[1], NULL, 0);
+
+    printf("/* C */\n");
+    printf("static const uint64_t crc64_tab[256] = {\n");
+    for (i = 0; i < 256; i++) {
+	v = i;
+	for (j = 0; j < 8; j++)
+	    v = (v >> 1) ^ ((v & 1) ? poly : 0);
+	crctab[i] = v;
+    }
+
+    for (i = 0; i < 256; i += 2) {
+	printf("    /* %02x */ UINT64_C(0x%016"PRIx64"), "
+	       "UINT64_C(0x%016"PRIx64")%s\n",
+	       i, crctab[i], crctab[i+1], (i == 254) ? "" : ",");
+    }
+    printf("};\n\n");
+
+    printf("# perl\n");
+    printf("@crc64_tab = (\n");
+    for (i = 0; i < 256; i += 2) {
+	printf("    [0x%08"PRIx32", 0x%08"PRIx32"], "
+	       "[0x%08"PRIx32", 0x%08"PRIx32"]%-1s    # %02x\n",
+	       (uint32_t)(crctab[i] >> 32),
+	       (uint32_t)(crctab[i]),
+	       (uint32_t)(crctab[i+1] >> 32),
+	       (uint32_t)(crctab[i+1]),
+	       (i == 254) ? "" : ",",
+	       i);
+    }
+    printf(");\n");
+
+    return 0;
+}

data/vendor/repo.or.cz/nasm/misc/exebin.mac

@@ -0,0 +1,57 @@
+; -*- nasm -*-
+; NASM macro file to allow the `bin' output format to generate
+; simple .EXE files by constructing the EXE header by hand.
+; Adapted from a contribution by Yann Guidon <whygee_corp@hol.fr>
+
+%define EXE_stack_size EXE_realstacksize
+
+%macro EXE_begin 0
+	  ORG 0E0h
+	  section .text
+
+header_start:
+	  db 4Dh,5Ah		; EXE file signature
+	  dw EXE_allocsize % 512
+	  dw (EXE_allocsize + 511) / 512
+	  dw 0			; relocation information: none
+	  dw (header_end-header_start)/16 ; header size in paragraphs
+	  dw (EXE_absssize + EXE_realstacksize) / 16 ; min extra mem
+	  dw (EXE_absssize + EXE_realstacksize) / 16 ; max extra mem
+	  dw -10h		; Initial SS (before fixup)
+	  dw EXE_endbss + EXE_realstacksize ; Initial SP (1K DPMI+1K STACK)
+	  dw 0			; (no) Checksum
+	  dw 100h		; Initial IP - start just after the header
+	  dw -10h		; Initial CS (before fixup)
+	  dw 0			; file offset to relocation table: none
+	  dw 0			; (no overlay)
+	  align 16,db 0
+header_end:
+
+EXE_startcode:
+	  section .data
+EXE_startdata:
+	  section .bss
+EXE_startbss:
+%endmacro
+
+%macro EXE_stack 1
+EXE_realstacksize equ %1
+%define EXE_stack_size EXE_bogusstacksize ; defeat EQU in EXE_end
+%endmacro
+
+%macro EXE_end 0
+	  section .text
+EXE_endcode:
+	  section .data
+EXE_enddata:
+	  section .bss
+	  alignb 4
+EXE_endbss:
+
+EXE_acodesize equ (EXE_endcode-EXE_startcode+3) & (~3)
+EXE_datasize equ EXE_enddata-EXE_startdata
+EXE_absssize equ (EXE_endbss-EXE_startbss+3) & (~3)
+EXE_allocsize equ EXE_acodesize + EXE_datasize
+
+EXE_stack_size equ 0x800	; default if nothing else was used
+%endmacro

data/vendor/repo.or.cz/nasm/misc/exebin2.mac

@@ -0,0 +1,114 @@
+; -*- nasm -*-
+
+; NASM macro file to allow the `bin' output format to generate
+
+; simple .EXE files by constructing the EXE header by hand.
+
+; Adapted from a contribution by Yann Guidon <whygee_corp@hol.fr>
+
+
+
+%define EXE_stack_size EXE_realstacksize
+
+
+
+%macro EXE_begin 0
+
+	  ORG 0E0h
+
+	  section .text
+
+
+
+header_start:
+
+	  db 4Dh,5Ah		; EXE file signature
+
+	  dw EXE_allocsize % 512
+
+	  dw (EXE_allocsize + 511) / 512
+
+	  dw 0			; relocation information: none
+
+	  dw (header_end-header_start)/16 ; header size in paragraphs
+
+	  dw (EXE_absssize + EXE_realstacksize) / 16 ; min extra mem
+
+	  dw (EXE_absssize + EXE_realstacksize) / 16 ; max extra mem
+
+	  dw -10h		; Initial SS (before fixup)
+
+	  dw EXE_endbss + EXE_realstacksize ; Initial SP (1K DPMI+1K STACK)
+
+	  dw 0			; (no) Checksum
+
+	  dw 100h		; Initial IP - start just after the header
+
+	  dw -10h		; Initial CS (before fixup)
+
+	  dw 0			; file offset to relocation table: none
+
+	  dw 0			; (no overlay)
+
+	  align 16,db 0
+
+header_end:
+
+
+
+EXE_startcode:
+
+	  section .data
+
+EXE_startdata:
+
+	  section .bss
+
+EXE_startbss:
+
+%endmacro
+
+
+
+%macro EXE_stack 1
+
+EXE_realstacksize equ %1
+
+%define EXE_stack_size EXE_bogusstacksize ; defeat EQU in EXE_end
+
+%endmacro
+
+
+
+%macro EXE_end 0
+
+	  section .text
+
+EXE_endcode:
+
+	  section .data
+
+EXE_enddata:
+
+	  section .bss
+
+	  alignb 4
+
+EXE_endbss:
+
+
+
+EXE_acodesize equ (EXE_endcode-EXE_startcode+3) & (~3)
+
+EXE_datasize equ EXE_enddata-EXE_startdata
+
+EXE_absssize equ (EXE_endbss-EXE_startbss+3) & (~3)
+
+EXE_allocsize equ EXE_acodesize + EXE_datasize
+
+
+
+EXE_stack_size equ 0x800	; default if nothing else was used
+
+%endmacro
+

data/vendor/repo.or.cz/nasm/misc/fmtinsns.pl

@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+#
+# Re-align the columns in insns.dat, and enforce case conventions
+#
+
+@cols = (0, 16, 48, 96);
+
+while ($line = <STDIN>) {
+    chomp $line;
+    if ($line !~ /^\s*(\;.*|)$/) {
+	($ln = $line) =~ s/\s+$//;
+	if ($line =~ /^\s*(\S+)\s+(\S+)\s+(\S+|\[.*\])\s+(\S+)\s*$/) {
+	    @fields = ($1, $2, $3, $4);
+	    $fields[0] = "\U$fields[0]" unless ($fields[0] =~ /^[^a-z]+cc$/);
+	    $fields[3] =~ s/\,+$//;
+	    $fields[3] = "\U$fields[3]" unless ($fields[3] eq 'ignore');
+	    $c = 0;
+	    $line = '';
+	    for ($i = 0; $i < scalar(@fields); $i++) {
+		if ($i > 0 && $c >= $cols[$i]) {
+		    $line .= ' ';
+		    $c++;
+		}	
+		while ($c < $cols[$i]) {
+		    $line .= "\t";
+		    $c = ($c+8)	& ~7;
+		}
+		$line .= $fields[$i];
+		for ($j = 0; $j < length($fields[$i]); $j++) {
+		    if (substr($fields[$i], $j, 1) eq "\t") {
+			$c = ($c+8) & ~7;
+		    } else {
+			$c++;
+		    }
+		}
+	    }
+	}
+    }
+    print $line, "\n";
+}

data/vendor/repo.or.cz/nasm/misc/genfma.pl

@@ -0,0 +1,63 @@
+#!/usr/bin/perl
+%packed_insns = (
+    'vfmadd'    => 0x98,
+    'vfmaddsub' => 0x96,
+    'vfmsubadd' => 0x97,
+    'vfmsub'    => 0x9a,
+    'vfnmadd'   => 0x9c,
+    'vfnmsub'   => 0x9e
+    );
+
+%scalar_insns = (
+    'vfmadd'    => 0x99,
+    'vfmsub'    => 0x9b,
+    'vfnmadd'   => 0x9d,
+    'vfnmsub'   => 0x9f
+    );
+
+foreach $pi ( sort(keys(%packed_insns)) ) {
+    $op = $packed_insns{$pi};
+    foreach $order ('132', '213', '231') {
+	$xorder = substr($order,1,1).substr($order,0,1).substr($order,2,1);
+	foreach $o ($order, $xorder) {
+	    for ($w = 0; $w < 2; $w++) {
+		$suf = $w  ? 'pd' : 'ps';
+		for ($l = 128; $l <= 256; $l <<= 1) {
+		    $sx  = ($l == 256) ? 'SY' : 'SO';
+		    $mm  = ($l == 256) ? 'ymm' : 'xmm';
+		    printf "%-15s %-31s %-8s%-39s %s\n",
+		    	"\U${pi}${o}${suf}",
+			"${mm}reg,${mm}reg,${mm}rm",
+		    	"[rvm:",
+		        sprintf("vex.dds.%d.66.0f38.w%d %02x /r]",
+			    $l, $w, $op),
+		    "FMA,FUTURE,${sx}";
+		}
+	    }
+	}
+	$op += 0x10;
+    }
+}
+
+foreach $si ( sort(keys(%scalar_insns)) ) {
+    $op = $scalar_insns{$si};
+    foreach $order ('132', '213', '231') {
+	$xorder = substr($order,1,1).substr($order,0,1).substr($order,2,1);
+	foreach $o ($order, $xorder) {
+	    for ($w = 0; $w < 2; $w++) {
+		$suf = $w ? 'sd' : 'ss';
+		$sx  = $w ? 'SQ' : 'SD';
+		$l  = 128;
+		$mm  = 'xmm';
+		printf "%-15s %-31s %-8s%-39s %s\n",
+		    "\U${si}${o}${suf}",
+		    "${mm}reg,${mm}reg,${mm}rm",
+		    '[rvm:',
+		    sprintf("vex.dds.%d.66.0f38.w%d %02x /r]",
+			$l, $w, $op),
+		"FMA,FUTURE,${sx}";
+	    }
+	}
+	$op += 0x10;
+    }
+}