From 7bc3bff83f682f9c511e272e30ae3736ca3681aa Mon Sep 17 00:00:00 2001 From: jede Date: Sat, 25 Feb 2017 22:20:17 +0100 Subject: [PATCH] adding gotox.s gotoy.s wherex.s wherey.s --- libsrc/telestrat/clrscr.s | 6 +++++- libsrc/telestrat/gotox.s | 16 ++++++++++++++++ libsrc/telestrat/gotoxy.s | 9 ++++++--- libsrc/telestrat/gotoy.s | 14 ++++++++++++++ libsrc/telestrat/wherex.s | 15 +++++++++++++++ libsrc/telestrat/wherey.s | 15 +++++++++++++++ 6 files changed, 71 insertions(+), 4 deletions(-) create mode 100644 libsrc/telestrat/gotox.s create mode 100644 libsrc/telestrat/gotoy.s create mode 100644 libsrc/telestrat/wherex.s create mode 100644 libsrc/telestrat/wherey.s diff --git a/libsrc/telestrat/clrscr.s b/libsrc/telestrat/clrscr.s index 8c45aeeec..891c4162d 100644 --- a/libsrc/telestrat/clrscr.s +++ b/libsrc/telestrat/clrscr.s @@ -1,3 +1,7 @@ +; +; jede jede@oric.org 2017-02-25 +; + .export _clrscr .importzp sp @@ -25,7 +29,7 @@ ; reset display position lda #$01 sta SCRY - lda #$02 + lda #$00 sta SCRX rts .endproc diff --git a/libsrc/telestrat/gotox.s b/libsrc/telestrat/gotox.s new file mode 100644 index 000000000..d6af0e4dd --- /dev/null +++ b/libsrc/telestrat/gotox.s @@ -0,0 +1,16 @@ +; +; jede jede@oric.org 2017-02-25 +; + .export _gotox + + .import popa + + .importzp sp + + .include "telestrat.inc" + + +.proc _gotox + sta SCRX + rts +.endproc diff --git a/libsrc/telestrat/gotoxy.s b/libsrc/telestrat/gotoxy.s index fb659d968..7aa83b71d 100644 --- a/libsrc/telestrat/gotoxy.s +++ b/libsrc/telestrat/gotoxy.s @@ -1,3 +1,6 @@ +; +; jede jede@oric.org 2017-02-25 +; .export _gotoxy .import popa @@ -10,8 +13,8 @@ .proc _gotoxy ; This function move only cursor for display, it does not move the prompt position ; in telemon, there is position for prompt, and another for the cursor - sta SCRY - jsr popa - sta SCRX + sta SCRY + jsr popa + sta SCRX rts .endproc diff --git a/libsrc/telestrat/gotoy.s b/libsrc/telestrat/gotoy.s new file mode 100644 index 000000000..d71570f10 --- /dev/null +++ b/libsrc/telestrat/gotoy.s @@ -0,0 +1,14 @@ +; +; jede jede@oric.org 2017-02-25 +; + .export _gotoy + + .importzp sp + + .include "telestrat.inc" + + +.proc _gotoy + sta SCRY + rts +.endproc diff --git a/libsrc/telestrat/wherex.s b/libsrc/telestrat/wherex.s new file mode 100644 index 000000000..6d9587ba8 --- /dev/null +++ b/libsrc/telestrat/wherex.s @@ -0,0 +1,15 @@ +; +; jede jede@oric.org 2017-02-25 +; + .export _wherex + + .importzp sp + + .include "telestrat.inc" + + +.proc _wherex + ldx #$00 + lda SCRX + rts +.endproc diff --git a/libsrc/telestrat/wherey.s b/libsrc/telestrat/wherey.s new file mode 100644 index 000000000..e211ed5b9 --- /dev/null +++ b/libsrc/telestrat/wherey.s @@ -0,0 +1,15 @@ +; +; jede jede@oric.org 2017-02-25 +; + .export _wherey + + .importzp sp + + .include "telestrat.inc" + + +.proc _wherey + ldx #$00 + lda SCRY + rts +.endproc -- 2.39.5