SWAP                  Exchange Hi/Lo bytes of Integer                pp 144

 Syntax:  Swap (IntVar) ;

 Type:    Integer

 Form:    Function

 Purpose: Exchange high and low bytes of integer variable.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          IntVar : Integer ;  { Declare integer variable           }

       BEGIN
          IntVar := $1234  ;  { Set to hex value $1234 for clarity }
          Swap IntVar      ;  { IntVar = $3412 after swap          }
       END.