; Startup code for cc65 (ATARI version)
;
; Contributing authors:
-; Mark Keates
-; Freddy Offenga
-; Christian Groessler
-; Stefan Haubenthal
+; Mark Keates
+; Freddy Offenga
+; Christian Groessler
+; Stefan Haubenthal
;
- .export _exit
- .export __STARTUP__ : absolute = 1 ; Mark as startup
+ .export _exit
+ .export __STARTUP__ : absolute = 1 ; Mark as startup
- .import initlib, donelib
- .import callmain, zerobss
- .import __STARTUP_LOAD__, __ZPSAVE_LOAD__
- .import __RESERVED_MEMORY__
+ .import initlib, donelib
+ .import callmain, zerobss
+ .import __STARTUP_LOAD__, __ZPSAVE_LOAD__
+ .import __RESERVED_MEMORY__
- .include "zeropage.inc"
- .include "atari.inc"
+ .include "zeropage.inc"
+ .include "atari.inc"
; ------------------------------------------------------------------------
; EXE header
-.segment "EXEHDR"
+.segment "EXEHDR"
- .word $FFFF
- .word __STARTUP_LOAD__
- .word __ZPSAVE_LOAD__ - 1
+ .word $FFFF
+ .word __STARTUP_LOAD__
+ .word __ZPSAVE_LOAD__ - 1
; ------------------------------------------------------------------------
; Actual code
-.segment "STARTUP"
+.segment "STARTUP"
- rts ; fix for SpartaDOS / OS/A+
- ; they first call the entry point from AUTOSTRT and
- ; then the load addess (this rts here).
- ; We point AUTOSTRT directly after the rts.
+ rts ; fix for SpartaDOS / OS/A+
+ ; they first call the entry point from AUTOSTRT and
+ ; then the load addess (this rts here).
+ ; We point AUTOSTRT directly after the rts.
; Real entry point:
; Save the zero page locations we need
- ldx #zpspace-1
-L1: lda sp,x
- sta zpsave,x
- dex
- bpl L1
+ ldx #zpspace-1
+L1: lda sp,x
+ sta zpsave,x
+ dex
+ bpl L1
; Clear the BSS data
- jsr zerobss
+ jsr zerobss
; Setup the stack
- tsx
- stx spsave
+ tsx
+ stx spsave
; Report memory usage
- lda APPMHI
- sta appmsav ; remember old APPMHI value
- lda APPMHI+1
- sta appmsav+1
-
- sec
- lda MEMTOP
- sbc #<__RESERVED_MEMORY__
- sta APPMHI ; initialize our APPMHI value
- sta sp ; setup runtime stack part 1
- lda MEMTOP+1
- sbc #>__RESERVED_MEMORY__
- sta APPMHI+1
- sta sp+1 ; setup runtime stack part 2
+ lda APPMHI
+ sta appmsav ; remember old APPMHI value
+ lda APPMHI+1
+ sta appmsav+1
+
+ sec
+ lda MEMTOP
+ sbc #<__RESERVED_MEMORY__
+ sta APPMHI ; initialize our APPMHI value
+ sta sp ; setup runtime stack part 1
+ lda MEMTOP+1
+ sbc #>__RESERVED_MEMORY__
+ sta APPMHI+1
+ sta sp+1 ; setup runtime stack part 2
; Call module constructors
- jsr initlib
+ jsr initlib
; Set left margin to 0
- lda LMARGN
- sta old_lmargin
- ldy #0
- sty LMARGN
+ lda LMARGN
+ sta old_lmargin
+ ldy #0
+ sty LMARGN
; Set keyb to upper/lowercase mode
- ldx SHFLOK
- stx old_shflok
- sty SHFLOK
+ ldx SHFLOK
+ stx old_shflok
+ sty SHFLOK
; Initialize conio stuff
- dey ; Set X to $FF
- sty CH
+ dey ; Set X to $FF
+ sty CH
; Push arguments and call main
- jsr callmain
+ jsr callmain
; Call module destructors. This is also the _exit entry.
-_exit: jsr donelib ; Run module destructors
+_exit: jsr donelib ; Run module destructors
; Restore system stuff
- ldx spsave
- txs ; Restore stack pointer
+ ldx spsave
+ txs ; Restore stack pointer
; Restore left margin
- lda old_lmargin
- sta LMARGN
+ lda old_lmargin
+ sta LMARGN
; Restore kb mode
- lda old_shflok
- sta SHFLOK
+ lda old_shflok
+ sta SHFLOK
; Restore APPMHI
- lda appmsav
- sta APPMHI
- lda appmsav+1
- sta APPMHI+1
+ lda appmsav
+ sta APPMHI
+ lda appmsav+1
+ sta APPMHI+1
; Copy back the zero page stuff
- ldx #zpspace-1
-L2: lda zpsave,x
- sta sp,x
- dex
- bpl L2
+ ldx #zpspace-1
+L2: lda zpsave,x
+ sta sp,x
+ dex
+ bpl L2
; Turn on cursor
- inx
- stx CRSINH
+ inx
+ stx CRSINH
; Back to DOS
- rts
+ rts
; *** end of main startup code
; ------------------------------------------------------------------------
-.segment "ZPSAVE"
+.segment "ZPSAVE"
-zpsave: .res zpspace
+zpsave: .res zpspace
; ------------------------------------------------------------------------
.bss
-spsave: .res 1
-appmsav: .res 1
-old_shflok: .res 1
-old_lmargin: .res 1
+spsave: .res 1
+appmsav: .res 1
+old_shflok: .res 1
+old_lmargin: .res 1
- .segment "AUTOSTRT"
- .word RUNAD ; defined in atari.h
- .word RUNAD+1
- .word __STARTUP_LOAD__ + 1
+ .segment "AUTOSTRT"
+ .word RUNAD ; defined in atari.h
+ .word RUNAD+1
+ .word __STARTUP_LOAD__ + 1
projects / cc65 / blobdiff