test #2674
This commit is contained in:
@@ -9,7 +9,7 @@
|
||||
;
|
||||
.export tossub0ax, tossubeax
|
||||
.import addysp1
|
||||
.importzp sp, sreg
|
||||
.importzp c_sp, sreg
|
||||
|
||||
.macpack cpu
|
||||
|
||||
@@ -27,24 +27,24 @@ tossubeax:
|
||||
sec
|
||||
eor #$FF
|
||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
||||
adc (sp) ; 65SC02 version - saves 2 cycles
|
||||
adc (c_sp) ; 65SC02 version - saves 2 cycles
|
||||
ldy #1
|
||||
.else
|
||||
ldy #0
|
||||
adc (sp),y ; lo byte
|
||||
adc (c_sp),y ; lo byte
|
||||
iny
|
||||
.endif
|
||||
pha ; Save low byte
|
||||
txa
|
||||
eor #$FF
|
||||
adc (sp),y ; byte 1
|
||||
adc (c_sp),y ; byte 1
|
||||
tax
|
||||
iny
|
||||
lda (sp),y
|
||||
lda (c_sp),y
|
||||
sbc sreg ; byte 2
|
||||
sta sreg
|
||||
iny
|
||||
lda (sp),y
|
||||
lda (c_sp),y
|
||||
sbc sreg+1 ; byte 3
|
||||
sta sreg+1
|
||||
pla ; Restore byte 0
|
||||
|
||||
Reference in New Issue
Block a user