34 lines
876 B
Plaintext
34 lines
876 B
Plaintext
|
|
||
|
|
; 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 arg 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 }
|