handle_03.pma

基于PMAC运动控制卡的八轴数控磨床PLC运动控制程序

M1022->D:$6022;15
M970->Y:$60FE7,0,8,U;22
M971->Y:$60FF7,0,8,U;23
M975->DP:$60FFB;25
M974->DP:$60FEB;26
M972->DP:$60FEA;28
M973->DP:$60FFA      ;29
        ;31
M976->Y:$60FFC,0,8,U;33
M900->Y:$60FE0,0,1;35
M901->Y:$60FE0,1,1;36
M902->Y:$60FE0,2,1;37
M903->Y:$60FE0,3,1;38
M904->Y:$60FE0,4,1;39
M905->Y:$60FE0,5,1;40
M906->Y:$60FE0,6,1;41
M907->Y:$60FE0,7,1;42
M908->Y:$60FE0,11,1;43
M909->Y:$60FE0,12,1;44
M910->Y:$60FE0,13,1;45
M911->Y:$60FE0,14,1;46
M912->Y:$60FE0,15,1;47
M913->X:$60FE0,0,1;48
M914->X:$60FE0,1,1;49
M915->X:$60FE0,2,1;50
M916->X:$60FE0,3,1;51
M917->X:$60FE0,4,1;52
M918->X:$60FE0,5,1;53
M919->X:$60FE0,6,1;54
M920->X:$60FE0,7,1;55
M921->X:$60FE0,8,1;56
M922->X:$60FE0,9,1;57
M923->X:$60FE0,10,1;58
M924->X:$60FE0,11,1;59
M925->X:$60FE0,12,1;60
M926->X:$60FE0,13,1;62
M927->X:$60FE0,14,1;63
M928->X:$60FE0,15,1;64
M929->X:$60FE2,0,4,U;66
M930->X:$60FF2,4,8;67
M931->Y:$60FF1,0,1;70
M932->Y:$60FF1,1,1;71
M933->Y:$60FF1,2,1;72
M934->Y:$60FF1,3,1;73
M935->Y:$60FF3,0,4;75
M936->Y:$60FF1,4,1            ;76
M937->Y:$60FF1,5,1           ;77
M938->Y:$60FF1,6,1             ;78
M939->Y:$60FF1,7,1       ;79
       ;80
M940->Y:$60FF1,8,1;82
M941->Y:$60FF1,9,1;83
M947->Y:$60FF1,10,1;84
M951->Y:$60FF1,11,1;85
M942->Y:$60FF3,4,4;87
M943->Y:$60FF1,12,1                    ;88
M944->Y:$60FF1,13,1                   ;89
M945->Y:$60FF1,14,1                   ;90
M946->Y:$60FF1,15,1        ;91
       ;92
M948->X:$60FF3,0,4;95
M949->X:$60FF1,1,1                    ;96
M950->X:$60FF1,2,1           ;97
         ;98
M953->X:$60FF3,4,4;102
M954->X:$60FF1,5,1                 ;103
M955->X:$60FF1,6,1                   ;104
M956->X:$60FF1,7,1          ;105
          ;106
M957->X:$60FF1,8,1;107
M958->X:$60FF1,9,1;108
M959->X:$60FF3,8,4;110
M960->X:$60FF1,10,1             ;111
M961->X:$60FF1,11,1             ;112
M962->X:$60FF1,12,1        ;113
         ;114
M963->X:$60FF1,13,1;115
M965->X:$60FF1,15,1;117
M1030->Y:$60FE8,0,1                      ;119
M1031->Y:$60FE8,1,1           ;120
M1032->Y:$60FE8,2,1                    ;121
M1033->Y:$60FE8,3,1                       ;122
M1034->Y:$60FE8,4,1  ;123
M1035->Y:$60FE8,5,1                  ;125
M1036->Y:$60FE8,6,1               ;126
M1037->Y:$60FE8,7,1                      ;127
M1038->Y:$60FE8,8,1                   ;128
M1039->Y:$60FE8,9,1                  ;129
M1040->Y:$60FE8,10,1                   ;130
M1041->Y:$60FE8,11,1                  ;131
M1042->Y:$60FE8,12,1                    ;132
M1043->Y:$60FE8,13,1                     ;133
M1044->Y:$60FE8,14,1                    ;134
M1045->Y:$60FE8,15,1                   ;135
M1046->X:$60FE8,0,1                        ;136
M1047->X:$60FE8,1,1                       ;137
M1048->X:$60FE8,2,1                      ;138
M1049->X:$60FE8,2,1                      ;139
M1050->X:$60FE8,4,1                 ;140
M1051->X:$60FE8,5,1                  ;141
M1052->X:$60FE8,6,1             ;142
M1053->X:$60FE8,7,1                ;143
M1054->X:$60FE8,8,1                  ;144
M1055->X:$60FE8,9,1                     ;145
M1056->X:$60FE8,10,1                   ;146
M1057->X:$60FE8,11,1              ;147
M1058->X:$60FE8,12,1           ;148
M1059->X:$60FE8,13,1             ;149
M1070->X:$60FE8,14,1        ;150
 ;151
M1060->Y:$60FE9,0,1                    ;153
M1061->Y:$60FE9,1,1                       ;154
M1062->Y:$60FE9,2,1                      ;155
M1063->Y:$60FE9,3,1                      ;156
M1064->Y:$60FE9,4,1                        ;157
M1065-> Y:$60FE9,5,1                 ;158
M1066->Y:$60FE9,6,1                      ;159
M1067->Y:$60FE9,7,1                   ;160
M1068-> Y:$60FE9,8,1                        ;161
M1069-> Y:$60FE9,9,1          ;162
          ;163
M1114->Y:$0240,0,1;169
M1100->X:$78000,17,1;172
M1101->X:$78004,17,1;173
M1105->X:$78104,17,1;174
M1102->X:$78008,17,1;175
M1103->X:$7800C,17,1;176
M1104->X:$78100,17,1;177
M1105->X:$78104,17,1;178
M1106->X:$78000,16,1;180
M1107->X:$78004,16,1;181
M1111->X:$78104,16,1;182
M1108->X:$78008,16,1;183
M1109->X:$7800C,16,1;184
M1110->X:$78100,16,1;185
M1112->X:$78108,16,1;186
M1113->X:$7810C,16,1;187
M1115->X:$60F58,8,1   ;189
M1120->X:$78000,20,4;191
M1121->X:$000B4,0,24,S;192
M1122->X:$78008,20,4;193
M1123->X:$00134,0,24,S;194
M1129->X:$78208,20,4;195
M1130->X:$00334,0,24,S;196
M1124->X:$78100,20,4;197
M1125->X:$001B4,0,24,S;198
M1126->X:$78108,20,4;199
M1127->X:$00234,0,24,S;200
M1128->X:$78200,20,4;201
M1129->X:$002B4,0,24,S;202
M1129->X:$78208,20,4;203
M1130->X:$00334,0,24,S;204
M1131->X:$78300,20,4;205
M1132->X:$003B4,0,24,S;206
M1133->X:$78308,20,4;207
M1134->X:$00434,0,24,S;208
M1000->X:$60FF5,8,4;210
M1001->X:$78000,16,8;211
M1002->X:$78008,16,8;212
M1003->X:$78100,16,8;213
M1004->X:$78108,16,8;214
M1005->X:$78200,16,8;215
M1006->X:$78208,16,8;216
M1007->X:$78300,16,8;217
M1008->X:$78308,16,8;218
M817->Y:$60FF5,0,16;225
M816->Y:$60FE5,0,16;226
M818->Y:$230,19,1;229
M819->X:$0000B0,21,1;233
M820->X:$0000B0,22,1;234
M821->X:$000130,21,1;235
M822->X:$000130,22,1;236
M823->X:$0001B0,21,1;237
M824->X:$0001B0,22,1;238
M865->X:$000230,21,1;239
M866->X:$000230,22,1;240
M867->X:$0002B0,21,1;241
M868->X:$0002B0,22,1;242
M869->X:$000330,21,1;243
M870->X:$000330,22,1;244
M836->D:$00008B;246
M837->D:$00010B;247
M838->D:$00030B;248
M839->X:$00009D,0,24,S;249
M840->X:$00011D,0,24,S;250
M841->X:$00031D,0,24,S;251
M860->Y:$C080,0,8;253
M861->Y:$C080,8,8;254
M862->Y:$C080,16,8;255
M863->Y:$C081,0,8;256
M705->Y:$002103,0,24,U;257
M704->X:$002102,0,24,S;258
 ;259
M720->X:$78000,15,1;260
M721->X:$78008,15,1;261
M722->X:$78100,15,1;262
M723->X:$78108,15,1;263
M724->X:$78200,15,1;264
M725->X:$78202,15,1;265
M726->X:$78300,15,1;266
M727->X:$78308,15,1;267
M730->Y:$0000C0,0,24,U;269
M731->Y:$000140,0,24,U;270
M732->Y:$0001C0,0,24,U;271
M733->Y:$000240,0,24,U;272
M734->Y:$0002C0,0,24,U;273
M735->Y:$000340,0,24,U;274
M736->Y:$0003C0,0,24,U;275
M737->Y:$000440,0,24,U;276
M740->Y:$000086,0,24,S;278
M741->Y:$000106,0,24,S;279
M742->Y:$000306,0,24,S;280
M746->Y:$60FE7,8,4,U;284
M747->Y:$60FE7,12,4,U;285
M748->X:$60F59,5,1;287
M1840->DP:$60F84;289
 m1220->X:$078107,0,24,S;290
  m1221->X:$078104,11,1;291
 m1222->X:$078104,12,1;292
 m1223->X:$078104,13,1;293
 m1226->X:$078104,16,1;294
m1227->y:$00034e,0,24,S;295
 m1228->X:$078106,0,24,S;296
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
 ;130
 ;135
;C:\Lynuc\CNC\PLC\handle_03.pmc
OPEN PLC 3 CLEAR;9
If (M92 & 1 = 1)  ;22
M47=1;23
Else If (M92 & 2 = 2);24
  M47=10;25
  ;26
Else If (M92 & 4 = 4);27
  M47=100;28
EndIf EndIf EndIf;29
While (M81 = 2) ;32
If (M15 & 64 = 64);33
  ;34
  If (M71 = 0 Or M71 > 2 Or M6 & 64 = 64);35
    ;36
    ;37
    ;38
    M280 = 70 * 8388608/I10;39
    While (M280 > 0);40
    EndWhile;41
    ;42
    ;43
    ;44
    ;45
    ;46
    ;47
    ;48
      If (M82 = 1 And P1223 = 0 And M819 = 0 And M820 = 0);49
        i106=1;50
        i206=0;51
        i306=0;52
        i406=0;53
        i506=0;54
        i606=0;55
        i706=0;56
        i806=0;57
        ;58
        ;59
        ;60
        i107=30*M47;61
        ;62
      EndIf;63
      ;64
      ;65
      If (M82 = 2 And P1223 = 0 And M821 = 0 And M822 = 0);66
        i106=0;67
        i206=1;68
        i306=0;69
        i406=0;70
        i506=0;71
        i606=0;72
        i706=0;73
        i806=0;74
        i207=30*M47;75
      EndIf;76
      ;77
      ;78
      ;79
      If (M82 = 4 And P1223 = 0 And M823 = 0 And M824 = 0);80
        i106=0;81
        i206=0;82
        i306=1;83
        i406=0;84
        i506=0;85
        i606=0;86
        i706=0;87
        i806=0;88
        i307=30*1.31072*M47;89
      EndIf;90
      ;91
      ;92
      If (M82 = 8 And P1223 = 0 And M865 = 0 And M866 = 0);93
        i106=0;94
        i206=0;95
        i306=0;96
        i406=1;97
        i506=0;98
        i606=0;99
        i706=0;100
        i806=0;101
        i407=30*1.31072*M47;102
      EndIf;103
      ;104
      ;105
      If (M82 = 1 And P1223 = 1 And M867 = 0 And M868 = 0);106
        i106=0;107
        i206=0;108
        i306=0;109
        i406=0;110
        i506=1;111
        i606=0;112
        i706=0;113
        i806=0;114
        i507=30*7.554844*M47;115
      EndIf;116
      ;117
      ;118
      If (M82 = 2 And P1223 = 1 And M869 = 0 And M870 = 0);119
        i106=0;120
        i206=0;121
        i306=0;122
        i406=0;123
        i506=0;124
        i606=1;125
        i706=0;126
        i806=0;127
        i607=3*M47;128
      EndIf;129
      ;130
      ;131
      ;132
      ;133
      If (M82 = 4 And P1223 = 1);134
        i106=0;135
        i206=0;136
        i306=0;137
        i406=0;138
        i506=0;139
        i606=0;140
        i706=1;141
        i806=0;142
        i707=30*M47;143
      EndIf;144
      ;145
      ;146
      If (M82 = 8 And P1223 = 1);147
        i106=0;148
        i206=0;149
        i306=0;150
        i406=0;151
        i506=0;152
        i606=0;153
        i706=0;154
        i806=1;155
        i807=30*M47;156
      EndIf;157
      ;158
    EndIf;159
    ;160
  Else  ;161
        i106=0;162
        i206=0;163
        i306=0;164
        i406=0;165
        i506=0;166
        i606=0;167
        i706=0;168
        i806=0   ;169
  EndIf;170
EndWhile;171
While (P456 > 1 And M81 != 2);177
  If (M15 & 128 = 128);178
    If (M71 = 0 Or M71 > 2 Or M6 & 64 = 64);179
      ;180
      ;181
      M280 = 70 * 8388608/I10;182
      While (M280 > 0);183
      EndWhile;184
      ;185
      ;186
      ;187
      If (M82 = 4 And P1223 = 0 And M823 = 0 And M824 = 0);188
        ;189
        i106=0;190
        i206=0;191
        i306=1;192
        i406=0;193
        i506=0;194
        i606=0;195
        i706=0;196
        i806=0;197
        i307=30*1.31072*M47;198
      EndIf;199
      ;200
      ;201
      If (M82 = 8 And P1223 = 0 And M865 = 0 And M866 = 0);202
        i106=0;203
        i206=0;204
        i306=0;205
        i406=1;206
        i506=0;207
        i606=0;208
        i706=0;209
        i806=0;210
        i407=30*1.31072*M47;211
      EndIf;212
      ;213
    EndIf;214
  Else  ;215
        ;216
        i106=0;217
        i206=0;218
        i306=0;219
        i406=0;220
        i506=0;221
        i606=0;222
        i706=0;223
        i806=0;224
  EndIf;225
EndWhile;226
If (M81 != 2 And M7 & 128 != 128);230
  ;231
EndIf;232
CLOSE;234
CLOSE