I am trying to bitbang the port at 5 Baud, this is as far as i got to try convert the java code to b4a.
Private Sub Init(ByVal address As Int)
mSerial.setBitmode(True,0x00,0x00)
Sleep(300)
' Start bit, 200ms low
mSerial.setBitmode(True,0x01,0x01)
Sleep(200)
' Bang the bits (one byte) of our address
For i As Int = 0 To 7
If ((0x01 << i) And address) > 0 Then
mSerial.setBitmode(True,0x00,0x00)
Else
mSerial.setBitmode(True,0x01,0x01)
End If
Sleep(200)
Next i
mSerial.setBitmode(True,0x00,0x00)
End Sub