From 98f4a339bad12025f5a24948436900dab25f941b Mon Sep 17 00:00:00 2001
From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 29 Aug 2005 22:34:14 +0000
Subject: [PATCH] initial check-in

git-svn-id: svn://svn.cc65.org/cc65/trunk@3604 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 testcode/lib/atari/scrcode.s | 58 ++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 testcode/lib/atari/scrcode.s

diff --git a/testcode/lib/atari/scrcode.s b/testcode/lib/atari/scrcode.s
new file mode 100644
index 000000000..3bdc9b863
--- /dev/null
+++ b/testcode/lib/atari/scrcode.s
@@ -0,0 +1,58 @@
+; Christian Groessler, 30-Aug-2005
+;
+; scrcode macro test
+;
+; compile with
+;	ca65 -I../../../asminc -tatari -o scrcode.o scrcode.s
+;	ld65 -tatari -o scrcode.com scrcode.o
+
+.import		__CODE_LOAD__, __BSS_LOAD__
+
+.include	"atari.inc"
+.macpack	atari
+
+.code
+
+		rts		; SpartaDOS workaround
+
+; entry point
+
+		lda	#0
+		tay
+		tax
+
+; display dispdata
+
+disp:		lda	dispdata,x
+		sta	(SAVMSC),y
+		inx
+		iny
+		cpx	#disp_len
+		bne	disp
+
+; wait for key press
+
+key:		lda	CH
+		cmp	#255
+		beq	key
+
+		rts
+
+.data
+
+dispdata:	scrcode		"fooBa", 'r', $66, 3+4
+disp_len	=	* - dispdata
+
+.segment	"AUTOSTRT"
+
+		.word	$02E0
+		.word	$02E1
+		.word	__CODE_LOAD__+1
+
+.segment	"EXEHDR"
+
+		.word	$FFFF
+		.word	__CODE_LOAD__
+		.word	__BSS_LOAD__ - 1
+
+.end
-- 
2.39.5