mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +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
|
||||
|
||||
.segment "INIT"
|
||||
|
||||
initsp:
|
||||
lda APPMHI
|
||||
sta sp
|
||||
@ -168,7 +170,7 @@ initsp:
|
||||
sta sp+1
|
||||
rts
|
||||
|
||||
.data
|
||||
.data
|
||||
|
||||
zpsave: .res zpspace
|
||||
|
||||
|
@ -8,8 +8,11 @@
|
||||
.constructor detect,26
|
||||
.export __dos_type
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
; DOS type detection
|
||||
|
||||
.segment "INIT"
|
||||
|
||||
detect: lda #ATARIDOS
|
||||
sta __dos_type ; set default
|
||||
|
||||
@ -43,7 +46,10 @@ mydos: lda #MYDOS
|
||||
sta __dos_type
|
||||
rts
|
||||
|
||||
.bss
|
||||
; ------------------------------------------------------------------------
|
||||
; Data
|
||||
|
||||
.bss
|
||||
|
||||
__dos_type: .res 1
|
||||
|
||||
|
@ -12,8 +12,11 @@ SPACE = 32 ; SPACE char.
|
||||
.import __dos_type
|
||||
.constructor initmainargs,25
|
||||
|
||||
; --------------------------------------------------------------------------
|
||||
; Get command line
|
||||
|
||||
.segment "INIT"
|
||||
|
||||
initmainargs:
|
||||
lda #0
|
||||
sta __argc
|
||||
@ -32,7 +35,7 @@ nargdos:rts
|
||||
|
||||
argdos: lda #ATEOL
|
||||
sta ourcl+CL_SIZE
|
||||
|
||||
|
||||
; Move SpartaDOS command line to our own buffer
|
||||
|
||||
lda DOSVEC
|
||||
@ -112,7 +115,7 @@ eopar:
|
||||
|
||||
finargs:
|
||||
lda __argc
|
||||
asl
|
||||
asl
|
||||
tax
|
||||
lda #0
|
||||
sta argv,x
|
||||
@ -123,7 +126,10 @@ finargs:
|
||||
stx __argv+1
|
||||
rts
|
||||
|
||||
.bss
|
||||
; --------------------------------------------------------------------------
|
||||
; Data
|
||||
|
||||
.bss
|
||||
|
||||
argv: .res (1 + MAXARGS) * 2
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user