Apple-2-HW
/
AppleIISd
mirror of https://github.com/freitz85/AppleIISd.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity

Local replacement for KNOWNRTS

This commit is contained in:
Florian Reitz 2020-06-04 16:48:30 +02:00
parent f849639df2
commit c3d693f268
2 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Firmware/src/AppleIISd.inc
View File

@ -1,10 +1,10 @@
;******************************* ;*******************************
; ;
; Apple][Sd Firmware ; Apple][Sd Firmware
; Version 1.2 ; Version 1.2.2
; Defines ; Defines
; ;
; (c) Florian Reitz, 2017 - 2018 ; (c) Florian Reitz, 2017 - 2020
; ;
; X register usually contains SLOT16 ; X register usually contains SLOT16
; Y register is used for counting or SLOT ; Y register is used for counting or SLOT
@ -44,7 +44,6 @@ DRVNUM := $0678
CURSLOT := $07F8 ; $Cs CURSLOT := $07F8 ; $Cs
; Rom equates ; Rom equates
KNOWNRTS := $FF58
OAPPLE := $C061 ; open apple key OAPPLE := $C061 ; open apple key
DATA := $C080 DATA := $C080
CTRL := DATA+1 CTRL := DATA+1

14
Firmware/src/AppleIISd.s
View File

@ -57,9 +57,8 @@
LDX #$3C ; is a disk controller LDX #$3C ; is a disk controller
SEI ; find slot SEI ; find slot
LDA #$60 ; opcode for RTS BIT $CFFF
STA SLOT JSR KNOWNRTS
JSR SLOT
TSX TSX
LDA $0100,X LDA $0100,X
CLI CLI
@ -72,7 +71,6 @@
ASL A ASL A
STA SLOT16 ; $s0 STA SLOT16 ; $s0
TAX ; X holds now SLOT16 TAX ; X holds now SLOT16
BIT $CFFF
LDY #0 ; display copyright message LDY #0 ; display copyright message
@DRAW: LDA TEXT,Y @DRAW: LDA TEXT,Y
@ -144,9 +142,8 @@ DRIVER: CLC ; ProDOS entry
; Has this to be done every time this gets called or only on boot??? ; Has this to be done every time this gets called or only on boot???
SEI SEI
LDA #$60 ; opcode for RTS BIT $CFFF
STA SLOT JSR KNOWNRTS
JSR SLOT
TSX TSX
LDA $0100,X LDA $0100,X
CLI CLI
@ -160,7 +157,6 @@ DRIVER: CLC ; ProDOS entry
ASL A ASL A
STA SLOT16 ; $s0 STA SLOT16 ; $s0
TAX ; X holds now SLOT16 TAX ; X holds now SLOT16
BIT $CFFF
JSR CARDDET JSR CARDDET
BCC @INITED BCC @INITED
@ -358,7 +354,7 @@ INIT: STZ CTRL,X ; reset SPI controller
ORA #SS0 ORA #SS0
STA SS,X STA SS,X
TYA ; retval in A TYA ; retval in A
RTS KNOWNRTS: RTS
TEXT: .asciiz " Apple][Sd v1.2.2 (c)2020 Florian Reitz" TEXT: .asciiz " Apple][Sd v1.2.2 (c)2020 Florian Reitz"