From 313d2dd2104dd6f905ca3745fe1b9ea8e1259715 Mon Sep 17 00:00:00 2001 From: mrdudz Date: Sun, 19 Jul 2015 18:06:16 +0200 Subject: [PATCH] added missing chline, cvline --- libsrc/pce/chline.s | 32 ++++++++++++++++++++++++++++++++ libsrc/pce/cvline.s | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) create mode 100644 libsrc/pce/chline.s create mode 100644 libsrc/pce/cvline.s diff --git a/libsrc/pce/chline.s b/libsrc/pce/chline.s new file mode 100644 index 000000000..8bf8f1626 --- /dev/null +++ b/libsrc/pce/chline.s @@ -0,0 +1,32 @@ +; +; Ullrich von Bassewitz, 08.08.1998 +; +; void chlinexy (unsigned char x, unsigned char y, unsigned char length); +; void chline (unsigned char length); +; + + .export _chlinexy, _chline + .import popa, _gotoxy, cputdirect + .importzp tmp1 + + .include "pce.inc" + +_chlinexy: + pha ; Save the length + jsr popa ; Get y + jsr _gotoxy ; Call this one, will pop params + pla ; Restore the length + +_chline: + cmp #0 ; Is the length zero? + beq L9 ; Jump if done + sta tmp1 +L1: lda #CH_HLINE ; Horizontal line, screen code + jsr cputdirect ; Direct output + dec tmp1 + bne L1 +L9: rts + + + + diff --git a/libsrc/pce/cvline.s b/libsrc/pce/cvline.s new file mode 100644 index 000000000..abd74a5c7 --- /dev/null +++ b/libsrc/pce/cvline.s @@ -0,0 +1,32 @@ +; +; Ullrich von Bassewitz, 08.08.1998 +; +; void cvlinexy (unsigned char x, unsigned char y, unsigned char length); +; void cvline (unsigned char length); +; + + .export _cvlinexy, _cvline + .import popa, _gotoxy, putchar, newline + .importzp tmp1 + + .include "pce.inc" + +_cvlinexy: + pha ; Save the length + jsr popa ; Get y + jsr _gotoxy ; Call this one, will pop params + pla ; Restore the length and run into _cvline + +_cvline: + cmp #0 ; Is the length zero? + beq L9 ; Jump if done + sta tmp1 +L1: lda #CH_VLINE ; Vertical bar + jsr putchar ; Write, no cursor advance + jsr newline ; Advance cursor to next line + dec tmp1 + bne L1 +L9: rts + + + -- 2.39.5