[bb] Addition Program by Michael Reitzenstein [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:42

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:42
Title : Addition Program
Author : Michael Reitzenstein
Posted : 1+ years ago

Description : You know you are bored when... :)

It is a direct port of an electric circut I am working on to add two numbers together, and I thought I would test my logic first in Blitz.

Code :
Code (blitzbasic) Select
Global a[ 32 ]
Global b[ 32 ]
Global o[ 32 ]
Global num[ 2 ]
Global rem
Global result

num[ 1 ] = Input( "Number 1: " )
num[ 2 ] = Input( "Number 2: " )

For Loop = 1 To 32

a[ Loop ] = ( ( num[ 1 ] And ( ( ( %1 Shl ( Loop ) ) Shr 1 ) ) ) Shl 1 ) Shr Loop
b[ Loop ] = ( ( num[ 2 ] And ( ( ( %1 Shl ( Loop ) ) Shr 1 ) ) ) Shl 1 ) Shr Loop

Next

o[ 1 ] = ( a[ 1 ] Or b[ 1 ] ) And ( Not ( a[ 1 ] And b[ 1 ] ) )
rem = ( a[ 1 ] And b[ 1 ] )

For Loop = 2 To 32

o[ Loop ] = Calc( Loop )

Next

For Loop = 1 To 32

result = result Or ( ( o[ Loop ] Shl ( Loop ) ) Shr 1 )

Next

Print result
Input
End

Function Calc( Loop_Count )

Local i[ 3 ]
Local out

i[ 1 ] = rem
i[ 2 ] = a[ Loop_Count ]
i[ 3 ] = b[ Loop_Count ]

;Sorting Remainder
i[ 0 ] = ( i[ 1 ] Or i[ 3 ] )
i[ 3 ] = ( i[ 1 ] And i[ 3 ] )
i[ 1 ] = i[ 0 ]

i[ 0 ] = ( i[ 2 ] Or i[ 3 ] )
i[ 3 ] = ( i[ 2 ] And i[ 3 ] )
i[ 2 ] = i[ 0 ]

i[ 0 ] = ( i[ 1 ] Or i[ 2 ] )
i[ 2 ] = ( i[ 1 ] And i[ 2 ] )
i[ 1 ] = i[ 0 ]

out = ( ( Not i[ 1 ] ) And ( Not i[ 2 ] ) And i[ 3 ] )
out = ( out ) Or ( ( Not ( i[ 1 ] And i[ 2 ] ) ) And ( i[ 1 ] Or i[ 2 ] ) ) And ( Not ( i[ 3 ] ) )
out = ( out ) Or ( i[ 1 ] And i[ 2 ] And i[ 3 ] )

rem = ( ( Not ( i[ 1 ] And i[ 2 ] ) ) And ( i[ 1 ] Or i[ 2 ] ) ) And i[ 3 ]
rem = ( rem ) Or ( ( i[ 1 ] And i[ 2 ] ) And ( Not i[ 3 ] ) )
rem = ( rem ) Or ( ( i[ 1 ] And i[ 2 ] And i[ 3 ] ) )

Return out

End Function

Comments : none...
Print
Go Up Pages1
User actions