Allocate own zp pointer for conio implementation

2022-04-05 11:13:38 +03:00
parent 60fffb289a
commit c6b9a012c8
3 changed files with 14 additions and 12 deletions
--- a/libsrc/atari7800/cputc.s
+++ b/libsrc/atari7800/cputc.s
@@ -10,10 +10,10 @@
        .import         _gotoxy, _gotox, _gotoy, tosaddax, tosumula0, pusha0
 	.import		pushax
 	.import		_screen
-        .importzp       ptr3
 	.import		CURS_X, CURS_Y

        .include        "atari7800.inc"
+        .include        "extzp.inc"

 	.data
 ;-----------------------------------------------------------------------------
@@ -132,12 +132,12 @@ txtcolor:
 	lda     #<(_screen)
 	ldx     #>(_screen)
 	jsr     tosaddax
-	sta	ptr3
-	stx	ptr3+1
+	sta	ptr7800
+	stx	ptr7800+1

 	pla
 	ldy	#0
-	sta	(ptr3),y
+	sta	(ptr7800),y
 	rts

        .endproc