O #regist //Auftrag schon im FIFO?
ON #Req // oder kein Req gesetzt ?
JC FERT

O "gp_par".NCKomm

O #progtest
JC OPOK
L B#16#7 //Fehler:7, wenn Option nicht gesetzt
T #State
S #Error
BEU

OPOK: A #flanke
= #temp_flanke
A #Req
FP #temp_flanke //flanke erst nach FB6-Aufruf schreiben, falls vorher POWER OFF
JCN FERT
//neuer Auftrag

AN "NC".E_NCKready

JC FER1
L B#16#0
L #NumVar
==I
JC FE12
L B#16#8
<=I
JC PAOK
FE12: L B#16#C //Fehler:12, Parameterpruefung
T #State
S #Error
JC END

// endif _FM
PAOK: L P##Error
TAR2
AD DW#16#FFFFFF //Multiinstanzfaehig
+D
T #PError
L P##RD1
TAR2
AD DW#16#FFFFFF //Multiinstanzfaehig
+D
T #PRD1
L P##ident
TAR2
AD DW#16#FFFFFF //Multiinstanzfaehig
+D
T #Pident

L DINO
T #ref
TAR2 #P_dianf
L P##Pident //letztes Datum in Instanz
AD DW#16#FFFFFF //Bereich ausblenden
SRD 3
+ 4
T #di_teillen

L B#16#4 //lesen
T #ident

CALL FB 6 , DB15
fkt :=B#16#1 //append
auftrag :=#ref //Nr. der Instanz
diTeilLen :=#di_teillen
PdiTeilAnf:=#P_dianf


SET
S #flanke

FERT: A #Req
JC END
FER1: R #NDR
R #Error
R #regist
R #run
R #flanke
L B#16#0
T #State
T #err_cls_cod
T #err_stat
END: BE