\*\
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
$@
$|
main!
!~
#"
;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 \ 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 \ 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 \ 07C1 \
A0 B0 C0 D0 E0 F0 G0 H0 I0 J0 K0 L0 M0 N0 O0 P0 \ 07F1 \
A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 O1 P1 \ 0861 \
A+1 B+1 C+1 D+1 E+1 F+1 G+1 H+1 I+1 J+1 K+1 L+1 M+1 N+1 O+1 P+1
A-1 B-1 C-1 D-1 E-1 F-1 G-1 H-1 I-1 J-1 K-1 L-1 M-1 N-1 O-1 P-1 \ 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 \ 0961 \
A+2 B+2 C+2 D+2 E+2 F+2 G+2 H+2 I+2 J+2 K+2 L+2 M+2 N+2 O+2 P+2
A-2 B-2 C-2 D-2 E-2 F-2 G-2 H-2 I-2 J-2 K-2 L-2 M-2 N-2 O-2 P-2
A&2 B&2 C&2 D&2 E&2 F&2 G&2 H&2 I&2 J&2 K&2 L&2 M&2 N&2 O&2 P&2
A|2 B|2 C|2 D|2 E|2 F|2 G|2 H|2 I|2 J|2 K|2 L|2 M|2 N|2 O|2 P|2
A^2 B^2 C^2 D^2 E^2 F^2 G^2 H^2 I^2 J^2 K^2 L^2 M^2 N^2 O^2 P^2
A.+2 B.+2 C.+2 D.+2 E.+2 F.+2 G.+2 H.+2
+2 -2 .+2 .-2 D.+2 D.-2 H.+2 H.-2
IN N:I I+N I-N I&N I|N I^N
>>-1 I>>-1 <<1 I<<1 >>1 I>>1
>>-C I>>-C <>C I>>C
>>-31 I>>-31 <<31 I<<31 >>31 I>>31
A,[B] A,[J] I,[B] I,[J]
:[B] :[J] I:[B] I:[J]
+[B] +[J] I+[B] I+[J]
-[B] -[J] I-[B] I-[J]
&[B] &[J] I&[B] I&[J]
|[B] |[J] I|[B] I|[J]
^[B] ^[J] I^[B] I^[J]
oc! : ; ;oc
os! ( 32 @oc ) ; ;os
nl! ( 13 @oc 10 @oc ) ; ;nl
ot! ( &15 +<10 +48 ? +55 ! @oc ) ; ;ot
ob! ( >>4 @ot ) @ot ; ;ob
ow! ( >>8 @ob ) @ob ; ;ow
od! ( >>16 @ow ) @ow ; ;od
ohd! @od @os ; ;ohd
oq! ( >>32 @od ) @od ; ;oq
oqs! @oq @os ; ;oqs
nxtpar! BG [ . : ?` ] DG D-1 0 .:[D] [ ?$ . ] G-1 ; ;nxtpar
outinit! B0 65536 :C @globaloc :H :O ; ;outinit
inpinit! B0 65536 :C @globaloc :M ; ;inpinit
parinit! @getcmdln :G :P [ . : ?` ] [ ?$ . ] G-1 ; ;parinit
inpread! @open BA CM I65536 @read :N ; ;inpread
copy! :B (G GM [ . : ]- )G ; ;copy
copwrit! @creat BA CM IN @write ; ;copwrit
outwrit! @creat BA CO IH-O @write ; ;outwrit
boxput! 0 : B0 CO IP J0 @tobox ; ;boxput
root!
@outinit @inpinit
@parinit @nxtpar @inpread @copy @nxtpar @copwrit @nxtpar @outwrit
0 B0 @beep @boxput
0 B0 @beep ;
;root
#"
dd 4 dup (0)
db '!!!!!!!!!!!!!!!!'
db '!!!!!!!!!!!!!!!!'
dd 4 dup (0)
;\\ \\
"
##:16
0
#:3
0
#:1
#"
dd 4 dup (0)
db '!!!!!!!!!!!!!!!!'
db '!!!!!!!!!!!!!!!!'
dd 4 dup (0)
db '! COMPARE OK !!!'
"
globaloc! (GCB @@GlobalAlloc )BCG ; ;globaloc
getcmdln! @@GetCommandLineA ; ;getcmdln
open! (GCB @@_lopen )BCG ; ;open
read! (GICB @@_lread )BCIG ; ;read
creat! (GCB @@_lcreat )BCG ; ;creat
write! (GICB @@_lwrite )BCIG ; ;write
tobox! (FJICB @@MessageBoxA )BCIJF ; ;tobox
beep! (B @@MessageBeep )B ; ;beep
+>=B !
+< B !
=B !
<>B !
+>B !
+<=B !
>=B !
>B !
<=B !
#"
dd 4 dup (0)
db '!!!!!!!!!!!!!!!!'
db '!!!!!!!!!!!!!!!!'
dd 4 dup (0)
;\\
"
!~ #"
; SKIP BODY" ; ; ; ;
A=B
#"
; IF-THEN BODY" ; ; ; ;
?
#"
; IF-ELSE BODY" ; ; ; ;
!
[ A=B ; ; ; ; ]
A=B ; ; ; ; !
[ ; ; ; ; :]
~!
#"
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:
"
~!
(MNOP
@root
)PONM ;
;main
~~
