ДИСК ПЕРСОНАЛЬНОЇ ЕОМ PET ФІРМИ COMMODORE

Для обміну даними як з диском, так і з стрічкою ЕОМ PET використовує шину даних, відповідну стандарту IEEE 488 Оператор OPEN має 256

ту ж форму, що й у випадку стрічки, але імя файлу повинна нести додаткову інформацію, а вторинний адреса стає фізичним каналом диска із спеціальними властивостями, показаними в табл 85

Таблиця 85 Значення дискового вторинного адреси для персональної ЕОМ PET

Дисковий вторинний

адреса

Значення

2-14

15

Використовується командою LOAD

Використовується командою SAVE

Введення-виведення даних (до пяти номерів може бути використано паралельно) Канал команд

Команди передаються по каналу, що задається вторинним адресою 15, оператором PRINT, а реакція

на ці команди сприймається оператором INPUT Цей канал має свій оператор OPEN, який повинен бути виконаний до відкриття будь-яких каналів для обміну даними Наприклад, оператори

10   OPEN 15,8, 15 20   PRINT #15, &quot10&quot

використовують логічний номер 15 (перший параметр) для привязки до дискового пристрою (пристрій 8) з вторинним адресою 15 (канал команд) Для ініціації роботи з диском, встановленим в дисководі 0, команди посилаються у вигляді рядка символів Наведемо перелік різних команд:

N – оновлення, I – ініціація,

D – копіювання диска, С – копіювання файлу, R – видалення файлу,

S – оголошення файлу робочим,

$ – Запрашіваніе довідника файлів (див нижче)

За повними відомостями зверніться до керівництва з дискової операційній системі (ДОС) ЕОМ PET Реакція на команди повертається в спеціальному форматі і може бути отримана оператором INPUT # 15, EN, EM $, ET, ES

(Логічний номер 15 обраний збігається з каналом команд для зручності запамятовування), де

EN містить 0, якщо команда виконана, або номер помилки в противному

випадку

EM $ містить повідомлення про помилку ЕТ містить номер доріжки ES містить номер сектора

У ДОС є довідник файлів, який (за умови, що диск знаходиться в дисководі 0) може бути отриманий таким чином:

OPEN 15,8,15 (відкрити диск і канал команд)

LOAD $ 0, 8 (запит на завантаження довідника файлів) LIST (зображення довідника файлів) Програми використовують команди LOAD і SAVE, наприклад: LOAD 0: PROCESS, 8 SAVE &quot0: RESULTS&quot, 8

де 0 означає дисковод 0 Перейдемо, нарешті, до команди OPEN для відкриття послідовних файлів, що вимагає розширення параметра, що стоїть в позиції імені попереднього (касетного) файлу, а саме завдання його у вигляді

Номери дисковода відповідають двом дисководам, вбудованим в один корпус Таким чином, для відкриття файлу даних можна використовувати оператор

OPEN 4, 8,10, &quot0:PROCESS DATA, S, R&quot

Він відкриває для читання файл PROCESS DATA, що знаходиться на диску, номер якого задається вторинним адресою 10, і привязує його в програмі до логічного номеру 4 Після відкриття програма може використовувати оператори

INPUT #4 PRINT #4 GET #4 CLOSE #4

Загальна процедура роботи з послідовним файлом в системі PET може бути описана таким чином:

(А) На самому початку роботи програми треба ініціювати диск, на якому знаходяться дані, і відкрити канал команд незалежно від того, чи треба читати дані з файлу або записувати в нього:

10   OPEN 15, 8, 15

20   PRINT #15, &quot10&quot

30   GOSUB 1000

Оператор GOSUB викликає підпрограму, обробну реакцію системи

(Б) Потім треба відкрити файл або для запису (якщо однойменний файл вже існує, то він буде знищений) за допомогою оператора

50 OPEN СН, 8, СН, @ 0: INFO, S, W

де СН містить логічний номер файлу, або для читання за допомогою оператора

50 OPEN СН, 8, СН, 0: INFO, S, R

Після кожного такого оператора треба звернутися до підпрограми обробки реакції системи При читанні перевірте слово стану ST, яке має дорівнювати 0 при нормальному читанні і 64 при виявленні кінця файлу

(В) Після цього можна здійснювати зчитування або запис за допомогою операторів INPUT #, GET #

або PRINT # Після кожної операції треба звертатися до підпрограми обробки реакції системи

(Г) Перед кінцем роботи програми треба закрити файл Підпрограма обробки помилок повинна мати наступний вигляд:

500 REM ПІДПРОГРАМА ОБРОБКИ ПОМИЛОК

510   INPUT #15, EN, EM$,ET, ES

520   IF EN=0 THEN RETURN

530 REM надрукувала повідомлення ПРО ПОМИЛКУ

540 REM І ЗАКІНЧИТИ РОБОТУ або запросити

550 REM З ТЕРМІНАЛУ ДІЯ І ПОВЕРНУТИСЯ В ПРОГРАМУ

Джерело: Уолш Б Програмування на Бейсике: Пер з англ М: Радіо і звязок, 1988 336 с: ил

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*