Siemens SINUMERIK 828D

H2: Auxiliary function outputs to PLC
8.13 Block-search response
Basic Functions
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
457
N1130
N1140 ISIMPL=$AC_AUXFU_SPEC[GROUPINDEX[LAUF]] BAND'H2000'
N1150
N1180 IF ISSYNACT ;
;
Assemble a block for the M auxiliary
function output
N1190 ASSEMBLED= ASSEMBLED << "WHEN TRUE DO "
N1200 ENDIF
N1210 ; Implicitly generated M19 is mapped to SPOS[SPI(<spindle no.>)] = IC(0).
N1230 IF (ISIMPL AND ($AC_AUXFU_VALUE[GROUPINDEX[LAUF]==19))
N1240 ASSEMBLED= ASSEMBLED << "SPOS[SPI(" <<
$AC_AUXFU_EXT[GROUPINDEX[LAUF]] << ")=IC(0)"
N1260 ELSE
N1270 ASSEMBLED= ASSEMBLED << "M[" << $AC_AUXFU_EXT[GROUPINDEX[LAUF]] << "]="
N1280
N1290 IF ISQUICK
N1300 ASSEMBLED= ASSEMBLED << "QU("
N1310 ENDIF
N1320
N1330 ASSEMBLED= ASSEMBLED << $AC_AUXFU_VALUE[GROUPINDEX[LAUF]]
N1340
N1350 IF ISQUICK
N1360 ASSEMBLED= ASSEMBLED << ")"
N1370 ENDIF
N1380 ENDIF
N1400 ENDIF
N1420 ENDFOR
N1430
N1450 WRITE(ERROR,FILENAME,ASSEMBLED) ; Write an auxiliary function block to a file.
N1460
N1470 IF ISSYNACT
N1480 ASSEMBLED="G4 F0.001"
N1490 WRITE(ERROR,FILENAME,ASSEMBLED)
N1500 ENDIF
N1510
N1520 ELSE
N1540 WRITE(ERROR,FILENAME,ASSEMBLED) ; Write an auxiliary function block to a file.
N1550 ENDIF
N1560
Program code Comment