#  File name     : patt_f20.sml    SSVER  $Revision: 1.21 $
#  $Id: patt_f20.sml,v 1.21 1998/06/03 17:03:31 dholzwar Exp $
#  $Log: patt_f20.sml,v $
# Revision 1.21  1998/06/03  17:03:31  dholzwar
# ## stgb ## DJH - Energy bucket; Part raster angles; fil out park
#
# Revision 1.20  1998/02/13  00:47:09  dholzwar
# ### stfr ### DJH - Misc DEF file and button changes.
#
# Revision 1.19  1998/01/26  16:59:36  kkuller
# ### stfq ### KMK: Added XD128 macro for "park, pause, and wipe"
#
#  Revision 1.18  1997/09/26 16:13:08  dholzwar
#  ### stet ### DJH - Add BD133 to patt_165.sml; ZZ params on 8000/T12 to 0.035.
#
# Revision 1.17  1997/09/19  19:29:07  dholzwar
# ### steo ### DJH -  Pre-5.0 DEF file changes.
#
# Revision 1.16  1997/08/29  19:55:13  dholzwar
# ### stef ### DJH - Added RPLEN, various 8000 speed changes, P500 purge table and BT_8000.PC change.
#
# Revision 1.15  1997/08/27  16:10:47  tmeyer
# ### sted ### TDM: re-instated the park head durring filament out
#
#  Description      : Download pattern file for both FDM & 3D 
#  Last modification: 21 SEP 92   1.00  - Initial version     -PEH
#  11 JUL 94   1.01 - New file from (SS_pattern.sml) add patterns 137 and 139.
#  17 JUL 94   1.02 - added pattern 138 and 140.
#  07 SEP 94   1.03 - changed the FP command in 209.
#  25 OCT 94   1.04 - changed CD139 to CD129 and CD137 to CD131.
#  01 NOV 94   1.05 - changed name from SS_pattern_1600.sml.    
#  27 JAN 95   1.06 - add AS1 command.
#  03 MAY 95   1.07 - removed variable set.   
#  29 SEP 95   1.08 - added patterns 190 and 191 for cal box.
#  03 OCT 95   1.09 - changed button 0 order.
#  06 OCT 95   1.10 - changed header
#  06 NOV 95   1.11 - added AS1 to nonABS box.
#  03 JAN 96   1.12 - changed file name from SS_pattern_FDM16.sml
#  12 JAN 96   1.13 - changed cal box values
#  20 FEB 96   1.14 - changed cal box values
#  22 FEB 96   1.15 - change 209              
#  26 FEB 96   1.16 - added CD137 to BD211    
#  02 AUG 96   4.01 - added to cvs.                                 
#  10 OCT 96   - removed old macros                             
#  23 OCT 96   - added VS127 to record tip position   1=main,2=alt 
#  02 JAN 97   - changed ED: to ED;
#  12 FEB 97   - added look and filament                         -PH
#  18 APR 97   - moved very 1st sml position                     -PH
#  03 MAY 97   - changes for easy restart.                       -PH
#  12 AUG 97   - added double purge, modified BD123, added tip test BD123
#  29 AUG 97   - Added BD133 for ABSi with extra Main rollback	-DJH
##

## DEFAULT VALUES

VS102,4500;       # X position for very 1st sml 
VS103,2000;       # Y position for very 1st sml 

VS108,0;          # X position for tip start
VS109,11500;      # Y position for tip start

VS125,6000;       # X position for ABS tip start
VS126,11500;      # Y position for ABS tip start

VS113,5900;       # X park position
VS114,11800;      # Y park position

VS115,0;          # set PC to 0

VS119,40;         # download Z moves

VS120,120;        # tip wipe variable assignment  LEAVE FOR OLD .sml files

VS100,0;
VS101,0;

VS90,1800;
VS91,90;
VS92,800;

##  TIP WIPE NON-ABS
BD120;
FP7423;         # lock out front panel, all except PAUSE, STOP
VS120,120;      # tip wipe variable assignment
VM3;            # flow off
VC118;OZ;       # capture Z
VC116;OC;       # capture XY
#MZ@119;         # download Z move
MZ40;
BP;
SO0,0;
MA@108,@109;    # use stored tip location
MR1700,200;
MR150,1000;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR150,-2300;
EP;
MA@116,@117;    # return to X,Y location
AZ@118;         # return to Z location
WA0;
FP;
ED;

##  TIP WIPE ABS 
BD121;
FP7423;         # lock out front panel, all except PAUSE, STOP
VS120,121;      # tip wipe variable assignment
VM3;            # flow off
VC118;OZ;       # capture Z
VC116;OC;       # capture XY
#MZ@119;         # download Z move
MZ40;
BP;
SO0,0;
MA@125,@126;    # use stored tip location
MR2100,200;
MR150,1000;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR200,-1800;
MR200,1800;
MR150,-2300;
EP;
MA@116,@117;    # return to X,Y location
AZ@118;         # return to Z location
WA0;
FP;
ED;

##  ABORT DOWNLOAD
#BD127;VM7;AD;IN;AS1;ED; # aborts download
BD127;VM7;
ES".!4:";                   # clear pause light
ES".J";                     # abort output request
ES".!5:";                   # abort downloading
ES".K";                     # clear buffer
OU"^q";                     # output string, for xon
ES".!1:";;;;;;;;;;;;        # enter emergency stop
CS;                         # clear stop
#ES".!2:";                   # clear emergency stop
#ES".!0:";                   # power up
AS1;
ED;

## FILAMENT CHECK
BD123;
VM3;            # flow off
MZ@119;         # download Z move
XD212;          # park head
PS;             # pause
V=115,0;XI183,1,1;    # If pipeline is off do double purge macro
AZ@107;          # TDM: return to Z from XD209
V=127,1;XI129,1,1;   # TDM: Restore original tip.
V=127,2;XI131,1,1;   # TDM: Restore original tip.
AZ@107;          # TDM: return to Z from XD209
MZ@119           # Z move for clearance if there is part warpage
MA@105,@106;      # TDM: return to X,Y from XD209
AZ@107;          # TDM: return to Z from XD209
WA0;
#FP;             # reset front panel
ED;

## PARK, PAUSE, and WIPE
BD128;
FP7423;         # lock out front panel, all except PAUSE, STOP
VC105;OC;       # capture X,Y position (command)  Var 105,106
VC107;OZ;       # capture Z height       Var 107
VS99,@127;      # set variable to material type
XD123;
FP;		# Reset front panel
ED;

## ALT TIP DOWN 
BD131;     # Alt. tip down
SO@110,@111;MZ@123;CD131;WA1;MR0,0;VS127,2;
ED;

## ALT TIP DOWN 
BD133;     # Alt. tip down for ABSi
CD251;WA0.5;SO@110,@111;MZ@123;CD131;WA1;MR0,0;VS127,2;
ED;

## ALT TIP UP   
BD129;                          # Alt. tip up.
SO@102,@103;CD129;WA1;MR0,0;WA.5;V*123,-1;MZ@123;V*123,-1;VS127,1;
ED;  

BD200;            # canned PS command
PS;WA0;VC102;OC;SO@102,@103;VC104;OZ;MR0,0;
VS110,@102;VS111,@103;VS112,@104;
V+110,@121;V+111,@122;
ED;

##  INITIAL HEAD OF SML FILE (not used)
BD201;            # Initial head of sml file          
AM0;
MZ1200;
FH;FZ;
MZ1200;
MA@102,@103;
SO0,0;
XD120;#TW
#V=120,120;XI@120,1,1;#TW
VM7;
MZ0;
PS;WA0;VC102;OC;SO@102,@103;VC104;OZ;MR0,0;
VS110,@102;VS111,@103;VS112,@104;
V+110,@121;V+111,@122;
AM0;
MZ400;
XD209;#FC
ED;

##  FIRST XD of sml
BD202;            # First XD of sml
VS105,105;
ED;

##  FIRST XD of sml  (not used)
BD207;            # Go to last recorded move
VM3;              # flow off
MA@105,@106;      # return to X,Y
AZ@107;           # download Z move
WA0;
ED;

##  BEGINNING OF CURVE (not used)
BD208;            # Start material laying
#VM4;             # flow on
##FP7679;         # disable all of front panel, except STOP
ED;

##  END OF CURVE
BD209;            # End material laying
FP1216;           # disable all of front panel, except STOP, PAUSE, X,Y,Z
VM3;              # flow off
VC105;OC;         # capture X,Y position (command)  Var 105,106
VC107;OZ;         # capture Z height       Var 107
#V+100,1;          # index completed curves counter
VS99,@127;        # set variable to material type
XI123,1,1;        # check digital input line for trigger
FP;               # enable all of front panel
ED;

##  X,Y PARK
BD210;            # X,Y park head position.   
VM3;              # flow off
BP;SO0,0;MA@113,@114;EP;
ED;

##  X,Y PARK FOR FILAMENT OUT
BD212;            # X,Y park head position.   
VM3;              # flow off
BP;SO0,0;MA@113,100;EP;		# NOTE Y position is 100.
ED;

##  X,Y PARK AND PAUSE END OF PART
BD211;            # X,Y & Z park head position,last move. 
VM3;              # flow off
BP;SO0,0;MA@113,@114;EP;
CD137;
PM0;              # servo powerdown
PS;
ED;

## MODELER CHECK
## USE    VS96,2000;XD240;
BD240;
VC98;OP28;
V/98,10;
V!98,0;
V=96,@98;XI241,0,1;
ED;

## MODELER CHECK PARK
BD241;
MZ1200;
MA3000,3000;
AR2000,2000,360;
AR2000,2000,360;
AR2000,2000,360;
AR2000,2000,360;
AR2000,2000,360;
MA10000,500;
PS;
ED;

## MODELER CHECK PARK (spare)
BD245;
ED;

## MODELER CHECK SAFE VALUES
# CHECK 96 < @90  , 96 > @91
BD243;
V>96,@90;XI244,1,1;
V<96,@91;XI244,1,1;
ED;

## MODELER CHECK SAFE VALUES
BD244;
VS96,@92;
ED;

## PART RECOVERY *Leave in because some advanced users were trained to use it *
BD100;
IN;
VT99;XI101,1,1,102;
OU"^MROAD INDEX NUMBER:";
OV100;
ED;

## PART RECOVERY *Leave in because some advanced users were trained to use it *
BD101;
VS96,@107;
VS97,@96;
V-96,@104;
V/96,2;
OU"Z HEIGHT IN THOUSANDTHS OF AN INCH: ";
OV96;
ED;

## PART RECOVERY *Leave in because some advanced users were trained to use it *
BD102;
VS96,@107;
V-96,@123;
VS97,@96;
V-96,@104;
V/96,2;
OU"Z HEIGHT IN THOUSANDTHS OF AN INCH: ";
OV96;
ED;

##  PURGE ABS TIPS
BD181;
VC118;OZ;       # capture Z
VC116;OC;       # capture XY
MZ160;
BP;SO0,0;MA@113,@114;
XD129;          # alt-tip off
VM3;              # flow off
CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;CD0;
XD131;          # alt-tip on
CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;CD0;
XD129;          # alt-tip off
EP;
BP;
SO0,0;
MA@125,@126;    # use stored tip location
MR3500,0;
MR-3500,150;
MR3500,-300;
EP;
MA@116,@117;    # return to X,Y location
AZ@118;         # return to Z location
ED;

##  PURGE NON-ABS TIPS
BD182;
VC118;OZ;       # capture Z
VC116;OC;       # capture XY
MZ100;
BP;SO0,0;MA@113,@114;
VM3;              # flow off
CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;WA1;CD0;WA1;CD101;CD0;
EP;
BP;
SO0,0;
MA@108,@109;    # use stored tip location
MR3500,0;
MR-3500,150;
MR3500,-300;
EP;
MA@116,@117;    # return to X,Y location
AZ@118;         # return to Z location
ED;

##  DOUBLE PURGE TIPS               
BD183;
CD129;   # toggle tip without zmove and VS127,1
XD210;
PD.1,79;MM;MM0,19;MM60,118;MM-68,159;
AS1;VM4;BC;
MR0,0;MR200,0;
EC;VM3;
#V=115,1;XI186,1,1;  # PC check turn off
SR1000;
AS1;VM4;BC;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
EC;VM3;
CD131;   # toggle tip without zmove and VS127,2
AS1;VM4;BC;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;MR-250,0;MR250,0;
EC;VM3;
MR0,-1000;
V=120,120;XI120,1,1;
V=120,121;XI121,1,1;
ED;

##  PC toggle OFF                   
BD186;
PC0;
VS115,0;
ED;

##  PC toggle ON                    
BD187;
PC1;
VS115,1;
ED;

##  CREATE BOX
BD190,10;
MA201,101;
AS1;VM4;BC;
MA201,101;
MA1109,101;
MA1109,1109;
MA101,1109;
MA101,101;
EC;VM3;
XD209;#FC
MZ52;
MA201,101;
MZ20;
MZ-52;
ED;

##  START ABS BOX
BD191;
WA0;VC102;OC;SO@102,@103;VC104;OZ;MR0,0;
VS110,@102;VS111,@103;VS112,@104;
V+110,@121;V+111,@122;
AM0;
#CD129;WA1;     # alt-tip off
PD.14,79;MM;MM0,33;MM60,146;MM-77,181;SR800;AC5;WA0.; #.03 width
#PD.158,79;MM;MM0,39;MM60,164;MM-84,187;SR800;AC5;WA0.; #.04 width
AS1;CD135;          # RB RNG ABS
MA201,101;
XD190;          # build box
XD131;          # alt-tip on
MA201,101;
#PD.14,79;MM;MM0,33;MM60,146;MM-77,181;SR800;AC5;WA0.; #.03 width
PD.118,79;MM;MM0,25;MM60,122;MM-70,175;SR800;AC5;WA0.; #.02 width
AS1;VM4;BC;
MA201,101;
MA1109,101;
MA1109,1109;
MA101,1109;
MA101,101;
EC;VM3;
XD209;#FC
VM7;
MZ100;
CD129;WA1;CD0; # alt-tip off
ED;

##  START NON-ABS BOX
BD192;
WA0;VC102;OC;SO@102,@103;VC104;OZ;MR0,0;
VS110,@102;VS111,@103;VS112,@104;
V+110,@121;V+111,@122;
AM0;
#CD129;WA1;     # alt-tip off
#PD.243,27;MM;MM0,33;MM71,164;MM-50,211;SR800;AC40;WA0.;#.04 width
PD.176,27;MM;MM0,27;MM49,146;MM-46,191;SR800;AC40;WA0.;#.03 width
AS1;
MA201,101;
XD190;          # build box
XD131;          # alt-tip on
MA201,101;
#PD.176,27;MM;MM0,27;MM49,146;MM-46,191;SR800;AC40;WA0.;#.03 width
PD.106,27;MM;MM0,21;MM27,122;MM-41,169;SR800;AC40;WA0.;#.02 width
AS1;VM4;BC;
MA201,101;
MA1109,101;
MA1109,1109;
MA101,1109;
MA101,101;
EC;VM3;
XD209;#FC
VM7;
MZ100;
CD129;WA1;CD0; # alt-tip off
ED;