Changeset 1675 for trunk/MagicSoft/Cosy/aposs/Manual.m

Timestamp:

12/11/02 20:41:04 (22 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Cosy/aposs/Manual.m (modified) (6 diffs)

trunk/MagicSoft/Cosy/aposs/Manual.m

@@ -4 +4 @@
 /*                                                                         */
 kVERSION    = 0   /*                                                       */
-kSUBVERSION = 1   /*                                                       */
+kSUBVERSION = 2   /*                                                       */
 /*                                                                         */
 /*  HISTORY:                                                               */
+/*                                                                         */
+/*   * V0.2:                                                               */
+/*       - fixed a bug, shaking the telescope switching on again after an  */
+/*         emergency stop                                                  */
 /*                                                                         */
 /*   * V0.1:                                                               */
@@ -74 +78 @@
 SET VELMAX     3000          /* Motor: Maximum revolutions per minute      */
 SET POSERR     1500          /* Maximum tolarable Position error (qc) 0.1° */
-SET RAMPMIN   10000         /* Shortest Ramp 10s                          */
+SET RAMPMIN   10000          /* Shortest Ramp 10s                          */
 
 /*----------------*/
@@ -148 +152 @@
 /*-------------------------------------------------------------------------*/
 if (get cannr==1) or (get cannr==3) then
-   cvel 0
-   cstart
    print "Starting..."             
 else          
+   /*motor off /* switch off motor controlling: No 'Schleppfehler' */
    print "Synchronizing..."             
+   motor on
    syncv
-endif
-          
+endif      
+         
 mainloop:       
    fuse  = in (kIoModule+1)
    emcy  = in (kIoModule+2)
    vltg  = in (kIoModule+3)
-   mode  = in (kIoModule+4)
+   mode  = in (kIoModule+4)   
+   
    if (get cannr==1) or (get cannr==2) then
        ready = in 1
    elseif get cannr==3 then
-      ready = in (kIoModule+5)
+       ready = in (kIoModule+5)
    endif   
        
@@ -190 +195 @@
       print "DKC not ready... setting RF=AH=0!"
       out 1 0
-      out 2 0
-      cvel 0   
-      RF = 0           
-      waitt 1000       
+      out 2 0   
+      RF = 0
+      motor off
+      waitt 1000
       goto mainloop    
    elseif (ready==1) and (RF==0) then
@@ -200 +205 @@
        * After switching on power wait at least 300ms until
        * control changed state 'bb' to 'ab'
-       */   
-      cvel 0
+       */
+      cvel 0 
       waitt 300
       out 1 0
       out 2 0
-      waitt 100
-      def origin
+      motor off      
+      waitt 100 
       out 1 1
       out 2 1                                 
       RF = 1
       waitt 100
+      motor on
+      cstart
+      /*waitt 100*/
    elseif (ready==0) or (RF==0) then
       goto mainloop
@@ -216 +224 @@
 /*       
    if (get cannr==2) then
-      print "M:", mapos, " ", mavel, "  S: ", apos, " ", avel, "  C:", cpos 
-      waitt 500      
+      print apos, " ", mapos, "  ", avel," ", mavel
+      waitt 500
       goto mainloop
    endif