;
; 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
lsubeqsp.s.html; generated on Sat Oct 13 22:41:33 2001 by ca65html