Add support for INITAD to the Atari binary format.

2019-02-18 00:24:52 -03:00
parent 417ef278a3
commit b03ae76b54
8 changed files with 108 additions and 7 deletions
--- 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"