mandel.s

@@ -1253,15 +1253,11 @@ loop:
     txa
     tay
     lda (strptr),y
-    pha ; save the char for terminator check
-    and #$7f ; strip the high bit (terminator)
+    bmi padding
     tay
     lda char_map,y
     sta textbuffer + col,x
     inx
-
-    pla
-    bmi padding
     jmp loop
 
 padding:
@@ -1753,10 +1749,12 @@ update_status:
     jsr FLD1R
     jsr FMUL
 
-    ; round (down) to integer
-    jsr FPI
-    clc
-    jsr IFP
+    ; @fixme
+    ; round to integer
+    ; for some reason this gives bad results?
+    ;clc
+    ;jsr FPI
+    ;jsr IFP
 
     ; convert to ASCII in INBUFF
     jsr FASC