BEGIN PGM nc\NCK/SetTrafoToolAx.h MM ; hncc 1.35_2011_08_18
CALL LBL "$MAIN"                                       ; END
FN 9: IF 0 EQU 0 GOTO LBL "EOF_SETTRAFOTOOLAX"         ; SetTrafoToolAx.hpp:7
LBL "$MAIN"                                            ; SetTrafoToolAx.hpp
QL0  = 3                                               ; SetTrafoToolAx.hpp:6
CALL LBL "$F12"                                        ; call swap_axes( 3 )
LBL "EO_MAIN"                                          ; SetTrafoToolAx.hpp:6
LBL 0                                                  ; SetTrafoToolAx.hpp:6
LBL "$F12"                                             ; tncgeo.hpp
 FN 10: IF QL0  NE 3  GOTO LBL "IFNOT20_0"             ; tncgeo.hpp:337
 FN 18: SYSREAD Q0 = ID 20 NR 3                        ; tncgeo.hpp:339
  FN 10: IF Q0  NE -1  GOTO LBL "IFNOT20_1"            ; tncgeo.hpp:339
  FN 14: ERROR= 1001                                   ; tncgeo.hpp:341
  LBL "IFNOT20_1"                                      ; tncgeo.hpp:341
 FN 18: SYSREAD Q0 = ID 990 NR 2 IDX 16                ; tncgeo.hpp:344
 FN 9: IF Q0  EQU 0  GOTO LBL "EO_12"                  ; tncgeo.hpp:344
 FN 18: SYSREAD Q0 = ID 992 NR 20                      ; tncgeo.hpp:345
 FN 10: IF Q0  NE 0  GOTO LBL "EO_12"                  ; tncgeo.hpp:345
 LBL "IFNOT20_0"                                       ; tncgeo.hpp:346
FN 17: SYSWRITE ID 212 = QL0                           ; tncgeo.hpp:348
LBL "EO_12"                                            ; SetTrafoToolAx.hpp:342
LBL 0                                                  ; SetTrafoToolAx.hpp:342
LBL "EOF_SETTRAFOTOOLAX"                               ; SetTrafoToolAx.hpp:7
END PGM MM
