offComm :: Int16 -> PP.Doc
offComm i = " // " <> sign <> int16HexFixed i'
  where (sign, i') | i < 0 = ("-", -i)
                   | otherwise = ("+", i)
offComm :: Int16 -> PP.Doc
offComm i = " // " <> sign <> int16HexFixed i'
  where (sign, i') | i < 0 = ("-", -i)
                   | otherwise = ("+", i)
offComm i = " // " <> sign <> int16HexFixed i'
  where (sign, i') | i < 0 = ("-", -i)
                   | otherwise = ("+", i)