#File:	page_ice.src
#History:	
#	Written 08-Mar-2000  S. Gregory
#
#This program first runs ice, then page dumps then what ever
#campaign that you set the chain address to.
#
#===========================================================
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/page_ice.src"
descr "page_ice - Performs page dumps and ice"

ask !LI0 "Enter the post calibration chain address"
tcblock mbsqreg 69  110             ## new_cam_addr - 110
tcblock mbsqreg 68  1               ## enable new flag

tcblock mbsqreg 73  408             ## copy of chain address
tcblock mbsqreg 151 408             ## set chain address - 408
tcblock mbsqreg 152 !LI0            ## set chain address
tcblock mbsqreg 153 !LI0            ## set chain address
tcblock mbsqreg 154 !LI0            ## set chain address
tcblock mbsqreg 155 !LI0            ## set chain address
tcblock mbsqreg 156 !LI0            ## set chain address
tcblock mbsqreg 157 !LI0            ## set chain address
tcblock mbsqreg 158 !LI0            ## set chain address
