Общие сведения Игротека Люди Форум
Библиотека Галерея Мастерская Софт для PC Помощь сайту

      ПЭВМ Агат » Картотека » Икп » ИКП ОС ЛС

Розыск софта

Статьи

Антология Бейсика и Дос

Разделы

ИКП

КПОН

Языки

Графика

Звук

Звук 2

Текст

Базы данных

ОС/ДОС

Дисковые утилиты

Тесты аппаратуры

Бухгалтерия

Телевидение

Медицина

Сеть

Разное

АОС

АОС 2

АОС 3

АОС 4

АОС 5

АОС 6

АОС 7

АОС 8

ИКП ОС ЛС

Автор сборника: Кто-то из НИИВК? Кривошеев Г?
Разыскивается! Если вы автор или что-то знаете о нем, свяжитесь с нами! Зачем нам это?

ИКП - ОС локальной сети. Пока не ясно, официальная ли это версия? В бейсике запускается меню, с некотором количеством известных игрушек и системок. Кроме того, здесь есть программы, которые в других местах ранее не попадались: простые графические редакторы и психологические тесты.

При выяснении конфигурации, меню пытается найти контроллер Стык 2 и два вида котроллера сети. Достоверно известно, что один из них это яч.сети НИИВК.

Кусок файла HELLO:

20  VTAB 1: HTAB 15: PRINT "Конфигурация ПЭВМ"
25  FOR I = $4F5 TO $4FA: HTAB 2: PRINT "СЛОТА ";I - $4F4;
30  IF  PEEK (I) = $BD OR  PEEK (I) = $F0 THEN  GOSUB 50: GOTO 45
32  IF  PEEK (I) = $4B THEN  PRINT " ячейка принтера": GOTO 45
35  IF  PEEK (I) = $10 THEN  PRINT " ячейка ДОПОЗУ": GOTO 45
39  IF  PEEK ($C100 + (I - $4F5) * $100 + $FF) = 5 THEN  PRINT " контроллер СТЫК-2": GOTO 45
44  PRINT " ПУСТА"
45  NEXT I: POKE ($E8),$44: POKE ($C144),0: GOTO 99
47  PRINT : PRINT  CHR$ (4);"BLOADEDIT"
48  CALL $2000
49  PRINT : PRINT  CHR$ (4);"RUNHELLO"
50  POKE ($E8),$4A: IF  PEEK (I) = $F0 THEN  PRINT " контроллер ГМД ЕС-5088 ";: GOTO 60
51  IF  PEEK ($C100 + (I - $4F5) * $100 + $FF) = 4 THEN  PRINT " контроллер сети": RETURN 
52  FOR J = 0 TO 3: 
IF ( PEEK (J + $99AE) = (I - $4F4) * $10) AND ( PEEK (J + $99B6) = 4) THEN J = 10: 
PRINT " контроллер сети": B = 33
53  NEXT J: IF B = 33 THEN B = 0: RETURN 
55  PRINT " контроллер ГМД ЕС-5323 ";
60  POKE ($C14A),0: N = 1: FOR J = 0 TO 3
65  IF  PEEK (J + $99AE) = (I - $4F4) * $10 THEN N = N + 1
70  NEXT J:
75  ON N GOTO 77,78,80
77  PRINT : RETURN 
78  PRINT " привод 1": RETURN 
80  PRINT " приводы 1,2": RETURN 

При старте Ассемблера, вместо привычной картинки, только меню с явно сетевыми наклонностями. По неизвестным пока причинам - виснет в эмуляторе.

Автор раздела: Garnizon

Зеркало сайта