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
-
Error message on system console indicating need to reset autoguider VME
following ?NET command from autoguider engineering terminal.
-
When star was less than 1/2 window width from left hand border window and outside centre 5 pixels in window, the system failed to move the readout window to follow the star, getting stuck in a loop moving the window without success.
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