From eeefd10f8f8699e7ceb0d02840257dd56f6a0bbb Mon Sep 17 00:00:00 2001
From: Stefan <stefan.haubenthal@gmail.com>
Date: Tue, 19 Nov 2019 19:23:31 +0100
Subject: [PATCH 123/170] Update revers.s
---
libsrc/c16/revers.s | 28 +---------------------------
1 file changed, 1 insertion(+), 27 deletions(-)
diff --git a/libsrc/c16/revers.s b/libsrc/c16/revers.s
index f1c0b4d6..3ce66876 100644
--- a/libsrc/c16/revers.s
+++ b/libsrc/c16/revers.s
@@ -1,27 +1 @@
-;
-; Ullrich von Bassewitz, 07.08.1998
-;
-; unsigned char revers (unsigned char onoff);
-;
-
- .export _revers
-
- .include "plus4.inc"
-
-.proc _revers
-
- ldx #$00 ; Assume revers off
- tay ; Test onoff
- beq L1 ; Jump if off
- ldx #$80 ; Load on value
- ldy #$00 ; Assume old value is zero
-L1: lda RVS ; Load old value
- stx RVS ; Set new value
- beq L2 ; Jump if old value zero
- iny ; Make old value = 1
-L2: ldx #$00 ; Load high byte of result
- tya ; Load low byte, set CC
- rts
-
-.endproc
-
+.include "../plus4/revers.s"
--
2.26.0