Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-13 01:30:33 +00:00
Code Issues Projects Releases Wiki Activity

Update ProDOS globals to use labels instead of absolutes

Browse Source
This commit is contained in:
apple2geek 2022-10-08 19:38:12 -06:00
parent 7c34850f77
commit 3bf3797488
3 changed files with 31 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
applecorn.s
View File

@ -43,6 +43,16 @@ A2IRQV EQU $3FE
* ProDOS Global Page equates * ProDOS Global Page equates
* MLI entry point * MLI entry point
MLI EQU $BF00 MLI EQU $BF00
* Device Addresses
DEVADR01 EQU $BF10
DEVADR32 EQU $BF26
* Device List
DEVNUM EQU $BF30
DEVCNT EQU $BF31
DEVLST EQU $BF32
* Date & time
PRODOSDATE EQU $BF90
PRODOSTIME EQU $BF92
* Machine ID byte * Machine ID byte
MACHID EQU $BF98 MACHID EQU $BF98
* Versioning bytes * Versioning bytes

34
mainmem.init.s
View File

@ -26,7 +26,7 @@ SETPRFX LDA #GPFXCMD
DW GSPFXPL DW GSPFXPL
LDX DRVBUF1 ; was $0300 LDX DRVBUF1 ; was $0300
BNE RTSINST BNE RTSINST
LDA $BF30 LDA DEVNUM
STA ONLNPL+1 ; Device number STA ONLNPL+1 ; Device number
JSR MLI JSR MLI
DB ONLNCMD DB ONLNCMD
@ -59,36 +59,36 @@ DISCONN LDA MACHID
AND #$30 AND #$30
CMP #$30 CMP #$30
BNE :S1 BNE :S1
LDA $BF26 LDA DEVADR32
CMP $BF10 CMP DEVADR01
BNE :S2 BNE :S2
LDA $BF27 LDA DEVADR32+1
CMP $BF11 CMP DEVADR01+1
BEQ :S1 BEQ :S1
:S2 LDY $BF31 :S2 LDY DEVCNT
:L1 LDA $BF32,Y :L1 LDA DEVLST,Y
AND #$F3 AND #$F3
CMP #$B3 CMP #$B3
BEQ :S3 BEQ :S3
DEY DEY
BPL :L1 BPL :L1
BMI :S1 BMI :S1
:S3 LDA $BF32,Y :S3 LDA DEVLST,Y
STA DRVBUF2+1 ; was $0302 STA DRVBUF2+1 ; was $0302
:L2 LDA $BF33,Y :L2 LDA DEVLST+1,Y
STA $BF32,Y STA DEVLST,Y
BEQ :S4 BEQ :S4
INY INY
BNE :L2 BNE :L2
:S4 LDA $BF26 :S4 LDA DEVADR32
STA DRVBUF1 ; was $0300 STA DRVBUF1 ; was $0300
LDA $BF27 LDA DEVADR32+1
STA DRVBUF2 ; was $0301 STA DRVBUF2 ; was $0301
LDA $BF10 LDA DEVADR01
STA $BF26 STA DEVADR32
LDA $BF11 LDA DEVADR01+1
STA $BF27 STA DEVADR32+1
DEC $BF31 DEC DEVCNT
:S1 RTS :S1 RTS
* Reset handler - invoked on Ctrl-Reset * Reset handler - invoked on Ctrl-Reset

8
mainmem.misc.s
View File

@ -133,13 +133,13 @@ CRTFILE JSR MLI ; GET_TIME
STA CREATEPL+2 STA CREATEPL+2
LDA #$C3 ; Open permissions LDA #$C3 ; Open permissions
STA CREATEPL+3 STA CREATEPL+3
LDA $BF90 ; Current date LDA PRODOSDATE ; Current date
STA CREATEPL+8 STA CREATEPL+8
LDA $BF91 LDA PRODOSDATE+1
STA CREATEPL+9 STA CREATEPL+9
LDA $BF92 ; Current time LDA PRODOSTIME ; Current time
STA CREATEPL+10 STA CREATEPL+10
LDA $BF93 LDA PRODOSTIME+1
STA CREATEPL+11 STA CREATEPL+11
JSR MLI JSR MLI
DB CREATCMD DB CREATCMD