diff options
| author | B. Watson <urchlay@slackware.uk> | 2022-10-25 02:43:44 -0400 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2022-10-25 02:43:44 -0400 |
| commit | 8088993af2f38f33a134f15f50e80a3a56115006 (patch) | |
| tree | 909230bb86b3a40ab43096c693a969ea441fadb5 | |
| parent | f1c630523239c550dc920eb14ab4652da7ca4343 (diff) | |
| download | dla-asm-8088993af2f38f33a134f15f50e80a3a56115006.tar.gz | |
Cleanup FR1
| -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 |