;unknown author, please step forward
comf var,f ;Complement all bytes
comf var+1,f
comf var+2,f
comf var+3,f
incf var,f ;Inc. low byte always
skpnz ;Skip if no carry to higher bytes
incf var+1,f ;Carry to next byte
skpnz
incf var+2,f
skpnz
incf var+3,f