1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/runtime/lsubeqsp.s
uz 53dd513176 This commit was generated by cvs2svn to compensate for changes in r2,
which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00

38 lines
471 B
ArmAsm

;
; Ullrich von Bassewitz, 08.10.1998
;
; CC65 runtime: -= operator for longs on the stack
;
.export lsubeq0sp, lsubeqysp
.importzp sp, sreg, tmp1, tmp2
lsubeq0sp:
ldy #0
lsubeqysp:
sec
sta tmp1
stx tmp2
lda (sp),y
sbc tmp1
sta (sp),y
pha
iny
lda (sp),y
sbc tmp2
sta (sp),y
tax
iny
lda (sp),y
sbc sreg
sta (sp),y
sta sreg
iny
lda (sp),y
sbc sreg+1
sta (sp),y
sta sreg+1
pla
rts