
 1000  *SAVE DAVID JOHNSON'S FILLER
 1010  *--------------------------------
 1020  *      SOLUTION TO PUZZLE BY DAVID C. JOHNSON
 1030  *--------------------------------
 1040         .OP 65802    I got mine!
 1050  *--------------------------------
 1060         .OR $00
 1070  *--------------------------------
 1080  paint  mvp 0,0      fill $BFFE-$0000 from $BFFF
 1090  *--------------------------------
 1100  START  LDA #$DB     "STP" OPCODE
 1110         STA $BFFF    SEED FOR THE "MVP" INSTRUCTION
 1120         CLC          GET INTO NATIVE MODE
 1130         XCE
 1140         REP #$30     16-BIT REGISTERS
 1150         LDX ##$BFFF  Source Address = $BFFF
 1160         TXY
 1170         DEY          Destination Address = $BFFE
 1180         TYA          # Bytes -1 to be "moved"
 1190         BRA paint    MVP must be at $0000
 1200  *--------------------------------

