FUNCTION FC 101 : VOID
TITLE =
//Bouwsteen is alleen getest op CPU 313 C
//Ch0..Ch3 loopt van 27648 tot -27648 (6C00h..9400h)normaal.
//Ch4 hoeft niet bewerkt te worden: hierin staat de waarde in
//graden C/F of Kelvin, in units van 0,1 graad of Kelvin.
AUTHOR : DREIJER
VERSION : 0.1


VAR_INPUT
  IN_ADR : WORD ;	
  MAXVAL : INT ;	
  ZEROVAL : INT ;	
END_VAR
VAR_OUTPUT
  ANA_OUT : WORD ;	
  ERROR : BOOL ;	
END_VAR
VAR_TEMP
  FACTOR : WORD ;	
  SHIFT : WORD ;	
  RANGE : WORD ;	
END_VAR
BEGIN
NETWORK
TITLE =unipolair

//aantal delen uitrekenen
      L     #MAXVAL; 
      L     #ZEROVAL; 
      -I    ; 
      T     #RANGE; 
// 
//verhouding input/output
      L     27648; 
      L     #RANGE; 
      /I    ; 
      T     #FACTOR; 

      L     #ZEROVAL; 
      T     #SHIFT; 
// 
//input in pointer zetten
//      L     #ANA_ADR
//      T     #INREG
// 
//output berekenen
//      L     PEW [#INREG]
      L     #IN_ADR; 
      L     #FACTOR; 
      *I    ; 
      L     #SHIFT; 
      -I    ; 
      T     #ANA_OUT; 

END_FUNCTION