mirror of
https://github.com/freitz85/AppleIISd.git
synced 2024-06-09 22:29:43 +00:00
Local replacement for KNOWNRTS
This commit is contained in:
parent
f849639df2
commit
c3d693f268
|
@ -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
|
||||||
|
|
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user