* MAINS
*
       DEF  TEST,START
 
TEST
START  LWPI MAINWS
       LI   S,STACK
       BL   @INIT00
*****
       LI   R6,TESTXT
       LI   R2,>13
       BL   @ENQCMD
       LI   R0,8
       LI   R1,>20
       BL   @ENQUE
       LI   R0,8
       LI   R1,0
       BL   @ENQUE
       LI   R1,16
       LI   R0,5
       BL   @ENQUE
TESTXL MOVB *R6+,R1
       SRL  R1,8
       LI   R0,8
       BL   @ENQUE
       CI   R6,TESTXT+16
       JNE  TESTXL
 
PATCHY EQU  $+2
RADLOP LI   R0,>E000
       MOV  R0,@$XADDR
       LI   R0,>1000
       MOVB R0,@$NBYTE
PATCHX EQU  $+2
       LI   R1,>2000
       LIMI 0
       BL   @$RADDR
       SZCB @DONE4,@$RSTA3
       LIMI 2
XXXYYY MOVB @$RSTA3,R1
       ANDI R1,>0800
       CB   R1,@DONE4
       JL   XXXYYY
*      A    @H0080,@PATCHX
*      A    @H0080,@PATCHY
*      JNE  RADLOP
 
RADXIT LIMI 2
       XOP  R0,1
H0080  DATA >10
TESTXT TEXT 'THIS is a TEST!!'
*****
       LI   R4,STAB
STABLP MOV  *R4+,R2
       JEQ  STBESC
       MOV  *R4+,R1
       MOV  *R4+,R0
       BL   @$BLKVR
       JMP  STABLP
STBESC BL   @TIKBDS
       CLR  R1
       MOVB @$KEY,R1
       CI   R1,>3600
       JH   STBCHK
       CI   R1,>3100
       JL   STBESC
       AI   R1,->3100
       SRL  R1,7
       MOV  @BTAB(R1),R1
       B    *R1
STBCHK CI   R1,>8500
       JNE  STBESC
       CLR  @>83C4
       BLWP @0
 
BTAB   DATA TEST3,TEST4,TEST5,TEST6
       DATA TEST7,TEST8
STAB   DATA 6,MT1,20,740,MT3,24
       DATA 675,MT2,26,194,MT4,24
       DATA 265,MT5,17,329,MT6,17
       DATA 393,MT7,17,457,MT8,22
       DATA 521,MT9,22,0
 
MT1    TEXT 'MBX Diagnostics V1.0'
MT2    TEXT 'Copyright 1988 Barry Boone'
MT3    TEXT 'Distributed by Texaments'
MT4    TEXT 'Press: <1> Run All Tests'
MT5    TEXT '<2> Internal Test'
MT6    TEXT '<3> Keyboard Test'
MT7    TEXT '<4> Joystick Test'
MT8    TEXT '<5> Speech Recog. Test'
MT9    TEXT '<6> Speech Synth. Test'
 
* MBX manual test
 
TEST3  BL   @PRMT00
       BL   @PIAM00
       BL   @ATDM00
       BL   @SRCT00
       BL   @SSYT00
       B    @EROR00
 
* primitive tests
 
TEST4  BL   @PRMT00
       B    @EROR00
 
* PIA - keyboard test
 
TEST5  BL   @PIAM00
       B    @EROR00
 
* A/D - Joystick test
 
TEST6  BL   @ATDM00
       B    @EROR00
 
* Speech recognition test
 
TEST7  BL   @SRCT00
       B    @EROR00
 
* Speech synthesis test
 
TEST8  BL   @SSYT00
       B    @EROR00
