##########################                                            ##-#
#                                                                     ##-#
# Assembled by checkpoint, 1.18.2 (23-Sep-99).                        ##-#
# (EDIT THE ORIGINAL SOURCE, NOT THIS FILE!)                          ##-#
# Date-assembled: Mon Jan 11 17:18:14 EST 2010                        ##-#
# Orig-source: /mdisw/cfl/flight/src/obs_limbfit4_v03.src             ##-#
#                                                                     ##-#
##########################                                            ##-#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/q_obs_limbfit4_v03.src"
descr  "Loads a DEP Frame List"
                                                                      ##-#
#=#=#=#=#=#=#=#=#=#=# src ln 4.  (Open Log file)                      ##-#
if !GS9 = "" then                                                     ##-#
  display "Opening logfile from q_obs_limbfit4_v03"                   ##-#
  perf openlog                                                        ##-#
end if                                                                ##-#
write !GS9 "%s q_obs_limbfit4_v03:" !TIME                             ##-#
writen !GS9 "Starting..."                                             ##-#
#=#=#=#=#=#=#=#=#=#=#+ src ln 4.  Block 0  Next line is #21           ##-#
 display "Running block 0 of q_obs_limbfit4_v03."                     ##-#
set !LI0 = getint(mktccnt)                                            ##-#
queue on ## Queue next 11 commands.                                   ##-#
tcb mbdpml 0x1000 0x2520 0x000A 0x09F7 0x0050 0x0000 0x0000 0x005C 
tcb mbdpml 0x1000 0x252C 0x0108 0xA756 0x059B 0x0000 0x4343 0x4343 
tcb mbdpml 0x1000 0x2538 0x0138 0x8C20 0x058B 0x0000 0x4240 0x4042 
tcb mbdpml 0x1000 0x2544 0x0168 0x9532 0x058B 0x0000 0x8241 0x4182 
tcb mbdpml 0x1000 0x2550 0x0198 0x9E44 0x058B 0x0000 0x82C0 0xC082 
tcb mbdpml 0x1000 0x255C 0x01C8 0xA756 0x058B 0x0000 0x82C1 0xC182 
tcb mbdpml 0x1000 0x2568 0x01F8 0xA756 0x058B 0x0000 0x82C1 0xC182 
tcb mbdpml 0x1000 0x2574 0x0228 0x9E44 0x058B 0x0000 0x82C0 0xC082 
tcb mbdpml 0x1000 0x2580 0x0258 0x9532 0x058B 0x0000 0x8281 0x8182 
tcb mbdpml 0x1000 0x258C 0x0288 0x8C20 0x058B 0x0000 0x8280 0x8082 
tcb mbdpml 0x1000 0x2598 0x02B8 0x830E 0x058B 0x0000 0x8383 0x8383 
queue off ## Synchronize w/ POCC                                      ##-#
# Enter new observation address into obs pointer table
tcb mbdpml 0x1000 0x4010 0x1498
#=#=#=#=#=#=#=#=#=#=#- src ln 17.  Block 0   Cmds:12   Total:12       ##-#
wait time 8 ## Wait for hk packet                                     ##-#
set !LI2 = !LI0 + 12                                                  ##-#
if !LI2 > 255 then                                                    ##-#
 set !LI1 = !LI2 - 256                                                ##-#
else                                                                  ##-#
 set !LI1 = !LI2                                                      ##-#
end if                                                                ##-#
set !LI2 = getint(mktccnt)                                            ##-#
if !LI1 <> !LI2 then                                                  ##-#
 write !GS9 "%s q_obs_limbfit4_v03:" !TIME                            ##-#
 writen !GS9  "CMD CT ERR in block 0. cmd ctr: %d" !LI2               ##-#
 writen !GS9  "      (Sent 12 cmds; expected cmd ctr: %d)" !LI1       ##-#
 writen !GS9  "      Halted.  (restart at line 21)"                   ##-#
 display "ERR: q_obs_limbfit4_v03 blk 0: cmd ctr isnt %d. (CONT 21)" !LI1##-#
 halt                                                                 ##-#
 write !GS9 "%s q_obs_limbfit4_v03:" !TIME                            ##-#
 writen !GS9  "Override.  Continuing past block 0..."                 ##-#
else                                                                  ##-#
 write !GS9 "%s q_obs_limbfit4_v03:" !TIME                            ##-#
 writen !GS9  "Block 0 completed OK."                                 ##-#
display "Completed block 0 of q_obs_limbfit4_v03."                    ##-#
end if                                                                ##-#
#################### END of BLOCK 0 ####################              ##-#
write !GS9 "%s q_obs_limbfit4_v03:" !TIME                             ##-#
writen !GS9 "Falling off the bottom."                                 ##-#
