    1     $CONTROL USLINIT,LIST,SOURCE,INNERLIST
    2
    3     << Two-word CPU stop diagnostic.  22-Feb-2024  <jdbryan@acm.org>
    4
    5        This program verifies that unimplemented two-word instructions
    6        are handled properly when a CPU stop is active.
    7
    8     >>
    9
   10     BEGIN
   11
   12       INTRINSIC PRINT,GETPRIVMODE,GETUSERMODE;
   13
   14       BYTE ARRAY BANNER (0:26) := "TWO-WORD UNIMPLEMENTED TEST";
   15       LOGICAL ARRAY BUFFER(*) = BANNER;
   16
   17       PRINT (BUFFER,-27, %40);
   18
   19       GETPRIVMODE;
   20
   21       ASSEMBLE (CON %020104;  << RCCR >>
   22                 CON %000000;
   23                 DEL;
   24                 CON %020302;  << ALSO %020104 >>
   25                 CON %000020
   26                 );
   27
   28       GETUSERMODE;
   29
   30     END.

:PREP $OLDPASS,WD2RUN;CAP=IA,PM
