NAME: CSeg

     USE: Function to return the current value of the CS register.

     DEPENDENCY: None

     SYNTAX: CSeg

     RESULT: Word

     EXAMPLE: Value := CSeg;