標(biāo)題: 利用廢舊光驅(qū),制作激光雕刻機(jī) 上位機(jī)和C51單片機(jī)源程序 [打印本頁]

作者: onesimpleman    時(shí)間: 2016-1-13 15:24
標(biāo)題: 利用廢舊光驅(qū),制作激光雕刻機(jī) 上位機(jī)和C51單片機(jī)源程序
根據(jù)大神提供的程序,終于做出來了,用51的單片機(jī)控制光驅(qū)內(nèi)的步進(jìn)電機(jī),組成X,Y軸,雕刻圖案


源碼預(yù)覽:
  1. /*z地址定義
  2. 50 1=x+,2=x-,3=y+,4=y-
  3. 51 前進(jìn)后退步數(shù)高
  4. 52 前進(jìn)后退步數(shù)低
  5. 53
  6. 54/55 字寬
  7. 56
  8. 57 弱光開關(guān)
  9. 58/59 激光強(qiáng)度
  10. 60 x軸速度
  11. 61 y軸速度
  12. 62 開始打印0,57
  13. 63 暫停
  14. 64 停止標(biāo)志
  15. 65
  16. 66  左右標(biāo)記
  17. 100開始時(shí)灰度圖數(shù)據(jù)
  18. */

  19. #include <reg52.h>
  20. #define uint unsigned int
  21. #define uchar unsigned char
  22. #define N z[60]           //X速度
  23. #define M z[61]           //Y速度
  24. sbit a=P1^0;//步進(jìn)電機(jī)接線定義
  25. sbit a_=P1^1;
  26. sbit b=P1^2;
  27. sbit b_=P1^3;
  28. sbit xa=P0^0;
  29. sbit xa_=P0^1;
  30. sbit xb=P0^2;
  31. sbit xb_=P0^3;
  32. sbit jg=P2^0;
  33. sbit led=P2^1;//指示燈
  34. uchar xdata z[500]={0};//緩存
  35. uchar buff[3];//串口緩存
  36. uchar x1,x0,y1,y0,cont2=0;
  37. uchar xfb=4,yfb=4;//走步標(biāo)志位


  38. unsigned char HighRH = 0;  //高電平重載值的高字節(jié)
  39. unsigned char HighRL = 0;  //高電平重載值的低字節(jié)
  40. unsigned char LowRH  = 0;  //低電平重載值的高字節(jié)
  41. unsigned char LowRL  = 0;  //低電平重載值的低字節(jié)



  42. void delayms(uint xms)                                
  43. {   
  44.         uint i,j;
  45.         for(i=xms;i>0;i--)                      //i=xms即延時(shí)約xms毫秒
  46.                 for(j=110;j>0;j--);
  47. }

  48. /* 配置并啟動(dòng)PWM,fr-頻率,dc-占空比 */
  49. void ConfigPWM(unsigned int fr, unsigned char dc)
  50. {
  51.     unsigned int  high, low;
  52.     unsigned long tmp;
  53.    
  54.     tmp  = (11059200/12) / fr;  //計(jì)算一個(gè)周期所需的計(jì)數(shù)值
  55.     high = (tmp*dc) / 100;      //計(jì)算高電平所需的計(jì)數(shù)值
  56.     low  = tmp - high;          //計(jì)算低電平所需的計(jì)數(shù)值
  57.     high = 65536 - high + 12;   //計(jì)算高電平的重載值并補(bǔ)償中斷延時(shí)
  58.     low  = 65536 - low  + 12;   //計(jì)算低電平的重載值并補(bǔ)償中斷延時(shí)
  59.     HighRH = (unsigned char)(high>>8); //高電平重載值拆分為高低字節(jié)
  60.     HighRL = (unsigned char)high;
  61.     LowRH  = (unsigned char)(low>>8);  //低電平重載值拆分為高低字節(jié)
  62.     LowRL  = (unsigned char)low;
  63.     TMOD &= 0xF0;   //清零T0的控制位
  64.     TMOD |= 0x01;   //配置T0為模式1
  65.     TH0 = HighRH;   //加載T0重載值
  66.     TL0 = HighRL;
  67.     ET0 = 1;        //使能T0中斷
  68.     TR0 = 1;        //啟動(dòng)T0
  69.     jg = 0;     //輸出低電平,關(guān)閉激光
  70. }
  71. /* 關(guān)閉PWM */
  72. void ClosePWM()
  73. {
  74.     TR0 = 0;     //停止定時(shí)器0
  75.     ET0 = 0;     //禁止定時(shí)器0中斷
  76.     jg = 0;  //輸出低電平,關(guān)閉激光
  77. }
  78. /* T0中斷服務(wù)函數(shù),產(chǎn)生PWM輸出 */
  79. void InterruptTimer0() interrupt 1
  80. {
  81.     if (jg == 0)  //當(dāng)前輸出為低電平時(shí),裝載高電平值并輸出高電平
  82.     {
  83.         TH0 = LowRH;
  84.         TL0 = LowRL;
  85.         jg = 1;
  86.     }
  87.     else              //當(dāng)前輸出為高電平時(shí),裝載低電平值并輸出低電平
  88.     {
  89.         TH0 = HighRH;
  90.         TL0 = HighRL;
  91.         jg = 0;
  92.     }
  93. }



  94. void xfor(uint i)                //x軸前進(jìn)函數(shù),前進(jìn)多少步
  95. {   
  96.   while(1)
  97.   {
  98.                 if(xfb==4)
  99.                   {
  100.          xa=xb=1;
  101.                xb_=xa_=0;
  102.                      xfb=1;
  103.                      i--;                        
  104.                delayms(N);
  105.                      if(i==0){xa=xb=0; break;}
  106.                   }
  107.                    if(xfb==1)
  108.                   {
  109.          xb=xa_=1;
  110.                xa=xb_=0;
  111.                      xfb=2;
  112.                      i--;        
  113.                delayms(N);
  114.                      if(i==0){xa_=xb=0; break;}
  115.                   }
  116.                    if(xfb==2)
  117.                   {
  118.          xa_=xb_=1;
  119.          xb=xa=0;
  120.                      xfb=3;        //走步標(biāo)志位
  121.                      i--;
  122.                delayms(N);
  123.                      if(i==0){xa_=xb_=0; break;}
  124.                    }
  125.                    if(xfb==3)
  126.                   {
  127.          xa_=xb=0;
  128.                xb_=xa=1;
  129.                      xfb=4;
  130.                      i--;        
  131.                delayms(N);
  132.                      if(i==0){xa=xb_=0; break;}
  133.                   }


  134.                 }

  135. }


  136. void xbac(uint i)                //xxx后退函數(shù)
  137. {   
  138.      while(1)
  139.          {
  140.                 if(xfb==1)
  141.                   {
  142.          xa_=xb=0;
  143.                xb_=xa=1;
  144.                      xfb=4;
  145.                      i--;                                //走步標(biāo)志位
  146.                delayms(N);
  147.                      if(i==0){xa=xb_=0; break;}
  148.                    }
  149.                    if(xfb==4)
  150.                   {
  151.          xa_=xb_=1;
  152.          xb=xa=0;
  153.                      xfb=3;
  154.                      i--;        
  155.                delayms(N);
  156.                      if(i==0){xa_=xb_=0; break;}
  157.                    }
  158.                    if(xfb==3)
  159.                   {
  160.          xb=xa_=1;
  161.                xa=xb_=0;
  162.                      xfb=2;        //走步標(biāo)志位
  163.                      i--;        
  164.                delayms(N);
  165.                      if(i==0){xa_=xb=0; break;}
  166.                    }
  167.                    if(xfb==2)
  168.                   {
  169.          xa=xb=1;
  170.                xb_=xa_=0;
  171.                      xfb=1;
  172.                      i--;        
  173.                delayms(N);
  174.                      if(i==0){xa=xb=0; break;}
  175.                   }
  176.                 }
  177. }



  178. void yfor(uint i)                //y軸前進(jìn)函數(shù)
  179. {   
  180.      while(1)
  181.      {
  182.                switch(yfb)
  183.                    {
  184.                      case 4:{a=b=1; b_=a_=0; yfb=1; i--; delayms(M); if(i==0){a=b=0;break;}}
  185.                                  case 1:{b=a_=1; a=b_=0; yfb=2; i--; delayms(M); if(i==0){a_=b=0;break;}}
  186.                                  case 2:{a_=b_=1; b=a=0; yfb=3; i--; delayms(M); if(i==0){a_=b_=0;break;}}
  187.                                  case 3:{b_=a=1; a_=b=0; yfb=4; i--; delayms(M); if(i==0){a=b_=0;break;}}
  188.                    }
  189.                    if(i==0)  break;
  190.       }
  191. }

  192. void ybac(uint i)                //yy后退函數(shù)
  193. {   
  194.      while(1)
  195.      {
  196.                switch(yfb)
  197.                    {
  198.                      case 1:{a=b_=1; b=a_=0; yfb=4; i--; delayms(M); if(i==0){a=b_=0;break;}}
  199.                                  case 4:{b_=a_=1; a=b=0; yfb=3; i--; delayms(M); if(i==0){a_=b_=0;break;}}
  200.                                  case 3:{a_=b=1; b_=a=0; yfb=2; i--; delayms(M); if(i==0){a_=b=0;break;}}
  201.                                  case 2:{b=a=1; a_=b_=0; yfb=1; i--; delayms(M); if(i==0){a=b=0;break;}}
  202.                    }
  203.                    if(i==0)  break;
  204.       }
  205. }

  206. void dazi(uint zik)//打印函數(shù)                   ******打印函數(shù)已更改******
  207. {
  208.     uint x;
  209.                 jg=0;

  210.                         for(x=0;x<zik;x++)//執(zhí)行zik個(gè)循環(huán),x軸右移zik步
  211.                         {
  212.                           while(z[63]);//暫停等待
  213.                                 if(z[64]==1) break;//停止標(biāo)志 跳出循環(huán)
  214.                                 jg=1;//開激光
  215.                                 delayms((z[99+x]*(z[58]*256+z[59]))/100);
  216.                             jg=0;  //關(guān)閉激光
  217.                         if(z[66]==1)
  218.                         {
  219.                         xbac(1);
  220.                         }        
  221.              else
  222.                          {
  223.                          xfor(1);
  224.                          }                        
  225.                         }         
  226.                 if(z[64==1])    z[64]=0;
  227.             else{yfor(1);} //y軸進(jìn)一行
  228.             z[62]=0;//一行打印完成
  229.                 SBUF=1;//發(fā)送信息,表示打印完成
  230.                
  231. }

  232. /* 串口配置函數(shù),baud-通信波特率 */
  233. void ConfigUART(unsigned int baud)
  234. {
  235.     SCON  = 0x50;  //配置串口為模式1
  236.     TMOD &= 0x0F;  //清零T1的控制位
  237.     TMOD |= 0x20;  //配置T1為模式2
  238.     TH1 = 256 - (11059200/12/32)/baud;  //計(jì)算T1重載值
  239.     TL1 = TH1;     //初值等于重載值
  240.     ET1 = 0;       //禁止T1中斷
  241.     ES  = 1;       //使能串口中斷
  242.     TR1 = 1;       //啟動(dòng)T1
  243. }


  244. void chuanlo() interrupt 4
  245. {
  246.   if(RI)
  247.   {
  248.      buff[cont2]=SBUF;//每次3字節(jié),地址高,地址低,數(shù)據(jù),,
  249.    
  250.            cont2++;
  251.      if(cont2==3)//每收3個(gè)字節(jié),把數(shù)據(jù)寫入地址中
  252.            {
  253.             z[(buff[0]*256)+buff[1]]=buff[2];
  254.                   cont2=0;
  255.                  SBUF=0;  //*****************在這里加入這行代碼測試一下*******************************
  256.            }
  257.          RI=0;


  258.    
  259.   }
  260.   if(TI)
  261.    {
  262.    TI=0;

  263.    }
  264. }

  265. main()
  266. {  
  267.    EA=1;
  268.    P0=0xff;
  269.    ConfigUART(9600)        ;
  270.         z[60]=15;//默認(rèn)的參數(shù)
  271.         z[61]=15;
  272.         z[56]=1;
  273.         z[62]=0;
  274.         jg=0;
  275.         cont2=0;
  276.         
  277.    while(1)
  278.    {
  279.                                                                                                                       //        *****此處已更改******

  280.     if(z[57]==100){ConfigPWM(100, 98);delayms(10);}         //上位機(jī)指令處理,打開弱光定位,頻率100Hz,占空比98%                                                                     
  281.     else if(z[57]==1)   jg=1;                                                   //打開強(qiáng)光
  282.         else   { ClosePWM(); delayms(10);}
  283.          
  284.           if(cont2!=0) led=0;  else led=1;//指示通信是否可用
  285.       if(z[50]==1){xfor(z[51]*256+z[52]);z[50]=0;}//x+
  286.           if(z[50]==2){xbac(z[51]*256+z[52]);z[50]=0;}//x-
  287.           if(z[50]==3){yfor(z[51]*256+z[52]);z[50]=0;}//y+
  288.           if(z[50]==4){ybac(z[51]*256+z[52]);z[50]=0;}//y-

  289.          
  290.       if(z[62])//開始打印標(biāo)志
  291.           {
  292.             dazi(z[54]*256+z[55]);
  293.           }
  294.    
  295.   }

  296. }
復(fù)制代碼


2015.07.02.rar

517.61 KB, 下載次數(shù): 690, 下載積分: 黑幣 -5

上位機(jī)和C51源程序


作者: 51hei社區(qū)    時(shí)間: 2016-1-13 22:35
真是好資料啊,趕緊收藏,樓主多上幾張作品的圖啊 能提供一下原理圖嗎?
作者: 雪玉寐影    時(shí)間: 2016-1-18 16:15
DIY雕刻機(jī),好多人都在做。。。。。。
作者: thestronger    時(shí)間: 2016-1-18 21:50
mark一下備用
作者: AOP    時(shí)間: 2016-1-18 23:12
謝謝分享。。。。

作者: AOP    時(shí)間: 2016-1-18 23:13
這個(gè)能做多大的激光雕刻機(jī)
作者: 李小賤    時(shí)間: 2016-1-24 23:13
這么好的資料,快下載下來
作者: nilaodou123    時(shí)間: 2016-2-2 13:51
有這個(gè)太好了,可以參考一下
作者: 穿拖鞋的狼    時(shí)間: 2016-2-2 14:05
第一次上來請(qǐng)多關(guān)照
作者: foxnick    時(shí)間: 2016-2-2 22:37
太牛掰了?佩服
作者: 電子與電腦    時(shí)間: 2016-2-3 15:05
不錯(cuò)嘛,小巧實(shí)用
作者: 聶小生    時(shí)間: 2016-2-4 23:04
666,樓主威武
作者: 有話好商量    時(shí)間: 2016-2-15 12:51
附件下不了,害我¥15.00
作者: mabaoguang    時(shí)間: 2016-3-26 13:31
360報(bào)病毒!360真的很糟糕!
作者: tjfy831    時(shí)間: 2016-4-1 09:18
正在做雕刻機(jī),希望樓主的資料能夠提高自己
作者: small_tiger09    時(shí)間: 2016-4-1 21:03
高手啊,厲害。。
作者: miskel    時(shí)間: 2016-4-6 13:03
好東西,學(xué)習(xí)中
作者: miskel    時(shí)間: 2016-4-6 13:03
好東西,學(xué)習(xí)中
作者: azhja    時(shí)間: 2016-5-7 11:50
厲害。!學(xué)習(xí)中。!好東西。。
作者: 120536446    時(shí)間: 2016-5-11 00:35
好東西,學(xué)習(xí)中
作者: miaoxinniao    時(shí)間: 2016-5-11 14:28
不錯(cuò) 好久沒弄51單片機(jī)了
作者: voiddiov    時(shí)間: 2016-5-14 22:23
666……謝樓主!
作者: 去127    時(shí)間: 2016-6-19 23:40
太厲害了
作者: 飛刀斷魂    時(shí)間: 2016-6-27 22:17
本帖最后由 飛刀斷魂 于 2016-6-27 22:22 編輯

謝樓主!準(zhǔn)備做一個(gè),能提供原理圖嗎?驅(qū)動(dòng)電路也行
作者: djzh1978    時(shí)間: 2016-7-1 20:54
好東西
作者: djzh1978    時(shí)間: 2016-7-1 20:54
有人做出來了沒有?
作者: 有話好商量    時(shí)間: 2016-7-3 11:30
mark一下備用

作者: 德庫拉    時(shí)間: 2016-7-6 20:45
看起來不錯(cuò)
作者: kn988    時(shí)間: 2016-7-6 21:05
做一記號(hào),備用。
作者: 行云流水    時(shí)間: 2016-7-6 22:57
很不錯(cuò),看看,學(xué)習(xí)學(xué)習(xí)
作者: jk1957    時(shí)間: 2016-7-29 09:07
真是好資料啊,趕緊收藏
作者: xljxlj    時(shí)間: 2016-8-6 08:42
太好了
作者: dingdingmao311    時(shí)間: 2016-8-15 14:23
支持分享
作者: 愛你到天長地久    時(shí)間: 2016-8-15 14:57
感謝分享
作者: yangzhiyu945    時(shí)間: 2016-8-17 23:40
這個(gè)不錯(cuò)
作者: YJGG    時(shí)間: 2016-8-18 10:35
期待樓主的成品照片
作者: Free_Electron    時(shí)間: 2016-8-21 19:51
樓主多多分享啊
作者: liumingqin    時(shí)間: 2016-8-21 22:20
樓主威武,收藏了
作者: 郭明珂    時(shí)間: 2016-8-26 11:33
樓主 ,怎么我用你的程序連接沒有現(xiàn)象啊
作者: 08fuyoucai12    時(shí)間: 2016-8-26 15:30
很好的東西,不過原理圖沒有啊,還有單片機(jī)用的什么?所有的激光頭都可以嗎?
作者: yuanri    時(shí)間: 2016-9-2 19:15
支持樓主無私奉獻(xiàn)的精神,學(xué)習(xí)中
作者: mj23lg    時(shí)間: 2016-9-2 19:47
牛  頂
作者: 邪丶神    時(shí)間: 2016-9-7 09:11
不錯(cuò)不錯(cuò)不錯(cuò)不錯(cuò)不錯(cuò)不錯(cuò)不錯(cuò)不錯(cuò)
作者: ziba108    時(shí)間: 2016-9-7 12:10
樓主 ,怎么我用你的程序連接沒有現(xiàn)象啊
作者: tzqtang    時(shí)間: 2016-9-7 21:15
真是好資料啊,趕緊收藏  
作者: ccl123    時(shí)間: 2016-9-12 16:10
謝謝。。。。
作者: 孩紙氣    時(shí)間: 2016-9-25 23:55
好東西,正在找51的代碼,樓主的激光雕刻控制中心那個(gè)軟件是自己編的么?可不可以分享出來。
作者: 劉一杰    時(shí)間: 2016-10-10 20:44
樓之,上位機(jī)的資料能不能分享一下

作者: aliang2006    時(shí)間: 2016-10-14 15:33
好資料啊!很想下載學(xué)習(xí)一下
作者: 誰啊    時(shí)間: 2016-10-15 22:14
本帖最后由 誰啊 于 2016-10-15 22:16 編輯

暈的,我在草榴看到這篇文章了。。。
/htm_data/7/1610/2102547.html

作者: lzydtj    時(shí)間: 2016-10-17 09:37
好像是我需要的,感謝啦!
作者: zhf    時(shí)間: 2016-10-22 18:14
真的用的上,謝謝謝謝
作者: 熱帶雨林    時(shí)間: 2016-11-5 14:04
資料不錯(cuò)。。。。
作者: wangwangde    時(shí)間: 2016-11-17 22:03
樓主就是大神,一百個(gè)贊
作者: wangwangde    時(shí)間: 2016-11-17 22:04
謝謝樓主分享
作者: wfouliya    時(shí)間: 2016-11-19 08:47
正想做這個(gè)東西
作者: mashr    時(shí)間: 2016-11-21 10:17
正好需要,看看,程序注釋很詳細(xì)
作者: 天行健108    時(shí)間: 2016-11-29 17:50
好東西,準(zhǔn)備入手一個(gè)

作者: 3310mad2    時(shí)間: 2016-11-30 10:13
單片機(jī)起到什么作用,上位機(jī)直接控制不可以嗎?

作者: huangshire    時(shí)間: 2016-11-30 21:46
不錯(cuò),感謝樓主分享。
作者: jcygh    時(shí)間: 2016-12-3 15:12
很給力!
贊一個(gè)!
有做成功的嗎?
作者: hedagen    時(shí)間: 2016-12-18 09:26
樓主威武,收藏了
作者: a6873125    時(shí)間: 2016-12-20 09:23
這個(gè)好可以試試
作者: 風(fēng)雪殘留    時(shí)間: 2016-12-24 02:37
厲害了  學(xué)習(xí)
作者: chjx0131    時(shí)間: 2016-12-24 09:20
有沒有誰做出來的?
作者: erc.0    時(shí)間: 2016-12-25 10:32
感謝分享
作者: fahren    時(shí)間: 2016-12-26 22:49
贊一個(gè)!
作者: faridzled    時(shí)間: 2016-12-27 07:46
thanks for sharing. i like it
作者: liukunj    時(shí)間: 2017-1-2 22:12
謝謝了,找這個(gè)好久了
作者: 港華    時(shí)間: 2017-1-23 15:24
樓主太好了,已收藏
作者: 榆林上校    時(shí)間: 2017-2-14 09:28
謝謝分享!硬件有電路圖嗎?
作者: 浩潔nice    時(shí)間: 2017-2-19 00:38

作者: LXJ50    時(shí)間: 2017-2-19 12:38
好資料真多,努力多攢點(diǎn)黑幣。
作者: 懶惰的魔方    時(shí)間: 2017-2-22 20:54
此貼可以贊一個(gè)。。。。。
作者: qq12345678    時(shí)間: 2017-3-16 09:32
謝謝分享謝謝分享
作者: h2t2060    時(shí)間: 2017-3-16 11:09
我也有幾個(gè)廢舊的光驅(qū)
作者: jhyx80    時(shí)間: 2017-4-13 14:35
趕緊收藏,難得的資料,謝謝樓主分享
作者: 打劫妳的笑    時(shí)間: 2017-4-21 10:47
感謝樓主分享
作者: dragonly69    時(shí)間: 2017-6-30 16:48
能分享下編程的原理嗎? 我也想自己動(dòng)手寫一個(gè),但是不知道原理是什么樣的
作者: bi7jvw    時(shí)間: 2017-8-4 13:54
機(jī)械部份也不好搞吧
作者: xymiss    時(shí)間: 2017-8-10 19:46
樓主。這個(gè)怎么接。謝謝分享一下設(shè)計(jì)圖紙
作者: 1511544112    時(shí)間: 2017-8-11 16:39
不錯(cuò)不錯(cuò),樓主能發(fā)下制作教程或電路圖嗎?
作者: 酸秀才    時(shí)間: 2017-9-8 10:48
好厲害的樣子
作者: zjb2106558    時(shí)間: 2017-9-9 12:26
很好很強(qiáng)大,正在找51的程序
作者: lth977    時(shí)間: 2017-9-15 19:46
明天試試,[em02
作者: 小小亮    時(shí)間: 2017-9-17 16:29
哥,在嗎
作者: diannaoza    時(shí)間: 2017-9-25 19:18
歷害了學(xué)習(xí)中
作者: julian2008    時(shí)間: 2017-9-26 10:08
收藏,有時(shí)間也試一下
作者: yu_123    時(shí)間: 2017-9-27 10:13
給力的東東,喜歡
作者: 1948128323@qq.c    時(shí)間: 2017-10-24 19:02
非常好的學(xué)習(xí)資料
作者: changyun    時(shí)間: 2017-10-25 20:25
厲害 贊一個(gè)
作者: changyun    時(shí)間: 2017-10-25 20:26
點(diǎn)贊 樓主威武
作者: liangyongkang    時(shí)間: 2017-10-26 00:23
樓主我想研究你的上位機(jī)
作者: hqhq    時(shí)間: 2017-10-31 19:35
不錯(cuò)喲,謝謝了
作者: sdwjy1998    時(shí)間: 2017-11-2 17:04
學(xué)習(xí)中,趕緊收藏
作者: david888    時(shí)間: 2017-11-3 10:15
是好東西,謝謝了,下載下來保存?zhèn)溆。有空也來做個(gè)玩下
作者: 魅影獵鷹    時(shí)間: 2017-11-4 11:41
大牛真的是了不起
作者: Anger    時(shí)間: 2017-11-5 17:14
好東西呀,就是不能下載,太可惜了
作者: 行云流水    時(shí)間: 2017-11-5 21:51

謝謝分享。。。。
作者: ruanhua    時(shí)間: 2017-11-6 12:25
謝謝樓主分享,正需要這方面的資料




歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1