simple conio support for GEOS

git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-10-27 17:13:22 +00:00
parent 0fe03a4643
commit 8ce6c9bcac
17 changed files with 504 additions and 1 deletions
--- a/libsrc/geos/conio/cputs.s
+++ b/libsrc/geos/conio/cputs.s
@@ -0,0 +1,41 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001
+
+; void cputsxy (unsigned char x, unsigned char y, char* s);
+; void cputs (char* s);
+
+	    .export _cputsxy, _cputs
+
+	    .import update_cursor, _gotoxy
+	    .import popa
+
+	    .include "../inc/const.inc"
+	    .include "../inc/geossym.inc"
+	    .include "../inc/jumptab.inc"
+	    .include "cursor.inc"
+
+_cputsxy:
+	sta	r0L		; Save s for later
+	stx	r0H
+	jsr	popa		; Get Y
+	jsr	_gotoxy		; Set cursor, pop x
+   	jmp	L0		; Same as cputs...
+
+_cputs:	sta	r0L		; Save s
+   	stx	r0H
+L0:	ldy	#0
+	lda	(r0),y
+   	bne	L1		; Jump if there's something
+	rts
+
+L1:	lda	cursor_x
+	sta 	r11L
+	lda	cursor_x+1
+	sta	r11H
+	lda	cursor_y
+	sta	r1H
+	jsr	PutString
+	jmp	update_cursor