Support 'qualified symbols' of the form s1:s2:...:sn.

1 files changed, 8 insertions, 0 deletions

diff --git a/ddt180.z80 b/ddt180.z80
index 3222ea6..d925422 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -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