WHT Autoguider version 4.1.30

Autoguider release 4.1.30

Title and Release number

Network ?net improvements and tracking window border bug fix
Release 4.1.30

Reason for release

This release fixes two problems, following a request from LPO staff. The ?NET command to poll network devices for activity caused the system console to complain, suggesting that the VME needs resetting. The Guide window showed odd behaviour when the star was near the left hand edge of the UES slit fibre.

Release History

Release note summary
4.1.27: System beeps when going into suspended mode.
4.1.28: old v4.0.2d centroid added for experiment
4.1.29: as 4.1.28 but better coded.
4.1.30: fix to ?net command not to poll system
fix to window tracking operation near border.

Changes in this release

The network address has been set to AUT1 following mods on LPO.
The ?NET command has had the request for status from SYS.AUT1 and SYS.UCP deleted to stop this request causing error messages on the system computer console.

Bugs fixed

Known problems and restrictions

The FIELD command will find stars over all of the area of the UES slit, even within the area which is outside the active tracking area defined by the border in blue. The guide loop will abort if it is started with a star in this region.
Workaround is not to choose stars unless they are within the blue window, ie avoid the left hand end of the slit.

Changes to Code

Network address

This is to make sure that the system at RGO matches that on LPO.
Block 1593: make sure that the AUTx address is AUT1 to make the block look like this:

1593 QUANTUM 0 0 ( Network names abg 19 Dec 94) 1 FORTH VIA NETWORK FORTH ENDVIA DEFINITIONS 2 3 : NEW-NAME ( -- ) NETWORK_TASK @ -ACTIVE NOT 4 IF SIGN-ON ENABLE-MON-MODE THEN ; 5 6 ~ : AUTOG ( -- ) " AUT1" DROP 1- 'MYNAME ! 7 " SYS.AUT1" DROP 1- 'SYS.NAME ! NEW-NAME ; 8 AUTOG 9 ." autoguider network address " MYNAME 5 TYPE CR 10 11 12 13 14 15 --> Similarly change address AUTx to AUT1 in block 1805 line 13 1805 QUANTUM 0 0 ( Network test routines abg 19 Dec 94) 1 HEX FORTH VIA FORTH NETWORK ENDVIA DEFINITIONS 2 VARIABLE (DEST) 2 CALLOT 3 : >IPCS " IPCS" (DEST) 2! ; : >CCD0 " CCD0" (DEST) 2! ; 4 : >DMS " DMS." (DEST) 2! ; : >UES " UES." (DEST) 2! ; 5 : >FOS " FOS." (DEST) 2! ; : >CCD3 " CCD3" (DEST) 2! ; 6 : >ENGM " ENGM" (DEST) 2! ; : >TAUR " TAUR" (DEST) 2! ; 7 : >CCD1 " CCD1" (DEST) 2! ; : >UCP " SYS.UCP" (DEST) 2! ; 8 : >CCD2 " CCD2" (DEST) 2! ; : >CCD4 " CCD4" (DEST) 2! ; 9 : >SYS " BAK.AUT1" (DEST) 2! ; : >LDSS " LDSS" (DEST) 2! ; 10 : >TST " TST." (DEST) 2! ; 11 : >AG " AGCA" (DEST) 2! ; 12 : >ISIS " ISIS" (DEST) 2! ; 13 : >AUTO " AUT1" (DEST) 2! ; 14 : DEST (DEST) 2@ ; 15 DECIMAL -->

?NET operation: comment out calls to >SYS and >UCP in block 1808, line 14

1808 QUANTUM 0 0 ( Network test abg 22 Dec 94) 1 : @T.STAT ( - status) TTABLE .START T.STAT C@ ; 2 : ?NULL ( - ) " NET800_" DEST C-TYPE TSEND 3 CR ." Message sent to " DEST TYPE ." ..." 4 BEGIN PAUSE @T.STAT 0= NOT UNTIL 5 ." Awaiting response ..." 6 BEGIN PAUSE @T.STAT 1 = NOT UNTIL @T.STAT 2 = 7 IF ." Acknowledgement received from " 8 ELSE ." NO RESPONSE FROM " THEN DEST TYPE CR ; 9 : ?NET ( - ) >AUTO ?NULL @T.STAT 3 = 10 IF ." NO COMMUNICATION WITH LOCAL NIU - TEST TERMINATED" CR 11 >SYS EXIT THEN 12 >FOS ?NULL >AG ?NULL >ISIS ?NULL >TAUR ?NULL >UES ?NULL 13 >CCD0 ?NULL >CCD1 ?NULL >CCD2 ?NULL >CCD3 ?NULL >IPCS ?NULL 14 >DMS ?NULL ( >SYS ?NULL) >ENGM ?NULL ( >UCP ?NULL) ; 15

Tracking window bug fix.
This is due to the window being restricted to be within the border area. The intended restriction is for the window centre to be in the border, but the test is erroneously performed on the window origin.

Change the routine NEW-WIN-POS in block 3538 from...

0 : NEW-WIN-POS ( - x0 y0 ) 11 WIN-SHIFT #TRACK @X0Y0 V+ 12 2>R GET-BORDER WIN->C 2R> VMIN VMAX ; \ keep within border by deleting the ; from line 12 and inserting two extra lines to convert from window origin to centre and then back again after the limit as follows... 3538 QUANTUM 0 0 ( Integration counter & border checking ABG 21 Dec 94) 1 2 : CL-COUNTER ( -) 0 COUNTER ! ; \ clear integration counter 3 : IN-BORDER? ( xc yc - f) >R >R GET-BORDER WIN->C 4 ROT SWAP 2SWAP R> WITHIN \ x star coord ok? 5 ROT ROT R> WITHIN AND NOT ; \ y star coord ok? 6 7 : WIN-SHIFT ( - dx dy ) 8 GXYC 2@ 10 10 V/ GET-TRACK 2DROP 2 2 V/ V- 9 BORDER-TEST IF 2DROP 15 15 THEN ; 10 : NEW-WIN-POS ( - x0 y0 ) 11 WIN-SHIFT #TRACK @X0Y0 V+ \ convert to new win origin 12 #TRACK @DXDY 2 2 V/ V+ \ convert to new win centre 13 2>R GET-BORDER WIN->C 2R> VMIN VMAX \ limit to border 14 #TRACK @DXDY 2 2 V/ V- \ convert back to origin. 15 ; --> Commenting out lines 12 and 14 will cause the system to behave as before.

Finally, edit block 3000 to comment the changes and update the release number as follows...lines 0,14 & 15.

3000 QUANTUM 0 0 : ^V " VERSION_4.1.30" ; ( AG main load block abg 22 Dec 94) 1 FORTH DEFINITIONS 0 FH ' LOAD-BASE ! 2 : ^VERSION ( - a n ) ^V ; 3 4 CR ." LOADING " ^VERSION TYPE CR --> 5 See Shadows of this block and the next few for version details. 6 THIS VERSION: 7 4.1.27 bug fix in DTHR 8 addition of V4.0.2d centroid code ( uses image stack 9 ) for comparison at UES. set vble 402-CEN non zero 10 to activate. 11 4.1.28 RE-ENABLED beep-op to beep on terminal when 12 guide goes suspended. 13 4.1.29 Re-coded V4.02d centroid code to use DCA buffers 14 4.1.30 network ?net sys.aut1 cmd disables block 1808 15 NEW-WIN-POS modified to limit centre of win to border A/G V4.1.30 12:12:15 >
A B Gentles, 22 December 1994
abg@ast.cam.ac.uk