From 256b22f1c7017f5f30c3e6046cf4e641825788ef Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Mon, 1 Mar 2021 22:36:09 +0100
Subject: [PATCH] Add bordercolor and cvline

---
 libsrc/telestrat/bordercolor.s | 15 ++++++++++++++
 libsrc/telestrat/cvline.s      | 36 ++++++++++++++++++++++++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 libsrc/telestrat/bordercolor.s
 create mode 100644 libsrc/telestrat/cvline.s

diff --git a/libsrc/telestrat/bordercolor.s b/libsrc/telestrat/bordercolor.s
new file mode 100644
index 000000000..7055e6ba9
--- /dev/null
+++ b/libsrc/telestrat/bordercolor.s
@@ -0,0 +1,15 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; unsigned char __fastcall__ bordercolor (unsigned char color);
+;
+
+
+        .export         _bordercolor
+
+        .include        "telestrat.inc"
+
+_bordercolor:
+        ; Nothing to do
+        ; Oric can't handle his border
+        rts
\ No newline at end of file
diff --git a/libsrc/telestrat/cvline.s b/libsrc/telestrat/cvline.s
new file mode 100644
index 000000000..159eb9d27
--- /dev/null
+++ b/libsrc/telestrat/cvline.s
@@ -0,0 +1,36 @@
+;
+; Ullrich von Bassewitz, 2003-04-13
+;
+; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void cvline (unsigned char length);
+;
+
+        .export         _cvlinexy, _cvline
+
+        .import         rvs, display_conio, update_adscr
+
+        .import         popax
+
+        .include        "telestrat.inc"
+
+
+_cvlinexy:
+        pha                     ; Save the length
+        jsr     popax           ; Get X and Y
+        sta     SCRY            ; Store Y
+        stx     SCRX            ; Store X
+        jsr     update_adscr
+        pla                     ; Restore the length and run into _cvline
+
+_cvline:
+        tax                     ; Is the length zero?
+        beq     @L9             ; Jump if done
+@L1:
+        lda     #'|'
+        ora     rvs
+        jsr     display_conio
+@L2:    dex
+        bne     @L1
+@L9:    rts
+
+