Apple-2gs-SW/ORCALib
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCALib.git synced 2024-05-27 23:48:24 +00:00
Code Issues Projects Releases Wiki Activity

during initial count of arguments on the command-line, use the same logic as the second count when the argv vector is built.

Browse Source
This commit is contained in:
Kelvin Sherlock 2018-02-24 22:40:01 -05:00
parent 89acbf2ced
commit d95f9f29d2
1 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
cc.asm
View File

@ -196,27 +196,39 @@ TAB equ 9 TAB key code
ldx #0 count the arguments
txy
short M
lb2 lda [cLine],Y
* skip over white space
lb1 lda [cLine],Y
beq lb6
cmp #' '
beq lb3
cmp #'"'
beq lb3
cmp #TAB
bne lb4
lb3 iny
bra lb2
lb4 inx
lb5 lda [cLine],Y
beq lb6
cmp #' '
beq lb2
cmp #'"'
beq lb2
cmp #TAB
beq lb2
iny
bra lb5
cmp #' '
beq lb1
cmp #TAB
beq lb1
inx
cmp #'"'
beq lb3
* skip to next white space
lb2 anop
lda [cLine],y
beq lb6
iny
cmp #' '
beq lb1
cmp #TAB
beq lb1
bra lb2
* skip to next "
lb3 anop
lda [cLine],y
beq lb6
iny
cmp #'"'
beq lb1
bra lb3
lb6 long M
txa we need (X+1)*4 + strlen(cLine)+1 bytes
inc A