mandel.s

@@ -31,10 +31,10 @@ chroma_offset   = $bb ; u8
 palette_ticks   = $bc ; u8
 chroma_ticks    = $bd ; u8
 count_frames    = $be ; u8
-; free space $bf
+count_pixels    = $bf ; u8
 
-count_iters     = $c0 ; u16
+total_pixels    = $c0 ; float48
-; free space c2-cb
+total_ms        = $c6 ; float48
 temp            = $cc ; u16
 temp2           = $ce ; u16
 
@@ -59,12 +59,10 @@ LBUFF  = $0580 ; result buffer for FASC routine
 ; FP ROM routine vectors
 FASC   = $D8E6 ; FLOATING POINT TO ASCII (output in INBUFF, last char has high bit set)
 IFP    = $D9AA ; INTEGER TO FLOATING POINT CONVERSION (FR0:u16 -> FR0:float48)
-FPI    = $D9D2 ; floating point to integer
 FADD   = $DA66 ; ADDITION       (FR0 += FR1)
 FSUB   = $DA60 ; SUBTRACTION    (FR0 -= FR1)
 FMUL   = $DADB ; MULTIPLICATION (FR0 *= FR1)
 FDIV   = $DB28 ; DIVISION       (FR0 /= FR1)
-ZFR0   = $DA44 ; clear FR0
 ZF1    = $DA46 ; CLEAR ZERO PAGE FLOATING POINT NUMBER (XX)
 FLD0R  = $DD89 ; LOAD FR0 WITH FLOATING POINT NUMBER (YYXX)
 FLD1R  = $DD98 ; LOAD FR1 WITH FLOATING POINT NUMBER (YYXX)
@@ -143,7 +141,7 @@ str_self:
     .byte "MANDEL-6502"
 str_self_end:
 str_speed:
-    .byte "us/iter: "
+    .byte " ms/px"
 str_speed_end:
 str_run:
     .byte " RUN"
@@ -197,32 +195,14 @@ aspect_x: ; fixed3.13 5/4
 aspect_y: ; fixed3.13 3/4
     .word 3 << (13 - 2)
 
-sec_per_frame: ; float48 00 . 01 66 66 66 67
+ms_per_frame: ; float48 16.66666667
-    .byte 63  ; exponent/sign - -1 bytes
+    .byte 64  ; exponent/sign
-    .byte $01 ; BCD digits
+    .byte $16 ; BCD digits
     .byte $66
     .byte $66
     .byte $66
     .byte $67
 
-us_per_sec: ; float48 1e9 01 00 0,0 00 . 00
-    .byte 67  ; exponent/sign +3 bytes
-    .byte $01 ; BCD digits
-    .byte $00
-    .byte $00
-    .byte $00
-    .byte $00
-
-total_iters: ; float48
-    .repeat 6
-        .byte 0
-    .endrepeat
-
-total_sec: ; float48
-    .repeat 6
-        .byte 0
-    .endrepeat
-
 display_list_start:
     ; 24 lines overscan
     .repeat 3
@@ -937,11 +917,6 @@ next:
     sta z_buffer_end
 
 loop:
-    inc count_iters
-    bne low_iters
-    inc count_iters + 1
-low_iters:
-
     ; iter++ & max-iters break
     inc iter
     bne keep_going
@@ -1245,7 +1220,6 @@ done:
     ; clobbers A, X
     .local loop
     .local done
-    .local padding
     ldx #0
 loop:
     cpx #len
@@ -1253,23 +1227,11 @@ loop:
     txa
     tay
     lda (strptr),y
-    bmi padding
     tay
     lda char_map,y
     sta textbuffer + col,x
     inx
     jmp loop
-
-padding:
-    ldy #32 ; space
-    lda char_map,y
-
-    cpx #len
-    beq done
-    sta textbuffer + col,x
-    inx
-    jmp padding
-
 done:
 .endmacro
 
@@ -1597,20 +1559,16 @@ copy_byte_loop:
     jsr SETVBV
 
 main_loop:
-    ; count_frames = 0; count_iters = 0
+    ; count_frames = 0; count_pixels = 0
     lda #0
     sta count_frames
-    sta count_iters
+    sta count_pixels
-    sta count_iters + 1
 
-    ; total_sec = 0.0; total_iters = 0.0
+    ; total_ms = 0.0; total_pixels = 0.0
-    jsr ZFR0
+    ldx #total_ms
-    ldx #.lobyte(total_sec)
+    jsr ZF1
-    ldy #.hibyte(total_sec)
+    ldx #total_pixels
-    jsr FST0R
+    jsr ZF1
-    ldx #.lobyte(total_iters)
-    ldy #.hibyte(total_iters)
-    jsr FST0R
 
     jsr clear_screen
     jsr status_bar
@@ -1682,32 +1640,38 @@ not_skipped_mask:
 
 no_key:
     ; check if we should update the counters
+    ;
+    ; count_pixels >= width? update!
+    inc count_pixels
+    lda count_pixels
+    cmp #width
+    bmi update_status
 
     ; count_frames >= 120? update!
     lda count_frames
     cmp #120 ; >= 2 seconds
-    bpl update_status
+    bmi skipped
-    jmp skipped
 
 update_status:
-    ; FR0 = (float)count_iters & clear count_iters
+    ; FR0 = (float)count_pixels & clear count_pixels
-    copy16 FR0, count_iters
+    lda count_pixels
-    jsr IFP
+    sta FR0
     lda #0
-    sta count_iters
+    sta FR0 + 1
-    sta count_iters + 1
+    sta count_pixels
+    jsr IFP
 
-    ; FR1 = total_iters
+    ; FR1 = total_pixels
-    ldx #.lobyte(total_iters)
+    ldx #.lobyte(total_pixels)
-    ldy #.hibyte(total_iters)
+    ldy #.hibyte(total_pixels)
     jsr FLD1R
 
     ; FR0 += FR1
     jsr FADD
 
-    ; total_iters = FR0
+    ; total_pixels = FR0
-    ldx #.lobyte(total_iters)
+    ldx #.lobyte(total_pixels)
-    ldy #.hibyte(total_iters)
+    ldy #.hibyte(total_pixels)
     jsr FST0R
 
 
@@ -1720,48 +1684,35 @@ update_status:
     sta count_frames
     jsr IFP
 
-    ; FR0 *= sec_per_frame
+    ; FR0 *= ms_per_frame
-    ldx #.lobyte(sec_per_frame)
+    ldx #.lobyte(ms_per_frame)
-    ldy #.hibyte(sec_per_frame)
+    ldy #.hibyte(ms_per_frame)
     jsr FLD1R
     jsr FMUL
 
-    ; FR0 += total_sec
+    ; FR0 += total_ms
-    ldx #.lobyte(total_sec)
+    ldx #total_ms
-    ldy #.hibyte(total_sec)
+    ldy #0
     jsr FLD1R
     jsr FADD
 
-    ; total_sec = FR0
+    ; total_ms = FR0
-    ldx #.lobyte(total_sec)
+    ldx #total_ms
-    ldy #.hibyte(total_sec)
+    ldy #0
     jsr FST0R
 
-    ; FR0 /= total_iters
+    ; FR0 /= total_pixels
-    ldx #.lobyte(total_iters)
+    ldx #total_pixels
-    ldy #.hibyte(total_iters)
+    ldy #0
     jsr FLD1R
     jsr FDIV
 
-    ; FR0 *= us_per_sec
-    ldx #.lobyte(us_per_sec)
-    ldy #.hibyte(us_per_sec)
-    jsr FLD1R
-    jsr FMUL
-
-    ; @fixme
-    ; round to integer
-    ; for some reason this gives bad results?
-    ;clc
-    ;jsr FPI
-    ;jsr IFP
-
     ; convert to ASCII in INBUFF
     jsr FASC
 
     ; print the first 6 digits
-    draw_text speed_start, str_speed_len, str_speed
+    draw_text_indirect speed_start, speed_precision, INBUFF
-    draw_text_indirect speed_start + str_speed_len, speed_precision, INBUFF
+    draw_text speed_start + speed_precision, str_speed_len, str_speed
 
 skipped: