HEIDENHAIN TNC 426 PB/M Technical Manual page 906

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