mirror of
https://github.com/irmen/prog8.git
synced 2024-11-03 13:07:54 +00:00
49 lines
1.2 KiB
NASM
49 lines
1.2 KiB
NASM
|
|
||
|
|
; this program adds 2 floats 1.2345 + 4.4444 and prints the result 5.67879
|
||
|
|
; it works fine on C64 and CX16 but fails to add the right number on C128
|
||
|
|
; I think it has something to do with the banking on the C128
|
||
|
|
; because several rom fp routines mention "value in bank 1"
|
||
|
|
; but I don't know what this means and why the program as given doesn't work
|
||
|
|
|
||
|
|
.cpu '6502'
|
||
|
|
|
||
|
|
* = $1300 ; sys 4864
|
||
|
|
|
||
|
|
P8ZP_SCRATCH_W1 = 251 ; free zp word
|
||
|
|
CHROUT = $ffd2
|
||
|
|
|
||
|
|
; c128:
|
||
|
|
MOVFM = $af63
|
||
|
|
FADD = $af18
|
||
|
|
FOUT = $af06
|
||
|
|
|
||
|
|
;cx16:
|
||
|
|
;MOVFM = $fe42
|
||
|
|
;FADD = $fe12
|
||
|
|
;FOUT = $fe7b
|
||
|
|
|
||
|
|
;c64:
|
||
|
|
;MOVFM = $bba2
|
||
|
|
;FADD = $b867
|
||
|
|
;FOUT = $bddd
|
||
|
|
|
||
|
|
lda #<f1
|
||
|
|
ldy #>f1
|
||
|
|
jsr MOVFM ; load FAC1
|
||
|
|
lda #<f2
|
||
|
|
ldy #>f2
|
||
|
|
jsr FADD ; add mem float to FAC1 DOESN'T WORK ON C128!?
|
||
|
|
jsr FOUT ; convert to string
|
||
|
|
sta P8ZP_SCRATCH_W1
|
||
|
|
sty P8ZP_SCRATCH_W1+1
|
||
|
|
ldy #0
|
||
|
|
_printloop lda (P8ZP_SCRATCH_W1),y
|
||
|
|
beq _done
|
||
|
|
jsr CHROUT
|
||
|
|
iny
|
||
|
|
bne _printloop
|
||
|
|
_done jmp _done
|
||
|
|
|
||
|
|
f1 .byte $81, $1e, $04, $18, $93 ; float 1.2345
|
||
|
|
f2 .byte $83, $0e, $38, $86, $59 ; float 4.4444
|