Adventurer
#05
30 ноября 1996 |
|
Oбмен опытом - Использование каналов в программах. Использование подпрограмм ПЗУ.
╔───────────────────────────────────────╗ │ ─── ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ ПЗУ ─── │ ╚───────────────────────────────────────╝ по книге 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. Вы затащились ? ──────────────────────
Другие статьи номера:
Похожие статьи:
В этот день... 21 ноября