程序稍加修改即可使用在各种需要长度控制的场合.比如带.管.布类切断,印刷,标记.

自动长度控制切断器方案:测量为红外线输入,经按装在牵引轮上的分度轮(上边按计算好的角度打与直径相吻合的若干个孔)输入红外信号,测量出挤出机挤出的长度,后于设定的值相比较.发出切断信号.每切断一次产量加一.并在液晶屏显示.
单片机控制 中文液晶显示,显示内容在
1:设定值XXXX 实际值XXXX 2设定值XXXX 
归零? 3产量XXXX 归零? 4参数选择 XXXX
确定? 这四个显示内容中切换.
       GEE  EQU 40H
       SHI  EQU 41H
       BEI  EQU 42H
       QIAN EQU 43H     
       GDM  EQU 44H
       SDM  EQU 45H
       BDM  EQU 46H
       QDM  EQU 47H
       SDG  EQU 48H
       SDS  EQU 49H
       SDB  EQU 4AH
       SDQ  EQU 4BH
       DMG  EQU 4CH
       DMS  EQU 4DH
       DMB  EQU 4EH
       DMQ  EQU 4FH
       CLG  EQU 50H
       CLS  EQU 51H
       CLB  EQU 52H
       CLQ  EQU 53H
       CGDM EQU 54H
       CSDM EQU 55H
       CBDM EQU 56H
       CQDM EQU 57H
       BZW  EQU 58H 
       BZMC EQU 59H
       XZG  EQU 5AH
       XZS  EQU 5BH
       XZB  EQU 5CH
       XZQ  EQU 5DH
       XDMG EQU 5EH
       XDMS EQU 5FH
       XDMB EQU 60H
       XDMQ EQU 61H
       XZBZ EQU 62H  
       QR   BIT P3.7
       JAO  BIT P3.6
       JIE  BIT P3.3
       GN   BIT P3.2
       RS   BIT P1.7
       RW   BIT P1.6
       E    BIT P1.5
       SDA  BIT P1.3
       SCL  BIT P1.2
       COM  EQU 20H
       DAT  EQU 21H
       PSB  EQU P0.7
       RST  EQU P0.6  
       JSS  BIT P0.3
       QL   BIT P0.5
       ORG  0000H
       LJMP MAIN
       ORG  0030H
MAIN:  SETB JAO
       SETB JIE
       SETB GN
       SETB QR
       SETB JSS
       SETB P3.4
       CLR P3.5
       CLR P3.1
       SETB P3.0
       CLR  P1.0
       LCALL SDG0   ;调用设定归零子程序
       LCALL SJG0   ;调用实际归零子程序   
       LCALL CLG0   ;调用产量归零子程序 
       MOV A,#01H
       LCALL RD24
       MOV SDG,A
       MOV A,#02H
       LCALL RD24
       MOV SDS,A
       MOV A,#03H
       LCALL RD24
       MOV SDB,A
       MOV A,#04H
       LCALL RD24
       MOV SDQ,A
       LCALL XSCL     ;调用显示处理子程序
       MOV XZBZ,#00H
LOP:   CLR  PSB
       MOV  SP,#70H
       LCALL D1
       SETB  PSB
       LCALL D1
       MOV  COM,#30H     ;显示功能设定
       LCALL WRI
       LCALL D1
       MOV  COM,#0DH
       LCALL WRI
       LCALL D1
       LCALL CLRYJ
XSA:   MOV R1,#0E8H   
       MOV COM,#80H   
       LCALL WRI
       MOV DAT,#0C9H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD        ;She设
       MOV R1,#0A8H
       MOV COM,#81H
       LCALL WRI
       MOV  DAT,#0B6H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD        ;din定
       MOV R1,#0B5H
       MOV  COM,#82H
       LCALL WRI
       MOV  DAT,#0D6H
       LCALL WRD
       MOV  DAT,R1
       LCALL WRD        ;zhi值  
       MOV     R1,#0B5H
       MOV     COM,#90H      
       ACALL   WRI
       MOV     DAT,#0CAH        
       ACALL   WRD        
       MOV     DAT,R1 
       ACALL   WRD      ;Shi实
       MOV     R1,#0CAH
       MOV     COM,#91H
       ACALL   WRI
       MOV     DAT,#0BCH
       ACALL   WRD   
       MOV     DAT,R1   
       ACALL   WRD       ;ji际
       MOV     R1,#0B5H
       MOV     COM,#92H
       ACALL   WRI
       MOV     DAT,#0D6H
       ACALL   WRD
       MOV     DAT,R1
       ACALL   WRD     ;zhi 值  
       MOV     BZW,#01H ;设定标志位#01H
FHA:   LCALL   SDZXS   ;调用设定参数显示子程序
       LCALL   SJZXS   ;调用实际参数显示子程序
FHA1:  NOP
XSB:   JB GN,MCSRA ;功能键未按下跳转脉冲输入检测
       LCALL DD1       
       JB GN,MCSRA
       AJMP XSB1  ;跳转加减确认归零处理程序     
MCSRA: LJMP MCSR  ;脉冲输入检测
XSB1:  MOV BZW,#02H   ;设定标志位#02H 
       LCALL CLRYJ    ;调用清除显示子程序        ?  
       MOV R1,#0E8H   ; 加减确认键按下调用    
       MOV COM,#80H   ;显示一次子程序
       LCALL WRI      ;未按下跳转继续循环
       MOV DAT,#0C9H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD    ;she设
       MOV R1,#0A8H
       MOV COM,#81H
       LCALL WRI
       MOV DAT,#0B6H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;Din定
       MOV R1,#0B5H
       MOV COM,#82H
       LCALL WRI
       MOV DAT,#0D6H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;zhi值
       MOV R1,#0CEH
       MOV COM,#90H
       LCALL WRI
       MOV DAT,#0B2H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;cai参
       MOV R1,#0FDH
       MOV COM,#91H
       LCALL WRI
       MOV DAT,#0CAH
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;shu数
       MOV R1,#0E9H
       MOV COM,#92H
       LCALL WRI
       MOV DAT,#0B9H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;gu归
       MOV R1,#0E3H
       MOV COM,#93H
       LCALL WRI
       MOV DAT,#0C1H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;lin零
       MOV R1,#0BFH
       MOV COM,#94H
       LCALL WRI
       MOV DAT,#0A3H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD      ; 问号
       LCALL SDZXS    ;调用设定参数显示子程序
FHB:   NOP
JCJA:  JB JAO,JCJE    ;加键未按下跳转减处理程序
       LCALL DD1
       JB JAO,JCJE    ;检测加显示子程序
       MOV A,SDG      ;查标志位后显示一次设定子程序
       INC A          ;后跳转FHB继续循环,设定标志位#02H
       CJNE A,#0AH,GJD ;检测个位为十
       AJMP SDJ1       ;跳转十位加一 
GJD:   MOV SDG,A
       LCALL XSCL      ;跳转显示处理程序
       AJMP  SDXSA     ;跳转设定显示程序
SDJ1:  MOV SDG,#00H   ;gwg0个位归零
       CLR P3.4
       LCALL D1
       SETB P3.4
       MOV A,SDS
       INC A
       CJNE A,#0AH,SDJ   ;十位为十
       AJMP BDJ1         ;百位加一
SDJ:   MOV SDS,A
       LCALL XSCL        ;显示处理程序
       AJMP  SDXSA       ;跳转设定显示程序
BDJ1:  MOV SDS,#00H    ;swg0十位归零
       MOV A,SDB  
       INC A
       CJNE A,#0AH,BDJ  ; 百位为十 
       AJMP QDJ1        ; 千位加一
BDJ:   MOV SDB,A
       LCALL XSCL        ;调用显示处理程序
       AJMP  SDXSA       ;跳转设定显示程序
QDJ1:  MOV SDB,#00H    ;bwg0百位归零
       MOV A,SDQ
       INC A
       CJNE A,#0AH,QDJ  ; 千位为十
       MOV SDG,#00H     ; 个位归零
       MOV SDS,#00H     ; 十位归零
       MOV SDB,#00H     ; 百位归零
       MOV SDQ,#00H     ; 千位归零
       AJMP SDXSA
QDJ:   MOV SDQ,A
SDXSA: MOV A,#01H
       MOV B,SDG
       LCALL WT24
       MOV A,#02H
       MOV B,SDS
       LCALL WT24
       MOV A,#03H
       MOV B,SDB
       LCALL WT24
       MOV A,#04H
       MOV B,SDQ
       LCALL WT24
       LCALL XSCL      ;调用显示处理子程序
       LCALL SDZXS     ;调用显示设定子程序
JCJE:  JB JIE,QRJC1    ;跳转归零键输入检测 
       LCALL DD1
       JB JIE,QRJC1
       MOV A,SDG       ; 查标志位后显示一次设定子程序
       CJNE A,#00H,GWJ1 ;跳转个位减一
       AJMP SWJ         ;跳转十位减一
GWJ1:  DEC SDG
       AJMP SDXSB   ;跳转设定显示
SWJ:   MOV A,SDS
       CJNE A,#00H,SWJA ;十位减一
       AJMP BWJ         ;跳转百位减一
SWJA:  DEC  SDS
       MOV  SDG,#09H     ;
       AJMP SDXSB   ;跳转设定显示
BWJ:   MOV A,SDB
       CJNE A,#00H,BWJ1 ;百位减一
       AJMP QWJ     ;跳转千位减一
BWJ1:  DEC  SDB     
       MOV  SDG,#09H ;
       MOV  SDS,#09H ;
       AJMP SDXSB   ;跳转设定显示
QWJ:   MOV A,SDQ
       CJNE A,#00H,QWJ1
       MOV  A,#09H
       MOV  SDG,A
       MOV  SDS,A
       MOV  SDB,A
       MOV  SDQ,A 
       AJMP SDXSB    ;跳转设定显示
QWJ1:  DEC SDQ
       MOV SDG,#09H
       MOV SDS,#09H
       MOV SDB,#09H
SDXSB: MOV A,#01H
       MOV B,SDG
       LCALL WT24
       MOV A,#02H
       MOV B,SDS
       LCALL WT24
       MOV A,#03H
       MOV B,SDB
       LCALL WT24
       MOV A,#04H
       MOV B,SDQ
       LCALL WT24
       LCALL XSCL    ;调用显示处理子程序
       LCALL SDZXS   ;调用显示设定子程序
QRJC1: JB QR,GNJC1    ; 确认归零键输入检测      
       LCALL DD1
       JB QR,GNJC1    ;跳转功能检测
       LCALL SDG0    ;调用设定归零子程序
       MOV A,#01H
       MOV B,SDG
       LCALL WT24
       MOV A,#02H
       MOV B,SDS
       LCALL WT24
       MOV A,#03H
       MOV B,SDB
       LCALL WT24
       MOV A,#04H
       MOV B,SDQ
       LCALL WT24
       LCALL XSCL    ;调用显示处理子程序
       LCALL SDZXS   ;调用设定显示子程序
FHC:   NOP           ;查标志位后显示一次设定子程序
GNJC1: JB GN,JJP  ;功能键未按下跳转脉冲输入检测
       LCALL DD1      
       JB GN,JJP
       AJMP KKK
JJP:   LJMP FHE
KKK:   MOV BZW,#03H
       LCALL CLRYJ    ;调用清除显示子程序
       MOV R1,#0FAH   ;显示产量归零界面
       MOV COM,#80H
       LCALL WRI
       MOV DAT,#0B2H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;cai产
       MOV R1,#0BFH
       MOV COM,#81H
       LCALL WRI
       MOV DAT,#0C1H
       LCALL WRD
       MOV DAT,R1
       LCALL  WRD     ;lian量
       MOV R1,#0FAH
       MOV COM,#90H
       LCALL WRI
       MOV DAT,#0B2H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;cai 产
       MOV R1,#0BFH
       MOV COM,#91H
       LCALL WRI
       MOV DAT,#0C1H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;Liang量
       MOV R1,#0E9H
       MOV COM,#92H
       LCALL WRI
       MOV DAT,#0B9H
       LCALL WRD      
       MOV DAT,R1    
       LCALL WRD      ;gu归
       MOV R1,#0E3H
       MOV COM,#93H
       LCALL WRI
       MOV DAT,#0C1H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD      ;lin零
       MOV R1,#0BFH
       MOV COM,#94H
       LCALL WRI
       MOV DAT,#0A3H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD      ; 问号
       LCALL CLXS     ;调用产量显示子程序
FHE:   JB QR,GNN      ;跳转FHC检测确认键
       LCALL DD1
       JB QR,GNN    ;归零键输入检测   
QRG0:  LCALL CLG0      ;调用产量归零显子程序
       LCALL XSCLC     ;调用显示代码处理子程序3
       LCALL  CLXS         ;调用产量显示子程序
GNN:   JB GN,MCSRI      
       LCALL DD1
       JB GN,MCSRI     ;设定参数并检测加减按键
       AJMP  LOPB     ;////////////
MCSRI: LJMP  MCSR1
LOPB:  MOV BZW,#04H    ;
       LCALL CLRYJ
       MOV R1,#0CEH
       MOV COM,#80H
       LCALL WRI
       MOV DAT,#0B2H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;cai参
       MOV R1,#0FDH
       MOV COM,#81H
       LCALL WRI
       MOV DAT,#0CAH
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;shu数
       MOV R1,#0A1H
       MOV COM,#82H
       LCALL WRI
       MOV DAT,#0D1H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;选
       MOV R1,#0F1H
       MOV COM,#83H
       LCALL WRI
       MOV DAT,#0D4H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;择
       LCALL XZCS
       LCALL XX   ;调用选择参数显示子程序AA
       MOV R1,#0B7H
       MOV COM,#90H
       LCALL WRI
       MOV DAT,#0C8H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;确
       MOV R1,#0CFH
       MOV COM,#91H
       LCALL WRI
       MOV DAT,#0C8H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;认
       MOV R1,#0BFH
       MOV COM,#92H
       LCALL WRI
       MOV DAT,#0A3H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;? 
FHD:   NOP           ;
JCJAX: JB JAO,JCJEX     ;跳转检测选择减
       LCALL DD1
       JB JAO,JCJEX
       MOV A,XZBZ
       INC A
       CJNE A,#14H,ZXJ  ;?  <19跳转选择加
       MOV XZBZ,#00H    ;min
       LCALL XZCS      ;调用选择参数显示子程序AA
       LCALL XX
       LJMP JCJEX       ;跳转选择减
ZXJ:   MOV XZBZ,A
       LCALL XZCS    ;调用选择参数显示子程序AA
       LCALL   XX  ;调用设定参数显示子程序         
JCJEX: JB JIE,QRJCI
       LCALL DD1
       JB JIE,QRJCI   ;跳转选择确认
       AJMP  LKP
QRJCI: LJMP QJI
LKP:   MOV A,XZBZ
       DEC A
       CJNE A,#00H,XZL
       MOV XZBZ,#13H   ;max
       LCALL XZCS      ;调用选择参数显示子程序AA
       LCALL XX
       AJMP QJI     ;?????
XZL:   MOV XZBZ,A
       LCALL XZCS     ;调用选择参数显示子程序AA
       LCALL XX    ;调用设定参数显示子程序    
QJI:   JB QR,XGAA  ;选择功能
       LCALL DD1
       JB QR,XGAA    ;选择参数确认
       AJMP SXA
XGAA:   LJMP XZGN      ;跳转功能检测
SXA:   LCALL XZQR    ;选择参数确认;;;;;;
       LCALL CLRYJ
       MOV R1,#0A1H
       MOV COM,#80H
       LCALL WRI
       MOV DAT,#0D1H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;选
       MOV R1,#0F1H
       MOV COM,#81H
       LCALL WRI
       MOV DAT,#0D4H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;择
       MOV R1,#0C9H
       MOV COM,#82H
       LCALL WRI
       MOV DAT,#0B3H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;cheng
       MOV R1,#0A6H
       MOV COM,#83H
       LCALL WRI
       MOV DAT,#0B9H
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;gong
       MOV R3,#10H
NNN:   LCALL DLE
       DJNZ R3,NNN
       LCALL SDXSC
       LCALL CLRYJ
       LJMP XSA
XZGN:  JB GN,LOPP
       LCALL DD1
       JB GN,LOPP
       LJMP XSA
LOPP:  NOP   ;跳转检测脉冲
MCSR1: NOP     ;
MCSR:  MOV A,BZMC
       CJNE A,#0FH,HMA  ;脉冲标志
       AJMP HM
HMA:   JNB JSS,CBZWO
       LCALL DK
       JNB JSS,CBZWO    ; 跳查显示标志处理程序
       MOV BZMC,#0FH
HM:    JB JSS,CBZWO
       LCALL DK
       JB JSS,CBZWO
       MOV BZMC,#0AH
       MOV A,GEE       ; 脉冲输入检测处理程序
       INC A
       CJNE A,#0AH,GJ
       AJMP SJ1
CBZWO: AJMP CBZW1
GJ:    MOV GEE,A
       AJMP QRQL    ; 跳转确认切料处理程序   
SJ1:   MOV GEE,#00H   ;gwg0个位归零
       CLR P1.4
       LCALL D1
       SETB P1.4
       MOV A,SHI
       INC A
       CJNE A,#0AH,SJ
       AJMP BJ1
SJ:    MOV SHI,A
       AJMP  QRQL    ; 跳转确认切料处理程序
BJ1:   MOV SHI,#00H    ;swg0十位归零
       MOV A,BEI  
       INC A
       CJNE A,#0AH,BJ
       AJMP QJ1
BJ:    MOV BEI,A
       AJMP QRQL    ; 跳转确认切料处理程序
QJ1:   MOV BEI,#00H    ;bwg0百位归零
       MOV A,QIAN
       INC A
       CJNE A,#0AH,QJ
       MOV GEE,#00H    ;gwg0个位归零
       MOV SHI,#00H    ;swg0十位归零
       MOV BEI,#00H    ;bwg0百位归零
       MOV QIAN,#00H   ;qwg0千位归零
       AJMP CBZW1
QJ:    MOV QIAN,A
       AJMP QRQL    ; 跳转确认切料处理程序
QRQL:  LCALL XSCLB   ;显示实际代码处理子程程序
       MOV A,BZW
       CJNE A,#01H,GO   
       LCALL SJZXS      ;调用实际参数显示子程序
GO:    MOV A,SDQ
       CJNE A,QIAN,CBZW1 ; 跳转产量加一处理程序
       MOV A,SDB
       CJNE A,BEI,CBZW1  ; 跳转产量加一处理程序
       MOV A,SDS
       CJNE A,SHI,CBZW1 ; 跳转产量加一处理程序
       MOV A,SDG
       CJNE A,GEE,CBZW1  ; 跳转产量加一处理程序
       LCALL SJG0       ;调用实际归零子程序 
       LJMP CLJ
CBZW1: MOV A,BZW        ;查显示标志处理程序    
       CJNE A,#01H,HH
       LJMP FHA1
HH:    CJNE A,#02H,HHA ;标志#02H说明加减确认键未按下
       LJMP FHB        ;跳转FHB继续循环
HHA:   CJNE A,#03H,HHB
       LJMP FHC       ;////////?????????
HHB:   CJNE A,#04H,HHH 
HHH:   LJMP FHD
JJJ:   LJMP  LOP  
CLJ:   AJMP SWJC
GWJC:  MOV CLG,A
       AJMP CCC
SWJC:  MOV CLG,#00H     ;gwg0个位归零
       MOV A,CLS
       INC A
       CJNE A,#0AH,SWJ11 ;十位为十
       AJMP BWJC
SWJ11: MOV CLS,A
       AJMP CCC
BWJC:  MOV CLS,#00H      ;swg0十位归零
       MOV A,CLB
       INC A
       CJNE A,#0AH,BWJ11
       AJMP QWJC
BWJ11: MOV CLB,A
       AJMP CCC
QWJC:  MOV CLB,#00H
       MOV A,CLQ
       INC A
       CJNE A,#0AH,QWJ11
       MOV  A,#00H
       MOV  CLG,A  ;gwg0个位归零
       MOV  CLS,A  ;swg0十位归零
       MOV  CLB,A  ;bwg0百位归零
       MOV  CLQ,A  ;qwg0千位归零
       AJMP CCC
QWJ11: MOV  CLQ,A
CCC:   LCALL XSCLC  ; 调用显示处理子程序
       MOV  A,BZW
       CJNE A,#03H,DDD
       LCALL CLXS    ;调用产量显示子程序
DDD:   AJMP CBZW1 
CLRYJ: MOV   COM,#01H  ;清除显示子程序 
       ACALL   WRI
       LCALL   D1
       MOV   COM,#06H
       ACALL   WRI
       LCALL   D1
       RET
WRI:   PUSH    ACC
       CLR     RS
       SETB    RW
WRI1:  MOV     P2,#0FFH
       SETB    E
       MOV     A,P2 
       NOP
       CLR     E
       JB      ACC.7,WRI1
       NOP
       CLR     RW            
       MOV     P2,COM
       NOP
       SETB    E
       NOP      
       CLR     E  
       POP     ACC            
       RET           ;写指令子程序
WRD:   PUSH    ACC
       CLR     RS  
       LCALL   D1
       SETB    RW                
WRD1:  MOV     P2,#0FFH
       NOP
       SETB    E              
       MOV     A,P2
       LCALL   D1
       CLR     E  
       JB      ACC.7,WRD1     
       NOP
       SETB    RS
       NOP
       CLR     RW
       LCALL   D1
       MOV     P2,DAT
       SETB    E
       NOP
       CLR     E
       POP     ACC  
       RET           ;读指令子程序
SDZXS: MOV R2,#0A3H  ;显示处理子程序
       MOV R1,DMQ
       MOV COM,#83H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SDQDM代码
       MOV R1,DMB
       MOV COM,#84H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SDBDM代码
       MOV R1,DMS
       MOV COM,#85H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SDSDM代码
       MOV R1,DMG
       MOV COM,#86H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SDGDM代码设定参数显示
       RET
SJZXS: MOV R1,QDM
       MOV COM,#93H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SJQDM代码
       MOV R1,BDM
       MOV COM,#94H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SjBDM代码
       MOV R1,SDM
       MOV COM,#95H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SjsDM代码
       MOV R1,GDM
       MOV COM,#96H
       LCALL WRI
       MOV DAT,R2
       LCALL WRD
       MOV DAT,R1
       LCALL WRD     ;SjgDM代码  实际参数显示
       RET