mirror of
https://github.com/badvision/lawless-legends.git
synced 2024-07-04 09:29:28 +00:00
Additional debug output during ProRWTS integration.
This commit is contained in:
parent
1740394588
commit
0ec69fadef
@ -2007,7 +2007,8 @@ openPartition: !zone
|
||||
ora floppyDrive ; $80 for drive 2
|
||||
sta tmp
|
||||
clc
|
||||
jsr callProRWTS ; opendir
|
||||
!if DEBUG { jsr dbgrwts } else { jsr callProRWTS }
|
||||
; jsr callProRWTS ; opendir
|
||||
bne .flip ; status: zero=ok, 1=err
|
||||
sta curMarkPos+1 ; by opening we did an implicit seek to zero
|
||||
sta curMarkPos+2
|
||||
@ -2170,7 +2171,8 @@ disk_queueLoad: !zone
|
||||
readAndAdj:
|
||||
sta tmp ; store cmd num
|
||||
sec ; calling rdwrpart (not opendir)
|
||||
jsr callProRWTS ; and seek or read on the underlying file
|
||||
!if DEBUG { jsr dbgrwts } else { jsr callProRWTS }
|
||||
; jsr callProRWTS ; and seek or read on the underlying file
|
||||
; Advance our record of the mark position by the specified # of bytes.
|
||||
; reqLen is still intact, because ProRWTS changes its copy in aux zp only
|
||||
lda curMarkPos
|
||||
@ -2184,6 +2186,26 @@ readAndAdj:
|
||||
inc curMarkPos+2
|
||||
+ rts
|
||||
|
||||
!if DEBUG {
|
||||
dbgrwts:
|
||||
+prStr : !text $8d," rwts c/cmd/aux=",0
|
||||
bcs +
|
||||
+prChr 'o'
|
||||
bcc ++
|
||||
+ +prChr 'r'
|
||||
++ +prA
|
||||
+prByte isAuxCmd
|
||||
+prStr : !text "src/dst/len=",0
|
||||
+prWord pSrc
|
||||
+prWord pDst
|
||||
+prWord reqLen
|
||||
jsr callProRWTS
|
||||
+prStr : !text "-> ",0
|
||||
+prA
|
||||
+crout
|
||||
rts
|
||||
}
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
disk_seek: !zone
|
||||
lda setMarkPos
|
||||
|
Loading…
Reference in New Issue
Block a user