BEGIN PGM 32 MM 
;
; +++ 27092001  RI   ZYKLUS TOLERANZ ERSTELLT.
; +++ 28052004  RI   Um Winkel erweitert. TA5 Q371
; 10.07.2007 CHA  Zyklus 32 neu implementiert fr TNC620
;                 HSC-MODE fehlt noch
; 23.02.2010 MHd  Added HSC-Mode
; 07.07.2014 MHd  Cycle32 is now ID 612
;
; Abbildung der Zyklus Parameter auf lokale Q-Variablen
; Q20: Toleranz T
; Q21: HSC-MODE
; Q22: Winkel-Toleranz TA
;

; Werte aus den Systemdaten holen
FN18: SYSREAD Q20 = ID30 NR48
FN18: SYSREAD Q21 = ID30 NR49
FN18: SYSREAD Q22 = ID30 NR50
;
; Zyklus erffnen
FN 17: SYSWRITE ID 612 NR98 =+1
;
; Alles zurcksetzen
FN 17: SYSWRITE ID 612 NR99 =+0
;
; berprfung T
FN 9: IF +Q20 IS DEFINED GOTO LBL 11
FN 9: IF 0 EQU 0 GOTO LBL 12
LBL 11
; Setzen T
FN 17: SYSWRITE ID 612 NR6 = +Q20
LBL 12
;
; berprfung HSC-MODE
FN 9: IF +Q21 IS DEFINED GOTO LBL 21
FN 9: IF 0 EQU 0 GOTO LBL 22
LBL 21
; Setzen HSC-MODE
FN 17: SYSWRITE ID 612 NR36 = +Q21
FN 17: SYSWRITE ID 612 NR37 = +Q21
LBL 22
;
; berprfung TA
FN 9: IF +Q22 IS DEFINED GOTO LBL 31
FN 9: IF 0 EQU 0 GOTO LBL 99
LBL 31
; Setzen TA
FN 17: SYSWRITE ID 612 NR12 = +Q22
;
LBL 99
; Zyklus schliessen
FN 17: SYSWRITE ID 612 NR98 =+0
END PGM 32 MM 
