initial check-in

git-svn-id: svn://svn.cc65.org/cc65/trunk@3604 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/testcode/lib/atari/scrcode.s b/testcode/lib/atari/scrcode.s
new file mode 100644 (file)
index 0000000..3bdc9b8
--- /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