TheGameCreators - CodeBase - Bitwise Hex ( and,or and xor )

Return to the CodeBase listing

Category: Functions

Version: 1.0

Information

Uploaded: 26th Jul 2016 15:35

Modified: 26th Jul 2016 15:35

Author: Cliff Mellangard 3DEGS

Summary

I neaded a bitwise operation for hex input.

Full Description

This is a part of my chip8 emulator/interpeter.<br /> most code snippets on he web use hex and there seams to be problems so far when converting them to work on agk so i made these functions.

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: bitwise and or xor in hex

// Created: 2016-07-26

// Cliff mellangård (3degs)

// Sweden

// Converted this to work in agk.

// https://scratch.mit.edu/projects/43693078/#editor

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "bitwise and or xor in hex" )

SetWindowSize( 640, 480, 0 )

// set display properties

SetVirtualResolution( 640, 480 )

SetOrientationAllowed( 1, 1, 1, 1 )

print("0xF000 - 0xF00F")

print("")

print("hex and = "+Bitwise_AND_IN_HEX("0xF000","0xF00F"))

print("integer = "+str(val(Bitwise_AND_IN_HEX("0xF000","0xF00F"),16)))

print("")

print("hex or = "+Bitwise_OR_IN_HEX("0xF000","0xF00F"))

print("integer = "+str(val(Bitwise_OR_IN_HEX("0xF000","0xF00F"),16)))

print("")

print("hex xor = "+Bitwise_XOR_IN_HEX("0xF000","0xF00F"))

print("integer = "+str(val(Bitwise_XOR_IN_HEX("0xF000","0xF00F"),16)))

Sync()

loop

function Bitwise_AND_IN_HEX(a$,b$)

AND$="00000000000000000101010101010101002200220022002201230123012301230000444400004444010145450101454500224466002244660123456701234567000000008888888801010101898989890022002288AA88AA0123012389AB89AB000044448888CCCC010145458989CDCD0022446688AACCEE0123456789ABCDEF"

res$=""

v=1

repeat

tp$= "0x" + mid(a$,v,1) + mid(b$,v,1)

res$=res$+mid(AND$,val(tp$,16)+1,1)

inc v

until v=len(a$)+1

endfunction res$

function Bitwise_OR_IN_HEX(a$,b$)

OR$="0123456789ABCDEF1133557799BBDDFF23236767ABABEFEF33337777BBBBFFFF45674567CDEFCDEF55775577DDFFDDFF67676767EFEFEFEF77777777FFFFFFFF89ABCDEF89ABCDEF99BBDDFF99BBDDFFABABEFEFABABEFEFBBBBFFFFBBBBFFFFCDEFCDEFCDEFCDEFDDFFDDFFDDFFDDFFEFEFEFEFEFEFEFEFFFFFFFFFFFFFFFFF"

res$=""

v=1

repeat

tp$= "0x" + mid(a$,v,1) + mid(b$,v,1)

res$=res$+mid(OR$,val(tp$,16)+1,1)

inc v

until v=len(a$)+1

endfunction res$

function Bitwise_XOR_IN_HEX(a$,b$)

XOR$="0123456789ABCDEF1032547698BADCFE23016745AB89EFCD32107654BA98FEDC45670123CDEF89AB54761032DCFE98BA67452301EFCDAB8976543210FEDCBA9889ABCDEF0123456798BADCFE10325476AB89EFCD23016745BA98FEDC32107654CDEF89AB45670123DCFE98BA54761032EFCDAB8967452301FEDCBA9876543210"

res$=""

v=1

repeat

tp$= "0x" + mid(a$,v,1) + mid(b$,v,1)

res$=res$+mid(XOR$,val(tp$,16)+1,1)

inc v

until v=len(a$)+1

endfunction res$

Download

Please login to download

Comments

No comments yet.

Author Name:	Cliff Mellangard 3DEGS
CodeBase Entries:	15

CodeBase - Bitwise Hex ( and,or and xor )

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments