mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-05-28 20:41:39 +00:00
Change Directory folders
This commit is contained in:
parent
9d96acb2d0
commit
e709276aab
|
@ -1,66 +0,0 @@
|
|||
; Floating Point converter FAC to FP1 format
|
||||
|
||||
; Copyright (C) 2015 Riccardo Greco
|
||||
|
||||
; This program is free software: you can redistribute it and/or modify
|
||||
; it under the terms of the GNU General Public License as published by
|
||||
; the Free Software Foundation, either version 3 of the License, or
|
||||
; (at your option) any later version.
|
||||
|
||||
; This program is distributed in the hope that it will be useful,
|
||||
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
; GNU General Public License for more details.
|
||||
|
||||
; You should have received a copy of the GNU General Public License
|
||||
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
*
|
||||
*
|
||||
* @com.wudsn.ide.asm.hardware=APPLE2
|
||||
************************************
|
||||
* BASIC TO FAC TO FP1 *
|
||||
* Y=NUMBER *
|
||||
* CALL 2048,Y *
|
||||
************************************
|
||||
org $800
|
||||
|
||||
CHKCOM equ $DEBE
|
||||
FRMNUM equ $DD67
|
||||
|
||||
** Woz FP Accumulator 4 Byte + 1 Byte Extra + 1 Byte SIGN**
|
||||
FP1 equ $FA ;Translate F8 --> FA
|
||||
E equ $FE ;Translate FC --> FE
|
||||
SIGN equ $EB
|
||||
|
||||
** Applesoft FP Accumulator 5 Byte + 1 Byte Sign **
|
||||
FAC equ $9D
|
||||
|
||||
***************************
|
||||
|
||||
ENTRY jsr CHKCOM
|
||||
jsr FRMNUM ;VARIABLE->FAC
|
||||
|
||||
** FP1 to FAC conversion **
|
||||
|
||||
lda FAC
|
||||
dec A
|
||||
sta FP1
|
||||
|
||||
lda FAC+1
|
||||
eor #$80
|
||||
lsr
|
||||
sta FP1+1
|
||||
|
||||
lda FAC+2
|
||||
sta FP1+2
|
||||
|
||||
lda FAC+3
|
||||
sta FP1+3
|
||||
|
||||
lda FAC+3
|
||||
sta E
|
||||
|
||||
lda FAC+4
|
||||
sta SIGN
|
||||
|
||||
brk
|
|
@ -1,71 +0,0 @@
|
|||
; Floating Point converter FP1 to FAC format
|
||||
|
||||
; Copyright (C) 2015 Riccardo Greco
|
||||
|
||||
; This program is free software: you can redistribute it and/or modify
|
||||
; it under the terms of the GNU General Public License as published by
|
||||
; the Free Software Foundation, either version 3 of the License, or
|
||||
; (at your option) any later version.
|
||||
|
||||
; This program is distributed in the hope that it will be useful,
|
||||
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
; GNU General Public License for more details.
|
||||
|
||||
; You should have received a copy of the GNU General Public License
|
||||
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
*
|
||||
*
|
||||
* @com.wudsn.ide.asm.hardware=APPLE2
|
||||
************************************
|
||||
* FP1 TO FAC TO BASIC *
|
||||
* CALL 32768,X *
|
||||
* PRINT X *
|
||||
************************************
|
||||
org $8000
|
||||
|
||||
CHKCOM equ $DEBE
|
||||
PTRGET equ $DFE3
|
||||
MOVMF equ $EB2B
|
||||
MOVFM equ $EAF9
|
||||
|
||||
** Woz FP Accumulator 4 Byte + 1 Byte Extra + 1 Byte SIGN **
|
||||
FP1 equ $FA ;Translate F8 --> FA
|
||||
E equ $FE ;Translate FC --> FE
|
||||
SIGN equ $EB ;Translate F3 --> EB
|
||||
|
||||
MEM equ $8080
|
||||
*
|
||||
** FP1 to MEM to FAC conversion FAC 5 Bytes **
|
||||
*
|
||||
ENTRY lda FP1 ; X1 1 Byte --> 9D FAC
|
||||
inc A ; 2^(FP1+1)
|
||||
sta MEM
|
||||
|
||||
lda FP1+1 ; M1 Hi 2 Byte --> 9E FAC
|
||||
asl
|
||||
eor #$80 ; Not Hi Bit Mantissa (change Sign)
|
||||
sta MEM+1
|
||||
|
||||
lda FP1+2 ; M1 3 Byte --> 9F FAC
|
||||
sta MEM+2
|
||||
|
||||
lda FP1+3 ; M1 Lo 4 Byte --> A0 FAC
|
||||
sta MEM+3
|
||||
|
||||
lda E ; Extra 00 5 Byte --> A1 FAC
|
||||
sta MEM+4
|
||||
|
||||
* lda $EB ; SIGN (F3 to EB) 6 Byte --> A2 FAC
|
||||
* sta MEM+5
|
||||
***************************
|
||||
*
|
||||
ldy #$80 ;Hi Byte MEM
|
||||
lda #$80 ;Lo Byte MEM
|
||||
jsr MOVFM ;MEM->FAC (9D to A2)
|
||||
*
|
||||
jsr CHKCOM
|
||||
jsr PTRGET
|
||||
tax
|
||||
jsr MOVMF ;FAC->VARIABLE
|
||||
DONE rts
|
|
@ -1 +0,0 @@
|
|||
This souce files allow Unidisk Floating Point operations.
|
|
@ -1,4 +0,0 @@
|
|||
This programs allow to use Unidisk 3.5 for Integer numbers operation:
|
||||
|
||||
Unifun2.bas 2 Bytes sum of integer numbers
|
||||
Unifun3.bas 2 Byte sum of the first N integer numbers
|
Binary file not shown.
|
@ -1,9 +0,0 @@
|
|||
10 HOME
|
||||
20 PRINT CHR$ (4);"BLOAD UNIDRIVE2"
|
||||
25 INPUT "N1,N2? ";N1,N2
|
||||
30 POKE 25,(N1 - INT (N1 / 256) * 256)
|
||||
32 POKE 26, INT (N1 / 256)
|
||||
35 POKE 27,(N2 - INT (N2 / 256) * 256)
|
||||
37 POKE 28, INT (N2 / 256)
|
||||
40 CALL 32768
|
||||
50 PRINT : PRINT "RESULT IS "; PEEK (29) + 256 * PEEK (30)
|
|
@ -1,7 +0,0 @@
|
|||
10 HOME
|
||||
20 PRINT CHR$ (4);"BLOAD UNIDRIVE3"
|
||||
25 INPUT "N ";N1
|
||||
30 POKE 25,(N1 - INT (N1 / 256) * 256)
|
||||
32 POKE 26, INT (N1 / 256)
|
||||
40 CALL 32768
|
||||
50 PRINT : PRINT "RESULT IS "; PEEK (29) + 256 * PEEK (30)
|
|
@ -1 +0,0 @@
|
|||
This Assmbly routine allow to dump Unidisk 3.5 ROM memory area in the Apple II mamory and then store the file in a Disk.
|
Binary file not shown.
|
@ -1,4 +0,0 @@
|
|||
10 HOME
|
||||
20 PRINT CHR$ (4);"BLOAD UNIPROX"
|
||||
30 CALL 32768
|
||||
40 PRINT CHR$ (4);"BSAVE UNIROM,A$2000,L$1FFF"
|
Loading…
Reference in New Issue
Block a user