75 lines
1.0 KiB
ArmAsm
75 lines
1.0 KiB
ArmAsm
;
|
|
; Startup code for cc65 (Agat version)
|
|
;
|
|
|
|
.export __STARTUP__ : absolute = 1 ; Mark as startup
|
|
.export _exit
|
|
|
|
.import initlib, donelib
|
|
.import zerobss, callmain
|
|
.import __ONCE_LOAD__, __ONCE_SIZE__ ; Linker generated
|
|
|
|
.include "zeropage.inc"
|
|
.include "agat.inc"
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.segment "STARTUP"
|
|
jsr init
|
|
jsr zerobss
|
|
jsr callmain
|
|
_exit: ldx #<exit
|
|
lda #>exit
|
|
jsr reset
|
|
jsr donelib
|
|
exit: ldx #$02
|
|
: lda rvsave,x
|
|
sta SOFTEV,x
|
|
dex
|
|
bpl :-
|
|
ldx #zpspace-1
|
|
: lda zpsave,x
|
|
sta sp,x
|
|
dex
|
|
bpl :-
|
|
ldx #$FF
|
|
txs
|
|
jmp DOSWARM
|
|
|
|
|
|
|
|
.segment "ONCE"
|
|
|
|
init: ldx #zpspace-1
|
|
: lda sp,x
|
|
sta zpsave,x
|
|
dex
|
|
bpl :-
|
|
|
|
ldx #$02
|
|
: lda SOFTEV,x
|
|
sta rvsave,x
|
|
dex
|
|
bpl :-
|
|
|
|
lda HIMEM
|
|
ldx HIMEM+1
|
|
sta sp
|
|
stx sp+1
|
|
ldx #<_exit
|
|
lda #>_exit
|
|
jsr reset
|
|
jmp initlib
|
|
|
|
.code
|
|
|
|
reset: stx SOFTEV
|
|
sta SOFTEV+1
|
|
eor #$A5
|
|
sta PWREDUP
|
|
rts
|
|
|
|
.segment "INIT"
|
|
zpsave: .res zpspace
|
|
rvsave: .res 3
|