##########################                                            ##-#
#                                                                     ##-#
# Assembled by checkpoint, 1.18.2 (23-Sep-99).                        ##-#
# (EDIT THE ORIGINAL SOURCE, NOT THIS FILE!)                          ##-#
# Date-assembled: Mon Mar 29 10:34:33 EST 2010                        ##-#
# Orig-source: /mdisw/cfl/flight/src/exposure_v10.src                 ##-#
#                                                                     ##-#
##########################                                            ##-#
# File: /mdisw/cfl/mdi/src/exposure_v10.src
#                                      
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
#=======================================================   
source "/mdisw/cfl/flight/src/q_exposure_v10.src"                   
descr "Increased FD exposure by 10% left HR exposure unchanged"                                            
                                                                      ##-#
#=#=#=#=#=#=#=#=#=#=# src ln 9.  (Open Log file)                      ##-#
if !GS9 = "" then                                                     ##-#
  display "Opening logfile from q_exposure_v10"                       ##-#
  perf openlog                                                        ##-#
end if                                                                ##-#
write !GS9 "%s q_exposure_v10:" !TIME                                 ##-#
writen !GS9 "Starting..."                                             ##-#
#=#=#=#=#=#=#=#=#=#=#+ src ln 9.  Block 0  Next line is #24           ##-#
 display "Running block 0 of q_exposure_v10."                         ##-#
set !LI0 = getint(mktccnt)                                            ##-#
queue on ## Queue next 19 commands.                                   ##-#
#                                                          
#                                                          
tcb mbdpml 0x1000  0x4498 0x00A0      ##  0   160 SHORT    
tcb mbdpml 0x1000  0x449A 0x01E0      ##  1   480 HALF     
tcb mbdpml 0x1000  0x449C 0x0780      ##  2  1920 TWICE    
tcb mbdpml 0x1000  0x449E 0x0480      ##  3  1152 CALFD    
tcb mbdpml 0x1000  0x44A0 0x04EC      ##  4  1260  CALHR   
tcb mbdpml 0x1000  0x44A2 0x03C0      ##  5   960 STD      
tcb mbdpml 0x1000  0x44A4 0x04EC      ##  6  1260 STDHR    
tcb mbdpml 0x1000  0x44A6 0x12C0      ##  7  4800 RBE      
tcb mbdpml 0x1000  0x44A8 0x0960      ##  8  2400 LONG     
tcb mbdpml 0x1000  0x44AA 0x4E20      ##  9 20000 VLONG    
tcb mbdpml 0x1000  0x44AC 0x0258      ## 10   600          
tcb mbdpml 0x1000  0x44AE 0x0258      ## 11   600          
tcb mbdpml 0x1000  0x44B0 0x0258      ## 12   600          
tcb mbdpml 0x1000  0x44B2 0x0258      ## 13   600          
tcb mbdpml 0x1000  0x44B4 0x0258      ## 14   600          
tcb mbdpml 0x1000  0x44B6 0x0258      ## 15   600          
tcb mbdpml 0x1000  0x44B8 0x0258      ## 16   600          
tcb mbdpml 0x1000  0x44BA 0x0258      ## 17   600          
tcb mbdpml 0x1000  0x44BC 0x0258      ## 18   600          
queue off ## Synchronize w/ POCC                                      ##-#
tcb mbdpml 0x1000  0x44BE 0x0258      ## 19   600          
#=#=#=#=#=#=#=#=#=#=#- src ln 29.  Block 0   Cmds:20   Total:20       ##-#
wait time 8 ## Wait for hk packet                                     ##-#
set !LI2 = !LI0 + 20                                                  ##-#
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_exposure_v10:" !TIME                                ##-#
 writen !GS9  "CMD CT ERR in block 0. cmd ctr: %d" !LI2               ##-#
 writen !GS9  "      (Sent 20 cmds; expected cmd ctr: %d)" !LI1       ##-#
 writen !GS9  "      Halted.  (restart at line 24)"                   ##-#
 display "ERR: q_exposure_v10 blk 0: cmd ctr isnt %d. (CONT 24)" !LI1 ##-#
 halt                                                                 ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Override.  Continuing past block 0..."                 ##-#
else                                                                  ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Block 0 completed OK."                                 ##-#
display "Completed block 0 of q_exposure_v10."                        ##-#
end if                                                                ##-#
#################### END of BLOCK 0 ####################              ##-#
#=#=#=#=#=#=#=#=#=#=#+ src ln 29.  Block 1  Next line is #75          ##-#
 display "Running block 1 of q_exposure_v10."                         ##-#
set !LI0 = getint(mktccnt)                                            ##-#
queue on ## Queue next 19 commands.                                   ##-#
tcb mbdpml 0x1000  0x44C0 0x0258      ## 20   600          
tcb mbdpml 0x1000  0x44C2 0x0050      ## 21  80
tcb mbdpml 0x1000  0x44C4 0x0060      ## 22  96
tcb mbdpml 0x1000  0x44C6 0x006C      ## 23 108
tcb mbdpml 0x1000  0x44C8 0x007C      ## 24 124
tcb mbdpml 0x1000  0x44CA 0x0098      ## 25 152
tcb mbdpml 0x1000  0x44CC 0x00B4      ## 26 180
tcb mbdpml 0x1000  0x44CE 0x00D0      ## 27 208
tcb mbdpml 0x1000  0x44D0 0x00F0      ## 28 240
tcb mbdpml 0x1000  0x44D2 0x0120      ## 29 288
tcb mbdpml 0x1000  0x44D4 0x0154      ## 30 340
tcb mbdpml 0x1000  0x44D6 0x0190      ## 31 400
tcb mbdpml 0x1000  0x44D8 0x01CC      ## 32 460
tcb mbdpml 0x1000  0x44DA 0x0220      ## 33 544
tcb mbdpml 0x1000  0x44DC 0x0280      ## 34 640
tcb mbdpml 0x1000  0x44DE 0x02F8      ## 35 760
tcb mbdpml 0x1000  0x44E0 0x0370      ## 36 880
tcb mbdpml 0x1000  0x44E2 0x0400      ## 37 1024
tcb mbdpml 0x1000  0x44E4 0x04C4      ## 38 1220
queue off ## Synchronize w/ POCC                                      ##-#
tcb mbdpml 0x1000  0x44E6 0x05A0      ## 39 1440
#=#=#=#=#=#=#=#=#=#=#- src ln 49.  Block 1   Cmds:20   Total:40       ##-#
wait time 8 ## Wait for hk packet                                     ##-#
set !LI2 = !LI0 + 20                                                  ##-#
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_exposure_v10:" !TIME                                ##-#
 writen !GS9  "CMD CT ERR in block 1. cmd ctr: %d" !LI2               ##-#
 writen !GS9  "      (Sent 20 cmds; expected cmd ctr: %d)" !LI1       ##-#
 writen !GS9  "      Halted.  (restart at line 75)"                   ##-#
 display "ERR: q_exposure_v10 blk 1: cmd ctr isnt %d. (CONT 75)" !LI1 ##-#
 halt                                                                 ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Override.  Continuing past block 1..."                 ##-#
else                                                                  ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Block 1 completed OK."                                 ##-#
display "Completed block 1 of q_exposure_v10."                        ##-#
end if                                                                ##-#
#################### END of BLOCK 1 ####################              ##-#
#=#=#=#=#=#=#=#=#=#=#+ src ln 49.  Block 2  Next line is #124         ##-#
 display "Running block 2 of q_exposure_v10."                         ##-#
set !LI0 = getint(mktccnt)                                            ##-#
queue on ## Queue next 19 commands.                                   ##-#
tcb mbdpml 0x1000  0x44E8 0x0690      ## 40 1680
tcb mbdpml 0x1000  0x44EA 0x07D0      ## 41 2000
tcb mbdpml 0x1000  0x44EC 0x0960      ## 42 2400
tcb mbdpml 0x1000  0x44EE 0x0AF0      ## 43 2800
tcb mbdpml 0x1000  0x44F0 0x0C80      ## 44 3200
tcb mbdpml 0x1000  0x44F2 0x0ED8      ## 45 3800
tcb mbdpml 0x1000  0x44F4 0x1130      ## 46 4400
tcb mbdpml 0x1000  0x44F6 0x1450      ## 47 5200
tcb mbdpml 0x1000  0x44F8 0x1838      ## 48 6200
tcb mbdpml 0x1000  0x44FA 0x1C20      ## 49 7200
tcb mbdpml 0x1000  0x44FC 0x20D0      ## 50 8400
tcb mbdpml 0x1000  0x44FE 0x2710      ## 51 10000
tcb mbdpml 0x1000  0x4500 0x2EE0      ## 52 12000
tcb mbdpml 0x1000  0x4502 0x36B0      ## 53 14000
tcb mbdpml 0x1000  0x4504 0x3E80      ## 54 16000
tcb mbdpml 0x1000  0x4506 0x4A38      ## 55 19000
tcb mbdpml 0x1000  0x4508 0x55F0      ## 56 22000
tcb mbdpml 0x1000  0x450A 0x6590      ## 57 26000
tcb mbdpml 0x1000  0x450C 0x7918      ## 58 31000
queue off ## Synchronize w/ POCC                                      ##-#
tcb mbdpml 0x1000  0x450E 0x8CA0      ## 59 36000
#=#=#=#=#=#=#=#=#=#=#- src ln 69.  Block 2   Cmds:20   Total:60       ##-#
wait time 8 ## Wait for hk packet                                     ##-#
set !LI2 = !LI0 + 20                                                  ##-#
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_exposure_v10:" !TIME                                ##-#
 writen !GS9  "CMD CT ERR in block 2. cmd ctr: %d" !LI2               ##-#
 writen !GS9  "      (Sent 20 cmds; expected cmd ctr: %d)" !LI1       ##-#
 writen !GS9  "      Halted.  (restart at line 124)"                  ##-#
 display "ERR: q_exposure_v10 blk 2: cmd ctr isnt %d. (CONT 124)" !LI1##-#
 halt                                                                 ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Override.  Continuing past block 2..."                 ##-#
else                                                                  ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Block 2 completed OK."                                 ##-#
display "Completed block 2 of q_exposure_v10."                        ##-#
end if                                                                ##-#
#################### END of BLOCK 2 ####################              ##-#
#=#=#=#=#=#=#=#=#=#=#+ src ln 69.  Block 3  Next line is #173         ##-#
 display "Running block 3 of q_exposure_v10."                         ##-#
set !LI0 = getint(mktccnt)                                            ##-#
queue on ## Queue next 3 commands.                                    ##-#
tcb mbdpml 0x1000  0x4510 0xA7F8      ## 60 43000
tcb mbdpml 0x1000  0x4512 0xC350      ## 61 50000
tcb mbdpml 0x1000  0x4514 0xE290      ## 62 58000
queue off ## Synchronize w/ POCC                                      ##-#
tcb mbdpml 0x1000  0x4516 0xFA00      ## 63 64000
#=#=#=#=#=#=#=#=#=#=#- src ln 74.  Block 3   Cmds:4   Total:64        ##-#
wait time 8 ## Wait for hk packet                                     ##-#
set !LI2 = !LI0 + 4                                                   ##-#
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_exposure_v10:" !TIME                                ##-#
 writen !GS9  "CMD CT ERR in block 3. cmd ctr: %d" !LI2               ##-#
 writen !GS9  "      (Sent 4 cmds; expected cmd ctr: %d)" !LI1        ##-#
 writen !GS9  "      Halted.  (restart at line 173)"                  ##-#
 display "ERR: q_exposure_v10 blk 3: cmd ctr isnt %d. (CONT 173)" !LI1##-#
 halt                                                                 ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Override.  Continuing past block 3..."                 ##-#
else                                                                  ##-#
 write !GS9 "%s q_exposure_v10:" !TIME                                ##-#
 writen !GS9  "Block 3 completed OK."                                 ##-#
display "Completed block 3 of q_exposure_v10."                        ##-#
end if                                                                ##-#
#################### END of BLOCK 3 ####################              ##-#
write !GS9 "%s q_exposure_v10:" !TIME                                 ##-#
writen !GS9 "Falling off the bottom."                                 ##-#
