diff --git a/mandel.s b/mandel.s index 8068fff..8cbd770 100644 --- a/mandel.s +++ b/mandel.s @@ -32,7 +32,6 @@ pixel_mask = $b9 ; u8 pixel_shift = $ba ; u8 pixel_offset = $bb ; u8 fill_level = $bc ; u8 -palette_offset = $bd ; u8 ; FP registers in zero page FR0 = $d4 ; float48 @@ -88,12 +87,6 @@ SYSVBV = $E45F XITVBV = $E462 SETVBV = $E45C -COLOR0 = $2C4 -COLOR1 = $2C5 -COLOR2 = $2C6 -COLOR3 = $2C7 -COLOR4 = $2C8 - ; Keycodes! KEY_PLUS = $06 KEY_MINUS = $0e @@ -212,11 +205,6 @@ color_map: .byte 3 .endrepeat -palette: - .byte $00 - .byte $46 - .byte $78 - .byte $b4 .code z_buffer_len = 16 @@ -821,33 +809,9 @@ done: .proc vblank_handler inc count_frames - inc palette_offset jmp XITVBV .endproc -.proc update_palette - lda palette - sta COLOR4 - - clc - lda palette_offset - and #$f0 - adc palette + 1 - sta COLOR0 - - clc - lda palette_offset - and #$f0 - adc palette + 2 - sta COLOR1 - - clc - lda palette_offset - and #$f0 - adc palette + 3 - sta COLOR2 -.endproc - .proc update_speed ; convert frames (u16) to fp ; add to frames_total @@ -1007,11 +971,6 @@ copy_byte_loop: lda #$22 sta DMACTL - ; Initialize the palette - lda #0 - sta palette_offset - jsr update_palette - ; install the vblank handler lda #7 ; deferred ldx #.hibyte(vblank_handler) @@ -1163,8 +1122,6 @@ update_status: draw_text_indirect speed_start, speed_precision, INBUFF draw_text speed_start + speed_precision, str_speed_len, str_speed - jsr update_palette - skipped: clc