Switch to assembler for cputc implementation.

2014-11-22 01:07:55 +01:00
parent 5c8cd00dd5
commit 0a6afb59c0
6 changed files with 166 additions and 72 deletions
--- a/libsrc/c1p/gotoxy.s
+++ b/libsrc/c1p/gotoxy.s
@@ -0,0 +1,17 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; void gotoxy (unsigned char x, unsigned char y);
+;
+
+        .export         _gotoxy
+        .import         popa, plot
+        .importzp       CURS_X, CURS_Y
+
+_gotoxy:
+        sta     CURS_Y          ; Set Y
+        jsr     popa            ; Get X
+        sta     CURS_X          ; Set X
+        jmp     plot            ; Set the cursor position
+
+