mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-10-31 13:07:59 +00:00
Positive numbers Ok, for negative need two's complement
This commit is contained in:
parent
27c0e8f7ca
commit
17795263ab
@ -28,22 +28,27 @@ ENTRY jsr CHKCOM
|
|||||||
dec A
|
dec A
|
||||||
sta FP1
|
sta FP1
|
||||||
|
|
||||||
|
clc
|
||||||
lda FAC+1
|
lda FAC+1
|
||||||
eor #$F0 ; Not Hi Byte
|
ror
|
||||||
|
;eor #$F0 ; Not Hi Byte
|
||||||
sta FP1+1
|
sta FP1+1
|
||||||
|
|
||||||
lda FAC+2
|
lda FAC+2
|
||||||
|
ror
|
||||||
sta FP1+2
|
sta FP1+2
|
||||||
|
|
||||||
lda FAC+3
|
lda FAC+3
|
||||||
|
ror
|
||||||
sta FP1+3
|
sta FP1+3
|
||||||
|
|
||||||
lda #0
|
; lda #0
|
||||||
sta E
|
|
||||||
|
|
||||||
; lda FAC+4
|
|
||||||
; sta E
|
; sta E
|
||||||
|
|
||||||
|
lda FAC+4
|
||||||
|
ror
|
||||||
|
sta E
|
||||||
|
|
||||||
; lda FAC+4
|
; lda FAC+4
|
||||||
; sta SIGN
|
; sta SIGN
|
||||||
|
|
||||||
|
@ -24,18 +24,23 @@ ENTRY lda FP1 ; X1 1 Byte --> 9D FAC
|
|||||||
inc A ; 2^(FP1+1)
|
inc A ; 2^(FP1+1)
|
||||||
sta MEM
|
sta MEM
|
||||||
|
|
||||||
|
clc
|
||||||
lda FP1+1 ; M1 Hi 2 Byte --> 9E FAC
|
lda FP1+1 ; M1 Hi 2 Byte --> 9E FAC
|
||||||
asl
|
rol
|
||||||
|
;asl
|
||||||
eor #$80 ; Not Hi Bit Mantissa (change Sign)
|
eor #$80 ; Not Hi Bit Mantissa (change Sign)
|
||||||
sta MEM+1
|
sta MEM+1
|
||||||
|
|
||||||
lda FP1+2 ; M1 3 Byte --> 9F FAC
|
lda FP1+2 ; M1 3 Byte --> 9F FAC
|
||||||
|
rol
|
||||||
sta MEM+2
|
sta MEM+2
|
||||||
|
|
||||||
lda FP1+3 ; M1 Lo 4 Byte --> A0 FAC
|
lda FP1+3 ; M1 Lo 4 Byte --> A0 FAC
|
||||||
|
rol
|
||||||
sta MEM+3
|
sta MEM+3
|
||||||
|
|
||||||
lda E ; Extra 00 5 Byte --> A1 FAC
|
lda E ; Extra 00 5 Byte --> A1 FAC
|
||||||
|
rol
|
||||||
sta MEM+4
|
sta MEM+4
|
||||||
|
|
||||||
* lda $EB ; SIGN (F3 to EB) 6 Byte --> A2 FAC
|
* lda $EB ; SIGN (F3 to EB) 6 Byte --> A2 FAC
|
||||||
|
Loading…
Reference in New Issue
Block a user