6502
/
foco65
mirror of https://github.com/piotr-wiszowaty/foco65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/piotr-wiszowaty/foco65

This commit is contained in:
Piotr Wiszowaty 2014-10-22 22:43:01 +02:00 committed by Piotr Wiszowaty
parent 1a4eac6903 a19478a816
commit 1e9d71a1dc
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -149,7 +149,7 @@ Allocate Atari XL/XE Antic string:
`'` _text_`'`
Allocate counted ASCII string:
Allocate ASCII string:
`"` _text_`"`

10
foco65
View File

@ -563,15 +563,19 @@ class Forth:
item = Code("\n dta %d" % self.pop(token), self.data_section)
self.items.append(item)
def parse_comma_doublequote(self):
# allocate ASCII counted string
def parse_comma_doublequote(self, counted):
# allocate ASCII string
self.input.mark_start()
while True:
token = self.next()
if token.endswith('"'):
self.input.mark_end()
text = self.input.marked()[1:-1]
item = Code("\n dta %d,c'%s'" % (len(text), text), self.data_section)
if counted:
count = "%d," % len(text)
else:
count = ""
item = Code("\n dta %sc'%s'" % (count, text), self.data_section)
self.items.append(item)
break