|
Funeral
#01
12 февраля 1999 |
|
Real fun - Стрелка интерфейс.
ИНТЕРФЕЙС ТИПА "СТРЕЛКА" ОСНОВНОЙ АЛГОРИТМ. (C) JASON "NECROPHILE" KRUEGER __________________________________________пулярность приобрел интерфейс типа "Стрел- ка". Мы хотели бы предложить вам общий ал- горитм такого интерфейса, по которому вы с легкостью можете написать свою программу. Итак,начнем. На входе: Лохи с деньгами,вы - без денег. На выходе: Вы с деньгами,лохи - без денег. 1.Найти лохов с деньгами. 2.Забить им стрелку. 2.1 LD HL,0 PUSH HL (стек понадобится для внутр. нужд) 3.Придти на стрелку. 4.Если лохи не пришли, то найти лохов из- бить и перейти на п.9 5.Если лохи пришли одни, то сказать лохам, что они лохи. 6.Если лохи согласятся, то перейти на п.9 7.Если лохи не согласятся, то обосновать лохам что они лохи, избить лохов и перейти на п.9 8.Если лохи пришли с разводными,то 8.1 Проверить разводных. 8.2 Если разводные - блатные,то забыть про лохов и перейти на п.1 8.3 Если разводные - лохи,то: LD HL,LRAD ;Адрес лохов-развод- ;ных PUSH HL ;Кладется на стек. 9.Поставить лохов на бабки,включить счет- чик. 10.Выполнить процедуру: ПЕРЕМЕННЫЕ: BABKI1 - деньги,принесенные лохами BABKI2 - деньги,которые лохи должны COUNTER - счетчик (сумма в день) BEGIN LD В,31 ;кол-во дней. LD HL,(BABKI2) ;долг. LD DE,(COUNTER) ;счетчик. LOOP ADD HL,DE ;складывают- ;ся, LD (BABKI2),HL ;сохраняется, LD ВС,(BABKI1) ;To,что лохи ;принесли. PUSH HL ;HL - на стек ;(будет ме- ;няться) SBC HL,ВС ;Разница меж- ;ду долгом и ;тем,что лохи ;принесли. JR NZ,NEXT ;Если разни- ;ца <> 0,то ;nobtpoutb. POP HL ;Nначе очис- ;тить стек LD HL,P14 ;и выйти PUSH HL ;на П.14 RET ; NEXT POP HL ;Это и так DJNZ LOOP ;понятно... LD (BABKI2),HL ;Месяц про- CALL P11 ;шел,а денег JR BEGIN ;нет... BABKI1 DEFW 0 BABKI2 DEFW 0 COUNTER DEFW 0 Очистка 11.Избить лохов. 12.Взять паяльник и утюг,пытать лохов. 13.RET (возврат на процедуру п.10) 14. Проверка наличия лохов-разводных (их адрес лежит на стеке) POP HL ;Содержимое стека в ;HL LD A,H ;Проверка OR A ;Если на стеке не 0, JP NZ,P2 ;то трясти c них. XOR A ;Для системы LD ВС,327б5 ;128 КБ OUT (C),A ;(ВКЛ 128 ПЗУ) RST 0 ;Выход. Вот, в общем-то и все. Алгоритм, конечно, можно оптимизировать,например,не проверять разводных на лохов, однако это нежелатель- но, поскольку машинный код блатных может сгенерировать в вашей процедуре поддержа- ния жизни следующую последовательность: DI HALT Желательно так же вставить проверку ло- хов и разводных на ментовость. Иначе в ва- шей жизненной процедуре может сгенериро- ваться: В лучшем случае - цикл LD B,10 (кол-во лет) LOOP DJNZ LOOP RET Либо LOOP JR LOOP В лучшем случае - цикл LD B,10 (кол-во лет) LOOP DJNZ LOOP RET Либо LOOP JR LOOP А в худшем случае - то же: DI HALT (Хотя второй вариант по результату не на- много отличается от третьего). На этом,кажется,все.Счастливого вам рэке- та... RET
последнее время в России наибольшую по-
Другие статьи номера:
Похожие статьи:
В этот день... 21 ноября