.word Head ; Load address
Head: .word @Next
.word .version ; Line number
- .byte $9E,"2061" ; SYS 2061
+ .byte $9E ; SYS token
+ .byte <(((Start / 1000) .mod 10) + $30)
+ .byte <(((Start / 100) .mod 10) + $30)
+ .byte <(((Start / 10) .mod 10) + $30)
+ .byte <(((Start / 1) .mod 10) + $30)
.byte $00 ; End of BASIC line
@Next: .word 0 ; BASIC end marker
; ------------------------------------------------------------------------
; Actual code
- ldx #zpspace-1
+Start: ldx #zpspace-1
L1: lda sp,x
sta zpsave,x ; Save the zero page locations we need
dex