* TESTC
*
INITQQ MOV  R11,*S+
       MOVB @H80,@$SYSFG
       MOVB @H6A,@$SUBST
       LI   R0,>5431
       MOV  R0,@$RAND
       SB   @$WORLD,@$WORLD
       LI   R0,>7F86
       MOV  R0,@$DATST
       LI   R1,INITVR
       BL   @$LSHAD
       BL   @$CLRG1
       LI   R0,>F100
       LI   R2,COLORT
       LI   R3,32
       BL   @$REPVR
       LI   R0,9
       LI   R1,INITSA
       LI   R2,SAT
       BL   @$BLKVR
       LI   R0,>FF00
       LI   R2,8*'_'+PATTBL
       LI   R3,8
       BL   @$REPVR
       CLR  R0
       LI   R2,8*'|'+PATTBL
       LI   R3,8
       BL   @$REPVR
       LI   R0,>1000
       LI   R2,8*'|'+PATTBL+2
       LI   R3,5
       BL   @$REPVR
       MOVB @H04,@$KEYBD
       BL   @TIKBDS
       CLR  @ERRORF
       CLR  @LINKEF
       CLR  @FATLEF
       CLR  @PRMTST
       CLR  @SRCTFL
       CLR  @SSYTFL
       LI   R1,128
INIT10 CLR  @KBFLGS-2(R1)
       DECT R1
       JNE  INIT10
       LI   R1,88
INIT11 CLR  @JOYSEF-2(R1)
       DECT R1
       JNE  INIT11
       BL   @STMB00
       MOV  @STARTF,R0
       JNE  INIT98
INIT13 MOVB @$WORLD,R0
       COC  @MBXMSK,R0
       JEQ  INIT99
INIT98 SETO R0
       SETO @FATLEF
       SETO @ERRORF
       SETO @LINKEF
INIT99 DECT S
       MOV  *S,R11
       RT
*
INITVR BYTE >00,>E1,>00,>0E,>01,>06,>01,>01
INITSA BYTE >D0,>00,>2B,>06,>00,>00,>2B,>06,>D0
*
STMBQQ MOV  R11,*S+
       CLR  @STARTF
       INV  @STARTF
       BL   @INTXPD
       LIMI 2
       MOV  @STARTF,R0
       JNE  STMB98
STMB12 CLR  @SPKTMR
       LI   R1,HCEEPS
       MOV  R1,@$SYNAD
       CLR  R1
       MOVB @ZERO$,@$WRDPH
       BL   @$BFSTG
       LIMI 2
STMB13 MOVB @$WORLD,R0
       COC  @MBXMSK,R0
       JNE  STMB98
STMB14 C    @SPKTMR,@HF0
       JHE  STMB98
       MOVB @$RSTAT,R1
       ANDI R1,>0200
       JNE  STMB13
       JMP  STMB99
STMB98 SETO R0
       SETO @FATLEF
       SETO @ERRORF
       SETO @LINKEF
STMB99 DECT S
       MOV  *S,R11
       RT
*
PRMTBT EQU  >3879
PRMTQQ MOV  R11,*S+
       MOV  @FATLEF,R0
       JNE  PRMT99
       LI   R0,PRMTST
       MOV  R0,@$XADDR
       LI   R0,>100
       MOVB R0,@$NBYTE
       LI   R1,PRMTBT
       BL   @$RADDR
       LIMI 2
PRMT01 MOVB @$WORLD,R0
       COC  @MBXMSK,R0
       JEQ  PRMT02
       SETO R0
       SETO @FATLEF
       SETO @ERRORF
       SETO @LINKEF
       JMP  PRMT99
PRMT02 MOVB @$RSTA3,R1
       ANDI R1,>0800
       CB   R1,@DONE4
       JL   PRMT01
       MOV  @PRMTST,R0
       ANDI R0,>1B00
       JEQ  PRMT99
       SETO R0
       SETO @ERRORF
PRMT99 DECT S
       MOV  *S,R11
       RT
