#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/runstr_cal_v03.src"
descr "runstr_cal - execute macros from mkstr."

display "Executing procedure  runstr_cal"

				## execute the structure reg init stuff
				## 1-2 errors will occur because of RTNQUEs

# Initialize Register Lists and data buffers
tcblock mbipldin 0x140 1466      0  ## $IPRL_STR_REGINI
tcblock mbipldin 0x152 0x0600       ## Call QSR_STR_RLINIT
tcblock mbipldin 0x152 0x089B       ## Call QSR_STR_DAINIT
tcblock mbipldin 0x152 0x0A11       ## Call QSR_MAG_INITMAG


perf obs_cal_str60_v01
perf strdpc_cal_v02			## patch the DPCs

perf runstr_noinit_v02

