X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=testcode%2Flib%2Fatari%2Fmulti-xex.s;h=cdf43469d544d0d4370897def1b5f9f384521c02;hb=b03ae76b54d77f435088cacf12d3cfd9873f05ed;hp=7957ddf64109c94f76d3803c3028e167a0347b7e;hpb=2190703a576aebd71673009e73f0aa6de457ca47;p=cc65

diff --git a/testcode/lib/atari/multi-xex.s b/testcode/lib/atari/multi-xex.s
index 7957ddf64..cdf43469d 100644
--- a/testcode/lib/atari/multi-xex.s
+++ b/testcode/lib/atari/multi-xex.s
@@ -14,8 +14,25 @@
         .macpack        atari
 
 ; Default RUNAD is "start", export that:
-        .export         start
+        .export         start, show_load
 
+; Loader
+        .segment        "LOADER"
+show_load:
+        ldx     #0              ; channel 0
+        lda     #<msg_load
+        sta     ICBAL,x         ; address
+        lda     #>msg_load
+        sta     ICBAH,x
+        lda     #$FF
+        sta     ICBLL,x         ; length
+        sta     ICBLH,x
+        lda     #PUTREC
+        sta     ICCOM,x
+        jmp     CIOV
+
+msg_load:
+        .byte   "Loading....", ATEOL
 
 ; We load color values directly into registers
         .segment        "COLOR"