program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/ob4run.src"
descr "OB4RUN - Run Observables IV program"

# HISTORY:
#	Written 29-Mar-96 by M.Morrison
#	 1-Apr-96 (MDM) - Reversed to do reg 0 clearing before RUNSTR
#	 1-Apr-96 (MDM) - Modified to have the wait time be 45 seconds
#			  so that they are actually separated by 120 sec
#			  (because of checkpoint/shared NRT)

tcb mbsqreg 0 0		## Clear the counter
perf runstr_v09		## Start test structure running

top:

display "Waiting for frame 19                "
wait4frm19:
    wait until getint(mksqrg0) = 20		## off by one!?!?!

    display "Downlinking page 0"
    set !GI2 = 0		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 1"
    set !GI2 = 1		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 2"
    set !GI2 = 2		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 5"
    set !GI2 = 5		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 6"
    set !GI2 = 6		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

display "Waiting for frame 20                "
wait4frm20:
    wait until getint(mksqrg0) = 21		## off by one!?!?!

    display "Waiting for  dynamics downlink          "
    wait time 75

    display "Downlinking page 3"
    set !GI2 = 3		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 5"
    set !GI2 = 5		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 6"
    set !GI2 = 6		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 7"
    set !GI2 = 7		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

    display "Downlinking page 14"
    set !GI2 = 14		##Downlink page N
    perf ippage_dmp160k_v01
    wait time 45

goto top

return

