mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
Move constructor code into the INIT segment. Note: Didn't change any
obsolete modules. git-svn-id: svn://svn.cc65.org/cc65/trunk@3407 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
8e95d036e3
commit
54240ffad3
@ -161,6 +161,8 @@ L2: lda zpsave,x
|
|||||||
|
|
||||||
; setup sp
|
; setup sp
|
||||||
|
|
||||||
|
.segment "INIT"
|
||||||
|
|
||||||
initsp:
|
initsp:
|
||||||
lda APPMHI
|
lda APPMHI
|
||||||
sta sp
|
sta sp
|
||||||
|
@ -8,8 +8,11 @@
|
|||||||
.constructor detect,26
|
.constructor detect,26
|
||||||
.export __dos_type
|
.export __dos_type
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------------
|
||||||
; DOS type detection
|
; DOS type detection
|
||||||
|
|
||||||
|
.segment "INIT"
|
||||||
|
|
||||||
detect: lda #ATARIDOS
|
detect: lda #ATARIDOS
|
||||||
sta __dos_type ; set default
|
sta __dos_type ; set default
|
||||||
|
|
||||||
@ -43,6 +46,9 @@ mydos: lda #MYDOS
|
|||||||
sta __dos_type
|
sta __dos_type
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; ------------------------------------------------------------------------
|
||||||
|
; Data
|
||||||
|
|
||||||
.bss
|
.bss
|
||||||
|
|
||||||
__dos_type: .res 1
|
__dos_type: .res 1
|
||||||
|
@ -12,8 +12,11 @@ SPACE = 32 ; SPACE char.
|
|||||||
.import __dos_type
|
.import __dos_type
|
||||||
.constructor initmainargs,25
|
.constructor initmainargs,25
|
||||||
|
|
||||||
|
; --------------------------------------------------------------------------
|
||||||
; Get command line
|
; Get command line
|
||||||
|
|
||||||
|
.segment "INIT"
|
||||||
|
|
||||||
initmainargs:
|
initmainargs:
|
||||||
lda #0
|
lda #0
|
||||||
sta __argc
|
sta __argc
|
||||||
@ -123,6 +126,9 @@ finargs:
|
|||||||
stx __argv+1
|
stx __argv+1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; --------------------------------------------------------------------------
|
||||||
|
; Data
|
||||||
|
|
||||||
.bss
|
.bss
|
||||||
|
|
||||||
argv: .res (1 + MAXARGS) * 2
|
argv: .res (1 + MAXARGS) * 2
|
||||||
|
Loading…
Reference in New Issue
Block a user