          IDENT  TESTNBE
          TITLE  DSA$CHECK IF NOSBE
*
* PROCEDURE [XREF] TESTNBE ( VAR NOSBE: BOOLEAN );
*
          ENTRY  TESTNBE,PAUSE,PAWS,GETWORD,MMOVE
          SYSCOM
          LIST   F
*copyc dsa$cybil_if_macros
TESTNBE   BSS    0
          IF     -DEF,RA.ORG,1
          SX6    B0          SET TO (FALSE) FOR NOS
          IF     DEF,RA.ORG,1
          MX6    1           SET TO (TRUE)  FOR NOS/BE
          SA6    X1          WRITE OUTPUT PARAMETER
          EQ     GETWRD1
*
* PROCEDURE [XREF] PAUSE (TIME: INTEGER);
* PAUSE - PAUSE (RECALL) FOR A SPECIFIED NUMBER OF RECALLS
*
PAUSE     BSS    0
PAWS      BSS    0
          RJ     =XPXSAVE
          SX0    X1-1
          EQ     PAUSE2
PAUSE1    SX0    X0-1
          RECALL
PAUSE2    PL     X0,PAUSE1
          EQ     =XZSMRRET
*
* PROCEDURE [XREF] GETWORD (ADDRESS: INTEGER; WORD: ^CELL);
*
GETWORD   BSS    0
          SA1    X1
          BX6    X1
          SA6    X2
GETWRD1   SHORTEX
*
* PROCEDURE [XREF] MMOVE (FROM: ^CELL; TO: ^CELL; LENGTH: INTEGER;)
*
MMOVE     RJ     =XPXSAVE
          SB3    X3-1
          EQ     MOVE2
MOVE1     SA4    X1+B3
          BX6    X4
          SA6    X2+B3
          SB3    B3-B1
MOVE2     PL     B3,MOVE1
          EQ     =XZSMRRET
          END
