getCsSyszOp :: IO CsSysZOp
getCsSyszOp = do
    ptr <- mallocArray (sizeOf csSyszOp) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszOpImm :: Int32)
    poke (plusPtr ptr 8) (19237 :: Int64)
    peek (castPtr ptr) <* free ptr
getCsSyszOp :: IO CsSysZOp
getCsSyszOp = do
    ptr <- mallocArray (sizeOf csSyszOp) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszOpImm :: Int32)
    poke (plusPtr ptr 8) (19237 :: Int64)
    peek (castPtr ptr) <* free ptr
getCsSyszOp = do
    ptr <- mallocArray (sizeOf csSyszOp) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszOpImm :: Int32)
    poke (plusPtr ptr 8) (19237 :: Int64)
    peek (castPtr ptr) <* free ptr