40 lines
839 B
PHP
40 lines
839 B
PHP
|
|
||
|
|
; Windows 1254
|
||
|
|
|
||
|
|
macro define
|
||
|
|
local encoding
|
||
|
|
virtual at 0
|
||
|
|
encoding::
|
||
|
|
repeat 80h
|
||
|
|
dw %-1
|
||
|
|
end repeat
|
||
|
|
dw 20ACh,?,201Ah,192h,201Eh,2026h,2020h,2021h,2C6h,2030h,160h,2039h,152h,?,?,?
|
||
|
|
dw ?,2018h,2019h,201Ch,201Dh,2022h,2013h,2014h,2DCh,2122h,161h,203Ah,153h,?,?,178h
|
||
|
|
repeat 30h
|
||
|
|
dw 0A0h+%-1
|
||
|
|
end repeat
|
||
|
|
dw 11Eh,0D1h,0D2h,0D3h,0D4h,0D5h,0D6h,0D7h,0D8h,0D9h,0DAh,0DBh,0DCh,130h,15Eh,0DFh
|
||
|
|
repeat 10h
|
||
|
|
dw 0E0h+%-1
|
||
|
|
end repeat
|
||
|
|
dw 11Fh,0F1h,0F2h,0F3h,0F4h,0F5h,0F6h,0F7h,0F8h,0F9h,0FAh,0FBh,0FCh,131h,15Fh,0FFh
|
||
|
|
end virtual
|
||
|
|
macro WCHAR arg
|
||
|
|
if arg eqtype ''
|
||
|
|
local data,char
|
||
|
|
data db arg
|
||
|
|
rb ($-data)
|
||
|
|
repeat ($-data)/2
|
||
|
|
load char:byte from data+%%-%
|
||
|
|
load char:word from encoding:char*2
|
||
|
|
store char:word at data+(%%-%)*2
|
||
|
|
end repeat
|
||
|
|
else
|
||
|
|
dw arg
|
||
|
|
end if
|
||
|
|
end macro
|
||
|
|
end macro
|
||
|
|
|
||
|
|
define
|
||
|
|
purge define
|