diff options
author | Leo C | 2016-08-21 20:22:10 +0200 |
---|---|---|
committer | Leo C | 2016-08-21 20:22:10 +0200 |
commit | 3c019a469a58af46fc4ae1fa7873fb7029887be9 (patch) | |
tree | 46b97b43d96012a94af92f156516729e3555390d | |
parent | 1bfdbe14f09905742a60bd9b7cdca9a711535512 (diff) | |
download | ddt180-3c019a469a58af46fc4ae1fa7873fb7029887be9.zip |
Support 'qualified symbols' of the form s1:s2:...:sn.
-rw-r--r-- | ddt180.z80 | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -1246,6 +1246,13 @@ fs_nxtsym: fs_2:
ld a,(de)
djnz fs_3
+ cp a,':'
+ jr nz,fs_21
+ inc de
+ pop hl
+ jr fs_cont_1
+
+fs_21:
call test_sym_char
jr z,fs_cont
pop hl ;inpsym ptr (discard)
@@ -1266,6 +1273,7 @@ fs_3: jr z,fs_2
fs_cont: ;start over
pop de ;inpsym ptr
+fs_cont_1:
pop hl ;symtbl ptr
ld a,(hl)
add a,3
|