Sottrazione con operatori bitwise

Il codice per operare una sottrazione con operatori bitwise fra due numeri, considerati come fossero binari, va impostato in modo tale che innanzitutto effettui lo XOR fra i due operandi; poi deve eseguire il NOT bitwise del primo operando. Infine deve effettuare l'AND fra i due operandi, e uno shift a sinistra.

Mostriamo il codice esemplificativo:

Public Sub Main()
 
 Dim minuendo, sottraendo, differenza As Integer
 
 minuendo = 240
 sottraendo = 15
  
 differenza = sottrazione_binaria(minuendo, sottraendo)
   
 Print differenza
  
End


Private Function sottrazione_binaria(op1 As Integer, op2 As Integer) As Integer
 
 Dim sb, prestito As Integer
 
 prestito = 1
 
 While prestito <> 0
   sb = op1 Xor op2
   op1 = Not op1
   prestito = op1 And op2
   prestito = prestito * CInt(2 ^ 1)
   op1 = sb
   op2 = prestito
 Wend
  
 Return op1
 
End