HEIDENHAIN TNC 430 PA - Page 906

December 2001 PLC Program Example 7 – 57
77 LBL MPS_READ_SUBMIT 63 LBL MPs_read_Submit
78 L K0 64 L K+0
79 = W4080 65 = WL_Index_Reg
80 =X 66 =X
81 REPEAT 67 REPEAT
82 PS KF MP_READ_TABLE[ 68 PS KF MP_Read_Table[X]
83 INCX 69 INCX
84 PS KF MP_READ_TABLE[ 70 PS KF MP_Read_Table[X]
85 CM 9032 71 CM 9032
86 INCX 72 INCX
87 L KF MP_READ_TABLE[X 73 L KF MP_Read_Table[X]
88 = B4066 74 = BL_Case
89 INCX 75 INCX
90 L KF MP_READ_TABLE[X 76 L KF MP_Read_Table[X]
91 =X 77 =X
92 CASE B4066 78 CASE BL_Case
93 CM PL_BYTE_INDEX 79 CM PL_Byte_Index
94 CM PL_WORD_INDEX 80 CM PL_Word_Index
95 CM PL_DWORD_INDEX 81 CM PL_DWord_Index
96 ENDC 82 ENDC
97 L W4080 83 L WL_Index_Reg
98 + K4 84 + K+4
99 = W4080 85 = WL_Index_Reg
100 =X 86 =X
101 L KF MP_READ_TABLE[X 87 L KF MP_Read_Table[X]
102 < K0 88 < K+0
103 UNTILT 89 UNTILT
90
105 L K0 91 L K+0
106 =X 92 =X
107 REPEAT 93 REPEAT
108 PS KF AXISNUMBER[X] 94 PS KF AxisNumber[X]
109 PS K2 ; AXIS UNDER C 95 PS K+2 ; Axis under control (0=no, 1=yes)
110 CM 9038 96 CM 9038
111 PS KF AXISNUMBER[X] 97 PS KF AxisNumber[X]
112 PS K8 ; AXIS DIGITAL 98 PS K+8 ; Axis digital control
113 CM 9038 99 CM 9038
100
115 PLW 101 PLW
116 A[ 102 A[
117 PLW 103 PLW
118 ] 104 ]
119 <> K0 105 <> K+0
120 S M3982[X] 106 S MG_active_PWM_axis[X]
121 INCX 107 INCX
122 LX 108 LX
123 > K5 109 > K+5
124 UNTILT 110 UNTILT
111
126 ;-----Spindle Bit fr 112 ;-----Spindle Bit from Bit 5 into Bit 15 copieren
127 LB M3982 113 LB MG_active_PWM_axis
128 = W4082 114 = WG_Active_PWM_Axis
129 L M3987 115 L MG_active_PWM_axis_S
130 IFT 116 IFT
131 L W4082 117 L WG_Active_PWM_Axis
132 A K$1F 118 A K$001F
133 O K$8000 119 O K$8000
134 = W4082 120 = WG_Active_PWM_Axis
135 ENDI 121 ENDI
136 EM 122 EM
123
138 LBL PL_BYTE_INDEX 124 LBL PL_Byte_Index
139 PL B0[X] 125 PL B0[X]
140 EM 126 EM
127
142 LBL PL_WORD_INDEX 128 LBL PL_Word_Index
143 LX 129 LX
144 / K2 ;TYPE CASTING F 130 / K+2 ;Type casting from Word to Index:=Byte adress
145 =X 131 =X
146 PL W0[X] 132 PL W0[X]
147 EM 133 EM
134
149 LBL PL_DWORD_INDEX 135 LBL PL_DWord_Index
150 LX 136 LX
151 / K4 ;TYPE CASTING F 137 / K+4 ;Type casting from DWord Index:=Byte adress
152 =X 138 =X
153 PL D0[X] 139 PL D0[X]
154 EM 140 EM
141
K0 142 #define KL_Byte_Type K$00
K1 143 #define KL_Word_Type K$01
K2 144 #define KL_DWord_Type K$02
145
K0 146 #define KL_Index_0 K$00
K1 147 #define KL_Index_1 K$01
K2 148 #define KL_Index_2 K$02
K3 149 #define KL_Index_3 K$03
K4 150 #define KL_Index_4 K$04
K5 151 #define KL_Index_5 K$05
152
PLC program example