why someone have to make something only you need???

var include = []; 
for(var i=0, end=65536; i < end; i++) { 
include.push(
"0x" + i.toString(8).split("").map(function(i) { 
return ["A", "B", "C", "D", "E", "F", "G", "O"][parseInt(i)]; 
}).join("") + "w = " + i.toString()); 
} 
var blob = new Blob([include.join("\n")], {contentType:"text/plain"}); 
var tag = document.createElement("a"); 
tag.href = URL.createObjectURL(blob); 
tag.download = "wct.inc"; 
document.body.appendChild(tag); 
tag.click();
    

I WILL HELP!

Code:

var include = []; 
for(var i=0, end=65536; i < end; i++) { 
include.push(
"0x" + i.toString(8).split("").map(function(i) { 
return ["A", "B", "C", "D", "E", "F", "G", "O"][parseInt(i)]; 
}).join("") + "w = " + i.toString()); 
} 
var blob = new Blob([include.join("\n")], {contentType:"text/plain"}); 
var tag = document.createElement("a"); 
tag.href = URL.createObjectURL(blob); 
tag.download = "wct.inc"; 
document.body.appendChild(tag); 
tag.click();
    

Run the above script in a modern browser JavaScript console or paste it into [url]JSFIDDLE.NET[/url]. You will get a WCT.INC file. Just make "end = 65536" bigger if you want bigger numbers.

;... <inside 'wct.inc'>
0xBABw fix 101o
0xBACw fix 102o
0xBADw fix 103o
;... etc. <leaving  'wct.inc'>

mov eax,0xBACw    

If this what you expect?

Code:

;... <inside 'wct.inc'>
0xBABw fix 101o
0xBACw fix 102o
0xBADw fix 103o
;... etc. <leaving  'wct.inc'>

mov eax,0xBACw    

If so then this is in the wrong forum. It would need to be moved to Macroinstructions.

With some jiggergy-pokery you can treat the literal as a value via the string operator, then with the help of macros created by baldr for "inline" evaluation:

Code:

;
; 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 !    

revolution wrote:

If this what you expect?

Code:

;... <inside 'wct.inc'>
0xBABw fix 101o
0xBACw fix 102o
0xBADw fix 103o
;... etc. <leaving  'wct.inc'>

mov eax,0xBACw    

If so then this is in the wrong forum. It would need to be moved to Macroinstructions.

Yes! I need this! Can you move it to forum 'macroinstructions'?