obsolete modules.
git-svn-id: svn://svn.cc65.org/cc65/trunk@3407
b7a2c559-68d2-44c3-8de9-
860c34a00d81
; setup sp
+.segment "INIT"
+
initsp:
lda APPMHI
sta sp
sta sp+1
rts
- .data
+ .data
zpsave: .res zpspace
.constructor detect,26
.export __dos_type
+; ------------------------------------------------------------------------
; DOS type detection
+.segment "INIT"
+
detect: lda #ATARIDOS
sta __dos_type ; set default
sta __dos_type
rts
- .bss
+; ------------------------------------------------------------------------
+; Data
+
+ .bss
__dos_type: .res 1
.import __dos_type
.constructor initmainargs,25
+; --------------------------------------------------------------------------
; Get command line
+.segment "INIT"
+
initmainargs:
lda #0
sta __argc
argdos: lda #ATEOL
sta ourcl+CL_SIZE
-
+
; Move SpartaDOS command line to our own buffer
lda DOSVEC
finargs:
lda __argc
- asl
+ asl
tax
lda #0
sta argv,x
stx __argv+1
rts
- .bss
+; --------------------------------------------------------------------------
+; Data
+
+.bss
argv: .res (1 + MAXARGS) * 2