回复:【SCL编程案例】generiert vom SCL 躡ersetzer Version

第7代CNC

  • 帖子

    848
  • 精华

    3
  • 被关注

    95

论坛等级:奇侠

注册时间:2009-11-29

钻石 钻石 如何晋级?

发布于 2025-06-13 15:18:08

1楼

A7d0: SET   

      =     #tmpStatus.Err

      L     1

      T     #tmpStatus.Cat

      L     L#-2147483618

      T     #tmpStatus.ID

      JU    A001

A7d1: L     #tmp_Address

      AD    DW#16#FFFF

      T     #GET_PART.ID

      L     #Offset

      T     #GET_PART.OFFSET

      L     8

      T     #GET_PART.LEN

      L     DW#16#10020008

      T     DID [AR2,P#54.0]

      L     DIW [AR2,P#34.0]

      T     DIW [AR2,P#58.0]

      L     DID [AR2,P#36.0]

      T     DID [AR2,P#60.0]

      +AR2  P#40.0

      UC    "GETIO_PART"

      +AR2  P#8152.0

      A     #GET_PART.ERROR

      JCN   A7d2

      SET   

      =     #tmpStatus.Err

      L     4

      T     #tmpStatus.Cat

      L     #GET_PART.STATUS

      T     #tmpStatus.ID

      JU    A001

A7d2: L     DIW [AR2,P#34.0]

      T     LW   114

      TAK   

      OPN   DB [LW 114]

      L     DID [AR2,P#36.0]

      LAR1  

      TAK   

      CLR   

      A      [AR1,P#32.0]

      JCN   A000

      L     #Address

      L     8

      +I    

      T     #tmp_Address

      AD    DW#16#FFFF

      T     #GET_PART.ID

      L     #Offset

      T     #GET_PART.OFFSET

      L     8

      T     #GET_PART.LEN

      L     DW#16#10020008

      T     DID [AR2,P#54.0]

      L     DIW [AR2,P#34.0]

      T     DIW [AR2,P#58.0]

      L     DID [AR2,P#36.0]

      +     L#64

      T     DID [AR2,P#60.0]

      +AR2  P#40.0

      UC    "GETIO_PART"

      +AR2  P#8152.0

      A     #GET_PART.ERROR

      JCN   A7d4

      SET   

      =     #tmpStatus.Err

      L     4

      T     #tmpStatus.Cat

      L     #GET_PART.STATUS

      T     #tmpStatus.ID

      JU    A001

A7d4: L     DIW [AR2,P#34.0]

      T     LW   114

      TAK   

      OPN   DB [LW 114]

      L     DID [AR2,P#36.0]

      LAR1  

      TAK   

      L     D [AR1,P#0.0]

      T     LD    10

      L     D [AR1,P#4.0]

      T     LD    14

      L     D [AR1,P#8.0]

      T     LD    18

      L     D [AR1,P#12.0]

      T     LD    22

      L     D [AR1,P#16.0]

      T     LD    26

      L     D [AR1,P#20.0]

      T     LD    30

      L     D [AR1,P#24.0]

      T     LD    34

      L     D [AR1,P#28.0]

      T     LD    38

      L     D [AR1,P#32.0]

      T     LD    42

      L     D [AR1,P#36.0]

      T     LD    46

      L     D [AR1,P#40.0]

      T     LD    50

      L     D [AR1,P#44.0]

      T     LD    54

      L     D [AR1,P#48.0]

      T     LD    58

      L     D [AR1,P#52.0]

      T     LD    62

      L     D [AR1,P#56.0]

      T     LD    66

      L     D [AR1,P#60.0]

      T     LD    70

      L     D [AR1,P#64.0]

      T     LD    74

      L     D [AR1,P#68.0]

      T     LD    78

      L     D [AR1,P#72.0]

      T     LD    82

      L     D [AR1,P#76.0]

      T     LD    86

      L     D [AR1,P#80.0]

      T     LD    90

      L     D [AR1,P#84.0]

      T     LD    94

      L     D [AR1,P#88.0]

      T     LD    98

      L     D [AR1,P#92.0]

      T     LD   102

      L     D [AR1,P#96.0]

      T     LD   106

      L     W [AR1,P#100.0]

      T     LW   110

      CLR   

      =     L    112.2

      L     W#16#0

      T     LW   114

      L     DW#16#87000050

      T     LD   116

      TAR2  LD   136

      UC    "FPC_MAPPING"

            P#L 112.2

            P#L 112.3

            P#L 114.0

      LAR2  LD   136

      A     L    112.3

      NOT   

      =     #tmpStatus.Err

      A     #tmpStatus.Err

      JCN   A7d5

      L     1

      T     #tmpStatus.Cat

      L     L#0

      T     #tmpStatus.ID

      JU    A001

A7d5: L     LD    10

      L     DIW [AR2,P#34.0]

      T     LW   114

      TAK   

      OPN   DB [LW 114]

      L     DID [AR2,P#36.0]

      LAR1  

      TAK   

      T     D [AR1,P#0.0]

      L     LD    14

      T     D [AR1,P#4.0]

      L     LD    18

      T     D [AR1,P#8.0]

      L     LD    22

      T     D [AR1,P#12.0]

      L     LD    26

      T     D [AR1,P#16.0]

      L     LD    30

      T     D [AR1,P#20.0]

      L     LD    34

      T     D [AR1,P#24.0]

      L     LD    38

      T     D [AR1,P#28.0]

      L     LD    42

      T     D [AR1,P#32.0]

      L     LD    46

      T     D [AR1,P#36.0]

      L     LD    50

      T     D [AR1,P#40.0]

      L     LD    54

      T     D [AR1,P#44.0]

      L     LD    58

      T     D [AR1,P#48.0]

      L     LD    62

      T     D [AR1,P#52.0]

      L     LD    66

      T     D [AR1,P#56.0]

      L     LD    70

      T     D [AR1,P#60.0]

      L     LD    74

      T     D [AR1,P#64.0]

      L     LD    78

      T     D [AR1,P#68.0]

      L     LD    82

      T     D [AR1,P#72.0]

      L     LD    86

      T     D [AR1,P#76.0]

      L     LD    90

      T     D [AR1,P#80.0]

      L     LD    94

      T     D [AR1,P#84.0]

      L     LD    98

      T     D [AR1,P#88.0]

      L     LD   102

      T     D [AR1,P#92.0]

      L     LD   106

      T     D [AR1,P#96.0]

      L     LW   110

      T     W [AR1,P#100.0]

A000: SET   

      =     L    112.1

      CLR   

      =     #Status.Err

      L     0

      T     #Status.Cat

      L     L#0

      T     #Status.ID

      A     #Status.Err

      =     #Error

      A     L    112.1

      SAVE  

      BEU   

A001: CLR   

      =     L    112.1

      A     #tmpStatus.Err

      =     #Status.Err

      L     #tmpStatus.Cat

      T     #Status.Cat

      L     #tmpStatus.ID

      T     #Status.ID

      A     #tmpStatus.Err

      =     #Error

      A     L    112.1

      SAVE  

      BE



《图解数控机床维修必备技能与实战速成》《实用数控加工手册》《车辆轮轴加工与组装》
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SINUMERIK

共有25500条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。