Fagor CNC 8055 T Manual De Ejemplos página 50

Parte 3: "Muestra el estado de las salidas O1 a O18"
Líneas de programa (programa principal).
N300 (PAGE3) ........................................... Muestra la página 3
(KEY = 0 ) ..................................... Borra memoria de última tecla pulsada
N310 (P100=PLCO1) ................................. Asigna al parámetro P100 el valor de las salidas O1 a O32
(P199=85) ....................................... Fila en la que se debe colocar el símbolo
(CALL 3) ......................................... Llamada a subrutina (coloca símbolos)
(P100=PLCO10) ............................... Asigna al parámetro P100 el valor de las salidas O10 a O41
(P199=155) ..................................... Fila en la que se debe colocar el símbolo
(CALL 3) ......................................... Llamada a subrutina (coloca símbolos)
(IF KEY EQ $FFA5 GOTO N200) ... Si se ha pulsado "página anterior", continúa en la línea N200
(IF KEY EQ $FFAF GOTO N400) ... Si se ha pulsado "página siguiente", continúa en la línea N400
(GOTO N310) ................................... Si no, refresca el estado de las salidas
Líneas de programa (subrutina que indica el estado de una fila de salidas).
Esta subrutina analiza los 10 bits de menor peso del parámetro P100. Si el bit tiene valor 1 coloca el símbolo
21 (lámpara encendida, color rojo) y si tiene valor 0 coloca el símbolo 22 (lámpara apagada, color fondo).
Parámetros de llamada:
- P100 = Valor de las salidas que se desean visualizar.
- P199 = Fila en la que se deben colocar los símbolos.
(SUB 3)
(IF (P100 AND 1) EQ 0 SYMBOL 22,105,P199 ELSE SYMBOL 21,105,P199)
(IF (P100 AND 2) EQ 0 SYMBOL 22,155,P199 ELSE SYMBOL 21,155,P199)
(IF (P100 AND 4) EQ 0 SYMBOL 22,205,P199 ELSE SYMBOL 21,205,P199)
(IF (P100 AND 8) EQ 0 SYMBOL 22,255,P199 ELSE SYMBOL 21,255,P199)
(IF (P100 AND $10) EQ 0 SYMBOL 22,305,P199 ELSE SYMBOL 21,305,P199)
(IF (P100 AND $20) EQ 0 SYMBOL 22,355,P199 ELSE SYMBOL 21,355,P199)
(IF (P100 AND $40) EQ 0 SYMBOL 22,405,P199 ELSE SYMBOL 21,405,P199)
(IF (P100 AND $80) EQ 0 SYMBOL 22,455,P199 ELSE SYMBOL 21,455,P199)
(IF (P100 AND $100) EQ 0 SYMBOL 22,505,P199 ELSE SYMBOL 21,505,P199)
(RET)
(parte 2)
(parte 4)
M - T -
ANUAL DE EJEMPLOS
47