Minor comment adjustment.

[cc65] / libsrc / c16 / crt0.s

diff --git a/libsrc/c16/crt0.s b/libsrc/c16/crt0.s
index 3e48dbe4b7315e0b509280058483c9a0e89aa73f..bbdd4a2520f3cfa639f8b14fb61c565a355ae396 100644 (file)
--- a/libsrc/c16/crt0.s
+++ b/libsrc/c16/crt0.s
@@ -1,48 +1,51 @@
 ;
 ; Startup code for cc65 (C16 version)
 ;
-; This must be the *first* file on the linker command line
-;
 ; Note: The C16 is actually the Plus/4 with just 16KB of memory. So many
 ; things are similar here, and we even use the plus4.inc include file.
 ;
 
        .export         _exit
+        .export         __STARTUP__ : absolute = 1      ; Mark as startup
        .import         initlib, donelib, callirq
        .import         callmain, zerobss
         .import         MEMTOP, RESTOR, BSOUT, CLRCH
        .import         __INTERRUPTOR_COUNT__
 
         .include        "zeropage.inc"
-       .include        "../plus4/plus4.inc"
+       .include        "plus4.inc"
 
 
 ; ------------------------------------------------------------------------
-; Place the startup code in a special segment.
-
-.segment               "STARTUP"
-
 ; BASIC header with a SYS call
 
+.segment               "EXEHDR"
+
         .word   Head            ; Load address
 Head:   .word   @Next
         .word   .version        ; Line number
-        .byte   $9E,"4109"     ; SYS 4109
+        .byte   $9E             ; SYS token
+        .byte   <(((Start / 1000) .mod 10) + '0')
+        .byte   <(((Start /  100) .mod 10) + '0')
+        .byte   <(((Start /   10) .mod 10) + '0')
+        .byte   <(((Start /    1) .mod 10) + '0')
         .byte   $00             ; End of BASIC line
 @Next:  .word   0               ; BASIC end marker
 
 ; ------------------------------------------------------------------------
-; Actual code
+; Startup code
 
-               ldx     #zpspace-1
-L1:    lda     sp,x
-       sta     zpsave,x        ; save the zero page locations we need
-       dex
-               bpl     L1
+.segment               "STARTUP"
 
-; Close open files
+Start:
 
-       jsr     CLRCH
+; Save the zero page locations we need
+
+        ldx    #zpspace-1
+L1:    lda     sp,x
+       sta     zpsave,x
+       dex
+               bpl     L1
 
 ; Switch to second charset