Apple-2-SW/Unidisk
1
0
Fork 0
mirror of https://github.com/rigreco/UniDisk.git synced 2024-05-28 20:41:39 +00:00
Code Issues Projects Releases Wiki Activity

Update

Browse Source
This commit is contained in:
rigreco 2015-02-22 18:21:28 +01:00
parent ee959a2313
commit 4b5a7a7759
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
AppleII/FP converter/BtoFAC2.asm
View File

@ -22,15 +22,14 @@ FAC equ $9D
ENTRY jsr CHKCOM
jsr FRMNUM ;VARIABLE X ->FAC
** FP1 to FAC conversion (conversion not yet) **
** FPC to FP1 conversion (conversion not yet) **
lda FAC
dec A
sta FP1
lda FAC+1
eor #$80
lsr
eor #$F0 ; Not Hi Byte
sta FP1+1
lda FAC+2
@ -39,10 +38,13 @@ ENTRY jsr CHKCOM
lda FAC+3
sta FP1+3
lda FAC+3
lda #0
sta E
lda FAC+4
sta SIGN
; lda FAC+4
; sta E
brk
; lda FAC+4
; sta SIGN
rts

3
AppleII/FP operations/UnidirveG.asm
View File

@ -342,8 +342,7 @@ OVLOC EQU $C10 ;$3F5 ;Overflow routine is not implemented at now)
******************************************************************
*
** Simple ADD **
jsr FADD ; Call ADD To add two numbers in floating point form
* jsr FIX ; Call FIX To extract the integer portion of a floating point number with truncation
jsr FADD ; Call FP routine
*** Output Data result FP1 to Unidisk registers First Time first 3 Byte out ***
lda X1