#  File name     : patt_f16.sml    SSVER  $Revision: 1.19 $
#  $Id: patt_f16.sml,v 1.19 1998/06/03 17:03:30 dholzwar Exp $
#  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
##

## DEFAULT VALUES

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

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

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

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

VS119,40;                       # Z move

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
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
MR1300,200;
MR150,1000;
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 (NOT)
BD121;
FP7423;         # lock out front panel, all except PAUSE, STOP
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
MR1300,200;
MR150,1000;
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
VC118;OZ;       # capture Z
VC116;OC;       # capture XY
MZ@119;         # download Z move
XD212;          # park head
PS;
AZ@118;         # return to Z
MZ@119;         # download Z move
MA@116,@117;    # return to X,Y
AZ@118;         # return to Z
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;		# Park, pause, restore position.
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 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;
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;
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;
PS;
ED;

## MODELER CHECK
## USE    VS96,1600;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
BD100
IN;
VT99;XI101,1,1,102;
OU"^MROAD INDEX NUMBER:";
OV100;
ED;

## PART RECOVERY
BD101;
VS96,@107;
VS97,@96;
V-96,@104;
V/96,2;
OU"Z HEIGHT IN THOUSANDTHS OF AN INCH: ";
OV96;
ED;

## PART RECOVERY
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;

##  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;