Софт для ДВК/PDP11

**Patron** · 19.02.2015, 22:50

Сообщение от form

Перечисленно то, что возможно. То есть пальцем в небо. Еще попытка будет?

Став за сегодня экспертом в данной теме могу уверенно утверждать, что второй попытки не требуется - моя правота неоспорима.

Сообщение от form

BASIC-11 расширяется как угодно

Мне слабо расширить дековский Бэйсик командами доступа к памяти, тем более, что имеющийся в наличии стандартный советский Бэйсик с командами GET и PUT полностью устраивает.

**form** · 19.02.2015, 22:51

Сообщение от Patron

Мне слабо расширить дековский Бэйсик командами доступа к памяти

Это стандартная документированная возможность вообще-то.
Дока есть на bitsavers, кит есть в теме чуть ли не в этой. Или в архиве.

**Patron** · 19.02.2015, 23:01

Сообщение от form

Это стандартная документированная возможность вообще-то.

Проблема в том, что каждый аргумент, передаваемый в функцию пользователя, может быть одного из нескольких типов и всё это надо на входе самому проверять, обрабатывать ошибочные аргументы и т.д. и т.п. В результате мороки с расширением Бэйсика гораздо больше, чем может показаться на первый взгляд. И потом функцию пользователя нельзя будет использвать, как обычную команду Бэйсика - её надо будет вызывать через команду CALL, передавая ей имя функции пользователя в качестве строкового аргумента, что отнюдь не облегчает кодирование.

**hobot** · 20.02.2015, 04:28

Сообщение от Patron

для совместимости с Y2K и KOI8 :

У меня бейсик вот такой и вот так запускается в нем KOI-8.bas,

Код:

KOI8      20-FEB-15  03:31:26

Привет !!!

READY
BYE

.SYS

RT-11SJ  V05.04 G

.DIR SY:BASIC
 20-Feb-2015
BASIC .SAV    56P 12-Sep-2011
 1 Files, 56 Blocks
 51681 Free blocks

.

это из за монитора (он пропатчен), то есть я про KOI-8 пытаюсь уточнить?

Скрытый текст

(*для ДВК уже такое кол-во бейсиков у меня накопилось, в том числе и с графическими операторами для КГД, есть и странные бейсики какие-то среди них совсем - всё время откладываю разборку им устроить архивную, поэтому для простоты 60 блоков РАФОС-БЕЙСИК пока отдельно прилепил в раздел ДВК [очень легко найти по имени папки] )

[свернуть]

---------- Post added at 04:28 ---------- Previous post was at 04:23 ----------

Сразу уточнение, что DEMO.BAS из архива в нём не работает

Код:

BASIC-11/RT-11 V02-03
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? A

READY
OLD DEMO

READY
RUN


DEMO      20-FEB-15  03:40:29


?SYNTAX ERROR AT LINE 140

READY

**hobot** · 20.02.2015, 10:26

Поглядел DEMO.BAS
- очень мощно !!!

Код:

120 I$=CHR$(9)
140 GET(44%,M%) \ REM M% == $SYPTR
160 GET(M%+196,T0%) \ REM T0% == TTKS
180 GET(M%+198,T1%) \ REM T1% == TTKB
200 X$=CHR$(10)+CHR$(10)+CHR$(10)+CHR$(10)+CHR$(10)
220 X$=X$+CHR$(27)+"I"+CHR$(27)+"I"+CHR$(27)+"I"
240 X$=X$+CHR$(27)+"I"+CHR$(27)+"I"
1000 A%=TTYSET(255%,250%)
1020 GET(36%,J9%) \ PUT(J9%+4096%,36%) \ REM Set TTSPC$ in $JSW
1030 PUT(0%,T0%) \ REM Disable TTKINT
1100 PRINT  \ PRINT X$;"Press any keys .." \ PRINT
1120 PRINT CHR$(13);CLK$;
1140 GET(T0%,S%) \ IF S%<=64% GO TO 1120
1160 GET(T1%,A%)
1200 PRINT I$;A%;I$;CHR$(13);
1210 IF A%=32 GO TO 1400 \ REM Space  == EXIT
1220 IF A%<>3 GO TO 1120 \ REM Ctrl/C == EXIT
1400 PUT(64%,T0%) \ REM Enable TTKINT
1420 PUT(J9%,36%) \ REM Restore $JSW
1440 PRINT

READY
RUN


DEMO      20-FEB-15  08:24:03


Press any keys ..

08:24:30

Получается отличие только в командах PUT и GET, а кириллица и в 56 блочном работает? Команды PEEK и POKE - это похоже особенность бейсика Вильнюс?

Код:

4.4.   Операторы непосредственного доступа к памяти........... 46
 4.4.1.   Оператор POKE........................................ 46
 4.4.2.   Оператор OUT......................................... 47

5.3.   Функции непосредственного обращения к памяти........... 67
 5.3.1.   Функция PEEK......................................... 68
 5.3.2.   Функция INP.......................................... 68

- из описания Вильнюс-Бейсика УК-НЦ. (надо его вариант для ДВК проверить ещё раз!!!)
( http://www.felixl.com/Uknc_Basic_Manual )

**Patron** · 20.02.2015, 11:33

Сообщение от hobot

У меня бейсик вот такой и вот так запускается в нем KOI-8.bas

При упаковке файла KOI8.bas в DSK-образ символы Windows сконвертировались в КОИ-7. Чтобы тестировать совместимость Бэйсика с КОИ-8 - надо запускать KOI8.bas из каталога Windows - тогда при копировании на виртуальный диск символы Windows сконвертируются в КОИ-8.

**Advertiser** · 20.02.2015, 11:33

**hobot** · 20.02.2015, 12:59

Код:

.BASIC
BASIC-11/RT-11 V02-03
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? A

READY
OLD KOI8

READY
RUN


KOI8      20-FEB-15  10:44:09

pRIWET !!!

READY

Сообщение от Patron

надо запускать KOI8.bas из каталога Windows

результат с 56-блочным бейсиком выше )

Patron, у меня есть просьба\уточнение по эмулятору ДВК, я в теме
эмулятора сейчас подробнее напишу.

Спасибо.

обсуждаемый бейсик см. в теме выше.

**form** · 28.03.2015, 15:20

Y2K патчи для MU/BASIC-11 V2.00R. Позже подготовлю дистриб в приемлимом виде. Если кто желает поэкспериментировать пока - на bitsavers лежит образ RK05 с RT-11V4 и MU/BASIC. Инструкция по накладыванию патчей внутри них. Исправляют вывод даты в LIST и в функции DAT$, устанавливают бит CHAIN$ в $JSW для правильной работы под RT-11 V5.2 и новее.

Код:

.RU MUBASX

MU BASIC-11/RT-11 V2.00R
CONFIGURATION FILE : *MUBAS
MU BASIC-11/RT-11 IS OPERATIONAL.
PLEASE TYPE IN "HELLO".

HELLO

USERID: 00
PASSWORD: 

WELCOME TO MU BASIC-11/RT-11

READY
LIST

NONAME    28-MAR-15    18:18:53

READY
PRINT DAT$
28-MAR-15

READY
LENGTH

0 USED, 16088 FREE

READY
A=SYS(4)

.

**form** · 28.03.2015, 18:30

Запустил MU BASIC-11 как system job, в нем запустил две программки - одна в цикле печатает PI, вторая просто крутится на одном месте. Консоль остается вполне себе рабочей и позволяет запускать обычные программы параллельно. Если обычный BASIC-11 запустить как system/foreground job с такой программой, на background job времени не останется у системы.

Код:

.ME

------- Extended Memory --------
Address   Module    Words   Type
-------   ------    -----   ----
17760000  IOPAGE     4096.   PRM    HDW    BYP 
17760000  MEMTOP
10000000  VM      1044480.   SHR 
01007600  ......   915520.
00607600  MUBASX    32768.   LOC 
00407600  MUBASX    32768.   LOC 
00310600  EI        16128.   PVT 
00276100  SL         2720.   PVT 
00256100  SD         4096.   SHR 
00250100  MU         1536.   PVT 
00224700  NQ         4928.   PVT 
00216300  SP         1664.   SHR 
00174000  DU         4704.   PVT 
00160000  MCA        3072.   PRM 
00000000  KERNEL    28672.   PRM    HDW 

------ Low Memory -------
Address   Module    Words
-------   ------    -----
157010    DU          252.
074652    RMON      12847.
072462    SL          572.
070732    LD          428.
064230    MUBASX     1185.
055274    EQ         1774.
043230    USR        2578.
001000    ..BG..     8780.


.J

Job  Name  Console Level State    Low    High  Impure
---  ----  ------- ----- -----    ---    ----  ------
14   MUBASX   0      6   Suspend 000000 157776 064230
 0   RESORC   0      0   Run     000000 043226 107356


.

**form** · 30.03.2015, 09:51

Еще один патч. Пока только для unmapped варианта (для mapped он по сути не актуален, хотя и там есть косяк). Позволяет запускать MUBAS(не X) под VBGEXE без ошибки нехватки памяти.

Код:

.TY MUIMP.PAT
        .TITLE  MUIMP3
        .IDENT  /000002/
        .PSECT  MUIMP

        .=.+1510
        CALL    TSTUSR

        .=.+26
        TST     (SP)+
        MOV     R0,@SP
        MOV     @#54,R0
        BIT     #1000,(SP)+

        .PSECT  PATCH,I,RO,LCL
TSTUSR: TSTB    @#44
        BMI     10$
        TST     FGNDFG
10$:    RETURN

        .END


.MAC/OB:PATCH MUIMP.PAT

.REN MUIMP.OBJ .OLD

.PAT MUIMP.OLD,PATCH MUIMP

.$@MUBAS

User Tag List

Тема: Софт для ДВК/PDP11

Опции темы

Отображение

Скрытый текст

MU/BASIC-11 V2.00R

MU BASIC-11/RT-11

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Криста-2: Софт

Софт для Covox'а

Софт под GS ?

Софт для ПК

Софт под iS-dos

Ваши права