Code: Select all
Sub SetAddress(myAddress as Word)
PortA = Address.Byte0
PortD = Address.Byte1
End Sub
It would be nice to have 2-byte wide object that set all the bits when I assign it a new value. I can't figure out how to do it though.
Moderators: David Barker, Jerry Messina
Code: Select all
Sub SetAddress(myAddress as Word)
PortA = Address.Byte0
PortD = Address.Byte1
End Sub
Code: Select all
dim w as word
// standard version
sub setaddr(addr as word)
portA = addr.byte0
portD = addr.byte1
end sub
// standard version inlined
inline sub setaddr_il(addr as word)
portA = addr.byte0
portD = addr.byte1
end sub
// faster version using two bytes
inline sub set_addr(addrh as portD, addrl as portA)
end sub
// overloaded two byte version
inline sub set_addr(addr as word)
set_addr(addr.byte1, addr.byte0)
end sub
w = $1234
// standard
setaddr($1234)
setaddr(w)
// standard inline
setaddr_il($1234)
setaddr_il(w)
// faster two byte version
set_addr($12, $34)
set_addr(w>>8, w)
set_addr(w.byte1, w.byte0)
// overloaded two byte version (same as standard inline)
set_addr($1234)
set_addr(w)