举一反三，两值互换。

FUNCTION FC 6 : VOID

TITLE =exchange two values

//exchange two values

VERSION : 0.1

VAR_INPUT

  method : WORD ;

END_VAR

VAR_IN_OUT

  first : WORD ;

  second : WORD ;

END_VAR

VAR_TEMP

  temp : WORD ;

END_VAR

BEGIN

NETWORK

TITLE =

//choose method 

      L     #method; 

      L     W#16#0; 

      ==I   ; 

      JC    m000; 

      L     #method; 

      L     W#16#1; 

      ==I   ; 

      JC    m001; 

      L     #method; 

      L     W#16#2; 

      ==I   ; 

      JC    m002; 

//method one

m000: L     #first; 

      L     #second; 

      T     #first; 

      TAK   ; 

      T     #second; 

      JU    m003; 

//method two

m001: L     #first; 

      T     #temp; 

      L     #second; 

      T     #first; 

      L     #temp; 

      T     #second; 

      JU    m003; 

//method 3

m002: L     #first; //a=a^b

      L     #second; 

      XOW   ; 

      T     #first; 

      L     #first; //b=b^a

      L     #second; 

      XOW   ; 

      T     #second; 

      L     #first; //a=a^b

      L     #second; 

      XOW   ; 

      T     #first; 

//quit

m003: SET   ; 

      SAVE  ;

    BE; 

END_FUNCTION