32 lines
632 B
Plaintext
32 lines
632 B
Plaintext
|
|
; Windows 874
|
|
|
|
rept 1 { local ..encoding
|
|
__encoding equ ..encoding }
|
|
|
|
virtual at 0
|
|
__encoding::
|
|
times 80h dw %-1
|
|
dw 20ACh,?,?,?,?,2026h,?,?,?,?,?,?,?,?,?,?
|
|
dw ?,2018h,2019h,201Ch,201Dh,2022h,2013h,2014h,?,?,?,?,?,?,?,?
|
|
times 60h dw 0E00h+%-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 }
|