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

display "Mnemonic command test: "

display "MBDUMMY, pass                      " to 40
display "CONT to send " to 22
halt
tcblock mbdummy

display "MBDUMMY, fail in MDI EGSE          " to 40
display "enter mbdummy 0x0001 " to 22
halt

display "MBOBT, fail in CMS                 " to 40
display "CONT to send " to 22
halt
display "CONT to reset" to 22
tcblock mbobt 0x0001 0x0002 0x0003
cmd reset
 
display "MBIPLDIN, pass, 0x4, 0x136         " to 40
display "CONT to send " to 22
halt
tcblock mbipldin 0x0136
 
set !LI1 = getint(mksqrg3)

display "MBHRMAG, pass, 0x1                 " to 40
display "CONT to send " to 22
halt
tcblock mbhrmag
 
display "sending MBSQREG to reset to default" to 40
display "CONT to send " to 22
halt
tcblock mbsqreg 3 !LI1

display "MBDPML, pass, 0x2000, 0x0, 0x1     " to 40
display "CONT to send " to 22
halt
tcblock mbdpml 0x2000 0x0000 0x0001

display "MBCMTP1R, pass, 0x8004,0x1,0x4000  " to 40
display "CONT to send " to 22
halt
tcblock mbcmtp1r 0x8004 0x0001 0x4000

display "done"

