# File: iptmtst.src
#
# Performs IP telemetry test

program "@(#) MODULE: iptmtst.src RELEASE: 2.3 CREATED: 04/18/94 19:15:36"
source "/mdisw/cfl/eof/src/iptmtst.src"
descr "iptmtst - performs IP telemetry test"

# modified by M. Levay 29-dec-93 to make all wait times worst case

display "Executing procedure  iptmtst."
write  !GS9 "Executing procedure  iptmtst :"
write  !GS9 " %s" !DATE
writen !GS9 " %s" !TIME
writen !GS9 " "

#  Load memory 9 with fill pattern
#
tcblock mbipldin 0x112 0x4800 0x93

tcblock mbipldin 0x1B2 0x200 6  0 0 0x4800 0x00 0xFFFF 0xFF60
tcblock mbipldin 0x19C 0x200
tcblock mbipldin 0x174 0x13 0x4800 0xFDD9 0x11

display "Downlinking RAW test pattern"
writen !GS9 "Downlinking RAW test pattern at time: %s" !TIME
wait time 180

tcblock mbipldin 0x1B2 0x200 6 0 0 0x4800 0xC4 0xFFFF 0xFF61
tcblock mbipldin 0x19C 0x200
tcblock mbipldin 0x174 0x11 0x4800 0xFDD9 0x11

display "Downlinking COMPRESSED test pattern"
writen !GS9 "Downlinking COMPRESSED test pattern at time: %s" !TIME
wait time 180

tcblock mbipldin 0x1B2 0x200 6 0 0 0x4800 0xCC 0xFFFF 0xFF62
tcblock mbipldin 0x19C 0x200
tcblock mbipldin 0x174 0x12 0x4800 0xFDD9 0x11

display "Downlinking PACKED test pattern"
writen !GS9 "Downlinking PACKED test pattern at time: %s" !TIME
wait time 180

writen !GS9 " "
writen !GS9 "Finished procedure  iptmtst : %s" !TIME
writen !GS9 " "

return
