panel_01.pma

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

  ;73
  ;74
  ;75
  ;76
  ;77
  ;78
  M240=M290          ;79
  ;80
  If (M230 != M240)     ;81
  M230=M240     ;82
  ;83
  ;84
  ;85
  ;86
EndIf;87
M241=M292         ;89
If (M231 != M241)     ;90
M231=M241     ;91
EndIf;96
M976=M902|(M903*$2)|(M904*$4);127
M976=M976|(M924*$8)|(M906*$10);128
M976=M976|(M905*$20)|(M925*$40);129
M974 = M976;130
M935=M936|(M937*$2)|(M938*$4)|(M939*$8);134
M974 = M974 | (M935*$100);135
M942=M943|(M944*$2)|(M945*$4)|(M946*$8);138
M974 = M974 | (M942*$1000);139
M929=M927|(M928*$2);141
M974 = M974|(M929*$10000);142
M971 = M931|(M900*$2)|(M901*$4)|(M907*$8);155
M971=M971|(M926*$10)|(M958*$20);156
M959=M960|(M961*$2)|(M962*$4);161
M953=M954|(M955*$2)|(M956*$4);162
M948=M949|(M950*$2);163
M973 =M959|(M953*$8)|(M948*$40);165
M973=M973|(M908*$10000)|(M909*$20000);166
M973=M973|(M910*$40000)|(M911*$80000);167
M973=M973|(M912*$100000)|(M913*$200000);168
M973=M973|(M914*$400000)|(M915*$800000);169
M973=M973|(M916*$1000000)|(M917*$2000000);170
M973=M973|(M918*$4000000)|(M919*$8000000);171
M973=M973|(M920*$10000000)|(M921*$20000000);172
M973=M973|(M922*$40000000)|(M923*$80000000);173
M816=M817;182
M816=M816 & $F000;183
M816=M816 | (M1100);184
M816=M816 | (M1101*$2);185
M816=M816 | (M1102*$4);186
M816=M816 | (M1103*$8);187
M816=M816 | (M1104*$20);188
M816=M816 | (M1105*$40);189
M816=M816 | (M1106*$80);191
M816=M816 | (M1107*$100);192
M816=M816 | (M1108*$200);193
M816=M816 | (M1109*$400);194
M816=M816 | (M1110*$800);195
M816=M816 | (M1111*$1000);196
M816=M816 | (M1112*$2000);197
M816=M816 | (M1113*$2000);198
If (M817 != M816);199
  M817 = M816;200
EndIf;201
M237 = 0;207
M235 = 0;208
M237 = M720;210
M235 = M1120;211
M237 = M237 |(M721 * $2);212
M235 = M235 |(M1122 * $10);213
M237 = M237 |(M722 * $4);214
M235 = M235 |(M1124 * $100);215
M237 = M237 |(M723 * $8);216
M235 = M235 |(M1126 * $1000);217
M237 = M237 |(M724 * $10);218
M235 = M235 |(M1128 * $10000);219
M237 = M237 |(M725 * $20);220
M235 = M235 |(M1129 * $100000);221
M237 = M237 |(M726 * $40);222
M235 = M235 |(M1131 * $1000000);223
M237 = M237 |(M727 * $80);224
M235 = M235 |(M1133 * $10000000);225
M236 = M237;227
M234 = M235;228
If (M81 = 2 And P291 != 2);234
  P291 = 2;235
EndIf;236
If (P951 = 1);238
  M87=4;239
EndIf;240
If (M748 = 1);242
  M86=4;243
EndIf;244
If (M975 != M974);251
M975 = M974     ;253
If (M930 != M929);256
  M930 = M929;257
  M81 = M930;258
  If (M930 = 3);259
    M81 = 2;260
  EndIf;261
  If (M930 = 2);262
    M81 = 3;263
  EndIf;264
  ;265
  M61 = M81;266
  ;267
EndIf;268
If (P951 != 1);269
M87 = M942;270
Else;271
  M87=4;272
EndIf;273
If (M748 != 1);274
  M86 = M935;275
  M84  = M935;276
  M83 = M935;277
Else;278
  M86 = 4;279
EndIf;280
If (P911 = 5);283
  If (M976 & 16 != 16);284
    If (P907 = 0);285
      P907=1;286
    Else;287
      P907=0;288
    EndIf;289
    P911=0;290
  EndIf;291
EndIf;292
If (P911 = 1);294
  If (M976 & 1 != 1);295
    If (P903 = 0);296
      P903=1;297
    Else;298
      P903=0;299
    EndIf;300
    P911=0;301
  EndIf;302
EndIf;303
If (M81 = 2);307
If (P911 = 2);310
  If (M976 & 2 != 2);311
    If (P904 = 0);312
      P904=1;313
    Else;314
      P904=0;315
    EndIf;316
    P911=0;317
  EndIf;318
EndIf;319
If (P911 = 3);321
  If (M976 & 4 != 4);322
    If (P905 = 0);323
      P905=1;324
    Else;325
      P905=0;326
    EndIf;327
    P911=0;328
    ;329
  EndIf;330
EndIf;331
If (P911 = 4);333
  If (M976 & 8 != 8);334
    If (P906 = 0);335
      P906=1;336
    Else;337
      P906=0;338
    EndIf;339
    ;340
    ;341
    ;344
    ;345
    P911=0;346
  EndIf;347
EndIf;348
If (P911 = 6);350
  If (M976 & 32 != 32);351
    If (P908 = 0);352
      P908=1;353
    Else;354
      P908=0;355
    EndIf;356
    P911=0;357
  EndIf;358
EndIf;359
ENDIF;360
Else;375
  ;376
  ;377
  If (M976 & 16 = 16)       ;378
  P895=P895+1;379
  If (P895 > 3);380
    P895=0;381
    P911=5;382
    If (P907 = 1);383
      M15 = M15 & (M15 ^ 16);384
      M251 = M251 & (M251 ^ 32);385
    Else;386
      M15 = M15 | 16;387
      M251 = M251 | 32;388
    EndIf;389
  EndIf;390
EndIf;391
If (M976 & 1 = 1)     ;411
P891=P891+1;412
If (P891 > 3);413
  P891=0;414
  P911=1;415
  If (P903 = 1);416
    M15 = M15 & (M15 ^ 1);417
    M251 = M251 & (M251 ^ 1);418
  Else;419
    M15 = M15 | 1;420
    M251 = M251 | 1;421
    M251 = M251 & (M251 ^ 16);422
  EndIf;423
EndIf;424
EndIf;425
If (M81 = 2);429
If (M976 & 2 = 2)      ;433
P892=P892+1;434
If (P892 > 3);435
  P892=0;436
  P911=2;437
  If (P904 = 1);438
    M15 = M15 & (M15 ^ 2);439
    M251 = M251 & (M251 ^ 8);440
  Else;441
    M15 = M15 | 2;442
    M251 = M251 | 8;443
  EndIf;444
EndIf;445
EndIf;446
If (M976 & 4 = 4)      ;448
P893=P893+1;449
If (P893 > 3);450
  P893=0;451
  P911=3;452
  If (P905 = 1);453
    M15 = M15 & (M15 ^ 4);454
    M251 = M251 & (M251 ^ 4);455
  Else;456
    M15 = M15 | 4;457
    M251 = M251 | 4;458
  EndIf;459
EndIf;460
EndIf;461
If (M976 & 8 = 8)      ;463
P894=P894+1;464
If (P894 > 3);465
  P894=0;466
  P911=4;467
  If (P906 = 1);468
    M15 = M15 & (M15 ^ 8);469
    M251 = M251 & (M251 ^ 16);470
  Else;471
    If (M15 & 1 = 1);472
      P903 = 0;473
      M15 = M15 & (M15 ^ 1);474
      M251 = M251 & (M251 ^ 1);475
      M15 = M15 | 8;476
      M251 = M251 | 16;477
    Else;478
      M15 = M15 | 8;479
      M251 = M251 | 16;480
    EndIf;481
  EndIf;482
  ;483
EndIf;484
EndIf;485
If (M976 & 32 = 32)      ;487
P896=P896+1;488
If (P896 > 3);489
  P896=0;490
  P911=6;491
  If (P908 = 1);492
    M15 = M15 & (M15 ^ 64);493
    M80 = M80 & (M80 ^ 1);494
    M251 = M251 & (M251 ^ 2);495
  Else;496
    M15 = M15 | 64;497
    M80 = M80 | 1;498
    M251 = M251 | 2;499
  EndIf;500
EndIf;501
EndIf;502
ENDIF  ;503
If (M81 != 2);505
If (M976 & 64 = 64)      ;506
P897=P897+1;507
If (P897 > 3);508
  P897=0;509
  ;510
  M15 = M15 | 128;511
  M251 = M251 | 64;512
EndIf;513
Else;514
  M15 = M15 & (M15 ^ 128);515
  M251 = M251 & (M251 ^ 64);516
EndIf;517
ENDIF  ;518
EndIf;521
If (M972 != M973)       ;524
M972=M973           ;525
M93 = M953;527
If (M93 & 6 = 6);528
  M80 = M80 | 3;529
  M80 = M80 & (M80 ^ 2);530
Else;531
  M80 = M80 | 2;532
  M80 = M80 & (M80 ^ 3);533
EndIf;534
M82 = M959;536
M92 = M948;537
Else;540
  ;541
  If (M81 = 2);542
  If (M221 & 8388608 != 8388608);543
  If (M230 & 2048 = 2048);544
  M13 = M13 & (M13 ^ 2);545
  M10 = M10 & (M10 ^ 512);546
  M13 = M13 | 1;547
Else;548
  If (M230 & 4096 = 4096);549
  M13 = M13 & (M13 ^ 1);550
  M10 = M10 & (M10 ^ 512);551
  M13 = M13 | 2;552
Else;553
  M13 = M13 & (M13 ^ 1);554
  M13 = M13 & (M13 ^ 2);555
  M10 = M10 | 512;556
  ENDIF;557
  ENDIF;558
  ;559
  If (M230 & 8192 = 8192);560
  M13 = M13 & (M13 ^ 8);561
  M10 = M10 & (M10 ^ 512);562
  M13 = M13 | 4;563
Else;564
  If (M230 & 16384 = 16384);565
  M13 = M13 & (M13 ^ 4);566
  M10 = M10 & (M10 ^ 512);567
  M13 = M13 | 8;568
Else;569
  M13 = M13 & (M13 ^ 4);570
  M13 = M13 & (M13 ^ 8);571
  M10 = M10 | 512;572
  ENDIF;573
  ENDIF;574
  ;575
  If (M230 & 32768 = 32768);576
  M13 = M13 & (M13 ^ 128);577
  M10 = M10 & (M10 ^ 512);578
  M13 = M13 | 64;579
Else;580
  If (M230 & 65536 = 65536);581
  M13 = M13 & (M13 ^ 64);582
  M10 = M10 & (M10 ^ 512);583
  M13 = M13 | 128;584
Else;585
  M13 = M13 & (M13 ^ 64);586
  M13 = M13 & (M13 ^ 128);587
  M10 = M10 | 512;588
  ENDIF;589
  ENDIF;590
  ;591
  If (M230 & 131072 = 131072);592
  M13 = M13 & (M13 ^ 512);593
  M10 = M10 & (M10 ^ 512);594
  M13 = M13 | 256;595
Else;596
  If (M230 & 262144 = 262144);597
  M13 = M13 & (M13 ^ 256);598
  M10 = M10 & (M10 ^ 512);599
  M13 = M13 | 512;600
Else;601
  M13 = M13 & (M13 ^ 256);602
  M13 = M13 & (M13 ^ 512);603
  M10 = M10 | 512;604
  ENDIF;605
  ENDIF;606
  ;607
  If (M230 & 524288 = 524288);608
  M13 = M13 & (M13 ^ 131072);609
  M10 = M10 & (M10 ^ 512);610
  M13 = M13 | 65536;611
Else;612
  If (M230 & 1048576 = 1048576);613
  M13 = M13 & (M13 ^ 65536);614
  M10 = M10 & (M10 ^ 512);615
  M13 = M13 | 131072;616
Else;617
  M13 = M13 & (M13 ^ 65536);618
  M13 = M13 & (M13 ^ 131072);619
  M10 = M10 | 512;620
  ENDIF;621
  ENDIF;622
  ;623
  If (M230 & 2097152 = 2097152);624
  M13 = M13 & (M13 ^ 32);625
  M10 = M10 & (M10 ^ 512);626
  M13 = M13 | 16;627
Else;628
  If (M230 & 4194304 = 4194304);629
  M13 = M13 & (M13 ^ 16);630
  M10 = M10 & (M10 ^ 512);631
  M13 = M13 | 32;632
Else;633
  M13 = M13 & (M13 ^ 16);634
  M13 = M13 & (M13 ^ 32);635
  M10 = M10 | 512;636
  ENDIF;637
  ENDIF;638
  ;639
  If (M230 & 8388608 = 8388608);640
  M13 = M13 & (M13 ^ 8192);641
  M10 = M10 & (M10 ^ 512);642
  M13 = M13 | 4096;643
Else;644
  If (M230 & 16777216 = 16777216);645
  M13 = M13 & (M13 ^ 4096);646
  M10 = M10 & (M10 ^ 512);647
  M13 = M13 | 8192;648
Else;649
  M13 = M13 & (M13 ^ 4096);650
  M13 = M13 & (M13 ^ 8192);651
  M10 = M10 | 512;652
  ENDIF;653
  ENDIF;654
  ;655
  If (M230 & 33554432 = 33554432);656
  M13 = M13 & (M13 ^ 32768);657
  M10 = M10 & (M10 ^ 512);658
  M13 = M13 | 16384;659
Else;660
  If (M230 & 67108864 = 67108864);661
  M13 = M13 & (M13 ^ 16384);662
  M10 = M10 & (M10 ^ 512);663
  M13 = M13 | 32768;664
Else;665
  M13 = M13 & (M13 ^ 16384);666
  M13 = M13 & (M13 ^ 32768);667
  M10 = M10 | 512;668
  ENDIF;669
  ENDIF;670
  ;671
  ENDIF;672
  ENDIF   ;673
  ENDIF;674
  ;675
  ;676
  ;677
  ;678
  ;679
  ;680
  ;681
  ;682
  ;683
  If (M970 != M971)       ;684
  M970=M971           ;685
  ;686
  If (P912 = 2);687
  If (M970 & 2 != 2);688
  M10 = M10 & (M10 ^ 4096);689
  M10 = M10 & (M10 ^ 8192);690
  P912=0;691
  ENDIF;692
  ENDIF           ;693
  ;694
  If (P912 = 4)  ;695
  If (M970 & 4 != 4);696
  M10 = M10 & (M10 ^ 16384);697
  P912=0;698
  ENDIF;699
  ENDIF            ;700
  ;701
  If (P912 = 8);702
    If (M970 & 8 != 8);703
      M10 = M10 & (M10 ^ 2);704
      P912=0;705
    EndIf;706
  EndIf;707
  ;708
  ;709
  If (P912 = 16)  ;720
  If (M970 & 16 != 16);721
  If (P902 = 0);722
  P902=1;723
Else;724
  P902=0;725
  ENDIF;726
  ;727
  P912=0;728
  ENDIF;729
  ENDIF   ;730
  ;731
  ;732
  If (P912 = 32);733
    If (M970 & 32 != 32);734
      ;735
      P912=0;736
    EndIf;737
  EndIf;738
  ;739
Else;740
  ;741
  ;742
  ;743
  If (M970 & 2 = 2)  ;744
  P885=P885+1;745
  If (P885 > 3);746
    P885=0;747
    ;748
    If (M6 & 2 != 2) ;749
    If (M2 & 16384 = 16384) ;750
    P912=2;751
    M224 = 0;752
    M226 = 0;753
    M10 = M10 & (M10 ^ 4096);754
    ;755
    M251 = M251 & (M251 ^ 256);756
    M251 = M251 | 128;757
    M10 = M10 | 8192;758
  Else;759
    ;760
    ;766
    If (M14 & 4194304 != 4194304);767
      And (M334 = 1);768
      P912=2;769
      M10 = M10 & (M10 ^ 8192);770
      ;771
      M251 = M251 & (M251 ^ 256);772
      M10 = M10 | 4096;773
      M251 = M251 | 128;774
    EndIf;775
  EndIf;776
EndIf;777
EndIf;778
ENDIF;779
If (M970 & 4 = 4)    ;783
P887=P887+1;784
If (P887 > 3);785
P887=0;786
P912=4;787
M251 = M251 & (M251 ^ 128);789
M10 = M10 | 16384;790
If (M338 = 1)  ;791
M251 = M251 | 256;792
Else;793
  M251 = M251 & (M251 ^ 256);794
EndIf;795
ENDIF;797
ENDIF;798
If (M970 & 8 = 8);803
P888=P888+1;804
If (P888 > 3);805
P888=0;806
P912=8;807
M10 = M10 | 2;808
P950=1;809
P976 = 0;810
M281 = 2000 * 8388608/I10;811
EndIf;812
ENDIF;813
If (M970 & 32 = 32);819
P889=P889+1;820
If (P889 > 3);821
P889=0;822
P661 = 1   ;824
M251 = M251 & (M251 ^ 512);825
CMD "A";826
M860 = 0;827
M15 = M15 & (M15 ^ 32);829
P901=2;830
M283 = 2000 * 8388608/I10;831
ENDIF;832
Else;833
  M251 = M251 | 512;834
  ENDIF;835
  ;836
  If (P901 = 2);837
  If (M283 !> 0);838
  P901=0;839
  M11 = M11 | 134217728;840
  ENDIF;841
  ENDIF    ;842
  ;843
  If (M970 & 1 = 1) ;844
  ;845
  P663=0;856
  P900=1;857
  ;858
  ;859
If (p1120 = 0);862
  cmd"#1j/";863
  cmd"#2j/";864
  cmd"#3j/";865
  cmd"#4j/";866
  cmd"#5j/";867
  cmd"#6j/";868
  cmd"#7j/";869
  cmd"#8j/";870
  p1120=1;871
EndIf;872
ENDIF;874
If (P900 = 1);876
  ;877
  P900=0;878
  M15 = M15 | 32;879
  M250 = M250 | 16;880
  M250 = M250 | 268435456;881
  ;882
EndIf;883
If (M970 & 16 = 16);885
P890=P890+1;886
If (P890 > 3);887
P890=0;888
P912=16;889
If (P902 = 1);890
M251 = M251 | 1024;892
P1223 = 1;893
Else;894
  ;895
  M251 = M251 & (M251 ^ 1024);896
  P1223 = 0;897
EndIf;898
EndIf;899
ENDIF;900
If (M970 & 1 != 1) ;904
CMD^K;905
P663=1;906
M15 = M15 & (M15 ^ 32);907
p1120=0;910
M250 = M250 | 8 ;924
Else;925
  ;926
  M250 = M250 & (M250 ^ 8);927
  ENDIF;928
  ;929
EndIf    ;930
If (M3 & 134217728 = 134217728);936
M3=0;937
If (P899 = 0);938
  P899=1;939
  M283 = 60000 * 8388608/I10;940
EndIf;941
ENDIF;942
If (P899 = 1);944
  If (M283 !> 0);945
  ;946
  P899=0;947
  ;948
  M0=0;949
  M1=0;950
  M2=0;951
  M3=0;952
  M4=0;953
  M5=0;954
  M6=0;955
  M7=0;956
  ;957
  ;958
  P917=1;959
  ;960
  ;961
  ;962
  ENDIF        ;978
EndIf;979
If (p1221 = 0);981
  m1220=p1228-95000+p1220;982
EndIf;983
If (M250 != M260);991
  M260 = M250;992
  M291=M250 ;993
EndIf;994
If (M251 != M261);996
  M261=M251;997
  M293=M251;998
EndIf;999
EndWhile ;1001
CLOSE;1003
CLOSE