From 63031492030d11225ab946747ab7dd5c449aedc5 Mon Sep 17 00:00:00 2001
From: exegete <nikitf-97@mail.ru>
Date: Sun, 18 Oct 2020 00:06:14 +0300
Subject: English freq module

---
 freq.sts             | 35 +++++++++++++++++++++++++++++++++++
 ia32/float/stack.sts |  6 ++++++
 test.sts             |  9 +++------
 3 files changed, 44 insertions(+), 6 deletions(-)
 create mode 100644 freq.sts

diff --git a/freq.sts b/freq.sts
new file mode 100644
index 0000000..9935d72
--- /dev/null
+++ b/freq.sts
@@ -0,0 +1,35 @@
+[ freq_push_eng 1
+    %1% float_iload
+    1 04b7e520 float_dload
+    float_div
+    float_fstore
+]
+
+defword freq_eng
+    freq_push_eng 164bbb40              ; 'A'
+    freq_push_eng 42f1a72               ; 'B'
+    freq_push_eng 8401143               ; 'C'
+    freq_push_eng a17c760               ; 'D'
+    freq_push_eng 1f89b0b5              ; 'E'
+    freq_push_eng 5b00667               ; 'F'
+    freq_push_eng 5708064               ; 'G'
+    freq_push_eng ceba1cf               ; 'H'
+    freq_push_eng 131911c9              ; 'I'
+    freq_push_eng 92b062                ; 'J'
+    freq_push_eng 21bc198               ; 'K'
+    freq_push_eng af78ee2               ; 'L'
+    freq_push_eng 6962a60               ; 'M'
+    freq_push_eng 12b2fedc              ; 'N'
+    freq_push_eng 1377f19c              ; 'O'
+    freq_push_eng 5630a2b               ; 'P'
+    freq_push_eng 456e16                ; 'Q'
+    freq_push_eng 1082b289              ; 'R'
+    freq_push_eng 118aaa32              ; 'S'
+    freq_push_eng 174da771              ; 'T'
+    freq_push_eng 6fdcaa4               ; 'U'
+    freq_push_eng 2c30c89               ; 'V'
+    freq_push_eng 4c25150               ; 'W'
+    freq_push_eng 7fb6fb                ; 'X'
+    freq_push_eng 47ce733               ; 'Y'
+    freq_push_eng 4bece7                ; 'Z'
+exit
diff --git a/ia32/float/stack.sts b/ia32/float/stack.sts
index ca95196..8c16fef 100644
--- a/ia32/float/stack.sts
+++ b/ia32/float/stack.sts
@@ -8,6 +8,12 @@ defasm float_iload
     # 58 ?'                             ; pop eax
 next
 
+defasm float_dload
+    # df ?' # 2c ?' # 24 ?'             ; fild qword [esp]
+    # 58 ?'                             ; pop eax
+    # 58 ?'                             ; pop eax
+next
+
 defasm float_fstore
     # 50 ?'                             ; push eax
     # d9 ?' # 1c ?' # 24 ?'             ; fstp dword [esp]
diff --git a/test.sts b/test.sts
index 168abad..649a91b 100644
--- a/test.sts
+++ b/test.sts
@@ -1,13 +1,10 @@
 module ia32/elf/begin.sts
 module ia32/float/float.sts
-module keygen.sts
+module freq.sts
 
 set_entry
-ff ff 2 keygen
-5 print_stack
-a sys_write
-keygen
-5 print_stack
+    freq_eng
+    20 print_stack
 sys_exit
 
 module ia32/elf/end.sts
-- 
cgit v1.2.3