*DEFINE (InitDiacriticalTables) (
	SET(cEntries,0)
	DEFINE (String1) ()
	DEFINE (String2) ()
	)

*DEFINE (DiacriticalSet(bDiacriticalKey,bFollowingKey,bResultantKey)) (
	DEFINE (tmpString) (String1)
	DEFINE (String1) (tmpString
				DB	bDiacriticalKey,bFollowingKey)
	DEFINE (tmpString) (String2)
	DEFINE (String2) (tmpString
				DB	bResultantKey)
	SET(cEntries, cEntries+1)
	)

*DEFINE (EndDiacriticalTables) (
	pDiacriticTable				DD DGroup:cDiacriticalPairs
	cDiacriticalPairs	 DW	 cEntries
	rgwDiacriticalPairs	 LABEL	 WORD
				String1
	rgbTranslationValue	 LABEL	 BYTE
				String2
	)

