Periferia analógica C7
BEGIN
//*** Distinción entre margen de medida unipolar o bipolar ***
L Límite inferior;
L 0.0;
<R;
SPB bipo;
L DW#16#0000_0000;
T LIF;
SPA rech;
bipo: NOP 0;
L W#16#9400;
ITD;
T LIF;
//*** Cálculo del margen (hexadecimal) ***
rech: NOP 0;
L W#16#6C00;
ITD;
L LIF;
–D;
T MARGEN_HEX;
//*** Referir el valor teórico con respecto al margen de medida total ***
L Límite superior;
L Límite inferior;
–R;
T MARGEN_DEC;
L Valor teórico;
L Límite inferior;
–R;
L MARGEN_DEC;
/R;
T PORCENJ;
//*** Calcular patrón hexadecimal a emitir ***
L MARGEN_HEX;
DTR;
L PORCENJ;
*R;
L LIF;
DTR;
+R;
RND;
T CANAL;
7-40
// ¿Límite inferior negativo?
// SI => margen de medida bipolar
// Límite inferior de margen unipolar
// Límite inferior de margen bipolar
// Lím. sup. igual para margen unipolar
// y bipolar
// Memorizar diferencia
// Calcular margen
// Referir el valor teórico al margen total
// Referir el valor hexadecimal con respecto al
// margen total
// Añadir offset
// Convertir número real a número entero
// de 32 bits
// Emitir resultado
Equipos completos C7-633, C7-634
C79000-G7078-C634-01