ZX Review
#11-12
26 ноября 1997 |
|
Читатель-читателю - Драйвер ввода в режимах последовательного и прямого доступа из файлов системы TR-DOS.
┌──────────────────────────────┐ │ │ │ ЧИТАТЕЛЬ - ЧИТАТЕЛЮ │ │ │ └──────────────────────────────┘ Music by ZET and MITCHELL Борис Курицын, 257010 Черкассы, а/я 1529 ДРАЙВЕР ВВОДА В РЕЖИМАХ ПОСЛЕДОВАТЕЛЬНОГО И ПРЯМОГО ДОСТУПА ИЗ ФАЙЛОВ СИСТЕМЫ TR-DOS Автор написал этот драйвер (вернее, его первую часть) как базовый элемент компилятора язы- ка высокого уровня, разработкой которого занимается инициативная группа из Черкасс. Но он являет- ся совершенно автономной прог- раммой, которую напрямую могут использовать те, кто пишет на ассемблере, а через разработан- ный расширитель Бейсика - и те, кто программирует на Бейсике. Кроме того, анализ ее позна- комит читателя с программирова- нием драйверов, работой каналов и потоков, принципами написания расширителей Бейсика, основами синтаксического анализа, с мето- дами расширения множества ошибок Бейсика. В чем цель написания этого драйвера? Есть класс программ, которые одновременно должны ра- ботать с большим количеством файлов (и по вводу, и по выводу) и сами при этом занимают доста- точный объем памяти, так что об одновременной загрузке всех тре- буемых файлов не может быть и речи. Открывая системный поток на каждый файл, они могут рабо- тать через этот драйвер даже с 10 файлами длиной, скажем, по 60 Кб одновременно, при расходе па- мяти около 290 байт на файл. По функциям драйвер близок к опера- торам TR DOS для работы с файла- ми прямого/последовательного до- ступа, но работает с CODE-файлом и с аналогичными файлами с не- стандартными типами. Кроме того, как показал "отец всех программистов" Никлаус Вирт (автор языков Паскаль, Модула- 2), программа тогда проста, кор- ректна и надежна, когда СТРУКТУ- РА ПРОГРАММЫ СООТВЕТСТВУЕТ СТРУ- КТУРЕ ДАННЫХ. Чтобы реализовать этот прин- цип, нужны соответствующие сред- ства. Одним из них и является этот драйвер, поскольку он поз- воляет программе работать только с "абстрактным" аспектом данных, т.е. в терминах "символ", "пози- ция считывания". Сначала о технических момен- тах. Автор предпочитает ассем- блер ZX Turbo Assembler v.2.4, и листинг приведен в его формате. Надеюсь, у пользователей других ассемблеров не возникнет проблем с переносом текстов программ. Автор при написании программ использует два вспомогательных модуля: модуль доступа к TR DOS и модуль перехвата системных ошибок. Модуль TR DOS очень прост. Это аналог системного вызова #3D13, который ошибки TR DOS преобразует в исключения (вызо- вы RST 8) с кодами 100-112, что избавляет от необходимости каж- дый раз проверять код ошибки системы. Кроме того, сам вызов делается через вектор (dosVec- tor), что позволяет "навешивать" на вызов TR DOS дополнительные функции прямо во время работы программы заменой значения dos- Vector на адрес своего дополни- тельного обработчика. 140. ; **************************************** ; * * ; * Вызов системных функций TR-DOS v5.0x * ; * * 3; * (c) Б. Курицын, июнь 1996 * ; * * ; * Файл: dosapi.a * ; * Формат файла: ZX TASM * ; * * ; **************************************** ; исключение "ошибка TR-DOS" excDosError equ 99 ; ошибки TR-DOS dNoFile equ 1 dFileExists equ 2 dNoSpace equ 3 dDirFull equ 4 dRecOF equ 5 dNoDisk equ 6 dStrmOpened equ 10 dNotDskFile equ 11 dVfyError equ 13 dos db #c3 ; это jp (dosVector) dosVector dw dosIntr ; вызов интерпретатора функций DOS dosIntr push af ld a,c ld (_fncNo),a xor a ld (23823),a ld (23824),a pop af call #3d13 push af ld a,(_fncNo) cp #a ; если исполнялась функция 10 (поиск файла), код jr z,dosOk ; возврата - это не код ошибки ld a,(23823) or a jr z,dosOk ; если была ошибка, инициировать исключение ; инициация исключения DOS dosError add a,excDosError ld (_errNo),a rst 8 _errNo db 0 _fncNo db 0 dosOk pop af ret 2 Интересующиеся обработкой ис- ключений могут обратиться к ста- тье [1]. Здесь же скажу крат- ко: исключения - это чрезвычайно удобная технология программи- рования, которая позволяет осу- ществлять неявные переходы к об- работке ошибок или исключитель- ных ситуаций без необходимости постоянных проверок флагов, ко- дов возврата и т.п. При этом обеспечивается сохранение состо- яния некоторых элементов системы и программы (как минимум, сте- ка). Приведенный ниже модуль поддерживает многоуровневую об- работку исключений с возможно- стью динамического изменения множества сохраняемых элементов и обработчика исключений. Интересующиеся могут просто проанализировать текст програм- мы. Кратко же можно сказать так: если в начале какой-либо прог- раммы вызвать try (см. листинг) с указанием адреса вашей под- программы обработки ошибок, то, в случае вызова RST 8 где-либо внутри программы, управление пе- редастся на ваш обработчик. Об- работчик должен, первым делом, вызвать endTry для восстановле- ния стека и снятия себя же. Тот же вызов должен делаться перед командой RET программы. 140. ; **************************************** ; * Exceptions handle * ; * Обработка исключений * 3; * (c) 1994-96 Б. Курицын * 3; * версия: 2.0 от 18/06/96 * ; * файл: except.a * ; **************************************** err_SP equ 23613 ; ---------- Внешние обращения ---------- try db #C3 ;это JP (tryAd) tryAd dw mark endTry db #C3 eTryAd dw unmark ; Продолжить текущее исключение ; (вызов только из обработчика исключения командой JP) ; новое исключение, код в A putErr ld (iy),a ; то же исключение contErr ld sp,(err_SP) ret ;Изменить маркировку стека ;вход: @HL-новый обработчик Try, @DE-новый обработчик EndTry ;выход:@HL-старый обработчик Try, @DE-старый обработчик EndTry chMarking ld bc,(tryAd) ld (tryAd),hl ld h,b ld l,c ld bc,(eTryAd) ld (eTryAd),de ld d,b ld e,c ret ; ------------ РЕАЛИЗАЦИЯ ------------ ; Маркировать стек, вход: @DE-обработчик исключений ; разрушаются: HL,IX mark POP IX LD HL,(err_SP) PUSH HL PUSH DE LD (err_SP),SP JP (IX) ; Демаркировать стек, разрушаются: HL,IX unmark POP IX LD SP,(err_SP) POP HL POP HL LD (err_SP),HL JP (IX) 2 Необходимо оговориться, что те, кто не знает, что такое "ка- нал" и "поток", перед продолже- нием чтения этой статьи должны почитать главу по каналам и по- токам в знаменитом трехтомнике Инфоркома по программированию в машинных кодах для ZX Spectrum или приложение к инструкции пользователя по текстовому реда- ктору BK Write, распостраняемому автором. А теперь о самом драйвере. Какой набор функций он должен выполнять? Во-первых, это откры- тие файла: создание канала, свя- занного с файлом, и подключение какого-либо потока к этому ка- налу. Во-вторых, драйвер должен позволять считывать байты файла не только последовательно, но и переставлять указатель считыва- ния сразу на любую позицию в файле. В-третьих, это закрытие файла: разрушение канала, зак- рытие потока. А как же, соб- ственно, ввод информации, спро- сите Вы? А очень просто - сис- темной процедурой WaitKey (адрес #15D4). Далее мы рассмотрим ком- ментированный текст драйвера (примечание: в драйвере есть моменты, связанные с выводом в файл - эта часть драйвера еще не закончена, кроме того, включить ее в статью не представляется возможным из-за большого объе- ма). Сразу же обратимся к основ- ной идее драйвера: нужно выдать байт файла, смещение которого в файле определяется текущей пози- цией. Позиция может быть произ- вольно изменена в любой момент. При считывании байта указатель позиции перемещается на следую- щий байт. При попытке считать что-либо за концом файла генери- руется соответствующее исключе- ние. Для реализации этого в ракор- де канала предусмотрено место для одного сектора файла. В лю- бой момент в этот буфер загружен сектор, соответствующий текущей позиции в файле. При любом изме- нении позиции номер сектора кон- тролируется, и, если надо, сек- тор перегружается. 140. ; **************************************** ; * * ; * DISK STREAMABLE I/O DRIVER v1.05 * ; * * ; * Драйвер потокового ввода/вывода * ; * в/из файлов TR-DOS. * ; * * 3; * (c) Б. Курицын, июнь 1996 * ; * * ; * Файл: stream.a * ; * Формат файла: ZX Turbo Assembler * ; **************************************** include "dosapi.a" ; длина сектора sectLen equ 256 ; системные переменные chans equ 23631 ; указатель на область каналов curChl equ 23633 ; указатель на текущий канал prog equ 23635 ; указатель на программу (за конец области каналов) ; системные переменные TR-DOS dfDrive equ #5d19 ;дисковод по умолчанию searchCh equ 23814 ;кол-во символов для поиска имени ; системные прoцедуры, подробности относительно процедур смотри в [2] makeRoom equ #1655 reclaim2 equ #19E8 strData equ #171E+3 chOpen equ #1601 callJp equ #162C ; Канал ввода и вывода имеет имя "F", чтобы их можно было разли- чать, ; устанавливаются сигнатуры ракордов: readSign equ #5678 writeSign equ #6789 ; генерация исключений invStream rst 8 db 23 ; "неверно используется поток" invFileName rst 8 db 14 ; "неправильное имя файла" invDevice rst 8 db 18 ; "неправильное устройство" endOfFile rst 8 db 7 ; "конец файла" ; смещения в ракорде; относительно аналогов структуры ракорда смотри [3] oPrint equ 0 ; адрес процедуры вывода oInput equ 2 ; адрес процедуры ввода oName equ 4 ; имя канала oSign equ 5 ; сигнатура канала oClose equ 7 ; адрес процедуры закрытия файла oLength equ 9 ; длина ракорда oIntern equ 11 ; дополнительная информация ; образ ракорда канала для чтения readRecord DW invStream DW inputIn DB "F" DW readSign, noOp DW 30+sectLen; длина ракорда DB 0; устройство (смещение oIntern+0) DB " C" DS 7; элемент каталога (...+1) DW #FFFF; позиция в файле (...+17) ;здесь: DS sectLen - буфер сектора файла (...+19) rdRecLen equ $-readRecord+sectLen ; Процедура ввода символа из файла; очередной байт файла возвращается ; в A. Байт возвращается всегда, поэтому состояния INKEY$#5 = "" ; не бывает. inputIn ld ix,(curChl) ; адрес ракорда ld l,(ix+oIntern+17) ; текущая позиция в файле ld h,(ix+oIntern+18) ld c,l ld b,0 add ix,bc ld a,(ix+oIntern+19) ; выборка байта из текущего сектора scf ; флаг: байт получен с устройства push af inc hl call _seekRead ; переход на следующую позицию pop af noOp ret ;Позиционирование в текущем файле для чтения ;вход: HL-позиция ;---внешняя версия; проверяет, что текущий канал -- F и он открыт ; для чтения, если нет - неверный поток) seekRead push hl call testChl ld l,(ix+oSign) ld h,(ix+oSign+1) ld bc,readSign and a sbc hl,bc jp nz,invStream pop hl ;---внутренняя версия _seekRead ld ix,(curChl) ;проверить, не достигнут ли конец файла ld c,l ld b,h ld e,(ix+oIntern+12) ; сравнить с длиной файла ld d,(ix+oIntern+13) and a sbc hl,de ;позиция точно за последним байтом файла, буфер не перегру- жается jr z,atEOF jp nc,endOfFile ;установить новую позицию ld a,b cp (ix+oIntern+18) ; в этом же секторе? atEOF ld (ix+oIntern+17),c ld (ix+oIntern+18),b ret z ; да - заканчиваем ; нет - новая позиция соответствует байту из другого сектора файла, ; загрузить новый сектор в буфер ld l,(ix+oIntern+15) ld h,(ix+oIntern+16) ; позиция начала файла на диске call makeLog ; преобразование в логический сектор ld e,b ld d,0 add hl,de ; это логический номер сектора, который нужно загрузить call makePhis ; обратное преобразование ex de,hl push ix pop hl ld bc,oIntern+19 add hl,bc push hl push de ld a,(ix+oIntern) ld c,1 call dos ; выбор дисковода pop de pop hl ld bc,#105 ; загрузка сектора jp dos ; Преобразовать параметры "сектор L - дорожка H" в "логический сектор HL" ; ЗАМЕЧАНИЕ: преобразование в "логический сектор" позволяет легко ; рассчитывать положение сектора на диске, так как логические сектора ; можно складывать и отнимать как обычные числа. ; Формула преобразования: лог. сектор = дорожка * 16 + сектор makeLog xor a 140. srl h rr a srl h rr a srl h rr a srl h rr a or l ld l,a ret ; Преобразовать параметры "логический сектор HL" в "сектор L - дорожка H" makePhis ld a,l sla a rl h sla a rl h sla a rl h sla a rl h ld a,#F and l ld l,a ret ;Тип файла для открытия; изменяя это значение перед вызовом openRead, ;можно открывать нестандартные файлы fileType db "C" ; Открытие файла для чтения; ; вход: ; A-номер потока, @DE/BC- строка имени (как обычно: адрес DE, длина BC) ; Указанный поток будет открыт на файл. openRead exx ld (stream),a ; проверяем, что указанный поток закрыт call strData ld a,b or c ld a,dStrmOpened ; если нет - ошибка DOS "поток уже открыт" jp nz,dosError call newRdRecord ; создаем ракорд канала ld (record),hl push hl exx pop hl call parseName ; синтаксический разбор имени ld hl,(record) inc hl ld bc,(chans) ; находим смещение ракорда в (Chans)... and a sbc hl,bc push hl ld a,(stream) call strData pop bc ld (hl),c ; ...и открываем затребованный поток на канал inc hl ld (hl),b ld ix,(record) ld a,(ix+oIntern) ld c,1 call dos ; выбор дисковода ld c,#18 call dos ; настройка на дискету ld hl,(record) ld bc,oIntern+1 add hl,bc push hl ld c,#13 call dos ld hl,searchCh ld (hl),9 ld c,#a call dos ; поиск файла, который открываем bit 7,c jr nz,noFile ; если файла нет - все вернуть в исходное состояние ld a,c ld c,8 call dos ; если файл есть, получаем его элемент каталога pop hl ld c,#14 call dos ; и копируем его в ракорд канала ld a,(stream) call chOpen ld hl,0 jp _seekRead ; устанавливаем позицию на начало файла ; при отсутствии файла все возвращается в начальное состояние noFile ld ix,(record) call freeRecord ; удаляем ракорд канала ld a,(stream) call strData ld (hl),0 ; закрываем поток inc hl ld (hl),0 ld a,dNoFile ; выдаем ошибку DOS "нет такого файла" jp dosError stream db 0 record dw 0 ; Синтаксический анализ имени файла ; в виде "[дисковод:]имя". Если дисковод не указан, берется дисковод по ; умолчанию. Имя и дисковод переносятся в область oIntern ракорда. ; вход: HL-адрес ракорда открываемого канала, @DE/BC- строка имени parseName push hl pop ix ld a,b ; пустая строка имени - ошибка or c jp z,invFileName ld a,(dfDrive) ; пока что дисковод по умолчанию ld (ix+oIntern),a ld a,(fileType) ; устанавливаем тип файла ld (ix+oIntern+9),a ld hl,-3 ; имя длинее трех символов? and a adc hl,bc jp m,nameOnly ; нет - значит, дисковод в имени точно не указан inc de ; проверяем относительно дисковода... ld a,(de) dec de cp ":" ; если второй символ - двоеточие... jr nz,nameOnly ld a,(de) ;...то первый - дисковод res 5,a ; приводим к верхнему регистру sub "A" ; отделяем правильные имена: A,B,C,D. jp c,invDevice cp 4 jp nc,invDevice ld (ix+oIntern),a ; дисковод найден и установлен в ракорде inc de ; смещаемся к имени... (+2 символа) inc de dec bc dec bc nameOnly ld a,b or a jp nz,invFileName ld a,c ; если имя длинее 8 символов - ошибка cp 9 jp nc,invFileName ld b,c ; если все в порядке - копируем имя в ракорд copyName ld a,(de) inc de ld (ix+oIntern+1),a inc ix djnz copyName ret ; Создание ракорда канала чтения ; выход: HL-адрес созданного ракорда newRdRecord ld hl,(prog) ; в конце области Chans... dec hl ld bc,rdRecLen ; ...выделяем память для ракорда... call makeRoom inc hl push hl ex de,hl ld hl,readRecord ; ...и копируем туда образ ракорда ld bc,rdRecLen-sectLen ldir pop hl ret ; Удаление ракорда канала чтения/записи ; вход: IX-адрес ракорда freeRecord ld c,(ix+oLength) ; из ракорда получаем его длину... ld b,(ix+oLength+1) ld (recLen),bc push ix pop hl jp reclaim2 ; ...и освобождаем область, им занимаемую recLen dw 0 ; Проверить, что текущий канал - это канал "F" ; выход: IX=(curChl) testChl ld ix,(curChl) ; если имя текущего канала... ld a,"F" cp (ix+oName) ; ...не "F"... ld a,dNotDskFile jp nz,dosError ; ...то ошибка DOS "не дисковый файл" ret ; Закрыть файл чтения/записи потока A close push af call chOpen ; делаем канал текущим call testChl ; проверим, что этот поток связан с нашим каналом ;выполнить процедуру закрытия канала ld l,(ix+oClose) ld h,(ix+oClose+1) call callJp ; переход к исполнению ;освободить память ld ix,(curChl) call freeRecord ; удаляем текущий канал из памяти ;закрыть поток pop af call strData ld (hl),0 ; значение 0 - поток закрыт inc hl ld (hl),0 ; Скорректировать переменные Streams для потоков 0-15. ; Дело в том, что после открытия этого канала могли быть открыты и ; другие. Их ракорды расположены в памяти после нашего ракорда. ; С удалением нашего ракорда смещения в области Streams на указанные ; каналы стали недействительными, и их нужно скорректировать на ; значение длины удаленного ракорда. ld d,b ; смещение на уже удаленный ракорд ld e,c ld b,16 ; просматриваем 16 потоков strmLoop push bc ld a,b dec a call strData ; выбираем значение для потока push hl pop ix ld h,d ld l,e and a sbc hl,bc ; если его смещение не больше нашего... jr nc,noCorrt ; ...корректировка не требуется ld h,b ld l,c ld bc,(recLen) ; иначе уменьшаем смещение на длину ракорда and a sbc hl,bc ld (ix),l ; и сохраняем ld (ix+1),h noCorrt pop bc djnz strmLoop ; цикл для всех потоков ret 2 Итак, драйвер написан. А как его использовать? Элементарно. Сначала какой-либо свободный по- ток (скажем, #5) открываем на файл: 140. org 60000 jp start include "stream.a" ; включение драйвера... include "except.a" ; ...и обработки исключений name db "textfile" ; определение имени файла... nameLen equ $-name ; ...и его длины start ld de, name ld bc, nameLen ld a, 5 call openRead 2 Файл открыт. Теперь, напри- мер, напечатаем его на экране. Будем посимвольно считывать файл и передавать байты каналу "S". Поскольку процесс закончится ис- ключением "конец файла", перех- ватываем исключения: 140. ld de, endOfPrint ; адрес обработчика call try 2 Теперь можно выводить файл в "бесконечном" цикле. 140. waitKey equ #15D4 process ld a, 5 ; поток файла call chOpen ; chOpen = #1601 call waitKey ; вводим символ push af ld a,2 ; поток экрана call chOpen pop af rst 16 ; выводим символ jr process 2 По окончании файла или по другому исключению управление будет передано сюда: 140. endOfPrint call endTry ; снимаем обработчик ld a, 7 cp (iy) ; текущая ошибка - это "конец файла"? jp nz, contErr ; если нет - продолжаем ее распостранение ; да - все в порядке, вывод закончен ld a, 5 call close ; закрываем дисковый файл ret 2 А как же с Бейсиком? Хотелось бы иметь возможность открывать файлы прямо операторами Бейсика. Нет ничего проще. Приведен- ный ниже интерфейс Бейсика к драйверу реализует это и еще кое-что: он преобразует новые ДОСовские исключения в новые ошибки Бейсика, которые выводят- ся так же, как и обычные. Кроме того, он выводит статус потоков системы на экран или в любой другой поток. Новые операторы Бейсика выглядят так: LET d=64000 REM открытие <потока> на файл <имя_файла> RANDOMIZE USR d: OPEN #поток, имя_файла$ REM закрытие дискового файла, связанного с <потоком> RANDOMIZE USR d: CLOSE #поток REM переход к <позиции> в файле, связанном с <потоком> PRINT #поток; :RANDOMIZE USR d: GO TO позиция REM вывод информации о состоянии потоков в <поток> REM для вывода на экран поток = 2 RANDOMIZE USR d: LIST #поток Небольшое замечание относи- тельно оператора GO TO: опе- ратор PRINT, который Вы видите впереди, только делает поток те- кущим, так как GO TO работает с текущим потоком. Обратите внима- ние на ";" в конце оператора PRINT. Оператор LIST выводит список всех открытых потоков с указа- нием каналов, на которые они от- крыты. Непосредственно ввод из фай- ла осуществляется обычным обра- зом: оператором INPUT #поток; симв_переменная$ для ввода строки символов или оператором LET симв_переменная$ = INKEY$ #поток для ввода одного символа Второй способ предпочтитель- нее, так как в системе ZX Spec- trum есть такая особенность: предполагается, что оператором INPUT данные вводятся только из потоков, связанных с клавиату- рой, и звук клавиатуры обрабаты- вается в операторе INPUT. Поэто- му при вводе из файла Вы будете слышать последовательности пис- ков "нажатия на клавишу" при вводе каждого символа. Кроме то- го, ввод строки завершится толь- ко по получении символа с кодом клавиши <Enter> (#0D) и сам этот символ в строку включен не бу- дет. В тексте программы хорошо видно, как расширитель Бейсика не только выполняет действия, но и анализирует синтаксис програм- мы. 140.;***************************************** ;* * ;* BASIC INTERFACE TO * ;* DISK STREAMABLE I/O DRIVER, v1.05 * ;* * ;* Интерфейс Бейсика к * ;* Драйверу потокового ввода/вывода * ;* в/из файлов TR-DOS. * ;* * 3;* (c) Б. Курицын, июнь 1996 * ;* * ;* Файл: basint.a * ;* Формат файла: ZX Turbo Assembler * ;***************************************** ; коды токенов t_open equ #d3 t_close equ #d4 t_goto equ #ec t_list equ #f0 ; системные переменные (или смещения) oFlags equ 1 oTVFlag equ 2 oFlags2 equ 48 oFlagX equ 55 oXPtrHi equ 37 defAdd equ 23563 strms_6 equ 23574 ; Используемые п/п ПЗУ. Подробнее смотрите в [2]. class06 equ #1C82 ; синтакс. анализатор - должно быть числовое выражение class0A equ #1C8C ; синтакс. анализатор - должна быть строка символов separator equ #1B6F ; синтаксический анализатор - должна быть лексема stkToA equ #1E94 ; стек калькулятора - в A stkToBC equ #1E99 ; стек калькулятора - в BC stkFetch equ #2BF1 ; стек калькулятора - в A/BC/DE clsLower equ #0D6E setMin equ #16B0 copyBuff equ #0ECD stackA equ #2D28 ; A - на стек калькулятора printFP equ #2DE3 ; напечатать число со стека калькулятора po_mess equ #0C0A ; вывести сообщение A из таблицы (DE) org 64000 ; точка входа startUp ld de,newErrors ; новый обработчик иссключений call try ld c,":" ; это разделитель после USR 64000 ; Separator проверяет, что текущий интерпретируенмый символ именно ; таков. Если нет - ошибка "нонсенс в Бейсике" call separator ld c,a rst #20 ; берем имя оператора... ld hl,statms ; ...и ищем его в таблице Statms jr compare nextSearch inc hl inc hl compare ld a,(hl) inc hl or a jr nz,cont_comp ; если таблица кончилась - ошибка rst 8 db #b; Nonsense in Basic cont_comp cp c jr nz,nextSearch ld a,(hl) ; найдено; выбираем адрес обработчика... inc hl ld h,(hl) ld l,a call callJp ; ...и запускаем его call endTry ; снимаем обработчик исключений ret ; Таблица описания операторов. ; Формат: токен, адрес обработчика, токен, адрес обработчика, ...,0. statms db t_open dw _open db t_close dw _close db t_goto dw _goto db t_list dw _list db 0 listStrm db 0 ; Тексты для оператора LIST listMess db #80,"Streams status:",13+#80 db ": opened to ",34+#80 140. db 34,13+#80 3; Оператор LIST #stream _list ld c,"#" ; проверка символа потока call separator call class06 ; должно следовать числовое выражение call stkToA ; его - в аккумулятор call chOpen ; открываем канал для вывода ld de,listMess sub a ld (listStrm),a call po_mess ; вывод заголовка listNext ld a,(listStrm) ; для потока... call strData ; ... выбираются данные из Streams ld a,b or c jr z,listCont ; если закрыт - следующий поток ld a,"#" ; печать символа потока... push bc rst 16 ld a,(listStrm) call stackA call printFP ; ... и его номера pop bc ld hl,(chans) add hl,bc inc hl inc hl inc hl ; определение адреса смещения oName в канале push hl ld a,1 ld de,listMess call po_mess ; сообщение "открыт на"... pop hl ld a,(hl) rst 16 ; ...такой-то канал ld a,2 ld de,listMess call po_mess listCont ld hl,listStrm inc (hl) ; следующий поток ld a,16 cp (hl) jr nz,listNext ; переход к следующему потоку ret 3;Оператор OPEN #stream, name$ - без комментариев _open exx push hl call openParams call openRead pop hl exx ret ; синтаксический анализ оператора OPEN openParams call class06 ; должен быть номер потока - на стек калькулятора ld c,"," call separator ; потом запятая call class0A ; затем символьное выражение - имя файла rst #28 ; обменять имя и поток местами на стеке db 1,#38; exchange call stkToA ; поток - в аккумулятор push af call stkFetch ; имя - в DE/BC pop af ret 3; Оператор CLOSE #stream _close call class06 ; должен быть номер потока - на стек калькулятора call stkToA ; поток - в аккумулятор jp close ; Оператор GO TO pos _goto call class06 ; число - позиция в файле call stkToBC ; со стека калькулятора в BC ld h,b ld l,c jp seekRead ; Обработчик ошибок: визуализирует новые ошибки newErrors call endTry ; снять обработчик halt ld a,(iy) ; код ошибки cp excDosError+dNoFile jp m,contErr ; обычные ошибки распостраняются дальше ; эта часть программы практически повторяет действия стандартного ; обработчика ошибок из ПЗУ до вывода сообщения об ошибке. Смотрите ; [3] с адреса #1303 res 5,(iy+oFlags) bit 1,(iy+oFlags2) call nz,copyBuff ld hl,0 ld (iy+oFlagX),h ld (iy+oXPtrHi),h ld (defAdd),hl ld hl,1 ld (strms_6),hl call setMin res 5,(iy+oFlagX) call clsLower set 5,(iy+oTVFlag) ld a,(iy) sub excDosError+dNoFile ld b,a add a,"a" ; новые коды сообщения rst 16 ld a," " ; пробел rst 16 ld a,b ld de,messages ; новые сообщения в этой таблице ld (iy),#FF jp #1346 ; дальнейшая обработка стандартная - в ПЗУ ; Таблица текстов сообщений о новых ошибках (в формате процедуры PO_MESS) messages db #80,"No fil","e"+#80 db "File exist","s"+#80 db "Disk ful","l"+#80 db "Dir ful","l"+#80 db "RecNo overflo","w"+#80 db "No dis","k"+#80 db "(7) DOS erro","r"+#80 db "(8) DOS erro","r"+#80 db "(9) DOS erro","r"+#80 db "Stream opene","d"+#80 db "Not disk fil","e"+#80 3 db "(12) DOS erro","r"+#80 db "Verify erro","r"+#80 ; Включение драйвера и обработки исключений include "stream.a" include "except.a" ; *** end of basint.a *** 2 Ну вот и все. Думаю, для про- верки интерфейса Вы сами сможе- те написать сколько угодно прог- рамм. Надеюсь, что мои краткие (из-за большого объема ассем- блерного текста) комментарии да- ли хотя бы общее представление о работе программы, а сама прог- рамма будет полезна Вам. При возникновении проблем или специальных вопросов Вы можете написать автору по адресу, ука- занному выше. ЛИТЕРАТУРА 1. Б.Курицын. Перехват системных ошибок при программировании на ассемблере для компьютеров "ZX Spectrum".: Радиолюбитель, 10' 1994; стр. 12 - Минск, 1994. 2. Логан, о'Хара. Полное описа- ние ПЗУ ZX Spectrum.: "Программ- Асс" - Харьков, 1992. 3. К.Курылович, Д.Мадей, К.Мара- сек. Путеводитель по ZX Spec- trum.: "Программ-Асс" - Харьков, 1992. * * *
Другие статьи номера:
Похожие статьи:
В этот день... 9 октября