MLZS   JOB   MLZS - CHECK OUT MLZS INSTRUCTION
       ORG   500
START  H                                     TO ALLOW SWITCH TO SS MODE
       CS    332
       CS
       MLCWA MSG1,250
       W
       CS    299
       MLCWA DATA,250
       MLCWA EXPECT
       W
       MLCWA DATA,250
       MLCWA GOT
       MLZS  NONE,250                        RADICAL
       MLZS                                  >
       MLZS                                  :
       MLZS                                  '  
       MLZS                                  0
       MLZS                                  9
       MLZS                                  8
       MLZS                                  7
       MLZS                                  6
       MLZS                                  5
       MLZS                                  4
       MLZS                                  3
       MLZS                                  2
       MLZS                                  1
       MLZS                                  SPACE
       W
       CS    299
       W
       MLCWA ADATA,250
       MLCWA EXPECT
       W
       MLCWA DATA,250
       MLCWA GOT
       MLZS  A,250                           RADICAL
       MLZS                                  >
       MLZS                                  :
       MLZS                                  '
       MLZS                                  =
       MLZS                                  0
       MLZS                                  9
       MLZS                                  8
       MLZS                                  7
       MLZS                                  6
       MLZS                                  5
       MLZS                                  4
       MLZS                                  3
       MLZS                                  2
       MLZS                                  1
       MLZS                                  SPACE
       W
       CS    299
       W
       MLCWA BDATA,250
       MLCWA EXPECT
       W
       MLCWA DATA,250
       MLCWA GOT
       MLZS  B,250                           RADICAL
       MLZS                                  >
       MLZS                                  :
       MLZS                                  '
       MLZS                                  =
       MLZS                                  0
       MLZS                                  9
       MLZS                                  8
       MLZS                                  7
       MLZS                                  6
       MLZS                                  5
       MLZS                                  4
       MLZS                                  3
       MLZS                                  2
       MLZS                                  1
       MLZS                                  SPACE
       W
       CS    299
       W
       MLCWA BADATA,250
       MLCWA EXPECT
       W
       MLCWA DATA,250
       MLCWA GOT
       MLZS  BA,250                          RADICAL
       MLZS                                  >
       MLZS                                  :
       MLZS                                  '
       MLZS                                  =
       MLZS                                  0
       MLZS                                  9
       MLZS                                  8
       MLZS                                  7
       MLZS                                  6
       MLZS                                  5
       MLZS                                  4
       MLZS                                  3
       MLZS                                  2
       MLZS                                  1
       MLZS                                  SPACE
       W
       CS    299
       W
*
*      NOW TEST THE MLNS INSTRUCTION
*
       CS    332
       CS
       MLCWA MSG2,250
       W
       CS    299
       MLCWA DATA,250
       MLCWA EXPECT
       W
       MLCWA NONE,250
       MLCWA GOT
       MLNS  DATA,250                        RADICAL
       MLNS                                  >
       MLNS                                  :
       MLNS                                  '  
       MLNS                                  0
       MLNS                                  9
       MLNS                                  8
       MLNS                                  7
       MLNS                                  6
       MLNS                                  5
       MLNS                                  4
       MLNS                                  3
       MLNS                                  2
       MLNS                                  1
       MLNS                                  SPACE
       W
       CS    299
       W
       MLCWA ADATA,250
       MLCWA EXPECT
       W
       MLCWA A,250
       MLCWA GOT
       MLNS  DATA,250                        RADICAL
       MLNS                                  >
       MLNS                                  :
       MLNS                                  '
       MLNS                                  =
       MLNS                                  0
       MLNS                                  9
       MLNS                                  8
       MLNS                                  7
       MLNS                                  6
       MLNS                                  5
       MLNS                                  4
       MLNS                                  3
       MLNS                                  2
       MLNS                                  1
       MLNS                                  SPACE
       W
       CS    299
       W
       MLCWA BDATA,250
       MLCWA EXPECT
       W
       MLCWA B,250
       MLCWA GOT
       MLNS  DATA,250                        RADICAL
       MLNS                                  >
       MLNS                                  :
       MLNS                                  '
       MLNS                                  =
       MLNS                                  0
       MLNS                                  9
       MLNS                                  8
       MLNS                                  7
       MLNS                                  6
       MLNS                                  5
       MLNS                                  4
       MLNS                                  3
       MLNS                                  2
       MLNS                                  1
       MLNS                                  SPACE
       W
       CS    299
       W
       MLCWA BADATA,250
       MLCWA EXPECT
       W
       MLCWA BA,250
       MLCWA GOT
       MLNS  DATA,250                        RADICAL
       MLNS                                  >
       MLNS                                  :
       MLNS                                  '
       MLNS                                  =
       MLNS                                  0
       MLNS                                  9
       MLNS                                  8
       MLNS                                  7
       MLNS                                  6
       MLNS                                  5
       MLNS                                  4
       MLNS                                  3
       MLNS                                  2
       MLNS                                  1
       MLNS                                  SPACE
       W
       CS    299
       W
       H     *-3
*
MSG1   DCW   @TEST OF MLZS INSTRUCTION@
MSG2   DCW   @TEST OF MLNS INSTRUCTION@
DATA   DCW   @ 1234567890=':>û@
ADATA  DCW   @b/STUVWXYZØ,(^\×@
BDATA  DCW   @-JKLMNOPQR!$*];@
BADATA DCW   @+ABCDEFGHI?.)[<Î@
NONE   DCW   @                @
A      DCW   @////////////////@
B      DCW   @----------------@
BA     DCW   @++++++++++++++++@
EXPECT DCW   @EXPECT: @
GOT    DCW   @GOT:    @
       END   START

       