Hello, Blog!
As promised, in this post, I’ll share the small tweaks I made to modify the functionality of the screen colouring 6502 assembly program.
- Check out the previous post for complete breakdown of the base program's logic: 6502 Assembly: Calculating Code Performance
- Find the 6502 emulator I used here: 6502 Emulator
If you have just stumbled upon my SPO600 series of blog posts, it has been created to document and share my learnings as I progress through my Software Portability and Optimization college course.
Taking a look at the given program
The following code fills the emulator's display with the yellow colour:
lda #$00 ; set a pointer in memory location $40 to point to $0200
sta $40 ; ... low byte ($00) goes in address $40
lda #$02
sta $41 ; ... high byte ($02) goes into address $41
lda #$07 ; colour number
ldy #$00 ; set index to 0
loop: sta ($40),y ; set pixel colour at the address (pointer)+Y
iny ; increment index
bne loop ; continue until done the page (256 pixels)
inc $41 ; increment the page
ldx $41 ; get the current page number
cpx #$06 ; compare with 6
bne loop ; continue until done all pages
Filling the display with a different colour
To fill the display with the colour of choice I just needed to load the value associated with the colour into the accumulator.
- You can find information about the colour values by clicking the "Notes" button in the emulator and scrolling down to the "Bitmapped Display" section.
We can see that light blue = $e
lda #$00
sta $40
lda #$02
sta $41
lda #$0e ; load $0e (light blue) instead of $07 (yellow) into the accumulator
ldy #$00
loop: sta ($40),y
iny
bne loop
inc $41
ldx $41
cpx #$06
bne loop
Filling the display with different colour on each page
To colour each of the four pages with different colours, I decided to increment the colour value stored in the accumulator each time a page gets filled.
lda #$00
sta $40
lda #$02
sta $41
lda #$07
ldy #$00
loop: sta ($40),y
iny
bne loop
inc $41
adc #$01 ; increment the value in the accumulator, so the next page is coloured with different colour
ldx $41
cpx #$06
bne loop
Making each pixel a random colour
Achieving this was a bit trickier, as getting random colour values involved using pseudo-random number generator located at address $FE
in the emulator's Zero Page.
lda #$00
sta $40
lda #$02
sta $41
ldy #$00
loop: lda $fe ; load colour value from the pseudo-random number generator on each loop iteration
sta ($40),y
iny
bne loop
inc $41
ldx $41
cpx #$06
bne loop
P. S.
Playing around with the Assembly code provided by the professor was fun. I found that the key to effectively tweaking the code was a solid understanding of the logic behind the original program.
Thank you for reading my post!
Top comments (0)