blob: c62b50a91fcf54872e1227c755ac7a442f1590d2 (plain)

ofs	hex dump	ascii
0000	23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74	#include.<stdlib.h>.#include.<st
0020	72 69 6e 67 2e 68 3e 0a 23 70 72 61 67 6d 61 20 63 6c 61 6e 67 20 64 69 61 67 6e 6f 73 74 69 63	ring.h>.#pragma.clang.diagnostic
0040	20 69 67 6e 6f 72 65 64 20 22 2d 57 72 65 74 75 72 6e 2d 74 79 70 65 22 0a 23 70 72 61 67 6d 61	.ignored."-Wreturn-type".#pragma
0060	20 63 6c 61 6e 67 20 64 69 61 67 6e 6f 73 74 69 63 20 69 67 6e 6f 72 65 64 20 22 2d 57 63 32 33	.clang.diagnostic.ignored."-Wc23
0080	2d 65 78 74 65 6e 73 69 6f 6e 73 22 0a 23 70 72 61 67 6d 61 20 63 6c 61 6e 67 20 64 69 61 67 6e	-extensions".#pragma.clang.diagn
00a0	6f 73 74 69 63 20 69 67 6e 6f 72 65 64 20 22 2d 57 6e 75 6c 6c 2d 63 68 61 72 61 63 74 65 72 22	ostic.ignored."-Wnull-character"
00c0	0a 23 70 72 61 67 6d 61 20 63 6c 61 6e 67 20 64 69 61 67 6e 6f 73 74 69 63 20 69 67 6e 6f 72 65	.#pragma.clang.diagnostic.ignore
00e0	64 20 22 2d 57 69 6d 70 6c 69 63 69 74 2d 69 6e 74 22 0a 23 70 72 61 67 6d 61 20 63 6c 61 6e 67	d."-Wimplicit-int".#pragma.clang
0100	20 64 69 61 67 6e 6f 73 74 69 63 20 69 67 6e 6f 72 65 64 20 22 2d 57 70 61 72 65 6e 74 68 65 73	.diagnostic.ignored."-Wparenthes
0120	65 73 22 0a 23 70 72 61 67 6d 61 20 63 6c 61 6e 67 20 64 69 61 67 6e 6f 73 74 69 63 20 69 67 6e	es".#pragma.clang.diagnostic.ign
0140	6f 72 65 64 20 22 2d 57 65 6d 70 74 79 2d 62 6f 64 79 22 0a 0a 2f 2f 20 4e 4f 54 45 3a 20 74 68	ored."-Wempty-body"..//.NOTE:.th
0160	65 20 61 73 73 65 6d 62 6c 65 72 20 68 65 72 65 20 69 73 20 64 69 66 66 65 72 65 6e 74 20 69 6e	e.assembler.here.is.different.in
0180	20 74 68 65 20 77 61 79 20 74 68 61 74 20 69 74 20 64 6f 65 73 20 4e 4f 54 20 68 61 76 65 20 73	.the.way.that.it.does.NOT.have.s
01a0	70 61 63 65 73 20 62 65 74 77 65 65 6e 20 69 74 73 0a 2f 2f 20 63 68 61 72 61 63 74 65 72 73 2e	paces.between.its.//.characters.
01c0	0a 2f 2f 20 4e 4f 54 45 20 32 3a 20 49 66 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 43 50 55 20	.//.NOTE.2:.If.you.want.the.CPU.
01e0	74 6f 20 63 72 61 73 68 20 77 68 65 6e 20 74 68 65 72 65 20 69 73 20 61 6e 20 69 6c 6c 65 67 61	to.crash.when.there.is.an.illega
0200	6c 20 69 6e 73 74 72 75 63 74 69 6f 6e 2c 20 72 65 70 6c 61 63 65 20 74 68 65 20 75 73 65 6c 65	l.instruction,.replace.the.usele
0220	73 73 20 22 34 22 20 69 6e 20 74 68 65 20 63 6f 64 65 20 77 69 74 68 20 22 5f 5f 62 75 69 6c 74	ss."4".in.the.code.with."__built
0240	69 6e 5f 74 72 61 70 28 29 22 2e 0a 2f 2f 20 63 6c 61 6e 67 2d 66 6f 72 6d 61 74 20 6f 66 66 0a	in_trap()"..//.clang-format.off.
0260	23 64 65 66 69 6e 65 20 53 20 36 35 35 33 36 0a 23 64 65 66 69 6e 65 20 48 20 21 2d 2d 63 3f 0a	#define.S.65536.#define.H.!--c?.
0280	23 64 65 66 69 6e 65 20 57 20 63 61 73 65 0a 23 64 65 66 69 6e 65 20 51 20 67 6f 74 6f 20 4d 3b	#define.W.case.#define.Q.goto.M;
02a0	0a 23 64 65 66 69 6e 65 20 4a 20 77 68 69 6c 65 0a 23 64 65 66 69 6e 65 20 4e 20 63 68 61 72 0a	.#define.J.while.#define.N.char.
02c0	6d 5b 53 5d 2c 63 2c 61 2c 4b 3b 70 75 28 29 7b 4a 28 63 3d 6d 5b 6d 5b 37 5d 2b 2b 5d 29 48 2a	m[S],c,a,K;pu(){J(c=m[m[7]++])H*
02e0	6d 3d 6d 5b 6d 5b 37 5d 2b 2b 5d 3a 63 2d 2d 3c 39 3f 21 61 3f 6d 5b 63 5d 3d 2a 6d 3a 30 3a 38	m=m[m[7]++]:c--<9?!a?m[c]=*m:0:8
0300	3e 28 63 2d 3d 38 29 3f 2a 6d 3d 6d 5b 63 5d 3a 21 28 63 2d 3d 38 29 3f 6d 5b 6d 5b 31 5d 5d 3d	>(c-=8)?*m=m[c]:!(c-=8)?m[m[1]]=
0320	2a 6d 3a 48 2a 6d 3d 61 3a 48 20 61 2b 3d 2a 6d 3a 48 20 61 2d 3d 2a 6d 3a 48 20 61 3d 21 61 3a	*m:H*m=a:H.a+=*m:H.a-=*m:H.a=!a:
0340	48 20 61 3d 30 3a 34 3b 7d 4e 20 52 5b 5d 3d 22 68 6c 74 00 61 72 31 02 61 72 32 03 61 72 33 04	H.a=0:4;}N.R[]="hlt.ar1.ar2.ar3.
0360	61 72 34 05 61 72 35 06 61 72 36 07 61 72 37 08 61 72 38 09 72 31 61 5c 78 41 72 32 61 0b 72 33	ar4.ar5.ar6.ar7.ar8.r1a\xAr2a.r3
0380	61 0c 72 34 61 5c 78 44 72 35 61 0e 72 36 61 0f 72 37 61 10 72 38 61 11 6d 65 6d 12 61 63 61 13	a.r4a\xDr5a.r6a.r7a.r8a.mem.aca.
03a0	61 64 64 14 73 75 62 15 6e 6f 74 16 63 6c 72 17 00 22 3b 4e 2a 59 5b 31 3c 3c 39 5d 3b 76 6f 69	add.sub.not.clr..";N*Y[1<<9];voi
03c0	64 2a 61 73 28 4e 2a 49 2c 69 6e 74 2a 4f 29 7b 4e 2a 56 3b 4a 28 4b 3d 2a 49 29 7b 56 3d 52 3b	d*as(N*I,int*O){N*V;J(K=*I){V=R;
03e0	73 77 69 74 63 68 28 4b 29 7b 57 20 33 32 3a 57 20 31 30 3a 57 20 39 3a 49 2b 2b 3b 51 3b 57 20	switch(K){W.32:W.10:W.9:I++;Q;W.
0400	33 35 3a 4a 28 2a 2b 2b 49 21 3d 31 30 29 3b 51 20 57 20 34 30 3a 49 2b 2b 3b 4b 3d 73 74 72 74	35:J(*++I!=10);Q.W.40:I++;K=strt
0420	6f 6c 28 49 2c 26 49 2c 31 30 29 3b 59 5b 4b 5d 3d 49 3b 4a 28 2a 49 2b 2b 21 3d 34 31 29 3b 51	ol(I,&I,10);Y[K]=I;J(*I++!=41);Q
0440	20 57 20 34 31 3a 72 65 74 75 72 6e 20 4f 3b 57 20 36 34 3a 4f 3d 61 73 28 59 5b 73 74 72 74 6f	.W.41:return.O;W.64:O=as(Y[strto
0460	6c 28 2b 2b 49 2c 26 49 2c 31 30 29 5d 2c 4f 29 3b 69 66 28 28 6c 6f 6e 67 29 4f 3c 30 29 72 65	l(++I,&I,10)],O);if((long)O<0)re
0480	74 75 72 6e 20 4f 3b 51 20 57 20 33 39 3a 2a 4f 2b 2b 3d 31 3b 49 2b 2b 3b 2a 4f 2b 2b 3d 2a 49	turn.O;Q.W.39:*O++=1;I++;*O++=*I
04a0	2b 2b 3b 51 7d 73 74 72 6e 63 6d 70 28 22 63 6f 6e 22 2c 49 2c 33 29 3f 3a 28 7b 2a 4f 2b 2b 3d	++;Q}strncmp("con",I,3)?:({*O++=
04c0	31 2c 2a 4f 2b 2b 3d 73 74 72 74 6f 6c 28 49 2b 3d 33 2c 26 49 2c 31 30 29 3b 51 7d 29 3b 4a 28	1,*O++=strtol(I+=3,&I,10);Q});J(
04e0	2a 56 29 56 2b 3d 33 2c 28 73 74 72 6e 63 6d 70 28 56 2d 33 2c 49 2c 33 29 3f 3a 28 7b 2a 4f 2b	*V)V+=3,(strncmp(V-3,I,3)?:({*O+
0500	2b 3d 2a 56 3b 49 2b 3d 33 3b 51 7d 29 29 2c 56 2b 2b 3b 72 65 74 75 72 6e 28 4e 2a 29 2d 28 6c	+=*V;I+=3;Q})),V++;return(N*)-(l
0520	6f 6e 67 29 49 3b 4d 3a 7d 72 65 74 75 72 6e 20 30 3b 7d 0a 2f 2f 20 63 6c 61 6e 67 2d 66 6f 72	ong)I;M:}return.0;}.//.clang-for
0540	6d 61 74 20 6f 6e 0a 0a 23 75 6e 64 65 66 20 53 0a 23 75 6e 64 65 66 20 48 0a 23 75 6e 64 65 66	mat.on..#undef.S.#undef.H.#undef
0560	20 4a 0a 23 75 6e 64 65 66 20 51 0a 23 75 6e 64 65 66 20 57 0a 23 75 6e 64 65 66 20 4e	.J.#undef.Q.#undef.W.#undef.N