Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-09 19:32:03 +00:00
Code Issues Projects Releases Wiki Activity

magaload: qkumba let me know a better way of getting current DOS33 slot

Browse Source
This commit is contained in:
Vince Weaver 2018-10-30 14:41:02 -04:00
parent 3a24f2a1b3
commit 1ce5dbe814
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
megademo/megaload.s
View File

@ -1,15 +1,14 @@
; read any file slot 6 version ; read any file slot 6 version
; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018 ; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018
; TODO: ; modified to assembled with ca64 -- vmw
; non-slot6? self modfiy code? ; added code to patch it to run from current disk slot -- vmw
; Slot<<4 is in $2b by boot firmware? can we rely on that?
adrlo = $26 ; constant from boot prom adrlo = $26 ; constant from boot prom
adrhi = $27 ; constant from boot prom adrhi = $27 ; constant from boot prom
tmpsec = $3c ; constant from boot prom tmpsec = $3c ; constant from boot prom
reqsec = $3d ; constant from boot prom reqsec = $3d ; constant from boot prom
curtrk = $40
sizelo = $44 sizelo = $44
sizehi = $45 sizehi = $45
secsize = $46 secsize = $46
@ -156,7 +155,18 @@ md000x2_filename: ;.byte "MUSIC.D000X2 "
init: init:
; patch to use current drive ; patch to use current drive
lda $2b ; has boot slot << 4 ?
; locate input paramater list
jsr $3E3
; result is in A:Y
sta $FF
sty $FE
ldy #1
lda ($FE),y
; list+1 should have slot<<8
ora #$80 ; add in $80 ora #$80 ; add in $80
; c0e0 ; c0e0