Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-27 08:50:01 +00:00
Code Issues Projects Releases Wiki Activity

restore buffer ordering

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-20 11:16:26 -07:00
parent 9c65662193
commit c9f40539a7
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/glue.prorwts2.a
View File

@ -412,11 +412,7 @@ packet = first_zp ;word
buffer = first_zp+2 ;word buffer = first_zp+2 ;word
ProDOS_enter ProDOS_enter
!ifdef PASS2 {
!set CloseHandles = @imp_close !set CloseHandles = @imp_close
} else { ;PASS2
!set CloseHandles = *
}
stx ProDOS_savedX+1 stx ProDOS_savedX+1
sty ProDOS_savedY+1 sty ProDOS_savedY+1
pha pha
@ -574,7 +570,6 @@ ProDOS_enter
iny iny
lda (packet), y lda (packet), y
sta @handle-1, x sta @handle-1, x
tax
jsr @patch_buffer jsr @patch_buffer
iny iny
lda #1 lda #1
@ -691,7 +686,6 @@ ProDOS_enter
lda (packet), y lda (packet), y
tax tax
lda @handle-1, x lda @handle-1, x
tax
jsr @patch_buffer jsr @patch_buffer
ldx #ldrlo ldx #ldrlo
iny iny

4
src/prorwts2.a
View File

@ -3008,10 +3008,10 @@ hdddataend
} ;allow_trees } ;allow_trees
} else { ;load_high = 0 } else { ;load_high = 0
!pseudopc ((hdddataend + $ff) & -256) { !pseudopc ((hdddataend + $ff) & -256) {
hdddirbuf = $d000 hdddirbuf = $d200
} }
!if aligned_read = 0 { !if aligned_read = 0 {
hddencbuf = hdddirbuf + $200 hddencbuf = hdddirbuf - $200
} ;aligned_read } ;aligned_read
!if allow_trees = 1 { !if allow_trees = 1 {
!if aligned_read = 0 { !if aligned_read = 0 {