JOB  SETMEM 1 - ROLFFSON
               CTL  6651
     *
     ********************************************************
     *
     * SET MEMORY 100 ... 199  TO  "X"
     *
     * USING A SELF MODIFYING PROGRAM
     *
     ********************************************************     
     *
               ORG  100
     ARR       EQU  100
               DC   @   OX     @        * ONLY FIRST WITH WM
               DC   @  OO  O XX@        * REST W/O WM
               DC   @O O  OX   @
               DC   @  XO X   O@
               DC   @     X X  @
               DC   @ X  O   OO@
               DC   @OX O      @
               DC   @O   O   X @
               DC   @  XX  X  X@
               DC   @X     O O @
     *
     CX        DCW  @X@                 * THE X
     CO        DCW  @O@                 * THE O
     *
     ADD1      DSA  001
     *
     START     H                        * HALT
     *
     LOOP      MCW  CX,ARR              * COPY X TO BOX IN FIELD
               MA   ADD1,LOOP+6        * INCREMENT ADDRESS
               BCE  EXIT,LOOP+4,2      * ALREADY 200? EXIT!
               B    LOOP
     *
     EXIT      H                        * HALT
               NOP
               END  START