Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Inline SETPRFX and DISCONN into .SYSTEM stub

This commit is contained in:
apple2geek 2022-10-10 00:38:13 -06:00
parent 9c0cbf0813
commit 910fbff3d2
2 changed files with 146 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
mainmem.init.s
View File

@ -18,79 +18,79 @@ A2IRQ2 PHP ; Fake things to look like IRQ
* BRK handler in main memory. Used on Apple IIgs only.
GSBRK >>> XF2AUX,GSBRKAUX
* Set prefix if not already set
SETPRFX LDA #GPFXCMD
STA :OPC7 ; Initialize cmd byte to $C7
:L1 JSR MLI
:OPC7 DB $00
DW GSPFXPL
LDX DRVBUF1 ; was $0300
BNE RTSINST
LDA DEVNUM
STA ONLNPL+1 ; Device number
JSR MLI
DB ONLNCMD
DW ONLNPL
LDA DRVBUF2 ; was $0301
AND #$0F
TAX
INX
STX DRVBUF1 ; was $0300
LDA #'/'
STA DRVBUF2 ; was $0301
DEC :OPC7
BNE :L1
RTSINST LDA CMDPATH
BEQ :GETPFX ; CMDPATH empty
LDA CMDPATH+1
CMP #'/'
BEQ :GETPFXDONE ; CMDPATH already absolute path
:GETPFX JSR MLI
DB $C7 ; Get Prefix
DW :GETADDR
:GETPFXDONE RTS
:GETADDR HEX 01 ; One parameter
DW CMDPATH ; Get prefix to CMDPATH
* Disconnect /RAM ramdrive to avoid aux corruption
* Stolen from Beagle Bros Extra K
DISCONN LDA MACHID
AND #$30
CMP #$30
BNE :S1
LDA DEVADR32
CMP DEVADR01
BNE :S2
LDA DEVADR32+1
CMP DEVADR01+1
BEQ :S1
:S2 LDY DEVCNT
:L1 LDA DEVLST,Y
AND #$F3
CMP #$B3
BEQ :S3
DEY
BPL :L1
BMI :S1
:S3 LDA DEVLST,Y
STA DRVBUF2+1 ; was $0302
:L2 LDA DEVLST+1,Y
STA DEVLST,Y
BEQ :S4
INY
BNE :L2
:S4 LDA DEVADR32
STA DRVBUF1 ; was $0300
LDA DEVADR32+1
STA DRVBUF2 ; was $0301
LDA DEVADR01
STA DEVADR32
LDA DEVADR01+1
STA DEVADR32+1
DEC DEVCNT
:S1 RTS
** Set prefix if not already set
*SETPRFX LDA #GPFXCMD
* STA :OPC7 ; Initialize cmd byte to $C7
*:L1 JSR MLI
*:OPC7 DB $00
* DW GSPFXPL
* LDX DRVBUF1 ; was $0300
* BNE RTSINST
* LDA DEVNUM
* STA ONLNPL+1 ; Device number
* JSR MLI
* DB ONLNCMD
* DW ONLNPL
* LDA DRVBUF2 ; was $0301
* AND #$0F
* TAX
* INX
* STX DRVBUF1 ; was $0300
* LDA #'/'
* STA DRVBUF2 ; was $0301
* DEC :OPC7
* BNE :L1
*RTSINST LDA CMDPATH
* BEQ :GETPFX ; CMDPATH empty
* LDA CMDPATH+1
* CMP #'/'
* BEQ :GETPFXDONE ; CMDPATH already absolute path
*:GETPFX JSR MLI
* DB $C7 ; Get Prefix
* DW :GETADDR
*:GETPFXDONE RTS
*:GETADDR HEX 01 ; One parameter
* DW CMDPATH ; Get prefix to CMDPATH
*
*
** Disconnect /RAM ramdrive to avoid aux corruption
** Stolen from Beagle Bros Extra K
*DISCONN LDA MACHID
* AND #$30
* CMP #$30
* BNE :S1
* LDA DEVADR32
* CMP DEVADR01
* BNE :S2
* LDA DEVADR32+1
* CMP DEVADR01+1
* BEQ :S1
*:S2 LDY DEVCNT
*:L1 LDA DEVLST,Y
* AND #$F3
* CMP #$B3
* BEQ :S3
* DEY
* BPL :L1
* BMI :S1
*:S3 LDA DEVLST,Y
* STA DRVBUF2+1 ; was $0302
*:L2 LDA DEVLST+1,Y
* STA DEVLST,Y
* BEQ :S4
* INY
* BNE :L2
*:S4 LDA DEVADR32
* STA DRVBUF1 ; was $0300
* LDA DEVADR32+1
* STA DRVBUF2 ; was $0301
* LDA DEVADR01
* STA DEVADR32
* LDA DEVADR01+1
* STA DEVADR32+1
* DEC DEVCNT
*:S1 RTS
*
* Reset handler - invoked on Ctrl-Reset
* XFER to AUXMOS ($C000) in aux, AuxZP on, LC on
RESET TSX

77
mainmem.ldr.s
View File

@ -42,8 +42,80 @@ SUPPORTED LDA #$DF ; Protect pages $0,$1,and $3-$7
STA P8BMAP282F
STA P8BMAP3037
STA P8BMAP383F
* Set prefix if not already set
SETPRFX LDA #GPFXCMD
STA :OPC7 ; Initialize cmd byte to $C7
:L1 JSR MLI
:OPC7 DB $00
DW GSPFXPL
LDX DRVBUF1 ; was $0300
BNE RTSINST
LDA DEVNUM
STA ONLNPL+1 ; Device number
JSR MLI
DB ONLNCMD
DW ONLNPL
LDA DRVBUF2 ; was $0301
AND #$0F
TAX
INX
STX DRVBUF1 ; was $0300
LDA #'/'
STA DRVBUF2 ; was $0301
DEC :OPC7
BNE :L1
RTSINST LDA CMDPATH
BEQ :GETPFX ; CMDPATH empty
LDA CMDPATH+1
CMP #'/'
BEQ DISCONN ; CMDPATH already absolute path
:GETPFX JSR MLI
DB $C7 ; Get Prefix
DW GETPFXPARM
* Disconnect /RAM ramdrive to avoid aux corruption
* Stolen from Beagle Bros Extra K
DISCONN LDA MACHID
AND #$30
CMP #$30
BNE :S1
LDA DEVADR32
CMP DEVADR01
BNE :S2
LDA DEVADR32+1
CMP DEVADR01+1
BEQ :S1
:S2 LDY DEVCNT
:L1 LDA DEVLST,Y
AND #$F3
CMP #$B3
BEQ :S3
DEY
BPL :L1
BMI :S1
:S3 LDA DEVLST,Y
STA DRVBUF2+1 ; was $0302
:L2 LDA DEVLST+1,Y
STA DEVLST,Y
BEQ :S4
INY
BNE :L2
:S4 LDA DEVADR32
STA DRVBUF1 ; was $0300
LDA DEVADR32+1
STA DRVBUF2 ; was $0301
LDA DEVADR01
STA DEVADR32
LDA DEVADR01+1
STA DEVADR32+1
DEC DEVCNT
:S1
JMP START
GETPFXPARM HEX 01 ; One parameter
DW CMDPATH ; Get prefix to CMDPATH
UNSUPPORTED JSR HOME
LDX #$00
UNSUPLP LDA UNSUPMSG,X
@ -71,10 +143,7 @@ PADDING ASC '***THISISPROTOTYPECODE***'
; Original APPLECORN.BIN code starts here
START JSR CROUT
JSR SETPRFX
JSR DISCONN
START
JSR ROMMENU
* LDA #>AUXADDR ; Address in aux
* LDX #<AUXADDR