no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / runtime / lbneg.s

diff --git a/libsrc/runtime/lbneg.s b/libsrc/runtime/lbneg.s
index cd508e5873dcdd9c8d23ec9fc2041bba2ebe52a0..ca737e4269ef4dc0f5312db368ba2b971f862bbd 100644 (file)
--- a/libsrc/runtime/lbneg.s
+++ b/libsrc/runtime/lbneg.s
@@ -5,18 +5,18 @@
 ;
 
        .export         bnegeax
-       .import         return0, return1
-       .importzp       sreg
+       .importzp       sreg, tmp1
 
 bnegeax:
-       cmp     #0
-       bne     L1
-       cpx     #0
-       bne     L1
-               lda     sreg
-       bne     L1
-               lda     sreg+1
-       bne     L1
-       jmp     return1
-L1:    jmp     return0
+       stx     tmp1
+       ldx     #0              ; High byte of result
+       ora     tmp1
+       ora     sreg
+       ora     sreg+1
+       bne     @L0
+       lda     #1
+       rts
+
+@L0:   txa                     ; X is zero
+       rts