mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 00:07:21 +00:00
moved ourcl to bss
git-svn-id: svn://svn.cc65.org/cc65/trunk@402 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
ea6c5c8d43
commit
050869cbfa
@ -36,9 +36,14 @@ getargs:
|
|||||||
bcs argdos ; carry set = DOS supports arguments
|
bcs argdos ; carry set = DOS supports arguments
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; Initialize ourcl buffer
|
||||||
|
|
||||||
|
argdos: lda #ATEOL
|
||||||
|
sta ourcl+CL_SIZE
|
||||||
|
|
||||||
; Move SpartaDOS command line to our own buffer
|
; Move SpartaDOS command line to our own buffer
|
||||||
|
|
||||||
argdos: lda DOSVEC
|
lda DOSVEC
|
||||||
clc
|
clc
|
||||||
adc #<LBUF
|
adc #<LBUF
|
||||||
sta ptr1
|
sta ptr1
|
||||||
@ -67,10 +72,10 @@ movdon: lda #0
|
|||||||
; Store dummy argument
|
; Store dummy argument
|
||||||
|
|
||||||
ldy #LBUF
|
ldy #LBUF
|
||||||
lda dumpar1
|
lda #'X'
|
||||||
sta (DOSVEC),y
|
sta (DOSVEC),y
|
||||||
iny
|
iny
|
||||||
lda dumpar2
|
lda #ATEOL
|
||||||
sta (DOSVEC),y
|
sta (DOSVEC),y
|
||||||
|
|
||||||
; One extra store to avoid the buggy sequence from OS/A+ DOS:
|
; One extra store to avoid the buggy sequence from OS/A+ DOS:
|
||||||
@ -197,18 +202,6 @@ _getdefdev:
|
|||||||
|
|
||||||
.data
|
.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
|
; Default device
|
||||||
|
|
||||||
defdev:
|
defdev:
|
||||||
@ -218,3 +211,7 @@ defdev:
|
|||||||
|
|
||||||
argc: .res 2
|
argc: .res 2
|
||||||
argv: .res (1 + MAXARGS) * 2
|
argv: .res (1 + MAXARGS) * 2
|
||||||
|
|
||||||
|
; Buffer for command line / argv strings
|
||||||
|
|
||||||
|
ourcl: .res CL_SIZE+1
|
||||||
|
Loading…
Reference in New Issue
Block a user