/* O9001 IS THE M06 CALL MACRO FILE OF PROGRAM FILE.*/ 
        #30=$3;                                 /* RECORD GROUP 3 VALUE */
        IF (#20==#0) GOTO 8000;                 /* M06 IT'S NO Txx */
        #20=FIX(#20);                           /* T COMMAND MUST INTEGER */
        IF ((#20>$32 )||(#20 < 0 )) GOTO 9090;  /* T COMMAND ERROR */
        IF (#20==$31) GOTO 8000;                /* Txx=Sn */
        IF ($31== $41 ) GOTO 1000;              /* Sn=Mn */
        IF ($31==0) GOTO 2000;                  /* Sn!=Mn AND Sn=0 */
        $301=16;
        G53Z0;                                  /* Sn!=Mn AND Sn!=0 */
        $301=0;
        #1=#20;
        $301=32;
        T$31;
        $301=0;
        #20=#1;
N1000   $301=3;
        G91 G30P2Z0 M19;
        $301=0;
        IF ($31 !=0 ) GOTO 3000;
N2000   $301=18;
        G53Z0 M19;
        $301=0
N3000   G4X0.5;
        $301=4;
        M40;
        $301=0;
        G4X0.5;
        $301=8;
        M11;                                    /* I60=S22=1 v , WRITE D31=0 */
        $301=0;
        G4X1;
        IF ($31==0) GOTO 4000;          
        $301=16;
        G53Z0;                                  /* S18=1 & S100=1  D31=0 */
        $301=0;
        IF (#20==0) GOTO 5000;
N4000   $301=32;
        T#20;                                   /* A223L,S22=1 A ,WRITE D31=Txx */
        $301=0;
        $301=1;
        G91G30P2Z0;                             /* S22=1 & S100=1 D31=Txx */
        $301=0;
N5000   $301=128;
        M10;
        $301=0;
        G4X0.5;
        $301=64;
        M41;
        $301=0;
        GOTO 8000;
N9090   $599=90;                                /* T COMMAND ERROR */
N8000   G#30;                                   /* WRITE GROUP 3 VALUE */
        M99;
/* BY KAO YUNG-MING 1998.0727  VER:3 */
/* #20 : Txx COMMAND */
/* $31 : SPINDLE NUMBER */
/* $32 : MAGAZINE TOTAL NUMBER */
/* $41 : MAGAZINE INDEX NUMBER */
/* 128   64   32   16    8    4    2    1           */
/* M10   M41       G53   M11  M40  M19  G30    R39  */
/* M10   M41  TF   G53   M11  M40  M19  G30    $301 */