MCE        JOB  TEST MCE INSTRUCTION
           ORG  500
START      CS   332
           CS
           MLCWA@TEST OF MCE INSTRUCTION@,250
           W
           CS   299
           H
           MLCWA@---------------- SIMPLE EDITS ----------------@,266
           W
           CS   299
* POSITIVE VALUE WITH - SIGN
           MLCWAF1,FMT
           MLCWAC1,VAL
           B    WRT
* NEGATIVE VALUE WITH - SIGN
           MLCWAC2,VAL
           B    WRT
* LARGE POSITIVE VALUE TO TEST COMMA INSERTION
           MLCWAC3,VAL
           B    WRT
* POSITIVE VALUE WITH CR SIGN
           MLCWAF2,FMT
           MLCWAC1,VAL
           B    WRT
* NEGATIVE VALUE WITH CR SIGN
           MLCWAC2,VAL
           B    WRT
*
           MLCWA@---------------- FLOATING $ EDITS ----------------@,266
           W
           CS   299
* FLOATING $
           MLCWAF3,FMT
           MLCWAC1,VAL
           B    WRT
           MLCWAC3,VAL
           B    WRT
*
           MLCWA@---------------- * FILL EDITS ----------------@,266
           W
           CS   299
* ASTERISK FILL
           MLCWAF4,FMT
           MLCWAC1,VAL
           B    WRT
           MLCWAC2,VAL
           B    WRT
           MLCWAC3,VAL
           B    WRT
*
           MLCWA@---------------- DECIMAL CONTROL EDITS ----------------@,266
           W
           CS   299
* DECIMAL FILL
           MLCWAF5,FMT
           MLCWAC1,VAL
           B    WRT
           MLCWAC4,VAL
           B    WRT
           MLCWAC5,VAL
           B    WRT
           H    *-3
*
* SUBROUTINE TO EDIT AND PRINT
*
WRT        SBR  WRTR+3
           MLCWA@'@,270
           MLCWAFMT
           MLCWA@' GIVES: '@
           MLCWAFMT
           MLCWA@ UNDER '@
           MLCWAVAL
           MCE  VAL,269
           W
           WM                                   WRITE WORD MARK INFO
           CS   299
WRTR       B    0
*
VAL        DCW  #20
FMT        DCW  #20
F1         DCW  @   ,   ,  0.  -@
F2         DCW  @   ,   ,  0.  CR@
F3         DCW  @   ,   , $0.  -@
F4         DCW  @   ,   , *0.  CR@
F5         DCW  @   ,   . 0&&CR@
C1         DCW  +123
C2         DCW  -457
C3         DCW  9876543
C4         DCW  00
C5         DCW  01
           END  START