purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

 
; Утилита для конвертации файла в формат PureBasic (для DataSection)
;DataSection
;Data.b  $6A,$0D,$0A,$4E,$65,$78,$74,$20,$69,$0D,$0A,$0D,$0A,$CF,$E5,$F0
;Data.b  $E2,$FB,$E9,$20,$E2,$E0,$F0,$E8,$E0,$ED,$F2,$20,$ED,$E0,$20,$35
;......................
;Data.b  $31,$32,$20,$E1,$E0,$E9,$F2,$20,$EC,$E5,$ED,$FC,$F8,$E5,$20,$E2
;Data.b  $F2,$EE,$F0,$EE,$E3,$EE
;EndDataSection
;###############################################################################
; В свойствах компилятора необходимо установить галку Enable inline ASM support
;###############################################################################
Global ResT.s=Space(4)
Procedure.s Hex2Str(HB)
   ;Процедура конвертирует байт (HEX-число) в строку, добавляет символ '$' и запятую пр. "$5F,"
   MOV eax, ResT
   MOV edx, HB
   MOV byte [eax], "$"
   INC eax
   MOV dh,dl                
   MOV cl,4
   SHR dl,cl
   CMP dl,0Ah       
   JAE HEX_LETTER
   ADD dl,30h
   JMP WRITE_DIGIT
! HEX_LETTER:
   ADD  dl,37h
! WRITE_DIGIT:
   MOV [eax], dl
   INC eax
   MOV dl,dh
   AND dl,0Fh
   CMP dl,0Ah       
   JAE HEX_LETTER1
   ADD dl,30h
   JMP WRITE_DIGIT1
! HEX_LETTER1:
   ADD dl,37h
! WRITE_DIGIT1:
   MOV [eax], dl
   INC eax
   MOV byte [eax], ","
   INC eax
   MOV byte[eax], 0
ProcedureReturn ResT
EndProcedure
 
Procedure.s Del(ST.s)
   MOV eax, ST
   CMP byte [eax], 0
   JZ nosrt 
! lop1:  
   INC eax                  ; Сдвигаем указатель на строку вправо
   CMP byte [eax], 0        ; Т.к. строка должна завершаться нулем, ищем ноль (т.е. конец строки)
   JNZ nozero                 
   DEC eax                  ; и когда находим, смещаем указатель на один байт влево
   MOV byte [eax], 0        ; и записываем вместо запятой ноль.
   JMP nosrt
! nozero:  
   JMP lop1
! nosrt:  
ProcedureReturn ST
EndProcedure  
;LOCALS
 byte.b
 string.s
 n.b
 file$=OpenFileRequester("Choose a file", "", "*.*", 0)
If file$ 
 hFileCr=CreateFile_(file$,#GENERIC_READ,#FILE_SHARE_READ|#FILE_SHARE_WRITE,NULL,#OPEN_EXISTING,GetFileAttributes_(file$),NULL)      
        
   If hFileCr = -1 Or hFileCr = 0
             MessageRequester("Attention", "Can Not open file" + Chr(10) + "Possible file is occupied other program.", #MB_OK|#MB_ICONWARNING)
      Else
          CreateFile(0, GetCurrentDirectory()+"DataSec.txt") 
          length = GetFileSize_(hFileCr, pFileSizeHigh.l)
          hFileMap = CreateFileMapping_(hFileCr, 0, 8, 0, 0, 0)      
          MapVOF = MapViewOfFile_(hFileMap, 1, 0, 0, length)  ; Создаем проекцию файла в памяти и получаем на нее указатель
          CloseHandle_(hFileCr)    
           MOV n, 16                                     ; Будем писать в одном ряду по 16 байт. Можно изменить на другое значение
     ! lop: 
           XOR ebx, ebx
           MOV eax, MapVOF
           MOV bl, [eax]
           INC eax
           MOV MapVOF, eax
           MOV byte, bl 
           string=string+Hex2Str(byte)                   ; Конвертируем байт в строку и добавляем символ $ и запятую         
           DEC length                                 
           CMP length, 0                                 ; Проверяем конец файла
           JZ endfile
           DEC n
           CMP n, 0
           JNZ NoW
           string=Del(string)                            ; Убираем запятую в конце строки 
           WriteStringN(0, "Data.b  "+ string)
           string=""
           MOV n, 16
     ! NoW:
           JMP lop
           DEC length
           JNZ lop
     ! endfile:
          string=Del(string)                             ; Убираем запятую в конце строки
          WriteStringN(0, "Data.b  "+ string)
     UnmapViewOfFile_(MapVOF) 
     MessageRequester("Saved", "Data are successfully saved in file 'DataSec.txt'", #MB_OK|#MB_ICONINFORMATION)
   EndIf
EndIf
  End
  

1

string=Right(string, Len(string)-1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

ii = Val(InputRequester("", "Lenght of elements in first dimenssion: ", "28200")) : jj = 5 : all = ii * jj : temp.b : time = Date() : string.s=Space(all) : Dim mass.b(ii - 1 ,jj - 1)
Procedure main_proc()
 Shared ii, jj, all, temp, time, string, mass(), mutex
 For i=0 To ii - 1 : For j=0 To jj - 1 : mass(i, j) = Asc(Mid(string, j * i + 1, 1)) : Next j
  If i - k > 199 Or i = ii - 1 : k = i : summary = i * jj : percents.d = (summary / all) * 100 : SetGadgetState(10, Int(percents * 1000)) : SetGadgetText(0, Str(summary) + "/" + Str(all) + " (" + StrD(percents, 2) + "% : " + StrD(summary / 1024, 2) + "KiB) : " + Str(Date() - time) + " seconds elapsed without inline ASM...") : EndIf
  event = WindowEvent() : gadget = EventGadget() : If gadget = 3 : End : EndIf
 Next i
 HideGadget(10, 1) : HideGadget(20, 0) : SetGadgetText(1, "Seconds elsepsed without inline ASM:  " + Str(Date() - time)) : time = Date() : k = 0
  For i=0 To ii - 1 : For j=0 To jj - 1 : MOV eax, string : MOV al, byte[eax] : MOV temp, al : INC string : mass(i, j) = temp : Next j
   If i - k > 199 Or i = ii - 1 : k = i : summary = i * jj : percents.d = (summary / all) * 100 : SetGadgetState(20, Int(percents * 1000)) : SetGadgetText(0, Str(summary) + "/" + Str(all) + " (" + StrD(percents, 2) + "% : " + StrD(summary / 1024, 2) + "KiB) : " + Str(Date() - time) + " seconds elapsed with inline ASM...") : EndIf
   event = WindowEvent() : gadget = EventGadget() : If gadget = 3 : End : EndIf
  Next i 
 HideGadget(20, 1) : HideGadget(2, 0) : SetGadgetText(2, "Seconds elapsed with inline ASM:  " + Str(Date() - time)) : DisableGadget(3, 0)
EndProcedure
If OpenWindow(#PB_Any, 0, 0, 600, 130, "productivity test", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
TextGadget(0, 5,  5, 590, 40, "Waiting for first thousand of elements...", #PB_Text_Center)
TextGadget(1, 5, 50, 590, 25, "", #PB_Text_Center) : ProgressBarGadget(10, 5, 50, 590, 25, 0, 100000)
TextGadget(2, 5, 80, 590, 25, "", #PB_Text_Center) : ProgressBarGadget(20, 5, 80, 590, 25, 0, 100000) : HideGadget(20, 1) : HideGadget(2, 1)
ButtonGadget(3, 5, 110, 590, 15, "", #PB_Button_Default)
main_proc()
Repeat : event = WindowEvent() : gadget = EventGadget() : If gadget = 3 : Break : EndIf : Delay(1) : ForEver : EndIf

1
2
3

 
INC string              ; сдвигаем переменную string на один символ влево
 

1
2
3

 
string=Right(string, Len(string)-1)     ; сдвигаем переменную string на один символ влево
 

1
2
3
4
5
6

string.s = "PureBasic"
INC string                                ; сдвигаем строку на один символ влево (1)
Debug string                          ; = "ureBasic"
string = "PureBasic"
string = Right(string, Len(string)-1)     ; сдвигаем строку на один символ влево (2)           
Debug string                          ; = "ureBasic"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

string.s=Space(469440)
temp.b
Dim mass.b(78239 ,5)
time=ElapsedMilliseconds()
For i=0 To 78239
 For j=0 To 5
  MOV eax, string         ; в EAX адрес string
  MOV al, byte[eax]       ; в AL ASCII код символа
  MOV temp, al
  mass(i, j)=temp         ; записываем очередной символ в массив
  INC string              ; сдвигаем переменную string на один символ влево
 Next j
Next i
time=ElapsedMilliseconds()-time
MessageRequester("o_O", "Время с ASM вставкой:  "+ Str(time))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164

 
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #String_0
  #Button_1
  #Button_2
  #Button_3
EndEnumeration
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
Procedure.b CheckNumber(str$)
; Процедура проверяет строку на наличие цифр и возвращает -1 в случае пустой строки,
; 1 в случае если все символы - цифры и 0 если есть не цифровые символы
    MOV eax, str$
    MOV bl, byte[eax]
    CMP bl, 0              ; проверяем пустая строка или нет
    JNE _loop1
  ProcedureReturn -1
!_loop1: 
    MOV bl, byte[eax]
    CMP bl, 0              ; проверяем конец строки
    JE endproc1
    CMP bl, $39             ; если BL меньше или равно девяти
    JBE _11                 ; тогда проверяем дальше
  ProcedureReturn 0
!_11:
    CMP bl, $30             ; если BL больше или равно нулю
    JAE _22                 ; тогда проверяем дальше
  ProcedureReturn 0
!_22: 
    INC eax                 ; сдвигаем строку влево
    JMP _loop1
!endproc1:   
  ProcedureReturn 1
EndProcedure
 
Procedure.l HexStrToNumber(str$)
  ; Процедура конвертирует HEX строку в десятичное число. В случае успеха, возвращает десятичное
  ; число. В сучае пустой строки, или если число не имеет HEX фрмата (встречаются символы отличные от 0..1;
  ; A..F; a..f) процедура возвращает ноль.
 ;LOCALS
  ResultTemp.l
     MOV eax, str$
     XOR ecx, ecx
     XOR ebx, ebx
     MOV bl, byte[eax]
     CMP bl, 0              ; проверяем пустая строка или нет
     JE endproc
!_loop:
     CMP bl, $30            ; 0...9
     JB  _1
     CMP bl, $39
     JA  _1
     SUB bl, $30
     JMP _2
  ! _1:   
     CMP bl, $41             ; A...F
     JB  _4
     CMP bl, $46
     JA  _4
     SUB bl, $37
     JMP _2
  ! _4:   
     CMP bl, $61             ; a...f
     JB  _3
     CMP bl, $66
     JA  _3
     SUB bl, $57
     JMP _2
  ! _3:
   ProcedureReturn 0
  ! _2:   
     OR  ecx, ebx
     INC eax
     MOV bl, byte[eax]
     CMP bl, 0              ; проверяем конец строки
     JE endproc
     SHL ecx, 4
     JMP _loop
  !endproc:
     MOV ResultTemp, ecx
  ProcedureReturn ResultTemp
EndProcedure
 
Procedure.s StrToHexVal(str$)
 ; Процедура преобразует строку в HEX представление
 ;LOCALS
  ResultTemp.s=Space(1024)
     MOV esi, str$
     CMP byte [esi], 0       ; проверяем пустая строка или нет
     JE endproc2
     MOV edi, ResultTemp                                   
     XOR eax, eax
!_rr:         
     MOV al, byte [esi]      ; берем символ из строки
     MOV bl, al
     SHR eax, 4
     ADD al, $90
     DAA
     ADC al, $40
     DAA
     MOV byte [edi], al      ; пишем текстовую строку
     INC edi
     MOV al, bl
     AND eax, $0F
     ADD al, $90
     DAA
     ADC al, $40
     DAA
     MOV byte [edi], al      ; пишем текстовую строку
     INC esi
     INC edi
     CMP byte [esi], 0       ; если строка не кончилась, пилим дальше
     JNZ _rr
     MOV byte [edi], 0       ; записываем в конец строки ноль
 ProcedureReturn ResultTemp   
!endproc2:
  ProcedureReturn ""
EndProcedure
 
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 474, 160, "AsmInline", #PB_Window_MinimizeGadget)
    StringGadget(#String_0, 10, 10, 445, 25, "")
    ButtonGadget(#Button_1, 310, 60, 145, 25, "CheckNumber")
    ButtonGadget(#Button_2, 310, 85, 145, 25, "HexStrToNumber")
    ButtonGadget(#Button_3, 310, 110, 145, 25, "StrToHexVal")
  EndIf
EndProcedure
Procedure Button_1_OnEvent(EventType.l)
  a= CheckNumber(GetGadgetText(#String_0))
  MessageRequester("o_O", "Return:  "+ Str(a))
EndProcedure
Procedure Button_2_OnEvent(EventType.l)
  a= HexStrToNumber(GetGadgetText(#String_0))
  MessageRequester("o_O", "Return:  " + Str(a))
EndProcedure
Procedure Button_3_OnEvent(EventType.l)
  a.s= StrToHexVal(GetGadgetText(#String_0))
  MessageRequester("o_O", "Return:  " +a)
EndProcedure
OpenWindow_Window_0()
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #String_0
      ElseIf EventGadget = #Button_1
        Button_1_OnEvent(EventType)              ; CheckNumber
      ElseIf EventGadget = #Button_2
        Button_2_OnEvent(EventType)              ; HexStrToNumber
      ElseIf EventGadget = #Button_3
        Button_3_OnEvent(EventType)              ; StrToHexVal
      EndIf
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver