test #2674
This commit is contained in:
@@ -5,27 +5,27 @@
|
||||
;
|
||||
|
||||
.export pushwysp, pushw0sp
|
||||
.importzp sp
|
||||
.importzp c_sp
|
||||
|
||||
.macpack generic
|
||||
|
||||
pushw0sp:
|
||||
ldy #3
|
||||
pushwysp:
|
||||
lda sp ; 3
|
||||
lda c_sp ; 3
|
||||
sub #2 ; 4
|
||||
sta sp ; 3
|
||||
sta c_sp ; 3
|
||||
bcs @L1 ; 3(+1)
|
||||
dec sp+1 ; (5)
|
||||
@L1: lda (sp),y ; 5 =16
|
||||
dec c_sp+1 ; (5)
|
||||
@L1: lda (c_sp),y ; 5 =16
|
||||
tax ; 2
|
||||
dey ; 2
|
||||
lda (sp),y ; 5
|
||||
lda (c_sp),y ; 5
|
||||
ldy #$00 ; 2
|
||||
sta (sp),y ; 5
|
||||
sta (c_sp),y ; 5
|
||||
iny ; 2
|
||||
txa ; 2
|
||||
sta (sp),y ; 5
|
||||
sta (c_sp),y ; 5
|
||||
rts
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user