diff options
-rw-r--r-- | dla.s | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -274,20 +274,17 @@ menuloop: ; floating point constants: ; 3600.0 is $41,$36,$00,$00,$00,$00 ; 3000.0 is $41,$30,$00,$00,$00,$00 + ldx #FR1 + jsr ZF1 lda #$41 ; excess-64 base-100 exponent and sign (bit 7 = 0 means positive) sta FR1 - ldx #$36 ; NTSC + ldx #$36 ; 1st mantissa BCD byte, NTSC lda PAL and #$0e bne ntsc - ldx #$30 ; PAL + ldx #$30 ; 1st mantissa BCD byte, PAL ntsc: stx FR1+1 - lda #0 - sta FR1+2 - sta FR1+3 - sta FR1+4 - sta FR1+5 jsr FDIV ; FR0 = FR0 / FR1 jsr FASC ; render as ASCII |