User Tools

Site Tools


base:8x8_charset_pixel-blend-in

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

base:8x8_charset_pixel-blend-in [2015-04-17 04:30] (current)
Line 1: Line 1:
 +====== Blend charsets ======
  
 +By Monte Carlos
 +
 +This little routine blends in a charset at $2000 into $2800 (only the first 64 chars, $0200 bytes), pixel by pixel
 +with random values.
 +
 +<code>
 +
 +;done with Turbo-Assembler in VICE
 +
 +
 +
 +         *= $1000
 +
 +         sei
 +         lda #51
 +         sta $01
 +         ldy #$00
 +a1       lda $d000, ;copy 64 chars
 +         sta $2000, ;from ROM to $2000
 +         lda $d100,y
 +         sta $2100,y
 +         lda #$00
 +         sta $2800, ;clear $2800-$2a00
 +         sta $2900,y
 +         iny
 +         bne a1
 +         lda #55
 +         sta $01
 +         cli
 +
 +         jmp a2
 +
 +;---------------------------------------
 +
 +rand     inc val
 +         ldy val
 +         lda $dc04    ;generate random
 +         eor $fedc, ;number $00-$ff
 +         eor $d012
 +         sta $57      ;save it in $57
 +         rts
 +
 +val      .byte 0
 +
 +;---------------------------------------
 +
 +a2       jsr $e518   ;initialize screen
 +         lda #$01    ;
 +         sta $0286   ;clear screen, set
 +         lda #$93    ;color white
 +         jsr $ffd2   ;
 +         ldy #$00
 +a3       tya
 +         sta $0400,y ;show chars 0-63
 +         iny         ;on top of screen
 +         cpy #$40
 +         bne a3
 +         lda #26     ;switch charset
 +         sta $d018   ;on ($2800)
 +
 +         lda #$00
 +         sta $58     ;random-counter
 +
 +;---------------------------------------
 +;create random list of values from 0-63
 +;for each bit of a char and save it
 +;to $03c0-$03ff
 +
 +a4       jsr rand    ;filter out
 +         and #$c0    ;values 64-255
 +         bne a4      ;and get new random
 +
 +         lda $58
 +         bne a5
 +a7       ldx $58      ;
 +         lda $57      ;accept first/
 +         sta $03c0, ;unique value
 +         inc $58      ;for the list
 +         lda $58      ;
 +         cmp #64      ;64 values?
 +         beq a8       ;list finished!
 +         jmp a4
 +
 +a5       ldy #$00     ;
 +a6       lda $03c0, ;
 +         cmp $57      ;test if value in
 +         beq a4       ;$57 is unique
 +         iny          ;(beq a4 if not)
 +         cpy $58      ;
 +         bne a6       ;
 +
 +         jmp a7       ;unique value
 +
 +;---------------------------------------
 +
 +a8       ldy #$20
 +         ldx #$00
 +         lda #$28  ;$fa/$fb points at
 +         stx $fa   ;$2000 (source)
 +         sty $fb
 +         stx $fc   ;$fc/$fd points at
 +         sta $fd   ;$2800 (target)
 +
 +         stx $f9   ;counter
 +
 +
 +         ldx #$00
 +
 +a12      stx $02
 +
 +         lda $03c0,x ;
 +         clc         ;
 +         adc $03c0,x ;duplicate content
 +                     ;of $03c0,x
 +         tay         ;
 +                     ;
 +         lda bitpnt,y;and y points at
 +         sta $5a     ;the byte
 +         iny         ;
 +         lda bitpnt,y;& after increasing
 +         sta $5b     ;at the bit on the
 +                     ;basis of table
 +                     ;bitpnt (see below)
 +
 +
 +         ldy $5a      ;
 +         ldx $5b      ;
 +         lda ($fa), ;
 +         and bits,  ;
 +         beq a9       ;blend pixel in
 +         lda bits,  ;if bit is on
 +         clc          ;
 +         adc ($fc), ;
 +         sta ($fc), ;
 +
 +a9       lda #$08
 +         clc
 +         adc $fa
 +         sta $fa     ;next char (source)
 +         bcc a10
 +         inc $fb
 +
 +a10      lda #$08
 +         clc
 +         adc $fc
 +         sta $fc     ;next char (target)
 +         bcc a11
 +         inc $fd
 +
 +a11      ldx $02
 +
 +         inc $f9
 +         lda $f9
 +         cmp #64
 +         bne a12
 +
 +         lda #$00
 +         sta $f9
 +
 +         ldy #$20   ;reset pointers
 +         ldx #$00   ;and start with the
 +         lda #$28   ;next pixel
 +         stx $fa
 +         sty $fb
 +         stx $fc
 +         sta $fd
 +
 +         ldy #$00
 +w2       dey
 +         ldx #$00
 +w1       dex       ;little delay
 +         cpx #$80
 +         bne w1
 +         cpy #$e0
 +         bne w2
 +
 +         ldx $02
 +
 +         inx
 +         cpx #64
 +         bne a12
 +
 +         rts
 +
 +
 +;---------------------------------------
 +
 +bitpnt   .byte 0,0,0,1,0,2,0,3,0,4,0,5
 +         .byte 0,6,0,7
 +         .byte 1,0,1,1,1,2,1,3,1,4,1,5
 +         .byte 1,6,1,7
 +         .byte 2,0,2,1,2,2,2,3,2,4,2,5
 +         .byte 2,6,2,7
 +         .byte 3,0,3,1,3,2,3,3,3,4,3,5
 +         .byte 3,6,3,7
 +         .byte 4,0,4,1,4,2,4,3,4,4,4,5
 +         .byte 4,6,4,7
 +         .byte 5,0,5,1,5,2,5,3,5,4,5,5
 +         .byte 5,6,5,7
 +         .byte 6,0,6,1,6,2,6,3,6,4,6,5
 +         .byte 6,6,6,7
 +         .byte 7,0,7,1,7,2,7,3,7,4,7,5
 +         .byte 7,6,7,7
 +
 +bits     .byte 128,64,32,16,8,4,2,1
 +
 +</code>
 +
 +download: [[http://www.pc-hilfe-aachen.de/chrblendin.src]]
base/8x8_charset_pixel-blend-in.txt ยท Last modified: 2015-04-17 04:30 (external edit)