From 333b605b2afd472b823aeda0adf0e8b1ea9843c0 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 27 May 2019 02:41:51 +0100
Subject: initial commit from asl-1.41r8.tar.gz

---
 include/bitfuncs.inc | 85 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100644 include/bitfuncs.inc

(limited to 'include/bitfuncs.inc')

diff --git a/include/bitfuncs.inc b/include/bitfuncs.inc
new file mode 100644
index 0000000..fc9706b
--- /dev/null
+++ b/include/bitfuncs.inc
@@ -0,0 +1,85 @@
+                save
+                listing off   ; kein Listing über diesen File
+
+;****************************************************************************
+;*                                                                          *
+;*   AS 1.39 - Datei BITFUNCS.INC                                           *
+;*   								            *
+;*   Sinn : enthält Funktionen zur Bitmanipulation                          *
+;* 									    *
+;*   letzte Änderungen : 30. 5.1993                                         *
+;*                       11. 9.1993 Meldung nur im 1.Pass                   *
+;*									    *
+;****************************************************************************
+
+		ifndef   bitfuncsinc    ; verhindert Mehrfacheinbindung
+
+bitfuncsinc     equ      1
+
+		if	 mompass=1
+		 message "Standardbitfunktionen (C) 1993 Alfred Arnold"
+		endif
+
+;----------------------------------------------------------------------------
+; erstmal einige Unterfunktionen:
+
+; liefert eine Maske in der ab 'start' 'bits' Bit gesetzt sind, z.B. zum
+; Ausmaskieren einzelner Bits:
+
+mask            function start,bits,((1<<bits)-1)<<start
+
+; das gleiche invers zum Löschen von Bitgruppen:
+
+invmask         function start,bits,~mask(start,bits)
+
+; liefert die Bits 'start' bis 'start'+'bits'-1 aus 'x':
+
+cutout          function x,start,bits,x&mask(start,bits)
+
+;----------------------------------------------------------------------------
+; einige häufig gebrauchte Sondermasken:
+
+; oberes Byte eines 16-Bit-Wortes:
+
+hi              function x,(x>>8)&255
+
+; dito unteres Byte:
+
+lo              function x,x&255
+
+; obere Hälfte aus einem 32-Bit-Wort:
+
+hiword          function x,(x>>16)&65535
+
+; dito untere Hälfte:
+
+loword          function x,x&65535
+
+; Boolean-Funktionen, ob eine Zahl gerade oder ungerade ist:
+
+odd             function x,(x&1)=1
+even            function x,(x&1)=0
+
+; liefert Bit 'n' aus 'x':
+
+getbit          function x,n,(x>>n)&1
+
+;----------------------------------------------------------------------------
+; Schiebefunktionen:
+
+; Schieben eines 'size'-Bit-Wortes um 'n' Stellen nach links oder rechts:
+
+shln            function x,size,n,(x<<n)&mask(0,size)
+shrn            function x,size,n,(x>>n)&mask(0,size-n)
+
+; Rotation eines 'size'-Bit-Wortes um 'n' Stellen nach links oder rechts;
+; der erste Term läßt die restlichen Bits unverändert und kann bei Bedarf
+; gelöscht werden:
+
+rotln           function x,size,n,cutout(x,size,32-size)|shln(x,size,n)|shrn(x,size,size-n)
+rotrn           function x,size,n,cutout(x,size,32-size)|shrn(x,size,n)|shln(x,size,size-n)
+
+                endif
+
+                restore                 ; wieder erlauben
+
-- 
cgit v1.2.3