; ------------------------------------------------------------------------
-; 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"
+
+Start:
-; Close open files
+; Save the zero page locations we need
- jsr CLRCH
+ ldx #zpspace-1
+L1: lda sp,x
+ sta zpsave,x
+ dex
+ bpl L1
; Switch to second charset