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


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

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 120

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

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

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

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

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 120

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

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

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

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

goto top

return

