Apple-2-SW
/
pitch-dark
mirror of https://github.com/a2-4am/pitch-dark.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

support sparse write on disk more than 2Mb full

This commit is contained in:
Peter Ferrie 2018-06-12 16:36:25 -07:00
parent 41be0d85e2
commit 6abcbd56e0
3 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/onbeyond/z4/z4.s
View File

@ -1792,11 +1792,13 @@ sparseblk ldx #2
lda adrhi
cmp #(>hddencbuf) + 2
bne --
inc bloklo
ldx bloklo
inx
bne +
inc blokhi
+ dec ldrhi
bne --
+ lda blokhi
dec ldrhi
bne ---
;signal disk full via implicit carry set
@ -1901,6 +1903,7 @@ quit_e
!if verbose_info = 1 {
!warn "base=",$300-((quit_e-waitkey)+(callback_e-callback1))
!warn "quit=",$300-(quit_e-waitkey)
!warn "save=",$300+save_end-saveme
}
unpack ;unpacker entrypoint

9
src/onbeyond/z5/z5.s
View File

@ -1804,11 +1804,13 @@ sparseblk ldx #2
lda adrhi
cmp #(>hddencbuf) + 2
bne --
inc bloklo
ldx bloklo
inx
bne +
inc blokhi
+ dec ldrhi
bne --
+ lda blokhi
dec ldrhi
bne ---
;signal disk full via implicit carry set
@ -1914,6 +1916,7 @@ quit_e
!if verbose_info = 1 {
!warn "base=",casemap-((quit_e-waitkey)+(callback_e-callback1))
!warn "quit=",casemap-(quit_e-waitkey)
!warn "save=",$300+save_end-saveme
}
unpack ;unpacker entrypoint

9
src/onbeyond/z5u/z5u.s
View File

@ -1804,11 +1804,13 @@ sparseblk ldx #2
lda adrhi
cmp #(>hddencbuf) + 2
bne --
inc bloklo
ldx bloklo
inx
bne +
inc blokhi
+ dec ldrhi
bne --
+ lda blokhi
dec ldrhi
bne ---
;signal disk full via implicit carry set
@ -1914,6 +1916,7 @@ quit_e
!if verbose_info = 1 {
!warn "base=",casemap-((quit_e-waitkey)+(callback_e-callback1))
!warn "quit=",casemap-(quit_e-waitkey)
!warn "save=",$300+save_end-saveme
}
unpack ;unpacker entrypoint