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

Этюды - программа просмотра состояния памяти.



      Следующая программа позволяет просмотреть память в шестнадцатиричном
виде:
 10         ORG     40000
 20 BEG     LD      HL,(ADDR)
 30         LD      DE,16384
 40         LD      B,8
 50 LK      PUSH    DE
 60         LD      C,8
 70 LOOP    LD      A,(HL)
 80         PUSH    HL
 90         PUSH    BC
100         CALL    PRINT
110         POP     BC
120         POP     HL
130         INC     HL
140         INC     DE
150         DEC     C
160         JR      NZ,LOOP
170         POP     DE
180         LD      A,E
190         ADD     A,32
200         LD      E,A
210         DJNZ    LK
220         LD      (ADDR),HL
230         RET
240 PRINT   PUSH    AF
250         SRL     A
260         SRL     A
270         SRL     A
280         SRL     A
290         CALL    PR
300         POP     AF
310         AND     15
320 PR      PUSH    DE
330         ADD     A,A
340         ADD     A,A
350         ADD     A,A
360         LD      L,ADRL
370         ADD     A,L
380         LD      L,A
390         LD      H,ADRH
400         LD      B,8
410 LOK     LD      A,(HL)
420         LD      (DE),A
430         INC     D
440         INC     HL
450         DJNZ    LOK
460         POP     DE
470         INC     DE
480         RET
490 ADRL    EQU     0
500 ADRH    EQU     135
510 ADDR    DEFW    40000

    Действие этой процедуры можно продемонстрировать следующей программой:
10 RANDOMIZE USR 40000: PAUSE 0: GO TO 10
      Сначала надо сделать символьный набор, которым будет распечатываться
дамп. Это делается следующей программой:

100 LET S=135*256: FOR A=15744 TO 15823: POKE S,PEEK A: LET S=S+1: NEXT A                                                                               
110 FOR A=15880 TO 15928: POKE S,PEEK A: LET S=S+1: NEXT A                                                                               
   В этом случае в строках 490 и 500 останутся те числа, которые уже стоят там.

9C40: 2A 87 9C 11 00 40 06 08 :88
9C48: D5 0E 08 7E E5 C5 CD 63 :27
9C50: 9C C1 E1 23 13 0D 20 F3 :80
9C58: D1 7B C6 20 5F 10 E9 22 :A0
9C60: 87 9C C9 F5 CB 3F CB 3F :F1
9C68: CB 3F CB 3F CD 72 9C F1 :E4
9C70: E6 0F D5 87 87 87 2E 00 :99
9C78: 85 6F 26 87 06 08 7E 12 :53
9C80: 14 23 10 FA D1 13 C9 40 :4A
9C88: 9C 00 00 00 00 00 00 00 :C0



СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Наши новости - Новая версия оболочки газеты.
Others - Зарегистрированные пользователи ZXVGS и CPM22QED.
Our News - ARS/Fatality приезжает в Пермь, а Diver'а и Blak Groov'а забирают в армию...
Пословицы II - и так понятно.
Реклама - Реклама и объявления ...

В этот день...   29 марта