Add copyright verbiage to Perl scripts; update LICENSE
[nasm/sigaren-mirror.git] / test / utf.asm
blob4b894f8720f7ab9dd04bcdd466b852798b4a3c58
1 ;Testname=test; Arguments=-fbin -outf.bin; Files=stdout stderr utf.bin
2 ;Testname=error; Arguments=-fbin -outf.bin -DERROR; Files=stdout stderr utf.bin
3 %define u(x) __utf16__(x)
4 %define w(x) __utf32__(x)
6 db `Test \u306a\U0001abcd\n`
7 dw u(`Test \u306a\U0001abcd\n`)
8 dd w(`Test \u306a\U0001abcd\n`)
10 db `\u306a`
11 db `\xe3\x81\xaa`
13 dw __utf16__ "Hello, World!"
15 nop
17 mov ax,u(`a`)
18 mov bx,u(`\u306a`)
19 mov cx,u(`\xe3\x81\xaa`)
20 mov eax,u(`ab`)
21 mov ebx,u(`\U0001abcd`)
22 mov ecx,w(`\U0001abcd`)
24 %ifdef ERROR
25 dw __utf16__ 33
26 dw __utf16__, 46
27 dw __utf16__("Hello, World!",16)
28 dw __utf16__("Hello, World!",16
29 dw u(`\xff`)
30 %endif