Add bordercolor and cvline

2024-11-18 00:07:21 +00:00 · 2021-03-01 22:36:09 +01:00 · 2021-03-01 22:36:09 +01:00 · 256b22f1c7
commit 256b22f1c7
parent 02e52fe24d
2 changed files with 51 additions and 0 deletions
--- a/libsrc/telestrat/bordercolor.s
+++ 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
--- a/libsrc/telestrat/cvline.s
+++ 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
+
+