program "@(#) MODULE: bin_test.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/eof/src/bin_test.src"
descr "bin_test- Test set of binary commands to validate GSE"

display "Binary command test: "
display "CONT to send " to 22

display "MBDUMMY, 1/1 words                    " to 40
display "GOOD" to 74
display "CONT to send " to 22
halt
binary 0x2801 

display "MBDUMMY, 2/1 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2802 
cmd reset

display "MBDUMMY, 0/1 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2800
cmd reset
 
display "MBDUMMY, 1/2 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2801 0x1111
cmd reset
 
set !LI1 = getint(mksqrg3)

display "MBHRMAG, 2/2 words                    " to 40
display "GOOD" to 74
display "CONT to send " to 22
halt
binary 0x2862 0x0001 

display "MBHRMAG, 2/1 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2862
cmd reset

display "MBHRMAG, 2/3 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2862 0x0001 0x0002
cmd reset

display "MBHRMAG, 1/2 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2861 0x0001 
cmd reset

display "MBHRMAG, 3/2 words                    " to 40
display "BAD " to 74
display "CONT to send " to 22
halt
display "CONT to reset" to 22
binary 0x2863 0x0001
cmd reset
 
display "MBHRMAG, 3/2 words                    " to 40
display "MBSQREG to reset to default           " to 40
display "CONT to send " to 22
halt
#tcblock mbsqreg 3 !LI1
binary 0x2b24 0x0002 0x0003 !LI1

display "MBDPML, DEP mem load, 31/31 words     " to 40
display "GOOD" to 74
display "CONT to send " to 22
halt
binary 0x295f 0x2000 0x25a0 0x2463 0x3254 0x32da 0x9398 0x9780 \
       0x4066 0x401b 0x4019 0x4017 0x4015 0x4013 0x9911 0x4061 \
       0x8017 0x9541 0x8093 0x8b41 0x9495 0x6183 0x5664 0x6180 \
       0x5464 0x8280 0x8280 0x4180 0x8081 0x8091 0x8081

display "MBSQMTLU list update, 17/17 words     " to 40
display "GOOD" to 74
display "CONT to send " to 22
#tcblock mbsqmtlu 1 0 255 255 1 71 69 2 80 87
halt
binary 0x2b2c 0x0008 0x0001 0x0000 0x00ff 0x00ff 0x0001 0x0047 \
       0x0045 0x0002 0x0050 0x0057

display "done"

