;
-; Ullrich von Bassewitz, 29.12.1999
+; Piotr Fusik, 07.03.2018
+; originally by Ullrich von Bassewitz
;
; CC65 runtime: Decrement eax by value in Y
;
sty tmp1
sec
sbc tmp1
- sta tmp1
- txa
- sbc #0
- tax
- lda sreg
- sbc #0
- sta sreg
- lda sreg+1
- sbc #0
- sta sreg+1
- lda tmp1
- rts
+ bcs @L9
+ dex
+ cpx #$ff
+ bne @L9
+ dec sreg
+ cpx sreg
+ bne @L9
+ dec sreg+1
+@L9: rts