mirror of
https://github.com/a2-4am/4cade.git
synced 2025-02-17 07:31:19 +00:00
force main-memory reads in LoadFileDirect
This commit is contained in:
parent
419f171290
commit
83f7e02279
@ -149,6 +149,7 @@ iCurBlockLo = $D401
|
|||||||
iCurBlockHi = $D403
|
iCurBlockHi = $D403
|
||||||
iProDOS_enter = $D678
|
iProDOS_enter = $D678
|
||||||
LoadFileDirect = $DB01
|
LoadFileDirect = $DB01
|
||||||
|
iAuxReq = $DB27
|
||||||
launchpatch = $D616
|
launchpatch = $D616
|
||||||
iAddToPath = $FEC3
|
iAddToPath = $FEC3
|
||||||
itraverse = $D8E0
|
itraverse = $D8E0
|
||||||
|
@ -35,6 +35,14 @@ LoadFileAuxInternal
|
|||||||
+ST16 ldrlo
|
+ST16 ldrlo
|
||||||
+ lda #$FF ; read entire file (ProRWTS2 will figure out exact size)
|
+ lda #$FF ; read entire file (ProRWTS2 will figure out exact size)
|
||||||
sta sizehi
|
sta sizehi
|
||||||
|
!if RELBASE != $2000 {
|
||||||
|
!ifdef PASS2 {
|
||||||
|
} else { ;PASS2
|
||||||
|
!if *+1 != iAuxReq {
|
||||||
|
!error "iAuxReq=",*+1, ", fix constants.a"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
@auxreq
|
@auxreq
|
||||||
lda #0
|
lda #0
|
||||||
sta auxreq
|
sta auxreq
|
||||||
|
@ -372,6 +372,8 @@
|
|||||||
; LC RAM 2 MUST BE BANKED IN
|
; LC RAM 2 MUST BE BANKED IN
|
||||||
; LOW BYTE OF .addr MUST BE $00
|
; LOW BYTE OF .addr MUST BE $00
|
||||||
!macro LOAD_FILE_AT .filepath, .addr {
|
!macro LOAD_FILE_AT .filepath, .addr {
|
||||||
|
lda #0
|
||||||
|
sta iAuxReq ; read to main memory
|
||||||
lda #>.addr
|
lda #>.addr
|
||||||
sta ldrhi
|
sta ldrhi
|
||||||
lda iCurBlockLo
|
lda iCurBlockLo
|
||||||
|
Loading…
x
Reference in New Issue
Block a user