# File: ipmemtst.src
#
# Performs IP memory test

program "@(#) MODULE: ipmemtst.src RELEASE: 2.3 CREATED: 04/18/94 19:15:18"
source "/mdisw/cfl/eof/src/ipmemtst.src"
descr "ipmemtst - Performs IP memory test"

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

# Test 8, 9, 0
tcblock mbipldin 0x110 0x4000 0x4800 0
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 8, 9, 0" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 8, 9, 0: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 10, 11, 1
tcblock mbipldin 0x110 0x5000 0x5800 0x800
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 10, 11, 1" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 10, 11 ,1: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 12, 13, 2
tcblock mbipldin 0x110 0x6000 0x6800 0x1000
wait time 5 
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 12, 13, 2" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 12, 13, 2: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 14, 15, 3
tcblock mbipldin 0x110 0x7000 0x7800 0x1800
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 14, 15, 3" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 14, 15, 3: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 16, 17, 4
tcblock mbipldin 0x110 0x8000 0x8800 0x2000
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 16, 17, 4" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 16, 17, 4: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 18, 19, 5
tcblock mbipldin 0x110 0x9000 0x9800 0x2800
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 18, 19, 5" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 18, 19, 5: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

# Test 6, 7, 0
tcblock mbipldin 0x110 0x3000 0x3800 0
wait time 5
tcblock mbiprddr 6
menu !LS1 "Enter results for pages 6, 7, 0" "OK" "Not OK" "Don't Know"
writen !GS9 "Results for pages 6, 7, 0: %s" !LS1
if !LS1 = "Not OK" then
  ask !LS1 "Enter summary of discrepency: "
  writen !GS9 "  %s" !LS1
end if

writen !GS9 " "
writen !GS9 "Finished procedure ipmemtst : %s" !TIME
writen !GS9 " "
return

