# File: sqpatch.src
#

program "@(#) MODULE: sqpatch.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/sqpatch.src"
descr " sqpatch - Patch DEP 10.0a fix sequences"

display "Executing procedure sqpatch."

# patches to the DEP Flight Software ver 10.0a sequences. 

ask !LS0 "Configure for DEP memory dump display"

# load flight alternate mag30 frame list

perform  "mag30obs_v01"

# DEP Sequence Buffer Patches

tcblock mbdpml  0x1000 0x3EF2 0x0101   ## Patch STR60 IP Q Ptr
tcblock mbdpml  0x1000 0x3D2A 0x0404   ## Patch STR30 IP Q Ptr
tcblock mbdpml  0x1000 0x3CA6 0x0505   ## Patch ALT30 IP Q Ptr
tcblock mbdpml  0x1000 0x3C5E 0x0707   ## Patch HDR15 IP Q Ptr
tcblock mbdpml  0x1000 0x3C54 0x0005   ## Patch HDR15 IP Q Ptr
tcblock mbdpml  0x1000 0x3CB0 0x4343 0x4343 ##
wait time 5

tcblock mbdpmd 0x1000 0x3C50 0x02B8

display "Continue after observing sci5k DEP Memeory dump"
halt

wait time 3

# set DEP sequence to use frame list pointer for structure program
tcblock mbsqreg 247 0x7FFF          ## Use Frame List Que pointer only

return
