6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-29 10:29:30 +00:00
Code Issues Projects Releases Wiki Activity

moved ourcl to bss

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@402 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2000-10-29 00:06:50 +00:00
parent ea6c5c8d43
commit 050869cbfa
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
libsrc/atari/getargs.s
View File

@ -35,10 +35,15 @@ getargs:
jsr detect
bcs argdos ; carry set = DOS supports arguments
rts
; Initialize ourcl buffer
argdos: lda #ATEOL
sta ourcl+CL_SIZE
; Move SpartaDOS command line to our own buffer
argdos: lda DOSVEC
lda DOSVEC
clc
adc #<LBUF
sta ptr1
@ -67,10 +72,10 @@ movdon: lda #0
; Store dummy argument
ldy #LBUF
lda dumpar1
lda #'X'
sta (DOSVEC),y
iny
lda dumpar2
lda #ATEOL
sta (DOSVEC),y
; One extra store to avoid the buggy sequence from OS/A+ DOS:
@ -197,18 +202,6 @@ _getdefdev:
.data
; Dummy argument to get default device
dumpar1:
.byte "X"
dumpar2:
.byte ATEOL
; Buffer for command line / argv strings
ourcl: .res CL_SIZE
.byte ATEOL
; Default device
defdev:
@ -218,3 +211,7 @@ defdev:
argc: .res 2
argv: .res (1 + MAXARGS) * 2
; Buffer for command line / argv strings
ourcl: .res CL_SIZE+1