error_04.56k

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

  Q90 = 1;379
  RETURN;380
  ;381
  ;382
  ;383
  N91000;384
  ;385
  ;386
  M173 = 91;387
  Q90 = 0  ;388
  RETURN;389
  ;390
  ;391
  ;392
  N92000;393
  DWELL0;394
  READ(A,B,C,U,V,W,X,Y,Z,S);395
  M170 = 92;396
  ;397
  ;398
  ;399
  ;400
  ;401
  ;432
    ;433
    RETURN;438
    ;439
    ;440
    ;441
    ;442
    ;443
    N92100;444
    M170 = 1092;445
    ;446
    ;447
    ;448
    ;449
    ;450
    ;451
    ;452
    RETURN;453
    ;454
    ;455
    ;456
    ;457
    N94000;458
    M175 = 94;459
    ;460
    RETURN;461
    ;462
    ;463
    ;464
    ;465
    N97000;466
    ;467
    M183 = 97;468
    RETURN;469
    ;470
    ;471
    ;472
    ;473
    ;474
    ;475
    ;476
    ;477
    ;478
    N4;479
    ;480
    ;481
    ;482
    IF (M10 & 4 = 4);483
      STOP;484
    ENDIF;485
    RETURN;486
    ;487
    ;488
    ;489
    N54;490
    Q200 = 0;491
    Q203 = 0;492
    Q206 = 0;493
    Q209 = 0;494
    Q212 = 0;495
    Q215 = 0;496
    Q218 = 0;497
    Q221 = 0;498
    Q224 = 0;499
    IF (Q100&$01 > 0);500
      Q200 = Q101;501
    ENDIF;502
    IF (Q100&$02 > 0);503
      Q203 = Q102;504
    ENDIF;505
    IF (Q100&$04 > 0);506
      Q206 = Q103;507
    ENDIF;508
    IF (Q100&$800000 > 0);509
      Q209 = Q124;510
    ENDIF;511
    IF (Q100&$1000000 > 0);512
      Q212 = Q125;513
    ENDIF;514
    IF (Q100&$2000000 > 0);515
      Q215 = Q126;516
    ENDIF;517
    IF (Q100&$100000 > 0);518
      Q218 = Q121;519
    ENDIF;520
    IF (Q100&$200000 > 0);521
      Q221 = Q122;522
    ENDIF;523
    IF (Q100&$400000 > 0);524
      Q224 = Q123;525
    ENDIF;526
    M118 = Q200 + Q201 + Q254;527
    M119 = Q203 + Q204 + Q255;528
    M120 = Q206 + Q207 + Q256;529
    M121 = Q209 + Q210 + Q257;530
    M122 = Q212 + Q213 + Q258;531
    M123 = Q215 + Q216 + Q259;532
    M124 = Q218 + Q219 + Q260;533
    M125 = Q221 + Q222 + Q261;534
    M126 = Q224 + Q225 + Q262;535
    RETURN;536
    ;537
CLOSE;538
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\oemm.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\TSODICK1.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\TSODICK2.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
;C:\Lynuc\CNC\PLC\TSODICK3.h
;C:\Lynuc\CNC\PLC\grinder8a_m_mu.pmc
OPEN PROG 1001 CLEAR;37
 ;40
    ;41
    ;42
    N30000;43
    DWELL0;44
    DWELL100;45
    ;46
    ;47
    ;48
    ;49
    M1840=1 ;50
    LINEAR;51
    DWELL0;52
    RETURN;53
    ;54
    ;55
    ;56
    N98000;57
    RETURN;58
    ;59
    ;60
    N99000;61
    ;62
    RETURN;63
    ;64
CLOSE;65
;C:\Lynuc\CNC\PLC\error_04.pmc
CLOSE;27
I5113=100;29
I5189=300;30
I5198=600;31
I5190=60000;32
I5186=300;33
I5213=100;35
I5289=300;36
I5298=300;37
I5290=60000;38
I5313=100;40
I5389=1000;41
I5398=20000;42
I5390=60000;43
I5387=0;44
I5388=50;45
I180=1 ;48
I280=1;49
I380=1;50
I480=1;51
I580=1;52
I680=1;53
I780=1;54
I880=1;55
I169=32767 ;57
I269=32767;58
I369=32767;59
I469=32767;60
I569=32767;61
I669=32767;62
I769=32767;63
I869=32767;64
I129=-0.9  ;76
I130=5500;77
I131=580;78
I132=580;79
I133=230;80
I229=5;82
I230=4800;83
I231=400;84
I232=400;85
I233=100;86
I329=95;89
I330=5000;90
I331=120;91
I332=120;92
I333=120;93
I429=4;95
I430=6800;96
I431=20;97
I432=20;98
I433=500;99
I529=-260;101
I530=4900;102
I531=100;103
I532=100;104
I533=2500;105
I630=7800;107
I631=200;108
I632=200;109
I633=500;110
I7020=3   ;113
I7012=11   ;114
I123=-166.7/2  ;119
I223=166.7/2;120
I323=218.45/2;121
I423=218.45/2;122
I523=2266.44/10;123
I623=16.7/2;124
&1;128
#1->10000X+300000;129
#2->10000Y+750000;130
#5->75548.44C+0;131
&2;134
#3->13107.2U+0;135
#4->13107.2V+589824;136
&3;137
#6->1000Z+95000;138
I113=0  ;159
I114=0;160
I213=0;161
I214=0;162
I313=0;163
I314=0;164
I413=0;165
I414=0;166
I513=0;167
I514=0;168
I613=0;169
I614=0;170
I100=1  ;175
I200=1;176
I300=1;177
I400=1;178
I500=1;179
I600=1;180
I111=100000 ;184
I211=100000;185
I311=100000;186
I411=100000;187
I511=100000;188
I611=100000;189
I711=100000;190
I811=100000;191
I124=$400000 ;194
I224=$400000;195
I324=$400000;196
I424=$400000;197
I524=$400000;198
I624=$400000;199
I724=$400000;200
I824=$400000;201
I128=16000 ;203
I228=16000 ;204
I328=1600 ;205
I528=16000 ;206
I116=166.7 ;216
I216=166.7;217
I316=218.45 ;218
I416=218.45;219
I516=2266.44/3 ;220
I616=16.7;221
I117=1.95625 ;225
I217=1.95625;226
I317=1.95625;227
I417=1.95625;228
I517=1.95625;229
I617=1.95625;230
I717=1.95625;231
I817=1.95625;232
I119=1.95625;234
I219=1.95625;235
I319=1.95625;236
I419=1.95625;237
I519=1.95625;238
I619=1.95625;239
I719=1.95625;240
I819=1.95625;241
P1030=10;243
P1027=0  ;244
P1230=0  ;245
P1031=40 ;246
P1030=10 ;247
P1034=64  ;248
P1035=166.7 ;251
P1036=166.7;252
P1037=218.45;253
P1038=218.45;254
P1039=100;255
P1040=16.7;256
P1041=100;257
P1042=100;258
WY:$3509,$378800,$008005,$001000;268
I2=1;269
I106=1;270
I105=$350B;271
I108=96;272
I107=30;273
I206=0;276
I205=$350B;277
I208=96;278
I207=30;279
I306=0;281
I305=$350B;282
I308=96;283
I307=30*1.3107.2;284
I406=0;286
I405=$350B;287
I408=96;288
I407=30*1.3107.2;289
I506=0;291
I505=$350B;292
I508=96;293
I507=30*7.554844;294
I606=0;296
I605=$350B;297
I608=96;298
I607=3;299
I706=0;301
I705=$350B;302
I708=96;303
I707=30;304
I806=0;306
I805=$350B;307
I808=96;308
I807=30;309
OPEN PLC 4 CLEAR;311
P902=0;313
P903=0;314
P904=0;315
P905=0;316
P906=0;317
P907=0;318
P908=0;319
P909=0;320
P910=0;321
P630 = 0;324
P631 = 0;325
P632 = 0;326
P633 = 0;327
P634 = 0;328
P635 = 0;329
P636 = 0;330
P637 = 0;331
P650=0;332
WHILE (1 < 2);333
  ;334
  ;335
  ;336
  ;337
  ;338
  ;446
  IF (M819 > 0);447
  M250 = M250 | 65536;448
ELSE;449
  M250 = M250 & (M250 ^ 65536);450
ENDIF;451
IF (M820 > 0);452
  M250 = M250 | 131072;453
ELSE;454
  M250 = M250 & (M250 ^ 131072);455
ENDIF;456
IF (M821 > 0);458
M250 = M250 | 262144;459
ELSE;460
  M250 = M250 & (M250 ^ 262144);461
ENDIF;462
IF (M822 > 0);463
  M250 = M250 | 524288;464
ELSE;465
  M250 = M250 & (M250 ^ 524288);466
ENDIF;467
IF (M823 > 0);469
M250 = M250 | 1048576;470
ELSE;471
  M250 = M250 & (M250 ^ 1048576);472
ENDIF;473
IF (M824 > 0);474
  M250 = M250 | 2097152;475
ELSE;476
  M250 = M250 & (M250 ^ 2097152);477
ENDIF;478
IF (M865 > 0);480
M250 = M250 | 4194304;481
ELSE;482
  M250 = M250 & (M250 ^ 4194304);483
ENDIF;484
IF (M866 > 0);485
  M250 = M250 | 8388608;486
ELSE;487
  M250 = M250 & (M250 ^ 8388608);488
ENDIF;489
IF (M867 > 0);491
M250 = M250 | 16777216;492
ELSE;493
  M250 = M250 & (M250 ^ 16777216);494
ENDIF;495
IF (M868 > 0);496
  M250 = M250 | 33554432;497
ELSE;498
  M250 = M250 & (M250 ^ 33554432);499
ENDIF;500
IF (M869 > 0);502
M250 = M250 | 67108864;503
ELSE;504
  M250 = M250 & (M250 ^ 67108864);505
ENDIF;506
IF (M870 > 0);507
  M250 = M250 | 134217728;508
ELSE;509
  M250 = M250 & (M250 ^ 134217728);510
ENDIF;511
  ;528
  IF (M730 & $20 = $20 OR P630 = 1);529
    M221 = M221 | 256;530
    P630=1;531
  ENDIF;532
  ;533
  IF (M731 & $20 = $20 OR P631 = 1);534
    M221 = M221 | 512;535
    P631=1;536
  ENDIF;537
  ;538
  IF (M732 & $20 = $20 OR P632 = 1);539
    M221 = M221 | 1024;540
    P632=1;541
  ENDIF;542
  ;543
  IF (M733 & $20 = $20 OR P633 = 1);544
    M221 = M221 | 2048;545
    P633=1;546
  ENDIF;547
  ;548
  IF (M734 & $20 = $20 OR P634 = 1);549
    M221 = M221 | 4096;550
    P634=1;551
  ENDIF;552
  ;553
  IF (M735 & $20 = $20 OR P635 = 1);554
    M221 = M221 | 8192;555
    P635=1;556
  ENDIF;557
  ;558
  IF (M736 & $20 = $20 OR P636 = 1);559
    M221 = M221 | 262144;560
    P636=1;561
  ENDIF;562
  ;563
  IF (M737 & $20 = $20 OR P637 = 1);564
    M221 = M221 | 524288;565
    P637=1;566
  ENDIF;567
  ;568
  IF (M221 & 256 = 256);569
    OR (M221 & 512 = 512);570
    OR (M221 & 1024 = 1024);571
    OR (M221 & 2048 = 2048);572
    OR (M221 & 4096 = 4096);573
    OR (M221 & 8192 = 8192);574
    OR (M221 & 262144 = 262144);575
    OR (M221 & 524288 = 524288);576
    IF (P1101 = 0);577
      SENDP"FATAL: MOTOR OVERLOAD ERR";578
      P1101=1;579
    ENDIF;580
  ELSE;581
    P1101=0;582
  ENDIF;583
  ;584
  ;585
  IF (M231 & 2147483648 = 2147483648);586
    P857=P857+1;587
    IF (P857 > 3);588
      P857=0;589
      M222 = M222 | 2147483648;590
      IF (P1102 = 0);591
        SENDP"STOP: MOTOR AIR LOW ERR";592
        P1102=1;593
      ENDIF;594
    ENDIF;595
  ELSE;596
    P1102=0;597
  ENDIF;598
  ;599
  IF (M231 & 536870912 = 536870912);600
    P859=P859+1;601
    IF (P859 > 3);602
      P859=0;603
      M222 = M222 | 536870912;604
      IF (P1103 = 0);605
        SENDP"STOP: PUMP COLD ALM ERR";606
        P1103=1;607
      ENDIF;608
    ENDIF;609
  ELSE;610
    P1103=0;611
  ENDIF;612
  ;613
  ;614
  ;627
  ;628
  ;629
  ;630
  ;631
  ;632
  ;633
  ;634
  ;635
  ;636
  ;637
  IF (M970 & 1 != 1) ;638
  P846=P846+1;639
  IF (P846 > 3);640
    P846=0;641
    M222 = M222 | 8192;642
    M250 = M250 & (M250 ^ 2) ;643
    M250 = M250 & (M250 ^ 4);644
    ;645
    ;646
    IF (P1105 = 0);647
      SENDP"STOP: PUMP LIQUID LEVER ERR";648
      P1105=1;649
    ENDIF;650
  ENDIF;651
ELSE;652
  M250 = M250 | 2;653
  M250 = M250 | 4;654
  P1105=0;655
ENDIF;656
IF (M81 = 2 AND P975 = 1);659
  IF (M819 > 0);660
    OR (M820 > 0);661
    OR (M821 > 0);662
    OR (M822 > 0);663
    OR (M823 > 0);664
    OR (M824 > 0);665
    OR (M865 > 0);666
    OR (M866 > 0);667
    OR (M867 > 0);668
    OR (M868 > 0);669
    OR (M869 > 0);670
    OR (M870 > 0);671
    IF (P976 > 0);672
      M221 = M221 | 8388608;673
      IF (P1106 = 0);674
        SENDP"FATAL: MANUAL LIMIT ERR";675
        P1106=1;676
      ENDIF;677
    ENDIF;678
  ELSE;679
    P976 = 1;680
    P1106=0;681
  ENDIF;682
ENDIF;683
IF (P934 != M71);687
P934=M71;688
IF (M71 = 1);690
CMD"A";691
P952=0;692
ENDIF;693
IF (M71 = 2);695
CMD"A";696
P952=0;697
ENDIF;698
IF (M71 = 3 AND P650 = 0);700
P952=0;701
M10 = M10 | 16384;702
M281 = 300 * 8388608/I10;703
P650 = 1;704
ENDIF;705
IF (M71 = 4);707
P952=0;708
ENDIF;709
ENDIF;710
IF (P650 = 1 AND M281 !> 0);712
  M10 = M10 & (M10 ^ 16384);713
  P650 = 0;714
ENDIF;715
IF (P950 = 1);718
  IF (M281 !> 0);719
  P950 = 0;720
  M860 = 0;721
  ENDIF;722
ENDIF;723
ENDWHILE;725
ENABLE PLC4;726
CLOSE;727
CLOSE