Apple-2-SW/Unidisk
1
0
Fork 0
mirror of https://github.com/rigreco/UniDisk.git synced 2025-08-10 00:25:15 +00:00
Code Issues Projects Releases Wiki Activity

Update to right version

Browse Source
This commit is contained in:
rigreco
2015-02-22 19:30:08 +01:00
parent 4b5a7a7759
commit 27c0e8f7ca
1 changed files with 517 additions and 518 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
AppleII/FP operations/Unidrive4.asm
View File

@@ -87,31 +87,33 @@ Message asc 'NO PC OR NO DEVICE'
** Set the Input Value first in Dynamic data ** ** Set the Input Value first in Dynamic data **
** 4 Byte N1 to FP1 ** ** 4 Byte N1 to FP1 **
EXEC lda N1 ;X1 EXEC lda N1 ;X1
sta $8111 ; Absolute addressing sta $822F ; Absolute addressing
lda N1+1 ;M1 (1) lda N1+1 ;M1 (1)
sta $8112 sta $8230
lda N1+2 ;M1 (2) lda N1+2 ;M1 (2)
sta sta $8231
lda N1+2 ;M1 (3) lda N1+3 ;M1 (3)
sta sta $8232
** 4 Byte N2 to FP2 ** ** 4 Byte N2 to FP2 **
lda N2 ;X2 lda N2 ;X2
sta $80EB sta $8233
lda N2+1 ;M2 (1) lda N2+1 ;M2 (1)
sta $80EC sta $8234
lda N2+2 ;M2 (2) lda N2+2 ;M2 (2)
sta sta $8235
lda N2+2 ;M2 (3) lda N2+3 ;M2 (3)
sta sta $8236
*** Download *** *** Download ***
jsr Dispatch jsr Dispatch
dfb ControlCmd dfb ControlCmd
dw DOWNLOAD dw DOWNLOAD
** Set Unidisk Registers ** ** Set Unidisk Registers **
lda #01 ;First time * lda #01 ;First time
sta UNIAcc_reg * sta UNIAcc_reg
* The program begin to PC preset to $0500 *
*
** Execute ** ** Execute **
jsr Dispatch jsr Dispatch
dfb ControlCmd dfb ControlCmd
@@ -133,8 +135,8 @@ READ jsr Dispatch
sta N1+2 sta N1+2
** Second time execute ** ** Second time execute **
lda #02 ; Second time lda #$3C ; Target the secont time entry point
sta UNIAcc_reg sta LowPC_reg ; Second time set new value of PC
** Execute ** ** Execute **
jsr Dispatch jsr Dispatch
dfb ControlCmd dfb ControlCmd
@@ -143,11 +145,11 @@ READ jsr Dispatch
jsr Dispatch jsr Dispatch
dfb StatusCmd dfb StatusCmd
dw DParms dw DParms
bcs Error * bcs Error
* Second time execute only to read the latest Byte of FP1* * Second time execute only to read the latest Byte of FP1*
lda UNIAcc_reg lda UNIAcc_reg
sta N1+2 sta N1+3
* *
rts rts
@@ -272,27 +274,28 @@ CNTL_LIST1 equ *
CNTL_LIST2 equ * CNTL_LIST2 equ *
Clow_byte dfb $06 Clow_byte dfb $06
Chigh_byte dfb $00 Chigh_byte dfb $00
AccValue dfb $00 ; Input Value AccValue dfb $00 ; Init Value Unidisk Accumulator Register
X_reg dfb $00 ; Input Value (N1) X_reg dfb $00 ; Init Value Unidisk X Register
Y_reg dfb $00 ; Input Value (N2) Y_reg dfb $00 ; Init Value Unidisk Y Register
ProStatus dfb $00 ; Input Value ProStatus dfb $00 ; Init Value Unidisk Status Register
LowPC_reg dfb $05 ; Like ORG LowPC_reg dfb $00 ; Init Value Unidisk Program Counter $0500 at eny dowload
HighPC_reg dfb $05 HighPC_reg dfb $05 ; $05 first execution, $3C second execution
* *
*** Set Address *** *** Set Address ***
CNTL_LIST3 equ * CNTL_LIST3 equ *
CountL_byte dfb $02 CountL_byte dfb $02
CountH_byte dfb $00 CountH_byte dfb $00
LByte_Addr dfb $05 ; Like ORG LByte_Addr dfb $00 ; ORG of Unidisk program, set begin program address $0500
HByte_Addr dfb $05 HByte_Addr dfb $05
* *
*** Download *** *** Download ***
CNTL_LIST4 equ * CNTL_LIST4 equ *
LenghtL_byte dfb $4A ;<----- Lenght of Unidisk program Lo Byte LenghtL_byte dfb $34 ;<----- Lenght of Unidisk program Lo - Byte 312 byte
LenghtH_byte dfb $00 ;<----- Lenght of Unidisk program Hi Byte LenghtH_byte dfb $01 ;<----- Lenght of Unidisk program Hi Byte
* *
*** Start UNIDISK Program *** **************** Start UNIDISK Program ****************
org $0505 *
org $0500 ; Start Unidisk program address
SIGN EQU $C0 ;$EB ; $F3 SIGN EQU $C0 ;$EB ; $F3
@@ -306,14 +309,10 @@ M1 EQU $C6 ;$FB ; $F9 - $FB
E EQU $C9 ;$FE ; $FC E EQU $C9 ;$FE ; $FC
OVLOC EQU $C10 ;$3F5 ;Overflow routine is not implemented at now) OVLOC EQU $C10 ;$3F5 ;Overflow routine is not implemented at now)
* *
** Main program ** ** Main program **
* *
* CHK if is the second execution *
cmp #02
beq SECOND
** Input data to Zero Page ** ** Input data to Zero Page **
** FP1 ** ** FP1 **
@@ -338,24 +337,26 @@ OVLOC EQU $C10 ;$3F5 ;Overflow routine is not implemented at now)
lda FP2+3 lda FP2+3
sta M2+2 sta M2+2
*** Target Function *** ************************** Target Function ***********************
* Y=N1+N2 * Y=N1+N2 *
******************************************************************
*
** Simple ADD ** ** Simple ADD **
jsr FADD jsr FADD ; Call FP routine
*** Output Data result FP1 to Unidisk registers First Time first 3 Byte*** *** Output Data result FP1 to Unidisk registers First Time first 3 Byte out ***
lda X1 lda X1
ldx M1 ldx M1
ldy M1+1 ldy M1+1
rts rts
*** Output Data result FP1 to Unidisk registers Second Time latest 1 Byte*** *** Output Data result FP1 to Unidisk registers Second Time latest 1 Byte out ***
SECOND lda M1+2 SECOND lda M1+2 ; Entry point by Program Counter set
rts rts
***************************************************
** FP Routine ** *
***************** FP Routine *****************
* *
*********************** ***********************
* * * *
@@ -373,8 +374,6 @@ SECOND lda M1+2
* TITLE "FLOATING POINT ROUTINES for Unidisk memory" * TITLE "FLOATING POINT ROUTINES for Unidisk memory"
* *
* ORG $300
ADD CLC ;CLEAR CARRY ADD CLC ;CLEAR CARRY
LDX #$2 ;INDEX FOR 3-BYTE ADD. LDX #$2 ;INDEX FOR 3-BYTE ADD.
ADD1 LDA M1,X ADD1 LDA M1,X