Help please! Can you add the wct numeric system in fasm? Wct - word octal (A, B, C, D, E, F, G, O). For example: mov ax,CDFw.

PLEASE! I need it urgently!

I tried to add, but could not. Please help me with a couple of instructions ..

;
; Macros by baldr
;

struc reequ [val]
 {
 common
        restore .
        . equ val
 }

macro @! [args]
 {
 common

        local head, expr, tail, matched

        head equ
        expr equ
        tail equ

        matched equ 0

        match _head =! _expr =! _tail, args
        \{
                head reequ _head
                expr reequ _expr
                tail reequ _tail

                matched reequ 1
        \}

        match =0 _head =! _expr =!, matched args
        \{
                head reequ _head
                expr reequ _expr

                matched reequ 1
        \}

        match =0 =! _expr =! _tail, matched args
        \{
                expr reequ _expr
                tail reequ _tail

                matched reequ 1
        \}

        match =1, matched
        \{
                \local val

                match _expr, expr
                \\{
                        val _expr
                        head val tail
                \\}

                restore val
        \}

        match =0, matched \{ args \}
        restore head, expr, tail, matched
 }

;
; Inline octal using A,B,C,D,E,F,G,O
;                    0,1,2,3,4,5,6,7
;

struc @oct val
{
        local size

        virtual at 0
                db `val
                size = $
        end virtual

        assert size < 7

        d0 =  `val          and $FF
        d1 = (`val shr  8 ) and $FF
        d2 = (`val shr 16 ) and $FF
        d3 = (`val shr 24 ) and $FF
        d4 = (`val shr 32 ) and $FF
        d5 = (`val shr 40 ) and $FF

        if d0 > 0
                d0 = d0 - 'A'
        end if

        if d1 > 0
                d1 = d1 - 'A'
        end if

        if d2 > 0
                d2 = d2 - 'A'
        end if

        if d3 > 0
                d3 = d3 - 'A'
        end if

        if d4 > 0
                d4 = d4 - 'A'
        end if

        if d5 > 0
                d5 = d5 - 'A'
        end if

        if d0 > 6
                d0 = 7
        end if

        if d1 > 6
                d1 = 7
        end if

        if d2 > 6
                d2 = 7
        end if

        if d3 > 6
                d3 = 7
        end if

        if d4 > 6
                d4 = 7
        end if

        if d5 > 6
                d5 = 7
        end if

        x = ((d0 shl 15) or (d1 shl 12) or (d2 shl 9) or (d3 shl 6) or (d4 shl 3) or d5) shr ((6 - size) * 3)

        . equ x
}

; C,D,F = 2,3,5 = 010,011,101 = 0 1001 1101 = 9D
@! mov ax, ! @oct CDF !