Think #18
09 августа 1998
  Звук  

Ассемблер - Индикатор - мерцающие полоски.

              ╔═══════════╗
              ║ АССЕМБЛЕР ║
              ╚═══════════╝

ИНДИКАТОР - МЕРЦАЮЩИЕ ПОЛОСКИ.
  



      .      .     .      .     .
        ORG     50000
        LD      (LC5F2+1),SP
        LD      BC,#FFFD     ┌────────────
        LD      D,8          │  исходный
        OUT     (C),D        │текст проце-
        IN      A,(C)        │дуры записан
        AND     #0F          │после  этого
        LD      E,A          │номера газе-
        SRL     A            │ты..........
        LD      (LC555+1),A  └────────────
        LD      SP,#5AA8
        LD      L,A
        LD      H,A
        PUSH    HL
        PUSH    HL
        LD      H,0
        LD      L,E
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      D,0
        LD      E,L
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,LA06E
        ADD     HL,DE
        LD      SP,HL
        POP     HL
        LD      (#51A4),HL
        POP     HL
        LD      (#51A6),HL
        POP     HL
        LD      (#52A4),HL
        POP     HL
        LD      (#52A6),HL
        POP     HL
        LD      (#53A4),HL
        POP     HL
        LD      (#53A6),HL
        POP     HL
        LD      (#54A4),HL
        POP     HL
        LD      (#54A6),HL
        POP     HL
        LD      (#55A4),HL
        POP     HL
        LD      (#55A6),HL
        POP     HL
        LD      (#56A4),HL
        POP     HL
        LD      (#56A6),HL
        LD      D,9
        OUT     (C),D
        IN      A,(C)
        AND     #0F
        LD      E,A
        SRL     A
        LD      (LC557+1),A
        LD      SP,#5AB2
        LD      L,A
        LD      H,A
        PUSH    HL
        PUSH    HL
        LD      H,0
        LD      L,E
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      D,0
        LD      E,L
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,LA06E
        ADD     HL,DE
        LD      SP,HL
        POP     HL
        LD      (#51AE),HL
        POP     HL
        LD      (#51B0),HL
        POP     HL
        LD      (#52AE),HL
        POP     HL
        LD      (#52B0),HL
        POP     HL
        LD      (#53AE),HL
        POP     HL
        LD      (#53B0),HL
        POP     HL
        LD      (#54AE),HL
        POP     HL
        LD      (#54B0),HL
        POP     HL
        LD      (#55AE),HL
        POP     HL
        LD      (#55B0),HL
        POP     HL
        LD      (#56AE),HL
        POP     HL
        LD      (#56B0),HL
        LD      D,#0A
        OUT     (C),D
        IN      A,(C)
        AND     #0F
        LD      E,A
        SRL     A
        LD      (LC5A5+1),A
        LD      SP,#5ABC
        LD      L,A
        LD      H,A
        PUSH    HL
        PUSH    HL
        LD      H,0
        LD      L,E
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      D,0
        LD      E,L
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,LA06E
        ADD     HL,DE
        LD      SP,HL
        POP     HL
        LD      (#51B8),HL
        POP     HL
        LD      (#51BA),HL
        POP     HL
        LD      (#52B8),HL
        POP     HL
        LD      (#52BA),HL
        POP     HL
        LD      (#53B8),HL
        POP     HL
        LD      (#53BA),HL
        POP     HL
        LD      (#54B8),HL
        POP     HL
        LD      (#54BA),HL
        POP     HL
        LD      (#55B8),HL
        POP     HL
        LD      (#55BA),HL
        POP     HL
        LD      (#56B8),HL
        POP     HL
        LD      (#56BA),HL
LC555   LD      A,0
LC557   LD      B,5
        LD      C,B
        ADD     A,B
        LD      E,A
        SRL     A
        LD      SP,#5AAD
        LD      L,A
        LD      H,A
        PUSH    HL
        PUSH    HL
        LD      H,0
        LD      L,E
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      D,0
        LD      E,L
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,LA06E
        ADD     HL,DE
        LD      SP,HL
        POP     HL
        LD      (#51A9),HL
        POP     HL
        LD      (#51AB),HL
        POP     HL
        LD      (#52A9),HL
        POP     HL
        LD      (#52AB),HL
        POP     HL
        LD      (#53A9),HL
        POP     HL
        LD      (#53AB),HL
        POP     HL
        LD      (#54A9),HL
        POP     HL
        LD      (#54AB),HL
        POP     HL
        LD      (#55A9),HL
        POP     HL
        LD      (#55AB),HL
        POP     HL
        LD      (#56A9),HL
        POP     HL
        LD      (#56AB),HL
LC5A5   LD      A,7
        ADD     A,C
        LD      E,A
        SRL     A
        LD      SP,#5AB7
        LD      L,A
        LD      H,A
        PUSH    HL
        PUSH    HL
        LD      H,0
        LD      L,E
        ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      D,0
        LD      E,L
        ADD     HL,HL
        ADD     HL,DE
        LD      DE,LA06E
        ADD     HL,DE
        LD      SP,HL
        POP     HL
        LD      (#51B3),HL
        POP     HL
        LD      (#51B5),HL
        POP     HL
        LD      (#52B3),HL
        POP     HL
        LD      (#52B5),HL
        POP     HL
        LD      (#53B3),HL
        POP     HL
        LD      (#53B5),HL
        POP     HL
        LD      (#54B3),HL
        POP     HL
        LD      (#54B5),HL
        POP     HL
        LD      (#55B3),HL
        POP     HL
        LD      (#55B5),HL
        POP     HL
        LD      (#56B3),HL
        POP     HL
        LD      (#56B5),HL
LC5F2   LD      SP,#6190
        RET

LA06E  DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0
       DEFB 0,0,0,0,0,0,0,0,0,0,0,1,#80
       DEFB 0,0,1,#80,0,0,1,#80,0,0,1,#80
       DEFB 0,0,1,#80,0,0,1,#80,0,0,3,#C0
       DEFB 0,0,3,#C0,0,0,3,#C0,0,0,3,#C0
       DEFB 0,0,3,#C0,0,0,3,#C0,0,0,7,#E0
       DEFB 0,0,7,#E0,0,0,7,#E0,0,0,7,#E0
       DEFB 0,0,7,#E0,0,0,7,#E0,0,0,15,#F0
       DEFB 0,0,15,#F0,0,0,15,#F0,0,0,15
       DEFB #F0,0,0,15,#F0,0,0,15,#F0,0,0
       DEFB #1F,#F8,0,0,#1F,#F8,0,0,#1F
       DEFB #F8,0,0,#1F,#F8,0,0,#1F,#F8,0
       DEFB 0,#1F,#F8,0,0,63,#FC,0,0,63
       DEFB #FC,0,0,63,#FC,0,0,63,#FC,0,0
       DEFB 63,#FC,0,0,63,#FC,0,0,"",#FE
       DEFB 0,0,"",#FE,0,0,"",#FE,0,0
       DEFB "",#FE,0,0,"",#FE,0,0,""
       DEFB #FE,0,0,#FF,#FF,0,0,#FF,#FF,0
       DEFB 0,#FF,#FF,0,0,#FF,#FF,0,0,#FF
       DEFB #FF,0,0,#FF,#FF,0,1,#FF,#FF
       DEFB #80,1,#FF,#FF,#80,1,#FF,#FF
       DEFB #80,1,#FF,#FF,#80,1,#FF,#FF
       DEFB #80,1,#FF,#FF,#80,3,#FF,#FF
       DEFB #C0,3,#FF,#FF,#C0,3,#FF,#FF
       DEFB #C0,3,#FF,#FF,#C0,3,#FF,#FF
       DEFB #C0,3,#FF,#FF,#C0,7,#FF,#FF
       DEFB #E0,7,#FF,#FF,#E0,7,#FF,#FF
       DEFB #E0,7,#FF,#FF,#E0,7,#FF,#FF
       DEFB #E0,7,#FF,#FF,#E0,15,#FF,#FF
       DEFB #F0,15,#FF,#FF,#F0,15,#FF,#FF
       DEFB #F0,15,#FF,#FF,#F0,15,#FF,#FF
       DEFB #F0,15,#FF,#FF,#F0,#1F,#FF,#FF
       DEFB #F8,#1F,#FF,#FF,#F8,#1F,#FF
       DEFB #FF,#F8,#1F,#FF,#FF,#F8,#1F
       DEFB #FF,#FF,#F8,#1F,#FF,#FF,#F8,63
       DEFB #FF,#FF,#FC,63,#FF,#FF,#FC,63
       DEFB #FF,#FF,#FC,63,#FF,#FF,#FC,63
       DEFB #FF,#FF,#FC,63,#FF,#FF,#FC,""
       DEFB #FF,#FF,#FE,"",#FF,#FF,#FE
       DEFB "",#FF,#FF,#FE,"",#FF,#FF
       DEFB #FE,"",#FF,#FF,#FE,"",#FF
       DEFB #FF,#FE,0,0,0,0,0,0,0,0,0,0,0
       DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
       DEFB #80,0,0,1,#80,0,0,1,#80,0,0,1
       DEFB #80,0,0,1,#80,0,0,1,#80,0,0,3
       DEFB #C0,0,0,2,"@",0,0,2,"@",0,0,2
       DEFB "@",0,0,2,"@",0,0,3,#C0,0,0,7
       DEFB #E0,0,0,4,32,0,0,4,32,0,0,4,32
       DEFB 0,0,4,32,0,0,7,#E0,0,0,15,#F0
       DEFB 0,0,8,#10,0,0,8,#10,0,0,8,#10
       DEFB 0,0,8,#10,0,0,15,#F0,0,0,#1F
       DEFB #F8,0,0,#10,#08,0,0,0,0,0
       DEFB 0,0,0,0,0,0



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

От автора - День рождения газеты !!!

Проходилка - Seymour Take One!

Архив - Kokotoni Wilf, Lode Runner, Chuckie Egg.

Ассемблер - Индикатор - мерцающие полоски.

Обзор новинок - Fast Breed, Crime Santa Clause (demo), Puzzle.

Знай наших - Фотография редактора газеты.

Школьные наблюдизмы - Школьный юмор.

Веселый Гиннес - Забавные рекорды.

Фенечки - говорят дети.

Анекдоты - Юмор.

Комикс - Комикс про кота Кешу.

Поздравления - Поздравления для редакции газеты.

WANTED - Розыск программ...

Реклама - Реклама и объявления ...


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

Похожие статьи:
Тайная религия - Обнаженный, Бонд вышел в коридор и разорвал несколько упаковок...
Музобоз - Итоги первого конкурса на лучшую демонстрацию.
Что-где-почем - в Центpальном Унивеpмаге на тpетьем этаже откpылась новая секция pадиотоваpов.

В этот день...   16 июля