\0265\ \*\ A$0 B$1 C$2 D$3 E$4 F$5 G$6 H$7 I$8 J$9 K$10 L$11 M$12 N$13
   O$14 P$15
\0265\ $@
\0361\ $|
\0361\
\0361\ main!
\036E\ !~ #" ;go execod db 13835 dup (0) db '!!!! ETALON !!!!' db '!!!!
   SECTION !!!' dd 4 dup (0) " (ABCDEFGHIJKLMNOP )PONMLKJIHGFEDCBA
   A B C D E F G H I J K L M N O P
\05A1\ \ 06A1 \ :A :B :C :D :E :F :G :H :I :J :K :L :M :N :O :P +A +B
   +C +D +E +F +G +H +I +J +K +L +M +N +O +P -A -B -C -D -E -F -G
   -H -I -J -K -L -M -N -O -P
\0781\ \ 0731 \ &A &B &C &D &E &F &G &H &I &J &K &L &M &N &O &P |A |B
   |C |D |E |F |G |H |I |J |K |L |M |N |O |P ^A ^B ^C ^D ^E ^F ^G
   ^H ^I ^J ^K ^L ^M ^N ^O ^P
\0961\ \ 07C1 \
\0961\  A0
\096B\  B0
\0975\  C0
\097F\  D0
\0989\  E0
\0993\  F0
\099D\  G0
\09A7\  H0
\09B1\  I0
\09BB\  J0
\09C5\  K0
\09CF\  L0
\09D9\  M0
\09E3\  N0
\09ED\  O0
\09F7\  P0
\0A01\ \ 07F1 \
\0A01\  A1
\0A0B\  B1
\0A15\  C1
\0A1F\  D1
\0A29\  E1
\0A33\  F1
\0A3D\  G1
\0A47\  H1
\0A51\  I1
\0A5B\  J1
\0A65\  K1
\0A6F\  L1
\0A79\  M1
\0A83\  N1
\0A8D\  O1
\0A97\  P1
\0AA1\ \ 0861 \
\0AA1\  A+1
\0AAA\  B+1
\0AB3\  C+1
\0ABC\  D+1
\0AC5\  E+1
\0ACE\  F+1
\0AD7\  G+1
\0AE0\  H+1
\0AE9\  I+1
\0AF2\  J+1
\0AFB\  K+1
\0B04\  L+1
\0B0D\  M+1
\0B16\  N+1
\0B1F\  O+1
\0B28\  P+1
\0B31\  A-1
\0B3A\  B-1
\0B43\  C-1
\0B4C\  D-1
\0B55\  E-1
\0B5E\  F-1
\0B67\  G-1
\0B70\  H-1
\0B79\  I-1
\0B82\  J-1
\0B8B\  K-1
\0B94\  L-1
\0B9D\  M-1
\0BA6\  N-1
\0BAF\  O-1
\0BB8\  P-1
\0BC1\ \ 08C1 \ ++A ++B ++C ++D ++E ++F ++G ++H ++I ++J ++K ++L ++M
   ++N ++O ++P --A --B --C --D --E --F --G --H --I --J --K --L --M
   --N --O --P
\0CE1\ \ 0961 \
\0CE1\  A+2
\0CEB\  B+2
\0CF5\  C+2
\0CFF\  D+2
\0D09\  E+2
\0D13\  F+2
\0D1D\  G+2
\0D27\  H+2
\0D31\  I+2
\0D3B\  J+2
\0D45\  K+2
\0D4F\  L+2
\0D59\  M+2
\0D63\  N+2
\0D6D\  O+2
\0D77\  P+2
\0D81\  A-2
\0D8B\  B-2
\0D95\  C-2
\0D9F\  D-2
\0DA9\  E-2
\0DB3\  F-2
\0DBD\  G-2
\0DC7\  H-2
\0DD1\  I-2
\0DDB\  J-2
\0DE5\  K-2
\0DEF\  L-2
\0DF9\  M-2
\0E03\  N-2
\0E0D\  O-2
\0E17\  P-2
\0E21\  A&2
\0E2B\  B&2
\0E35\  C&2
\0E3F\  D&2
\0E49\  E&2
\0E53\  F&2
\0E5D\  G&2
\0E67\  H&2
\0E71\  I&2
\0E7B\  J&2
\0E85\  K&2
\0E8F\  L&2
\0E99\  M&2
\0EA3\  N&2
\0EAD\  O&2
\0EB7\  P&2
\0EC1\  A|2
\0ECB\  B|2
\0ED5\  C|2
\0EDF\  D|2
\0EE9\  E|2
\0EF3\  F|2
\0EFD\  G|2
\0F07\  H|2
\0F11\  I|2
\0F1B\  J|2
\0F25\  K|2
\0F2F\  L|2
\0F39\  M|2
\0F43\  N|2
\0F4D\  O|2
\0F57\  P|2
\0F61\  A^2
\0F6B\  B^2
\0F75\  C^2
\0F7F\  D^2
\0F89\  E^2
\0F93\  F^2
\0F9D\  G^2
\0FA7\  H^2
\0FB1\  I^2
\0FBB\  J^2
\0FC5\  K^2
\0FCF\  L^2
\0FD9\  M^2
\0FE3\  N^2
\0FED\  O^2
\0FF7\  P^2
\1001\  A.+2
\100C\  B.+2
\1017\  C.+2
\1022\  D.+2
\102D\  E.+2
\1038\  F.+2
\1043\  G.+2
\104E\  H.+2 +2 -2
\106D\  .+2
\1078\  .-2
\1083\  D.+2
\108E\  D.-2
\1099\  H.+2
\10A4\  H.-2
\10AF\  IN
\10B9\  N:I
\10C3\  I+N
\10CD\  I-N
\10D7\  I&N
\10E1\  I|N
\10EB\  I^N >>-1
\1100\  I>>-1 <<1
\1116\  I<<1 >>1
\112C\  I>>1 >>-C
\1143\  I>>-C < \115B\  I<>C
\1173\  I>>C >>-31
\118B\  I>>-31 <<31
\11A3\  I<<31 >>31
\11BB\  I>>31
\11C7\  A,[B]
\11D3\  A,[J]
\11DF\  I,[B]
\11EB\  I,[J] :[B] :[J]
\120F\  I:[B]
\121B\  I:[J] +[B] +[J]
\123F\  I+[B]
\124B\  I+[J] -[B] -[J]
\126F\  I-[B]
\127B\  I-[J] &[B] &[J]
\129F\  I&[B]
\12AB\  I&[J] |[B] |[J]
\12CF\  I|[B]
\12DB\  I|[J] ^[B] ^[J]
\12FF\  I^[B]
\130B\  I^[J]
\1317\
\1317\ oc! : ; ;oc
\1343\
\1343\ os! ( 32 @oc ) ; ;os
\138C\
\138C\ nl! ( 13 @oc 10 @oc ) ; ;nl
\13E9\
\13E9\ ot! ( &15 +<10
\1424\  +48
\1437\  ? +55
\1465\  ! @oc ) ; ;ot
\149E\
\149E\ ob! ( >>4 @ot ) @ot ; ;ob
\14F0\
\14F0\ ow! ( >>8 @ob ) @ob ; ;ow
\1542\
\1542\ od! ( >>16 @ow ) @ow ; ;od
\1595\
\1595\ ohd! @od @os ; ;ohd
\15CC\
\15CC\ oq! ( >>32 @od ) @od ; ;oq
\161F\
\161F\ oqs! @oq @os ; ;oqs
\1656\
\1656\ nxtpar!
\1667\  BG
\1671\  [ . :
\1696\   ?`
\16AE\  
\16B4\  ]
\16D4\  DG
\16DE\  D-1 0 .:[D]
\16FE\  [
\170D\   ?$
\1724\   .
\1737\  ]
\1757\  G-1 ; ;nxtpar
\177A\
\177A\ outinit!
\178C\  B0 65536 :C @globaloc :H :O ; ;outinit
\17EC\
\17EC\ inpinit!
\17FE\  B0 65536 :C @globaloc :M ; ;inpinit
\1854\
\1854\ parinit! @getcmdln :G :P
\1889\  [ . :
\18AE\   ?`
\18C6\  
\18CC\  ]
\18EC\  [
\18FB\   ?$
\1912\   .
\1925\  ]
\1945\  G-1 ; ;parinit
\1969\
\1969\ inpread! @open
\1986\  BA
\1990\  CM
\199A\  I65536 @read :N ; ;inpread
\19D8\
\19D8\ copy! :B (G
\19FA\  GM
\1A04\  [ . :
\1A29\  ]- )G ; ;copy
\1A60\
\1A60\ copwrit! @creat
\1A7E\  BA
\1A88\  CM
\1A92\  IN @write ; ;copwrit
\1AC3\
\1AC3\ outwrit! @creat
\1AE1\  BA
\1AEB\  CO
\1AF5\  IH-O @write ; ;outwrit
\1B30\
\1B30\ boxput! 0 :
\1B54\  B0
\1B5E\  CO
\1B68\  IP
\1B72\  J0 @tobox ; ;boxput
\1BA2\
\1BA2\ root! @outinit @inpinit @parinit @nxtpar @inpread @copy @nxtpar
   @copwrit @nxtpar @outwrit 0
\1C41\  B0 @beep @boxput 0
\1C6D\  B0 @beep ; ;root #" dd 4 dup (0) db '!!!!!!!!!!!!!!!!' db '!!!!!!!!!!!!!!!!'
   dd 4 dup (0) ;\\ \\ " ##:16 0
\1E77\
\1E77\ #:3 0
\1E8E\
\1E8E\ #:1 #" dd 4 dup (0) db '!!!!!!!!!!!!!!!!' db '!!!!!!!!!!!!!!!!'
   dd 4 dup (0) db '! COMPARE OK !!!' "
\1F05\
\1F05\ globaloc! (GCB @@GlobalAlloc )BCG ; ;globaloc
\1F7C\
\1F7C\ getcmdln! @@GetCommandLineA ; ;getcmdln
\1FC1\
\1FC1\ open! (GCB @@_lopen )BCG ; ;open
\202B\
\202B\ read! (GICB @@_lread )BCIG ; ;read
\20A7\
\20A7\ creat! (GCB @@_lcreat )BCG ; ;creat
\2114\
\2114\ write! (GICB @@_lwrite )BCIG ; ;write
\2193\
\2193\ tobox! (FJICB @@MessageBoxA )BCIJF ; ;tobox
\2228\
\2228\ beep! (B @@MessageBeep )B ; ;beep +>=B
\228B\ 
\2291\  ! + \22BB\ 
\22C1\  ! =B
\22EB\ 
\22F1\  ! <>B
\231A\ 
\2320\  ! +>B
\234A\ 
\2350\  ! +<=B
\2379\ 
\237F\  ! >=B
\23A9\ 
\23AF\  ! \23D9\ 
\23DF\  ! >B
\2409\ 
\240F\  ! <=B
\2438\ 
\243E\  ! #" dd 4 dup (0) db '!!!!!!!!!!!!!!!!' db '!!!!!!!!!!!!!!!!'
   dd 4 dup (0) ;\\ "
\24A8\  !~ #" ; SKIP BODY" ; ; ; ;
\24EE\   A=B
\250D\   #" ; IF-THEN BODY" ; ; ; ;
\254F\   ? #" ; IF-ELSE BODY" ; ; ; ;
\25B0\   !
\25C3\   [
\25D4\    A=B
\25F9\    ; ; ; ;
\2633\   ]
\2657\   A=B
\2676\   ; ; ; ;
\26A8\   !
\26BB\   [ ; ; ; ;
\26F8\   :]
\270F\  ~! #" dd 4 dup (0) db '!!!!!!!!!!!!!!!!' db '!!!!!!!!!!!!!!!!'
   dd 4 dup (0) ;\\ " #" ;\\ movd A,xmm0 movd xmm0,A movd I,xmm3
   movd xmm3,I movd P,xmm15 movd xmm15,P mv al,dil mv dil,al mv
   al,r15b mv r15b,al ad al,r15b ad r15b,al mv al,al mv al,bl mv
   al,cl mv al,dl mv al,spl mv al,bpl mv al,sil mv al,dil mv al,r8b
   mv al,r9b mv al,r14b mv al,r15b mv al,ah mv al,bh mv al,ch mv
   al,dh " #" ; 24592.pdf ; AMD64 Architecture Programmer's Manual
   Vol 1 Application Programming ; 64-Bit-Mode Registers ; ; al
   - dil - r8b - r15b - 8-bit ; ax - di - r8w - r15w - 32-bit ;
   eax - edi - r8d - r15d - 32-bit ; rax - rdi - r8 - r15 - 64-bit
   " #" execod: "
\2A09\ ~! (MNOP @root )PONM ; ;main
\2A6C\
\2A75\ ~~