Oбмен опытом - Использование каналов в программах. Использование подпрограмм ПЗУ.

<b>Oбмен опытом</b> - Использование каналов в программах. Использование подпрограмм ПЗУ.

╔───────────────────────────────────────╗
│ ─── ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ ПЗУ ─── │
╚───────────────────────────────────────╝

 по книге by Ian Logan & Dr Frank O'Hara
 "The Complete Spectrum ROM DISASSEMBLER"

     Когда-то очень давно, аж в 1991 году
в журнале "ZX-РЕВЮ" был опубликован  цикл
статей с описанием точек входа в подпрог-
раммы ПЗУ.  Однако,  это благое начинание
не  было  доведено до конца, и напечатаны
описания  подпрограмм  только  по   адрес
#1727. Т.к. в редакции появилась эта кни-
га, то мы решили сделать небольшой ее об-
зор  на  предмет  выявления  подпрограмм,
которыми есть смысл пользоваться для эко-
номии памяти в своих программах. Чтобы не
повторяться с другими изданиями, я освещу
только ранее неуказанные точки входа.

     В  начале  некоторых  процедур стоит

контроль  проверки  синтаксиса.   Поэтому
точки  входа в эти процедуры даны со сме-
щением.

CLEAR-PRB #0EDF
Очищается буфер принтера, устанавливаются
его системные переменные.

INDEXER #16DC
Поиск элемента в таблице. Если найден -
устанавливается  флаг  переноса.  Конец
таблицы - код #00.
вх:  HL - адрес начала таблицы
     C  - искомый байт
вых: HL - адрес найденного байта

NUMBER #18B9
Увеличить HL на 5, загрузить A по HL

RANDOMIZE #1E4F
вх:  BC - любое число
вых: BC - случайное число

FREE MEMORY #1F1A
вых: BC - количество свободной памяти

STK-FETCH #2BF1
Снимает 5 байт со стека калькулятора.
вых: A - первый байт
     E
     D      ...
     C
     B - пятый байт

ALPHANUM #2C8D
Устанавливает флаг C если в A цифра или
заглавная буква.

LOG (2^A) #2DC1
вх:  A - степень
вых: A - логарифм

A=10*A+C #2F8B
(портит только HL)
вых: A - результат
     C - если результат больше #FF, то
         старший байт, иначе = 0

HL=HL*DE #30A9

     В этом кратком обзоре совершенно  не
рассмотрены процедуры калькулятора.  Если
эта тема представляет интерес, напишите в
редакцию. Если вы полностью разобрались с
работой с калькулятором и можете привести
конкретные  примеры его практического ис-
пользования  и  готовы  поделиться  своим
опытом - пишите нам !

           ────────────────────── 

     А  теперь несколько подпрограмм, ко-
торые могут  пригодиться  при  разработке
ваших собственных программ.

Функция VAL x$ для десятичных чисел:
────────────────────────────────────
(перевод строки в число)
(вытащена из программы mon2)

       LD   DE,string-1; адрес строки-1
       CALL val_dec    ; переводим

;      HL = VAL "12345"

       ....

string DEFM "12345"

val_dec
       LD   HL,0
L1     INC  DE
       JR   NZ,L2
       CALL 11547
       CCF
       RET  NC
       PUSH DE
       LD   D,H
       LD   E,L
       ADD  HL,HL
       ADD  HL,HL
       ADD  HL,DE
       ADD  HL,HL
       LD   D,0
       SUB  48
       LD   E,A
       ADD  HL,DE  

       POP  DE
       JR   L1
       CP   97
       JR   C,L4
       SUB  32
L4     CP   48
       RET  C
       CP   71
       RET  NC
       SUB  48
       CP   10
       JR   C,L3
       SUB  7
       CP   10
       RET  C
L3     ADD  HL,HL
       ADD  HL,HL
       ADD  HL,HL
       ADD  HL,HL
       OR   A
       LD   L,A
       JR   L1   

Функция VAL x$ для HEX-чисел:
─────────────────────────────
(придумал я)

       LD   DE,string  ; адрес строки
       CALL val_dec    ; переводим

;      HL = VAL "1A"

       ....

string DEFM "1A"

val_hex
       PUSH AF      ;       *
       PUSH HL      ;       *
       LD   A,2     ;       *
       LD   B,A     ;       *
v_ch_h LD   A,(HL)  ;       *
       CP   48      ;       *
       JR   C,ex_vh ; <0    *
       CP   71      ;       *
       JR   NC,ex_vh; >="G" *
       CP   58      ;       *

       JR   C,con_  ; <=9   *
       CP   65      ;       *
       JR   C,ex_vh ; <"A"  *
con_   INC  HL      ;       *
       DJNZ v_ch_h  ;       *
       POP  HL      ;       *
       POP  AF      ;       *
       CALL conv
       OR   A
       RLA
       RLA
       RLA
       RLA
       PUSH AF
       INC  HL
       CALL conv
       OR   A
       POP  HL
       ADD  A,H
       RET
conv   LD   A,(HL)
       SUB  48
       CP   10
       RET  C  

       SUB  7
       RET
ex_vh  POP  HL      ;       *
       POP  AF      ;       *
       XOR  A       ;       *
       RET          ;       *

Строки, отмеченные "*" служат проверкой
шестнадцатиричное  это  число или нет и
их можно удалить при необходимости.

Печать байта в HEX-виде
───────────────────────
(вытащено из Monitor Turbo 90,
адрес #38C1)

вх:  A - число

HEX_BYT PUSH AF
        RRA
        RRA
        RRA
        RRA
        CALL OUT_H  

        POP  AF
OUT_H   AND  15
        CP   10
        JR   C,O_H1
        ADD  A,7
O_H1    ADD  A,48
        RST  16
        RET

     А  вы  знаете,  почему в большинстве
программ (особенно старых) ввод  и  вывод
осуществляется  в HEX-виде ?  Когда-то  я
думал, что это делается для "понта".  Все
оказалось гораздо проще : HEX-числа легче
обрабатывать. Сравните вышеуказанную про-
цедуру с подпрограммой  печати десятичных
чисел  (см.  точки  входа в ПЗУ #15EF или
#1A1B или #2DE3).

     Без сомнения, у многих наших читате-
лей при  написании  собственных  программ
бозникали  проблемы  с  обработкой ошибок
TR-DOS. Некоторые пишут дисковые драйвера
с использованием прямого программирования

ВГ-шки, другие идут обходным путем. Пред-
лагаю  вашему  вниманию дисковый драйвер,
использующий точку входа  #3D13 и обраба-
тывающий все ошибки самостоятельно.  Идея
драйвера  позаимствована  из  игры  "LAST
BATTLE".
    Oбращение к драйверу стандартное:

        LD   HL,куда
        LD   D,дорожка
        LD   E,сектор
        LD   B,количество секторов
        LD   C,код функции -
               (5-load, 6-save)
        CALL dos

    А вот и сам драйвер (слегка изменен):

dos     PUSH HL
        XOR  A
        LD   (23824),A  ; Сброс кодов
        LD   (23822),A  ; ошибки TR-DOS
        DEC  A          ; в ERR_NR код
        LD   (23610),A  ; "нет ошибки"

        LD   A,#C3      ; формируем по
        LD   (#5CC2),A  ; адресу #5CC2
        LD   HL,obr_er  ;   JP obr_er
        LD   (#5CC3),HL ;

        LD   HL,oth_err ; ERR_SP тоже на
        LD   (#5C3D),HL ; нашу процедуру

        POP  HL
        LD   (dos_sp),SP; сохраняем стек
                        ; для выхода по
                        ; ошибке
        CALL #3D13
        RET

dos_sp  DEFW 0
        DEFW 0       ; стек для выхода
        DEFW 0       ; по ошибке NO DISK
oth_err DEFW no_disk ; здесь адрес п/п
                     ; no_disk
no_disk
        LD   SP,#FFFF ; или на любое сво-
                      ; бодное место
; Сказать "НЕТ ДИСКА".

; Здесь ваши процедуры, которые этим
; занимаются, после чего...
        JP   abort

obr_er  POP  HL ; собственно процедура
        PUSH AF ; обработки ошибок типа
                ; READ/WRITE
        CALL #1F54    ; проверка нажатия
        JR   NC,break ; клавиши BREAK
        LD   A,H
        CP   13
        JR   NZ,obr1
        LD   A,L
        CP   #6B
        JR   Z,error
obr1
        LD   A,H
        CP   #1F
        JR   NZ,obr2
        LD   A,L
        CP   #54
        JR   Z,okay
obr2                 ; возникла ошибка
        POP  AF      ; не READ/WRITE

        PUSH HL      ; обычно "NO DISK"
        RET
okay
        POP  AF
        SCF          ; BREAK не нажата
        RET
break
; Сказать "Нажата BREAK"
; Здесь ваши процедуры...
abort
        LD   SP,(dos_sp) ; выходим из
        DEC  SP          ; драйвера
        DEC  SP
        RET
error
        POP  HL
        POP  HL
        POP  HL
        POP  HL
        POP  HL ; если L=#D8 -"Read only"
              ; иначе просто "Disk error"
; Сказать "Retry, Abort, Ignore"
; Здесь ваши процедуры...

retry   LD   HL,16276
        PUSH HL
ignore  JP   15664


     В процессе написания этой статьи ме-
ня посетила мысль :  а почему бы в рамках
раздела  "ОБМЕН ОПЫТОМ" не открыть рубри-
ку, подобную "ЭТЮДЫ"  в  "ZX-РЕВЮ" ?   Мы
могли бы все вместе создать неплохой банк
подпрограмм, которые сберегли  бы  немало
времени и нервов как начинающему  хакеру,
так и программисту со стажем. А в выигры-
ше будут все пользователи SPECCY.
     Если вам  понравилась моя мысль и вы
готовы поддержать  это начинание - пишите
к нам в редакцию.

           ────────────────────── 

     А теперь - прикол. Наберите (не ини-
циализируя TR-DOS):

1   PRINT 1
30  PRINT 30
POKE 23756,90
100 PRINT 100
45  PRINT 45

Как вам картинка на экране ?  Но  это еще
не все. Дайте команды:

      RUN, GOTO 45, GOTO 90, GOTO 30.

              Вы затащились ?

           ──────────────────────