diff --git a/programs/testing/amd_temp_view/amd_temp_view.asm b/programs/testing/amd_temp_view/amd_temp_view.asm
new file mode 100644
index 0000000000..fe422d2856
--- /dev/null
+++ b/programs/testing/amd_temp_view/amd_temp_view.asm
@@ -0,0 +1,401 @@
+  use32
+  org    0
+
+  db     'MENUET01'
+  dd     1
+  dd     START
+  dd     I_END       ; а §¬Ґа Їа®Ја ¬¬л
+  dd     MEM         ; Є®«ЁзҐбвў® Ї ¬пвЁ
+  dd     STACKTOP
+  dd     0
+  dd     0
+include '..\..\macros.inc'
+include '..\..\KOSfuncs.inc'
+START:
+;;установка маска событий на получение переписовки и нажатия на кнопку
+       mcall SF_SET_EVENTS_MASK,0x05
+       mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sc,sizeof.system_colors
+;load driver
+       mcall SF_SYS_MISC, SSF_LOAD_DRIVER_PE, path_drv, 0
+       mov dword[drv_struct.handl],eax
+       test eax,eax ;проверка загрузки
+       jnz  still
+       jmp error_drv
+still:           ;void main()
+       call draw
+;;ожидание события в течении 2000мс
+       mcall SF_WAIT_EVENT_TIMEOUT,200 ;2 second
+       dec eax                   ; redraw request ?
+       je   still
+       cmp eax,2             ;button
+       jz button
+       jmp still
+
+button:
+       mcall SF_GET_BUTTON
+
+       cmp eax,1
+       jz still
+       dec ah
+       je exit
+;; id button micro_info = 8
+       cmp ah,7 ;// ah-1=7
+       jnz still
+       xor byte[flag_micro_info],1
+       jmp still
+draw:
+       mcall SF_REDRAW, SSF_BEGIN_DRAW
+
+       mov eax,SF_CREATE_WINDOW
+       mov ebx,0x00ff013f
+       mov ecx,0x001500cc
+       mov edx,0x14000000
+       add edx,[sc.work]
+       mov edi,title
+       mcall
+
+       mcall SF_SYS_MISC, SSF_CONTROL_DRIVER, drv_struct
+
+       cmp byte[flag_micro_info],1
+       mov eax,SF_CHANGE_WINDOW
+       mov ebx,-1
+       mov ecx,ebx;-1
+       jz draw.micro
+
+       mov esi,0x000000cc
+       mov edx,0x0000013f
+       mcall
+;;создание кнопки переключения режима
+       mov eax,SF_DEFINE_BUTTON
+       mov ebx,0x01250010
+       mov ecx,0x001d0015
+       mov edx,0x00000008
+       mov esi,[sc.work_button]
+       mcall
+;;вывод знака на кнопку
+;;пояснение к предстоящему ужасу(пиз..ецу)
+;;так как функция writeText не должна изменять регистры
+;;присвоения в регистры eax и ecx происходят только 1 раз
+;; Далее, так как текст выводится почти всегда с одинаковым
+;; смещением вниз(равным 15)  дынные(строки) имеют одинаковый
+;; размер , то используется инструкция add
+       mov eax,SF_DRAW_TEXT
+       mov ebx,0x01290020
+       mov ecx,0x81000000
+       add ecx,[sc.work_text]
+       mov edx,_up
+       mcall
+
+       ;вывод "Tctl:"
+       mov ebx,0x000a0020
+       mov ecx,0x90000000
+       add ecx,[sc.work_text]
+       mov edx,_Tctl
+       mcall
+
+       ;вывод "Tmax:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tcrit:"
+       add ebx,0x2a
+       add edx,7
+       mcall
+
+       ;вывод "Tccd1:"
+       add ebx,0x19
+       add edx,7
+       mcall
+
+       ;вывод "Tccd2:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tccd3:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tccd4:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tccd5:"
+       mov ebx,0x00a50078
+       add edx,7
+       mcall
+
+       ;вывод "Tccd6:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tccd7:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tccd8:"
+       add ebx,0x15
+       add edx,7
+       mcall
+
+       ;вывод "Tdie:"
+       mov ebx,0x00a5005f
+       add edx,7
+       mcall
+
+       ;вывод "Tcrit hyst:"
+       mov ebx,0x000a004a
+       add edx,7
+       mcall
+;;;;;;input data driver;;;;;;;;;
+       mov eax,0x004a0020
+       mov ebx,drv_data.Tctl  ;вывод данных от драйвера
+       call write_data
+
+       add eax,0x15
+       mov ebx,drv_data.Tmax
+       call write_data
+
+       add eax,0x2a
+       mov ebx,drv_data.Tcrit
+       call write_data
+
+       add eax,0x19
+       mov ebx,drv_data.Tccd1
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       mov eax,0x00E50078
+       add ebx,4
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       add eax,0x15
+       add ebx,4
+       call write_data
+
+       mov eax,0x00E5005f
+       mov ebx,drv_data.Tdie
+       call write_data
+
+       mov eax,0x007a004a
+       mov ebx,drv_data.Tcrit_hyst
+       call write_data
+       jmp @f
+.micro:
+       mov esi,0x00000035
+       mov edx,0x000000c0
+       mcall
+
+       mov eax,SF_DEFINE_BUTTON
+       mov ebx,0x00a70010
+       mov ecx,0x001d0015
+       mov edx,eax;0x00000008
+       mov esi,[sc.work_button]
+       int 0x40
+
+       mov eax,SF_DRAW_TEXT;4
+       mov ebx,0x000a0020
+       mov ecx,0x90000000
+       add ecx,[sc.work_text]
+       mov edx,_Tctl
+       mcall
+
+       add ebx,0x00a00000
+       mov ecx,0x81000000
+       add ecx,[sc.work_text]
+       mov edx,_down
+       mcall
+
+       mov eax,0x004a0020
+       mov ebx,drv_data.Tctl
+       call write_data
+@@:
+       mcall SF_REDRAW, SSF_END_DRAW
+       ret
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; procedure write_data(eax, ebx);
+;; eax=x*65536+y
+;; ebx=pointer on value
+;; ecx register don`t save
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+write_data:
+       push eax
+       push ebx
+       ;mov edx,[ebx]  ;edx=value
+       mov esi,ebx
+       cmp dword[ebx],-1   ; flag ziro data
+       mov ecx,0x90000000
+       mov ebx,eax
+       jnz @f
+       ;write n/a
+       add ecx,[sc.work_text]
+       mov eax,SF_DRAW_TEXT
+       mov edx,_NA
+       mcall
+       pop ebx
+       pop eax
+       ret
+@@:
+       ;write_value
+; value / 1000 =value_in_1
+;input value_in_1,koord_start
+; if value >=100 then dot_kord=4 ; =0x20
+;   if value >10 then  dot_kord=3; =0x18
+;     dot_kord=2
+;input ".", koord_start+dot_koord*size_w(char)
+;value-value_in_1 = value_in_2
+;input value_in_2, koord_start+dot_kord+1*size_w(char=8)
+       push eax
+       mov eax,[esi]
+       xor edx,edx
+       mov ebx,1000
+       div ebx
+       cmp eax,100
+       jae .dot_4
+       cmp eax,10
+       jae .dot_3       ; ----|
+       mov edi,0x0c;0x10;     |
+       jmp .write       ;     |
+.dot_4:                 ;     |
+       mov edi,0x1c;0x20;     |
+       jmp .write       ;     |
+.dot_3:                 ;   <-|
+       mov edi,0x14;0x18
+.write:
+       mov ecx,edx
+       pop edx
+       push ecx
+
+       mov ecx,eax
+       mov ebx,0x80030000
+       mov eax,SF_DRAW_NUMBER
+       mov esi,0x10000000
+       add esi,[sc.work_text]
+       mcall
+       shl edi,16
+       mov eax,SF_DRAW_TEXT
+       add edx,edi
+       mov ebx,edx
+
+       mov ecx,0x90000000
+       add ecx,[sc.work_text]
+       mov edx,_dot
+       mcall
+       mov eax,SF_DRAW_NUMBER
+       mov edx,ebx
+       mov esi,0x10000000
+       add esi,[sc.work_text]
+       mov ebx,0x00030000
+
+       add edx,0x80000
+       pop ecx
+       mcall
+       mov eax,SF_DRAW_TEXT
+       mov ebx,edx
+       mov ecx,0x80000000
+       add ecx,[sc.work_text]
+       add ebx,0x180000
+       mov edx,_t
+       mcall
+
+       mov ecx,0x90000000
+       add ecx,[sc.work_text]
+       add ebx,0x60000
+       mov edx,_C
+       mcall
+       pop ebx
+       pop eax
+       ret
+
+error_drv:
+       mov edx,Error_text
+       mov eax,SF_BOARD
+       mov ebx,SSF_DEBUG_WRITE
+@@:
+       mov cl,[edx]
+       mcall
+       inc edx
+       cmp cl,0
+       jnz  @b
+exit:
+       mcall SF_TERMINATE_PROCESS
+;Data_program;
+title       db ' amd temp view',0
+path_drv    db '/sys/drivers/k10temp.sys',0
+Error_text  db 'Error load driver',0
+_NA         db 'N/A',0
+_dot        db '.',0
+_t          db 0x1d,0x00
+_C          db 'C',0x00
+_down       db 0x1f,0x00
+_up         db 0x1e,0x00
+
+
+_Tctl       db 'Tctl: ',0
+_Tmax       db 'Tmax: ',0
+_Tcrit      db 'Tcrit:',0
+_Tccd1      db 'Tccd1:',0
+_Tccd2      db 'Tccd2:',0
+_Tccd3      db 'Tccd3:',0
+_Tccd4      db 'Tccd4:',0
+_Tccd5      db 'Tccd5:',0
+_Tccd6      db 'Tccd6:',0
+_Tccd7      db 'Tccd7:',0
+_Tccd8      db 'Tccd8:',0
+_Tdie       db 'Tdie: ',0
+_Tcrit_hyst db 'Tcrit hyst:',0
+
+;;flag mode input data
+flag_micro_info db 1
+drv_data:
+.Tctl            dd -1
+.Tdie            dd -1
+.Tccd1           dd -1
+.Tccd2           dd -1
+.Tccd3           dd -1
+.Tccd4           dd -1
+.Tccd5           dd -1
+.Tccd6           dd -1
+.Tccd7           dd -1
+.Tccd8           dd -1
+
+.Tmax            dd -1
+.Tcrit           dd -1
+.Tcrit_hyst      dd -1
+
+drv_struct:
+.handl          dd 0
+                dd 0
+                dd 0
+                dd 0
+                dd drv_data
+                dd 52 ; 13*4
+sc      system_colors
+I_END:
+   rd 256
+STACKTOP:
+MEM:
\ No newline at end of file
diff --git a/programs/testing/amd_temp_view/build.bat b/programs/testing/amd_temp_view/build.bat
new file mode 100644
index 0000000000..719aad9644
--- /dev/null
+++ b/programs/testing/amd_temp_view/build.bat
@@ -0,0 +1,2 @@
+@fasm amd_temp_view.asm amd_temp_view
+@pause
\ No newline at end of file