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

really preserve Y

Browse Source
This commit is contained in:
Peter Ferrie 2018-12-25 18:50:55 -08:00
parent ba23931e12
commit 7efc7a8230
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/glue.prorwts2.a
View File

@ -273,6 +273,8 @@ ProDOS_exit
sta $c082, x sta $c082, x
ProDOS_savedX ProDOS_savedX
ldx #$d1 ldx #$d1
ProDOS_savedY
ldy #$d1
rts rts
ProDOS_fatal ;only for debugging, will be removed ProDOS_fatal ;only for debugging, will be removed
pha pha
@ -351,6 +353,7 @@ ProDOS_enter
!set PASS2=1 !set PASS2=1
} }
stx ProDOS_savedX+1 stx ProDOS_savedX+1
sty ProDOS_savedY+1
pha pha
jsr @swap_zp jsr @swap_zp
pla pla
@ -372,8 +375,6 @@ ProDOS_enter
php php
txa txa
pha pha
tya
pha
@request @request
lda #$d1 lda #$d1
cmp #$c4 cmp #$c4
@ -584,8 +585,6 @@ ProDOS_enter
@restore_zp @restore_zp
jsr @swap_zp jsr @swap_zp
pla pla
tay
pla
lsr lsr
lsr lsr
lsr lsr