Говнокод #15608 — Assembler

Assembler / Говнокод #15608

+137
1. 001
2. 002
3. 003
4. 004
5. 005
6. 006
7. 007
8. 008
9. 009
10. 010
11. 011
12. 012
13. 013
14. 014
15. 015
16. 016
17. 017
18. 018
19. 019
20. 020
21. 021
22. 022
23. 023
24. 024
25. 025
26. 026
27. 027
28. 028
29. 029
30. 030
31. 031
32. 032
33. 033
34. 034
35. 035
36. 036
37. 037
38. 038
39. 039
40. 040
41. 041
42. 042
43. 043
44. 044
45. 045
46. 046
47. 047
48. 048
49. 049
50. 050
51. 051
52. 052
53. 053
54. 054
55. 055
56. 056
57. 057
58. 058
59. 059
60. 060
61. 061
62. 062
63. 063
64. 064
65. 065
66. 066
67. 067
68. 068
69. 069
70. 070
71. 071
72. 072
73. 073
74. 074
75. 075
76. 076
77. 077
78. 078
79. 079
80. 080
81. 081
82. 082
83. 083
84. 084
85. 085
86. 086
87. 087
88. 088
89. 089
90. 090
91. 091
92. 092
93. 093
94. 094
95. 095
96. 096
97. 097
98. 098
99. 099
100. 100
```
ascdec proc near
mov di,0
mov si,0
xor dx,dx
mov bx,offset buf
add bx,10
mov cx,11
lo0:
dec bx
dec cx
jcxz ex0
mov al,[bx]
cmp al,255
je lo0
lo1:
sub al,30h 
push bx
push cx
mov bx,offset deci
xor dx,dx
mov cx,word ptr[bx+2]
mov bx,word ptr[bx]
mov ah,0
call mult32 
add di,ax
adc si,dx
mov bx,offset deci
mov ax,[bx]
mov dx,[bx+2]
call multen
mov bx,offset deci
mov [bx],ax
mov [bx+2],dx
pop cx
pop bx
dec bx
dec cx
jcxz ex0
mov al,[bx]
jmp lo1
ex0:
mov ax,di
mov dx,si
test dx,8000h
jz enda
jmp error
enda:
cmp minus,2dh
jne pl1
call ccc
pl1:
ret
ascdec endp
multen proc near
push bx
push cx
mov bx,10
mov cx,0
call mult32
pop cx
pop bx
ret
multen endp
mult32 proc near 
push si
push di
push dx
push ax
test dx,8000h 
jz ml
call ucc
push dx
push ax
ml:
mov dx,cx
mov ax,bx
test dx,8000h  
jz ml0
call ucc 
mov bx,ax
mov cx,dx
ml0:
pop ax
pop dx
mov si,0
mov di,0
mul bx ;AX*BX
mov di,ax
mov si,dx
pop ax
mul cx ;AX*CX
add si,ax
pop dx
ucc proc near
dec ax
sbb dx,0
not ax
not dx
ret
ucc endp
```
Превращение строки в число.

Запостил: Abbath, 27 Марта 2014

Tweet
Комментарии (22) RSS
- bormand 28.03.2014 07:06 # 0
  
  Причем 32 битного...
  
  P.S. Можно было хоть немного отформатировать? Читать же невозможно...
  Ответить
  - bormand 28.03.2014 07:08 # 0
    
    Интересно, нахрена парсить число с правого края? Это же сложнее, чем с левого ;)
    
    С левого - читаем цифру и прибавляем ее к ответу, домноженному на 10.
    С правого - домножаем текущую степень на 10, умножаем ее на цифру и прибавляем к ответу. Да еще и сканить справа налево...
    
    Автор не искал легких путей...
    Ответить
  - Lokich 28.03.2014 20:59 # +1
    
    я конечно не знаю асемблер, но как ты вообще это читаешь? :)
    кстати вопрос по теме, я в инете так и не смог найти, там вообще есть какой-нибудь цикл типа for? или только какой-то свой каунтер с джампами?
    Ответить
    - bormand 28.03.2014 21:08 # +3
      
      > но как ты вообще это читаешь?
      Опыт не пропьешь :) Но надо немного форматировать перед чтением - хотя бы на 1 отступ сдвинуть все кроме меток и отделить процедуры друг от друга и т.п.
      
      > есть какой-нибудь цикл типа for
      Конечно нет. Это же не какой-то там сраный язык высокого уровня :)
      
      > каунтер с джампами
      Да. Ну или jcxz - декремент счетчика и условный переход в одной команде.
      Ответить
    - bormand 28.03.2014 21:16 # +1
      
      > как ты вообще это читаешь
      Это ты еще at&t синтаксис не видел...
      Ответить
      
      Lokich 28.03.2014 21:31 # 0
      
      типа этого?
      print_loop: // Начало цикла вывода массива pusha // Сохраняем все регистры pushl (%eax) // Кладем в стек элемент массива pushl $print_format_array // Кладем в стек формат вывода ("%d ") call printf // Вызываем printf (параметры функции кладутся в обратном порядке) addl $8, %esp // Выравниваем стек popa // Достаем из стека сохраненные регистры addl $4, %eax // Переходим к следующему элементу массива cmpl $array_end, %eax // Сравниваем с адресом конца массива jne print_loop // Если меньше, то переходим к выводу следуюшего элемента
      Ответить
      
      bormand 28.03.2014 21:33 # 0
      
      Да. Только если в режиме extended вставки - там для полного счастья по два процента у регистров.
      Ответить
- bormand 28.03.2014 07:24 # 0
  
  mult32 не влез полностью? Там ниже еще 2 умножения и корректировка знака?
  
  И что-то не совсем понятно, как оно будет выставлять знак результата. Ведь оно никуда не сохранило знак из пары cx:bx, да и изначальное значение этой пары проебало.
  Ответить
  - Abbath 28.03.2014 13:24 # 0
    
    Таки не влез. Закину вечером.
    
    Ответить
  - Abbath 28.03.2014 21:16 # +1
    
    mult32 proc near push si push di push dx push ax test dx,8000h jz ml call ucc push dx push ax ml: mov dx,cx mov ax,bx test dx,8000h jz ml0 call ucc mov bx,ax mov cx,dx ml0: pop ax pop dx mov si,0 mov di,0 mul bx ;AX*BX mov di,ax mov si,dx pop ax mul cx ;AX*CX add si,ax pop dx mov ax,dx mul bx ;DX*BX add si,ax mov dx,si mov ax,di pop di pop si ret mult32 endp
    Ответить
    - bormand 28.03.2014 21:17 # 0
      
      Лол, умножение по модулю... Как я и думал - на знаки тупо забили.
      Ответить
      
      Abbath 28.03.2014 22:55 # 0
      
      там есть фиксы знаков. при каждом умножении.
      Ответить
      
      bormand 29.03.2014 07:13 # 0
      
      > там есть фиксы знаков
      При вызове процедуры снаружи?
      Ответить
    - bormand 28.03.2014 21:23 # 0
      
      А еще метку ml поставили не туда. Если в паре dx:ax было положительное число - прогу тупо распидорасит.
      Ответить
      
      Abbath 28.03.2014 23:04 # 0
      
      Откопал версию поновее.
      
      mult32 proc near push si push di push dx push ax push dx push ax test dx,8000h jz ml call ucc ml: test cx,8000h jz ml0 mov ax,bx mov dx,cx call ucc mov bx,ax mov cx,dx ml0: pop ax pop dx mov si,0 mov di,0 mul bx ;AX*BX mov di,ax mov si,dx pop ax mul cx ;AX*CX add si,ax pop dx mov ax,dx mul bx ;DX*BX add si,ax mov dx,si mov ax,di pop di pop si ret mult32 endp
      Ответить
      
      bormand 29.03.2014 07:12 # 0
      
      Поменяли знак в паре dx:ax, запороли результат, да вернули все как было, восстановив старое значение из стека ;)
      
      Один код лучше другого :) Автору этих строк явно стоит уйти на языки высокого уровня...
      Ответить
      
      Abbath 29.03.2014 10:09 # 0
      
      http://pastebin.com/KPdEwbvR
      Ответить
      
      Abbath 28.03.2014 23:16 # 0
      
      Еще поновее нашел.
      
      mult32 proc near push si push di push dx push ax push dx push ax test dx,8000h jz ml call ucc push dx push ax ml: test cx,8000h jz ml0 mov ax,bx mov dx,cx call ucc mov bx,ax mov cx,dx ml0: pop ax pop dx mov si,0 mov di,0 mul bx ;AX*BX mov di,ax mov si,dx pop ax mul cx ;AX*CX add si,ax pop dx mov ax,dx mul bx ;DX*BX add si,ax mov dx,si mov ax,di pop di pop si ret mult32 endp
      Ответить
      
      bormand 29.03.2014 07:11 # 0
      
      Тоже ведь стек разбалансируется.
      Ответить
      
      Abbath 29.03.2014 10:38 # 0
      
      http://pastebin.com/EFz6wwjB
      Ответить
- bormand 28.03.2014 21:30 # +1
  
  http://ru.wikipedia.org/wiki/Therac-25
  
  - Небезопасная манера программирования. В частности, в программном обеспечении было много «трюкачества», а программные модули практически не тестировались поодиночке (бо́льшая часть тестирования производилась на готовом аппарате). Следует заметить, что всё ПО было написано на ассемблере, хотя в данном случае более мудрым решением было бы использовать язык высокого уровня.
  Ответить
  - Stertor 28.03.2014 21:44 # 0
    
    >>
    Кроме этих явных ошибок было замечено множество потенциальных — например, в многозадачной операционной системе не было никакой синхронизации.
    
    ...
    Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Помни, guest, за тобой могут следить!

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

Assembler / Говнокод #15608

Комментарии (22) RSS

Добавить комментарий