; > adfs::IKHG.!IKHG.Source.Chars.Greek

; Greek characters

Greek_NumberOfAccents * 3
AccentGreek_Stress * 1
AccentGreek_Diaeresis * 2
AccentGreek_StressDiaeresis * 3

Greek_CapitalA  * &C1
Greek_CapitalE  * &C5
Greek_CapitalH  * &C7
Greek_CapitalI  * &C9
Greek_CapitalO  * &CF
Greek_CapitalY  * &D5
Greek_CapitalV  * &D9   ; omega

Greek_SmallA  * &E1
Greek_SmallE  * &E5
Greek_SmallH  * &E7
Greek_SmallI  * &E9
Greek_SmallO  * &EF
Greek_SmallY  * &F5
Greek_SmallV  * &F9   ; omega

Greek_CapitalSpaceStress * &B4
Greek_CapitalAStress * &B6
Greek_CapitalEStress * &B8
Greek_CapitalHStress * &B9
Greek_CapitalIStress * &BA
Greek_CapitalOStress * &BC
Greek_CapitalYStress * &BE
Greek_CapitalVStress * &BF

Greek_SmallSpaceStress * Greek_CapitalSpaceStress
Greek_SmallAStress * &DC
Greek_SmallEStress * &DD
Greek_SmallHStress * &DE
Greek_SmallIStress * &DF
Greek_SmallOStress * &FC
Greek_SmallYStress * &FD
Greek_SmallVStress * &FE

Greek_CapitalSpaceDiaeresis * &A8
Greek_CapitalADiaeresis * Greek_CapitalA
Greek_CapitalEDiaeresis * Greek_CapitalE
Greek_CapitalHDiaeresis * Greek_CapitalH
Greek_CapitalIDiaeresis * &DA
Greek_CapitalODiaeresis * Greek_CapitalO
Greek_CapitalYDiaeresis * &DB
Greek_CapitalVDiaeresis * Greek_CapitalV

Greek_SmallSpaceDiaeresis * Greek_CapitalSpaceDiaeresis
Greek_SmallADiaeresis * Greek_SmallA
Greek_SmallEDiaeresis * Greek_SmallE
Greek_SmallHDiaeresis * Greek_SmallH
Greek_SmallIDiaeresis * &FA
Greek_SmallODiaeresis * Greek_SmallO
Greek_SmallYDiaeresis * &FB
Greek_SmallVDiaeresis * Greek_SmallV

Greek_CapitalSpaceStressDiaeresis * &B5
Greek_CapitalAStressDiaeresis * Greek_CapitalAStress
Greek_CapitalEStressDiaeresis * Greek_CapitalEStress
Greek_CapitalHStressDiaeresis * Greek_CapitalHStress
Greek_CapitalIStressDiaeresis * Greek_CapitalIStress
Greek_CapitalOStressDiaeresis * Greek_CapitalOStress
Greek_CapitalYStressDiaeresis * Greek_CapitalYStress
Greek_CapitalVStressDiaeresis * Greek_CapitalVStress

Greek_SmallSpaceStressDiaeresis * Greek_CapitalSpaceStressDiaeresis
Greek_SmallAStressDiaeresis * Greek_SmallAStress
Greek_SmallEStressDiaeresis * Greek_SmallEStress
Greek_SmallHStressDiaeresis * Greek_SmallHStress
Greek_SmallIStressDiaeresis * &C0
Greek_SmallOStressDiaeresis * Greek_SmallOStress
Greek_SmallYStressDiaeresis * &E0
Greek_SmallVStressDiaeresis * Greek_SmallVStress

        MACRO
        OutputAccentTable_Greek
AccentTable_Greek
        &       0
        &       AccentListGreek_Stress-AccentTable_Greek
        &       AccentListGreek_Diaeresis-AccentTable_Greek
        &       AccentListGreek_StressDiaeresis-AccentTable_Greek

AccentListGreek_Stress
        =       " ", Greek_CapitalSpaceStress
        =       Greek_CapitalA, Greek_CapitalAStress
        =       Greek_CapitalE, Greek_CapitalEStress
        =       Greek_CapitalH, Greek_CapitalHStress
        =       Greek_CapitalI, Greek_CapitalIStress
        =       Greek_CapitalO, Greek_CapitalOStress
        =       Greek_CapitalY, Greek_CapitalYStress
        =       Greek_CapitalV, Greek_CapitalVStress
        =       Greek_SmallA, Greek_SmallAStress
        =       Greek_SmallE, Greek_SmallEStress
        =       Greek_SmallH, Greek_SmallHStress
        =       Greek_SmallI, Greek_SmallIStress
        =       Greek_SmallO, Greek_SmallOStress
        =       Greek_SmallY, Greek_SmallYStress
        =       Greek_SmallV, Greek_SmallVStress
        =       0

AccentListGreek_Diaeresis
        =       " ", Greek_CapitalSpaceDiaeresis
        =       Greek_CapitalI, Greek_CapitalIDiaeresis
        =       Greek_CapitalY, Greek_CapitalYDiaeresis
        =       Greek_SmallI, Greek_SmallIDiaeresis
        =       Greek_SmallY, Greek_SmallYDiaeresis
        =       0

AccentListGreek_StressDiaeresis
        =       " ", Greek_CapitalSpaceStressDiaeresis
        =       Greek_CapitalA, Greek_CapitalAStressDiaeresis
        =       Greek_CapitalE, Greek_CapitalEStressDiaeresis
        =       Greek_CapitalH, Greek_CapitalHStressDiaeresis
        =       Greek_CapitalI, Greek_CapitalIStressDiaeresis
        =       Greek_CapitalO, Greek_CapitalOStressDiaeresis
        =       Greek_CapitalY, Greek_CapitalYStressDiaeresis
        =       Greek_CapitalV, Greek_CapitalVStressDiaeresis
        =       Greek_SmallA, Greek_SmallAStressDiaeresis
        =       Greek_SmallE, Greek_SmallEStressDiaeresis
        =       Greek_SmallH, Greek_SmallHStressDiaeresis
        =       Greek_SmallI, Greek_SmallIStressDiaeresis
        =       Greek_SmallO, Greek_SmallOStressDiaeresis
        =       Greek_SmallY, Greek_SmallYStressDiaeresis
        =       Greek_SmallV, Greek_SmallVStressDiaeresis
        =       0

        ALIGN
        MEND
        END
