the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
libsrc/geos-common/system/mainargs.s
View File

@@ -12,66 +12,66 @@
; on icon of your application
;
.constructor initmainargs, 24
.import __argc, __argv
.constructor initmainargs, 24
.import __argc, __argv
.include "const.inc"
.include "geossym.inc"
.include "const.inc"
.include "geossym.inc"
.segment "INIT"
.segment "INIT"
; Setup arguments for main
initmainargs:
; Setup a pointer to our argv vector
lda #<argv
sta __argv
lda #>argv
sta __argv+1
lda #<argv
sta __argv
lda #>argv
sta __argv+1
; Copy program name
ldy #0
ldy #0
@fn_loop:
lda dirEntryBuf+OFF_FNAME,y
lda dirEntryBuf+OFF_FNAME,y
.ifdef __GEOS_CBM__
cmp #$a0
cmp #$a0
.else
cmp #0
cmp #0
.endif
beq @fn_end
sta argv0,y
iny
cpy #16+1
bne @fn_loop
beq @fn_end
sta argv0,y
iny
cpy #16+1
bne @fn_loop
@fn_end:
lda #0
sta argv0,y
sta __argc+1
lda #0
sta argv0,y
sta __argc+1
; Check if there are any more arguments
lda dataFileName
bne @threeargs
ldx #0 ; no dataFileName - NULL the 2nd argument
stx argv+2
stx argv+3
inx ; there is only one argument
bne @setargc
lda dataFileName
bne @threeargs
ldx #0 ; no dataFileName - NULL the 2nd argument
stx argv+2
stx argv+3
inx ; there is only one argument
bne @setargc
@threeargs:
ldx #3 ; there are three arguments
ldx #3 ; there are three arguments
@setargc:
stx __argc
rts
stx __argc
rts
.data
argv:
.word argv0 ; Pointer to program name
.word dataFileName ; dataFileName or NULL if last one
.word dataDiskName ; dataDiskName
.word $0000 ; last one must be NULL
.word argv0 ; Pointer to program name
.word dataFileName ; dataFileName or NULL if last one
.word dataDiskName ; dataDiskName
.word $0000 ; last one must be NULL
.bss
argv0:
.res 17 ; Program name
.res 17 ; Program name