1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 02:29:52 +00:00
cc65/libsrc/runtime/xor.s
2017-03-12 23:21:43 +01:00

32 lines
606 B
ArmAsm

;
; Ullrich von Bassewitz, 05.08.1998
; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
;
; CC65 runtime: xor on ints
;
.export tosxora0, tosxorax
.import addysp1
.importzp sp, tmp1
.macpack cpu
tosxora0:
ldx #$00
tosxorax:
.if (.cpu .bitand CPU_ISET_65SC02)
eor (sp)
ldy #1
.else
ldy #0
eor (sp),y
iny
.endif
sta tmp1
txa
eor (sp),y
tax
lda tmp1
jmp addysp1 ; drop TOS, set condition codes