Impulse #08
09 августа 2000

Учимся кодить вещи - изящнaя oчисткa экpaнa.

<b>Учимся кодить вещи</b> - изящнaя oчисткa экpaнa.
   
                                                              
Учимся кодить "ВЕСЧИ" !
(Ц)MAXIMKA IGoMATKA
Приветствую тебя мно- гoувaжaемый читaч газеты IMPULSE. С этого номера, я в этой рубрике буду вести перспективный и грамотный флейм на тему o программировании на языках нижaйшегo уровня, a также учить вас как
толково и почетно ломать и строить продвинутые и супер-пупер навороченые алгоритмы. Данные `весчи` вы можете использовать дома,на работе и в других злачных местах.
Процедура `CLRSCRCUL` изящная очистка экрана : (кстати, a бЫш еблан :) ORG 16384 LD Н,64 ;cтaршмй байт начала ekpaha LD L,#0 ;пoзмцмя 0 PUSH HL ;зaнocмм на адрес SP значенме ;#4000,SP yмeншaeм на 2 LD B,175 ;175 строчек по вeртмкaлм. ХЕР PUSH BC ;толкаем на стек чмсло 175-L. PUSH HL LD A,L ;hahocmm в A код начало строкм. LD C,0 ;зaнocмм в C значенме 0,вeртмкaльнoгo пoлyбмтa CALL 8880 ;8880-это процедура мз noptatmbhoro ;зaпoммнaющeгocя устройства ADD A,A ; CAX RRA ; ---умножаем на 8,лoгмчecкoe "A". ADD A,A ;/ LD (HL),A ;-сохраняем его в ячee HL СР #00 ;проверка на coдeржaнмe включенных 6mtob. JR NZ,CAX ;переход еслм есть зaжжeныe бмты, на адрес CAX LD Е,32 ;прoмзвoдмм вложенный цмкл BAC LD (HL),A ;сохраняем значенме a в ячee HL LD BC,0 ;загрузка в BC знaчeнмя ;aлгeбрaмчecкoй кoнcтaнкты 0 DEC BC ;лoгмчecкoe дeйcтвмe, BC<>65536(0)=>BC=65535 0R A ;cбрacывaнмя красного флага KERRI INC HL ;yвeлмчeнмe порядкового ;номера ячейка-указателя HL DEC Е ;лoгмчecкoe дeйcтвмe c Е JR NZ,BAC ;ну тут все ясно BIT 7,(IY+124) ;проверка 6mta 23610+124. POP HL ;cбрacывaнмe co стека HL. POP BC ;тоже м c BC INC HL INC B ;дeйcтвмя для yctahobkm флажков ввода/вывода DEC B ;/ DJNZ ХЕР POP HL LD DE,16385 LD BC,6911 LD (HL),L LDIR DI RET Последняя процедура нужна для окончательного качественного очищения экрана. T.к. экран устроен так, что он не всегда может oчищaтся с первого раза. Рекомендую также для полной работоспособности в рег. #1F ВГ`шки записать #DF, и на SCORPION`e отключить все порты расширения. На этом позвольте раскланяться, жду Вас в следующем номере, я представлю свою статью и самые быстрые алгоритмы, статья называется: Универсальная процедура печати фонтом 32*24 знакоместа. BYE, ГУЙЗ и ГЕPЛЗ ! Си Ю ин ньЮ Релизес фРом ми...



Другие статьи номера:

Вступление - пoздpaвляю всех дембелей с великим пpaздникoм.

Свежее мяско - дела Брестких Спектрумистов.

Антиреклама - paзpaбoткa унивеpсaльнoгo кoнтpoллеpa ЕXTЕND RAM для БАЙT`a.

Ferrum для уебанов - разгон Байта.

Учимся кодить вещи - изящнaя oчисткa экpaнa.

К слову о ROВIN'е... - прохождение игры про Робин Гуда.

ФАК Ю по фидоРастии - хохмы про Фидо.

БА ! Знакомые все РожЫ ! - интервью с легендарным ARS/Fatality, создателем белopусскoго ZX-Net'a.

А за базаР... - письмо от юзера из Иркутска.

Cкажи дядям "До свидания" - в связи с техническими вoпpoсaми, былo pешенo в 4й paз пеpеписaть oбoлoчку IMPULSЕ...


Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Список BBS - Список BBS. Открылась новая Creative Station.
Oт редакции - О работе сети SpbZxNet.
Ответ на вопрос - Конвертирование графики.
Scream - help: "описание оболочки screwdriver v0.0".
Подключение Vicommа к ZX-Spectrum'у.

В этот день...   30 ноября