include 'encoding\win1251.inc'

equ_bug  equ 'фы','дж'
equ_fine equ 0444h,044Bh,0434h,0436h

du 'фыдж'
du equ_bug
du equ_fine    

rept 1 { local ..encoding
         __encoding equ ..encoding }

virtual at 0
  __encoding::
    times 80h dw %-1
    dw 401h,403h,201Ah,453h,201Eh,2026h,2020h,2021h,20ACh,2030h,409h,2039h,40Ah,40Ch,40Bh,40Fh
    dw 452h,2018h,2019h,201Ch,201Dh,2022h,2013h,2014h,?,2122h,459h,203Ah,45Ah,45Ch,45Bh,45Fh
    dw 0A0h,40Eh,45Eh,408h,0A4h,490h,0A6h,0A7h,401h,0A9h,404h,0ABh,0ACh,0ADh,0AEh,407h
    dw 0B0h,0B1h,406h,456h,491h,0B5h,0B6h,0B7h,451h,2116h,454h,0BBh,458h,405h,455h,457h
    times 40h dw 410h+%-1
end virtual

macro du [arg]
 { local offset,char
   offset = $-$$
   du arg
   match deref,arg \{ irp element,deref \\{
    if element eqtype ''
     repeat ($-offset-$$)/2
      load char byte from $$+offset+(%-1)*2
      if char > 7Fh
       load char word from __encoding:char*2
       store word char at $$+offset+(%-1)*2
      end if
     end repeat
    end if \\} \} }

struc du [args]
 { common label . word
   du args }    

; Windows 1251

rept 1 { local ..encoding
         __encoding equ ..encoding }

virtual at 0
  __encoding::
    times 80h dw %-1
    dw 401h,403h,201Ah,453h,201Eh,2026h,2020h,2021h,20ACh,2030h,409h,2039h,40Ah,40Ch,40Bh,40Fh
    dw 452h,2018h,2019h,201Ch,201Dh,2022h,2013h,2014h,?,2122h,459h,203Ah,45Ah,45Ch,45Bh,45Fh
    dw 0A0h,40Eh,45Eh,408h,0A4h,490h,0A6h,0A7h,401h,0A9h,404h,0ABh,0ACh,0ADh,0AEh,407h
    dw 0B0h,0B1h,406h,456h,491h,0B5h,0B6h,0B7h,451h,2116h,454h,0BBh,458h,405h,455h,457h
    times 40h dw 410h+%-1
end virtual

macro du [arg]
 { local offset,char
   offset = $-$$
   du arg
   if $-offset-$$ > 0 ; arg eqtype ''
    repeat ($-offset-$$)/2
;    load char byte from $$+offset+(%-1)*2
     load char word from $$+offset+(%-1)*2
;    if char > 7Fh
     if char > 7Fh & char < 100h
      load char word from __encoding:char*2
      store word char at $$+offset+(%-1)*2
     end if
    end repeat
   end if }

struc du [args]
 { common label . word
   du args }