toka/bits.c

   1 /******************************************************
   2  * Toka
   3  *
   4  *|F|
   5  *|F| FILE: bits.c
   6  *|F|
   7  *
   8  * Copyright (c) 2006, 2007  Charles R. Childers
   9  *
  10  * Permission to use, copy, modify, and distribute this
  11  * software for any purpose with or without fee is hereby
  12  * granted, provided that the above copyright notice and
  13  * this permission notice appear in all copies.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR
  16  * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
  17  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  18  * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE
  19  * FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  20  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
  21  * OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  22  * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
  23  * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
  24  * OF THIS SOFTWARE.
  25  ******************************************************/
  26
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30
  31 #include "toka.h"
  32 extern VM_STACK data, address, alternate;
  33
  34
  35
  36 /******************************************************
  37  *|G| <<       ( ab-c )    Shift 'a' left by 'b' bits
  38  *
  39  *|F| lshift()
  40  *|F| Shift NOS left by TOS bits
  41  *|F|
  42  ******************************************************/
  43 void lshift()
  44 {
  45   NOS = NOS << TOS; DROP;
  46 }
  47
  48
  49 /******************************************************
  50  *|G| >>       ( ab-c )    Shift 'a' right by 'b' bits
  51  *
  52  *|F| rshift()
  53  *|F| Shift NOS right by TOS bits
  54  *|F|
  55  ******************************************************/
  56 void rshift()
  57 {
  58   NOS = NOS >> TOS; DROP;
  59 }
  60
  61
  62 /******************************************************
  63  *|G| and      ( ab-c )    Perform a bitwise AND
  64  *
  65  *|F| and()
  66  *|F| Perform a bitwise AND
  67  *|F|
  68  ******************************************************/
  69 void and()
  70 {
  71   NOS = TOS & NOS; DROP;
  72 }
  73
  74
  75 /******************************************************
  76  *|G| or       ( ab-c )    Perform a bitwise OR
  77  *
  78  *|F| or()
  79  *|F| Perform a bitwise OR
  80  *|F|
  81  ******************************************************/
  82 void or()
  83 {
  84   NOS = TOS | NOS; DROP;
  85 }
  86
  87
  88 /******************************************************
  89  *|G| xor      ( ab-c )    Perform a bitwise XOR
  90  *
  91  *|F| xor()
  92  *|F| Perform a bitwise XOR
  93  *|F|
  94  ******************************************************/
  95 void xor()
  96 {
  97   NOS = TOS ^ NOS; DROP;
  98 }