- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
org 100h
Begin:
call FPU_init
fild [Number] ;сложение
fidiv [Number2] ;деление
frndint ;округление (в сторону нуля-
call Ar_prog ;т. к. регистр RC установлен в 11)
fimul [Number2]
fild [Number]
fisub [Number10]
fidiv [Number3]
frndint
call Ar_prog
fimul [Number3]
fild [Number]
fidiv [Number4]
frndint
call Ar_prog
fimul [Number4]
fincstp
fincstp
fadd st0, st2
fsub st0, st6
fist [Number9]
call FPU_init
fild [Number5]
xor cx,cx
Out1:
fild [Number9] ;помещаем значение, полученное после вычитания
inc cx ;увеличиваем cx
fcom st1 ;сравниваем значение с 10
fstsw [Number14]
mov ax, [Number14]
sahf
jb Out2 ;если меньше 10, перейти к Out2
fdiv st0,st1 ;делим на 10
frndint ;округляем
fistp [Number12] ;результат - в Number12
fild [Number9] ;снова загружаем
fprem ;остаток от деления на 10
fiadd [Number15] ;прибавляем 30h
fistp [Number13] ;выгружаем в память
push [Number13] ;толкаем в стек
fild [Number12] ;результат деления - в Number9
fistp [Number9]
jmp Out1 ;цикл
Out2:
mov di, String ;записываем смещение строки
fiadd [Number15]
fist [Number13]
push [Number13]
Out3:
pop dx ;выталкиваем коды цифр, начиная с конца
mov [di],dl ;записываем их в строку
inc di ;увеличиваем смещение
loop Out3 ;повторяем это
mov [di], byte 24h ;записываем код конца строки для вывода
mov dx, String ;записываем смещение строки в
mov ah, 09h ;вызываем прерывание
int 21h
int 20h
Ar_prog:
fist [Number9]
fimul [Number9]
fild [Number9]
fadd st0,st1
fidiv [Number8]
frndint
ret
FPU_init:
finit ;инициализация сопроцессора
fstcw [Number6] ;получение контрольного слова
mov ax, [Number7] ;установка десятого и одиннадцатого
or [Number6], ax ;битов слова в 11 (можно две команды bts)
fldcw [Number6] ;загрузка контрольного слова в FPU
ret
Number dw 1000d
Number2 dd 3d
Number3 dw 5d
Number4 dw 15d
Number5 dw 10d
Number6 dw ?
Number7 dw 0c00h
Number8 dw 2d
Number9 dd ?
Number10 dw 1d
Number11 db 30h
Number12 dd ?
Number13 dw ?
Number14 dw ?
Number15 dd 0030h
String db ?
Первый в жизни осмысленный код. Я нормален?
Follow us!
Просто такое ощущение, что лучше не кодить, а податься... в сталевары, например.
На на форумы же за оценочкой идти, ну.
Действительно говно. Забыл исправить. На каком-то этапе написания кода нужен был именно даблворд, но потом переделал и доделал, а не исправил. Я лох.
Как, например, ты бы назвал константу, нужную для установки битов в слове(Number7 у меня)?
Да, на листочке я это несколько раз решал в процессе. И изначально там не предполагается прогрессий, а тупой перебор (сложить все числа из промежутка (0;1000), кратные 3 или 5). Прогрессии придумал мой сумрачный гений.
oh, really? инфа 100%?
> Assembler
О, мусье знает толк!
ПОЯСНИЛ ЕГО КРИКОМ "НЕ ЛЮБЛЮ ШАРПОБЛЯДЕЙ!", ПОТОМУ ЧТО Я УГОРЕЛ ПО АССЕМБЛЕРУ, ПАЦАНЫ ДУХ СТАРОЙ ШКОЛЫ ЖИВЁТ ТОЛЬКО В БАЙТАХ, ГДЕ
ЕБАШАТСЯ ПО ХАРДКОРУ, ГДЕ ПАЦАНЫ ЖИВУТ ЭНЕРГИЕЙ, МОЛОДОСТЬЮ И ЕБУТ ТУПЫХ ПРИКЛАДНИКОВ В РОТ! ТОЛЬКО ZX-SPECTRUM, ТОЛЬКО ХАРДКОР!!! ЮНИТИ УЛЬТРАХАРДКОР!!! пацаны ебашьте паскалистов, их ебарей, пидарасню, угорайте на говнокоде, любите Ассемблер, байты и Одиночество! ГОВОРИТЕ ОТКРЫТО И СМЕЛО ПРЯМО В ЛИЦО! Я - БАЙТОБОГ!
Я программер. Но не просто программер. Я принадлежу к касте, которую иногда называют системщиками, иногда кристальщиками. Вы знаете, что это такое? Я объясню, если потерпите. Мне никак не обойтись без специфики, но иначе вы не сможете понять дальнейшее.
Мы программируем чипы однокристаллки, грубо говоря, это когда весь комп в одном кристалле. Программная память и память данных разделены и не взаимодействуют между собой. Программа не может быть запущена в оперативке. Глубина программного стека ограничена. Максимум на что я могу рассчитывать, это восемь уровней вложения, причем я не могу изменять предельную глубину стека. О, вы не подумайте чего! У меня бездна ресурсов. Оперативки аж 128 байт! Это на все про все. Переменные, там то да се.. Представили, да? С программной памятью тоже неплохо. Аж восемь килобайт. И пользоваться ей совсем несложно. Сначала нужно программно врубить нужный банк памяти, запустить в нем нужную процедуру, а по выходе из нее не забыть вернуться где был. Да еще надо иметь в виду, что в пределах банка я могу перемещаться только джампами и вызовами процедур, а переходы по условиям возможны только в пределах одной страницы, т.е. 256 байт.
Обычный писишный RS232C, так называемый компорт. Но если вы думаете, что это отдельный чип, мол, сунул ему байт, принял из буфера байт, то вы заблуждаетесь. Себестоимость. Я все это делаю ручками, телипая единственный бит порта. Ручками кручу диаграмму стартов, стопов и данных. Итак:
Если все Оки-доки, но процедуры слишком длинны, разрушается диаграмма реалтайма - задача не решена. Если процедур слишком коротки, их много, исчерпывается стек - задача не решена.
Любой средней руки программер, поставь его в подобные условия, застрелится на второй день. Вообще, по моему убеждению, парни, работающие в этой области, имеют стальные нервы и неукротимую волю к победе. Мы редко общаемся с обычными программерами - нам в общем не чем разговаривать. И не потому, что мы снобы или гордецы. Совсем необязательно. Нам трудно представить себе программирование под неисчерпаемыми ресурсами на языках высокого уровня. Мало винта? Купи другой, в чем проблема? Мало рамы? Купи еще, толкни в слот. Меги кодов? А я причем? Это компилятор виноват. Купите машину побольше. Это как разные планеты и я надеюсь, вы поняли почему.
Это как красивый белый океанский круизер в бескрайних океанских просторах, плыви куда хочешь. А вы попробуйте на нем в финских шхерах порулить. ;-) Или вдевать нитку в иголку среди ночи. Причем, черную нитку.
Hу что ж. Я ввел вас в предметную область и могу продолжить свой рассказ.
Кристалл не понравился мне сразу. Я сразу понял - тесноват. Все на пределе. Законных 20% запаса по ресурсу, на возможные ошибки - не соблюсти. Однако остальные кандидаты были сильно избыточны, и потому дороги и нерациональны. Себестоимость решила все, я, наконец, выдал свое согласие и мощные и гордые красавцы Intelы и Mотороллы последних моделей остались за бортом.
Поначалу все шло как надо. Пару месяцев работы и кристаллы были нафаршированы кодом, испытания прошли нормально, платы разведены и отработаны, медленно провернулись шестерни и, набирая ход, закрутились, приводя в действие сложную и громоздкую машину производства. И только у меня изредка екало сердечко, ведь все сделано впритирку! Три от силы пять процентов ресурсов осталось свободными. А это чертовски мало, поверьте мне на слово.
Хотя работа была сделана весьма неплохо, и я получил свое законное вознаграждение в виде порции удовольствия от сделанного. Конечно, пара мест довольно авантюрно, местами рыхловато, но зато и несколько изюминок получилось.
Эти постановщики!!! Их карма понять, что надо заказчику! Даже если для этого надо распилить ему черепушку и просеять через сито все ее содержимое!
Hо криком делу не поможешь. И я на две недели засел дома, запретив меня беспокоить. В мозгу завелись маленькая сирена и светофорчик. Биип! Вспышка красного! Первый программный банк исчерпан! Репакинг. Оптимизация размещения кода по страницам и банкам памяти. Биип! Оперативная память исчерпана! Пересмотр функциональности процедур. Эту переменную нафиг. И без этих можно обойтись, если тут по другому пути пойти.
Биип! Провал стека! Прям мордой в дно. Как это!? Я уже на восьмом уровне!?
Биип! Выход меток за пределы видимости внутристраничных переходов!
Биип! Нарушение условий реалтайма, процедуры жрут слишком много времени!
Биип! Исчерпан второй банк памяти!
Проклятой новой функции, непрерывно переупаковывая размещение кода по страницам, банкам, оптимизируя размер кода, график реалтайма, использование оперативной памяти,
а то, и попросту переписывая модули с нуля.
Может, вы думаете, восемь килограмм бинарного кода это мало? Ха! Инструкции то одно и двухбайтовые. Это вам не трехбайтовый зайлог или даже интеловский восьмидесятник. Временами ко мне забегал приятель, как, мол, и что, но я был мало расположен к трепу "за жизнь".
Через полторы недели я понял, что дело худо. Я располагал более чем полудюжиной решений и уже стоял на месте. Я знал каждую процедуру и функцию наизусть, а каждый байт в лицо! Все было впустую. Картинка замерла.. Она не хотела оживать!
Мне не хватало одного байта. Это показывали все варианты решений. Всего одного байта!
Места не хватало.. Одного байта.. Я мял код, как глину, я выделывал с ним все что угодно, но.. один, всего один байт!
Наверное нечто похожее испытывает музыкант написав симфонию, пытаясь найти одну единственную ноту, что бы заставить звучать свое произведение. Или художник ищет тот самый, неповторимый мазок, который оживит картину. А без этого все мертво и весь труд годится только на помойку..
Тоненько попискивали контрольные маркеры временных отметок висящие впритирку к этим кристаллам странных, каких-то завораживающих форм. И все это летело, куда-то перемещаясь и вращаясь, в каком то странно меняющем форму канале? Трубе? Оно проноситься вплотную ко всем его стенкам, как по команде невидимого штурмана, в нужный момент, разворачиваясь по непонятно какому наитию, чтобы выступающая грань не зацепилась за препятствие. Но каков его капитан или кто там? Штурман? Ведь не пройдет же! Там нельзя пройти! Hо нет! Чудесным образом все сооружение как-то грациозно изворачивается, ровно в нужное мгновенье и беззвучно проскакивает.. нет!
Величаво минует препятствие.. А впереди следующее.. И вдруг, край ажурного сооружения своим крохотным выступом цепляется. Визг и грохот! Лопаются и сминаются сверкающие нити, и все дробится на миллионы осколков..
Господи! Это же стек! Оно обходит стек! Вот значит, как это выглядит!
Когда я исчерпываю глубину, она видимо с треском цепляется и разрушается, ломая свои ажурные конструкции..
Да что они все понимают!? Кто это может понять, сколько знаний и труда надо что бы выстроить такое? Сколько бессонных ночей надо провести? Сколько читать? Причем ежедневно и вовсе не идиотский роман о любви и дружбе?
Да кто вообще в состоянии это понять!? Эти новоявленные пижоны, называющие себя программистами? Коряво пишущими на фокспрах, клипперах и бейсиках? И везде задающих вопросы: а скажите, какую команду мне надо набрать? А какой хелп почитать? А когда мануал на русский переведут? А этот их, так называемый "софт"? Великие стотысячевариантные вечноживые склады и бухгалтерии? Нетленные творения. Все на одно лицо. Если там и есть различия, так в корявости и глючности кода. Глюк на глюке сидит и багом погоняет..
Вот заставить бы их высекать их коды в камне, как древние камнетесы, что б хоть немного задумались о том, чего пишут.. Или эти технокрысы? Это ж надо, вирусы писать, что б значит гадостью людям сделанной прославиться! Тьфу!
Приятель, открыв дверь, молча смотрит на меня. "Ну?" "Что ну?"
" Скажи мне только одно" мрачно говорю я, проходя в квартиру. "Ты можешь дать мне один байт? Всего один. Я готов отдать тебе за него все что угодно. Мне байта не хватает, понимаешь? Ну не влезаю я в кристалл!"
Друг какое-то время молчит. "Я смотрел твои коды."
"И что? Нашел, что-нибудь?"
" Hет." тихо говорит он, и, помолчав, продолжил: "Безукоризненно связанное кружево. Ни единой петли. Стыков не видно. Филигранная работа. Штучная. Прям лепота. На каждую строчку можно поставить знак качества. И высечь в мраморе. И однородно все, ни уплотнений, ни пустот. Монолит, но эластичный. Hо.."
"Большинство мест я не могу понять.. Не понимаю.. Только вижу, как это.. красиво. Неосязаемо как-то. Не ухватить сознанием.. Вроде вот вот, но оно улетает.. Это как снежинка, когда пытаешься взять ее в руку. Или как звуки еще непонятой, но уже осознаваемой музыки.."
"Что за чушь ты несешь!? Какая к черту снежинка?! Какая музыка!? Ты можешь мне помочь или нет!?" грохочу я. "Ты же друг мне. Помоги, а? Ты только скажи, куда мне втиснуть этот байт.." я с надеждой смотрю на него. "Ведь свежий, незамыленый глаз. Ведь один, всего один оператор, без которого можно обойтись и все! ВСЕ! Проблема решена, понимаешь? И я тебе по гроб жизни.. навсегда.." шепчу я ухватив его за рукав, "Ведь там же до черта строк, а я же просто человек, ошибся, пропустил, не заметил.. а? А мне ничего не надо. Hи славы, ни похвал. Я только хочу, что б оно улетело.. Что б отпустило меня.. а? Hу нет у меня сил больше. Hу пойдем, давай ты еще коды посмотришь.."
"Откажись", говорит он. "Отказаться? От чего?" не понимаю я. "Возьми другой кристалл".
"Ты сошел с ума!!?? Как это - другой!!?? Кучи наделанных плат, монтажники, наладчики, зарплаты, детали!? Это что, шуточки!!?? Ты думаешь это на компе, хочу, пару строк добавил, и никто не заметит!!?? Затрат ноль, а добавляй хоть мегабайты кода!? А люди? Они ведь верят мне! Я ведь сказал -"Да!" Я ведь согласился, хотя и видел, что запаса ресурса почти по нулям будет! А у них уже готово все! Корпуса, металл, питание. Они ждут только кода! Ты знаешь к чему может привести смена кристалла? Ты знаешь сколько будет стоить этот байт! Один байт!!"
"Дурак." слово шлепком падает на землю, как тюк мокрого белья. "Отступись! Забудь! Мы с ребятами уже три дня, как смотрим эти коды. Я собрал всех кого мог. Я сразу понял, что с тобой неладное. У тебя НЕТ ошибок! Ни одной. Более того, мы не понимаем, как тебе вообще удалось это запихнуть."
Колени мои подогнулись и я то ли сел, то ли сполз на стул.
Я глубине души я знал это. А потом я стал говорить.. Это был странный монолог..
Как будто кто-то кричал, шептал и снова орал моим голосом:
Но я не могу лететь постоянно. Я снова опускаюсь.. И так до нового кода в который надо что-то вложить. Я не знаю что. Какой то кусок себя, что ли. Но в этот раз я попался. Меня сгубила гордыня. Ну, как же! Я ведь гуру, умеющий снисходительно тыкать чайников носом и походя разрешать их проблемы! Мне так нравятся их взгляды на меня, как на божество. Ведь мы тщеславны и я не исключение.
Но сейчас все не так! Ты думаешь, проблема в этом одном байте и как его засунуть? Нет! Я не могу его запихнуть! Но это может сделать не я! Понимаешь?
Ты же отлично знаешь, что я умный и хитрый! Если бы задача не решалась, я бы ушел, ускользнул, сорвался с крючка! Но я считал, что она решается, и меня подсекли! Поймали на этот байт, как в сеть. И байт этот, это размер ячейки сетки, через который я не могу улизнуть. Слишком далеко я зашел.. И я не смогу уйти и снова быть свободным, если не изменю что-то в себе! Полностью изменить себя, понимаешь? Стать другим человеком! И тогда может быть, передо мной откроется дверь... Я не знаю куда.. Я не знаю что за ней.. И я не знаю, как и что я должен сделать для этого.. Да.. И еще цена.. Я и это понял.. Я не смогу быть как прежде.. Я не смогу летать больше.. Все будет кончено.. "
Я медленно поднялся и, ссутулившись, пошел к двери.. "Прощай.." глухо сказал я в пустоту..
"...Кретин!" неслось мне вслед, "
«Ты же сдохнешь над этой программой! Сдохнешь! Ты в зеркало на себя посмотри! Психушка для тебя - милость! Делай что-нибудь! Иди к бабам, напейся вдребезги...»
Hо я уже ничего не слышу. "Господи, если ты есть - помоги.." Только на улице я спохватываюсь, что забыл перчатки и шапку. А зачем они мне? Разве это главное? А что главное? Зачем все? Кому все это нужно? Людям? Да наплевать им! Это мне нужно! Лично мне! Я сам загнал себя в ловушку и сам же не могу из нее выбраться. Что это? Наказание? Урок, что б впредь не задавался? Да уж, скорее так. Гонору у меня хоть отбавляй. Стоп, стоп.. Как он сказал? "К бабам?"
"Что?!" Только кресло мешает мне свалиться на пол. Какой-то противный, каркающий клекот рвется из меня.. "Вы пишете без стека!?"
А вот это уже истерика..
Я снова на улице. Милые, милые наши дамы. Как вы приятны в вашем неведении. И как это здорово, что вы этого не знаете. Вам и не нужно это знать. Сходить с ума от нерешенных задач, как и философских вопросов, это привилегия мужчин. Конечно, бывают и исключения. Но они скорее подтверждают правила. Если в верхнеуровневых языках дамы еще попадаются, к сям и ассемблерам практически исчезают, то в нашей области я не слышал о них вообще. И это правильно! Нечего валить на женщин еще и эти проблемы.
Hо что это? Я здесь вроде был? Цветы. Скамейка. И бабушка на ней. Как будто и не уходила. Ведь мороз же? В нерешительности я присаживаюсь на край скамейки. Ого! руки то замерзли и ухи тоже. И тут, как будто что-то толкнуло меня, я встал, подошел к продавщице цветов и на последнюю трешку, (а зачем она мне?) купил розы и подошел к бабушке. В голове у меня судорожно билась мысль: что я делаю? Зачем? Она ждала, подняв ко мне лицо. И я выдавил из себя: "Извините. Я могу подарить Вам цветы? Я.. плохо подумал о Вас.. тогда.."
Она нисколько не удивилась. И сказала.. "Где же ты был так долго, сынок? Я замерзла ждать тебя.." !!!??? Сказать, что я удивился, значит не сказать ничего.. Я был потрясен, ошеломлен, раздавлен! А она продолжала: "Тебе ведь плохо, сынок?" Она смотрела на меня с участием. В ее глазах светилась мудрость, доброта и .. любовь. Вы понимаете!? Ко мне любовь.. И тогда я сказал: "Да! Мне плохо. Мне очень плохо.." Я не боялся и не стыдился. Что-то как будто упало с меня, отскочив, как шелуха. И я стал рассказывать.. Сбивчиво, торопясь и захлебываясь.
Она внимательно, не перебивая, слушала меня. Она все понимала! Каждое мое слово! Это я видел по ее глазам. Я говорил и говорил. А она вела меня куда-то и я ел, что-то очень вкусное, а потом мы пили чай, с каким-то необыкновенным вареньем, на крохотной, но такой уютной кухне.
Наверное, это была очень странная картина. Полусумасшедший программист и старушка, его внимательно слушающая.. А потом говорила она. Я не помню о чем. Я только помню, что это было очень важное и нужное мне, что я черпал из этой кладези мудрости, которую можно обрести, только потеряв столь много, но обретя любовь..
И вдруг.. Снова стала разворачиваться внутри меня странная, невесомая и в то же время прочная конструкция. Она разворачивалась мощно и грациозно, окруженная великолепием огней. Каждая ее грань, каждый элемент были совершенны и неповторимы! И легонько вибрируя, она порождала музыку. И все это вместе наполняло меня необычайным трепетом и восторгом! Это я! Я создал ее! Это мной отшлифованы все ее грани! Ну почему этого никто не видит!? Ну посмотрите же! Разделите со мной мое счастье! Теперь я не боялся. Я знал, что она полетит! И она поможет и мне оторваться от земли. С ней и я полечу к звездам!
...
Создавайте свои корабли. И пусть они путешествуют в необычайных мирах. Я был неправ. Каждый из нас может путешествовать и жить в этих мирах. И это неважно, как и где вы их создаете. Мы создаем программы в той же мере, в какой они создают нас. И настоящие программы создают не хитростью и для этого мало разума знаний и смекалки. Они должны пройти через сердце, потому, что являются порождением нашей любви.
Потому, что программы, которые мы создаем, чистый продукт творчества. Именно поэтому они столь привлекательны. Не нужно ни молотка, ни зубила, ни кистей и красок, что бы выразить в ней главное - себя! И это неважно, что может быть понять красоту ваших кодов сможет не так уж и много людей. Если написав свою программу мы стали лучше, то это правильная и хорошая программа! Но если вы думаете, что нужно меньше труда, то вы ошибаетесь. И если вы не готовы, или не хотите в своем творении оставить часть своей души и любви, не готовы к тому что б изменить себя, то лучше.. не пишите программ. Поищите себя, в чем-нибудь другом...
http://wayback.archive.org/web/*/http://assembler.ru/
* у дурака что на уме, то и на гумне.
* у богатого гумна и свинья умна.
* не купи гумна, купи ума!
Кстати в Малороссии вместо "гумно" говорили "гумнище".