ZX-Ревю 1996 №7-8 1995 г.

Этюды - индикатор уровня.


    Сергей Русеев из с. Ленинское прислал несколько программ.
    КОРР: Так как у меня "Пентагон 128" с AY, то я не мог пройти эту тему 
вниманием, и сделал очередной индикатор уровня:

          ORG 40000
          LD HL,23290
          LD A,8
          LD E,3       ;цвет полоски индикатора
          CALL KANAL
          LD HL,23291
          LD A,9
          LD E,5
          CALL KANAL
          LD HL,23292
          LD A,10
          LD E,7
          CALL KANAL
          RET
KANAL     LD BC,#FFFD
          OUT (C),A
          LD A,#3D
          LD (MODE),A
          IN A,(C)
          AND 15
          LD B,16
LOOP      CP 0
          CALL Z,STIR
LAB1      LD (HL),E
          PUSH DE
          LD DE,32
          SBC HL,DE
          POP DE
MODE      DEC A
          DJNZ LOOP
          RET
STIR      XOR A
          LD (MODE),A
          LD E,0       ;цвет стирания
          RET

    Для демонстрации этой программы можно использовать следующий BASIC-блок:

  10 INK 7: PAPER 0: BORDER 0: C
LEAR 39999: RANDOMIZE USR 15619:
 REM : LOAD "ind_ay"CODE
  15 INPUT "FILENAME "; LINE A$
  16 INPUT "ADRES "; LINE D$: IF
 D$="" THEN LET ADR=49152: GO TO
 20
  17 LET ADR=VAL D$
  20 RANDOMIZE USR 15619: REM :
LOAD A$CODE ADR
  30 INPUT "INIT "; LINE I$: IF
I$="" THEN LET INIT=49163: GO TO
 32
  31 LET INIT=VAL I$
  32 INPUT "NEXT "; LINE N$: IF
N$="" THEN LET NEXT=49166: GO TO
 40
  33 LET NEXT=VAL N$
  40 RESTORE 90: FOR N=0 TO 7: R
EAD A: POKE USR "A"+N,A: NEXT N
  50 FOR Y=8 TO 21: PRINT AT Y,2
6;"AAA": PRINT #0;AT 0,26;"AAA";
AT 1,26;"AAA"
  60 RANDOMIZE USR INIT
  70 RANDOMIZE USR NEXT: PAUSE 1
: RANDOMIZE USR 40000: IF INKEY$
="" THEN GO TO 70
  80 RANDOMIZE USR INIT
  90 DATA 238,238,2388,0,238,238
,238,0



СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



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

Похожие статьи:
Анкетирование - 11 вопросов первичного анкетирования.
Психология - Является ли число секретным кодом судьбы ?
Железо - меня спек с писишным блоком питания. честно сказать, шум его вентилятора меня порядком достал.
ZX-Обоз - Обзор электронной прессы: Plutonium 10, Nicron 105, C-Net Week n18.
Credits - создатели газеты.

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