RT-11 для чайников

[litwr]

Вот source kit 5.7...

Вот это исходники! Нашел там код для $DIVTK. Удивлен, что в системе поздних девяностых деление не аппаратное.

Не совсем ясно что такое "распаковать" и кого "их"

На этом ISO-образе много бинарных файлов - это образы дисков? И был вопрос про "их" (файлов) распаковку.
"Перевожу". Во всех ли RT-11 есть $DIVTK? Нужно ли для лучшей переносимости писать вместо неё вызов .gval, а затем делить на 50 или 60?
Кстати, не поможете почти науке с аппаратурой по теме - http://zx-pk.ru/showthread.php?t=257...l=1#post845176? Там можно собрать с EIS и без (задается константами HMUL и HDIV) - просто execute pi-rt11.mac - и сообщить время в ту тему. МАС-файл уже подправлен. По бейсику помогли (а в той теме и новые сообщения появились)... Может ещё кто-нибудь железом может помочь?

[form]

в системе поздних девяностых деление не аппаратное

Так код написан не для машине последнего поколения, а так чтобы работал на всех.

образы дисков

Есть тема про плагин для tc который открывает RTшные образы. Я предпочитаю к E11 цеплять на один из DU дисков. При желании легко прогу написать - файловая система довольно проста и подробно расписана...

Во всех ли RT-11 есть $DIVTK?

Не факт. В описании системной библиотеки она не упоминается.

Нужно ли для лучшей переносимости писать вместо неё вызов .gval, а затем делить на 50 или 60?

Это надежнее всегда. У меня в RSXLIB для RT-11 например так делается:

$CNFG1  =       300             ;SYSTEM CONFIGURATION WORD
CLK50$  =       40              ;50 HZ CLOCK
...
        JSR     R5,$SAVRG       ;SAVE VOLATILE REGISTERS
        MOV     R1,R5           ;COPY BUFFER ADDRESS
        .DATE                   ;GET SYSTEM DATE
        MOV     R0,R4           ;SAVE DATE
        CMP     -(SP),-(SP)     ;RESERVE WORDS FOR .GTIM
        .GTIM   R5,SP           ;GET SYSTEM TIME
        .GVAL   R5,#$CNFG1      ;GET SYSTEM CONFIGURATION WORD
        MOV     #60.,R1         ;ASSUME 60 HZ CLOCK
        BIT     #CLK50$,R0      ;USING 50 HZ CLOCK?
        BEQ     10$             ;NO
        MOV     #50.,R1         ;YES
10$:    MOV     R1,G.TICP(R5)   ;SAVE TICKS PER SECOND
        MOV     R1,R0           ;SET DIVISOR
        MOV     (SP)+,R1        ;SET DIVIDENT
        MOV     (SP)+,R2        ;
        CALL    $DDIV           ;DIVIDE TICKS BY TKPS
...

- - - Добавлено - - -

Может ещё кто-нибудь железом может помочь?

Могу дать доступ к живому 11/83

[litwr]

Не знал, что на ISO образы - новичок с несколькими днями опыта думал, что архивы. А от доступа не откажусь. Там telnet+ftp есть? Пароль и адрес можно отправить в почту на яндексе на litwr с собакой. Какая на этом 11/83 частота процессора? И, конечно, спасибо за предложение.

[form]

А от доступа не откажусь.

Через телнет доступна консоль PDP-11/83, можно делать что угодно, по TELNET BREAK можно вывалиться в пульт, вобщем делать все что угодно. Могу по договоренности заранее (в личке) включить. В RT-11 есть TCP/IP и FTP если что.

- - - Добавлено - - -

Какая на этом 11/83 частота процессора?

18Mhz вроде.

- - - Добавлено - - -

Пароль и адрес можно отправить

Адрес будет pdp-11.org.ru по стандартному телнетному порту, логина-пароля не будет - прямой проброс через DECserver в консоль. Главное - заранее написать когда понадобится

[litwr]

по стандартному телнетному порту

И ftp также? И даже номер порта не меняете? Прорвутся же всякие, хотя в такой системе завянут, но могут забить все каналы.
Мне бы только π посчитать. Если не против, то хоть сегодня с 10:30 могу пробовать.

[form]

И ftp также?

FTP только "оттуда" внаружу. Вернее можно и там запустить сервер, но доступен будет он только из моей локалки.

И даже номер порта не меняете?

А зачем?

с 10:30 могу пробовать

Растяжимое понятие. С 10:30 по какому времени?

[Advertiser]

[litwr]

С 10:30 по какому времени?

У нас пока ещё Москва столица. Или назначайте когда вам удобно на завтра, попробую быть вовремя. Надеюсь только, что ftp-клиент называется именно ftp.

[form]

называется именно ftp

Называться-то называется, но запускать его хитрО из под RT-11. Можно конечно стартануть TSX-Plus - там проще и работает лучше. Сейчас BACKUP всех дисков закончится и проброшу порт в консоль.

- - - Добавлено - - -

Пока backup заканчивается, вкратце как через телнет воевать с моим 11/83... Порт кстати будет 2007 - родной проброшен на 11/83 через Ethernet (можно подключиться если запустить TSX+...

Ну как уже писал, выпасть в пульт можно по TELNET BRK. В UNIXовых телнетах это CTRL/] (или заданный escape char) для выпадания в подсказку и sen brk.

Если машина выпала в пульт, запустить диалог можно стартовав с адреса 165000 или 173000.

RT-11 из диалога грузится командой B DU3

TSX+ если будет желание грузится из под RT-11 командами BO RT11SB и затем TS (именно TS - в противном случае нужно руками отключить SL).

Настроено все на VT100-совместимые терминалы, однако если подключиться с VT52 и перезагрузиться все перенастроится на VT52.

Как будет готово - отпишусь.

- - - Добавлено - - -

Да, запуск TCP/IP из под RT-11 выполняется командой @D23:TCPIP.RUN, запуск FTP клиента VRU TCP:FTP и на подсказку ввести -bh хост-или-адрес. В TSX+ TCP/IP всегда запущен и можно просто FTP писть.

Диск DU2: можно портить если что.

[litwr]

запускать его хитрО из под RT-11

Наберу ftp, а там нужны только три стандартные команды open, get, bye. Не сработает?

> запуск TCP/IP из под RT-11 выполняется командой @D23:TCPIP.RUN, запуск FTP клиента VRU TCP:FTP
Не совсем понятно, но попробуем разобраться за часок...

[form]

Готово.

Не совсем понятно

Пример загрузки (начиная с пульта):

@165000G  



Testing in progress - Please wait 
Memory Size is 4088 K Bytes
9 Step memory test 
  Step 1 2 3 4 5 6 7 8 9 


Message 04      Entering Dialog mode

Commands are Help, Boot, List, Setup, Map and Test.
Type a command then press the RETURN key: B DU3


Trying DU3

Starting system from DU3


RT-11ZM (S) V05.07  

?ETM-I-Date & time - 5-DEC-2015 23:19:43
?ETM-I-Time server - 70-71-BC-50-EB-D0, OpenBSD 5.8 amd64

.

Запуск TCP/IP:

.@D23:TCPIP.RUN

.LOAD EQ:

.ASSIGN EQ0: EN0:

.ASSIGN EQ1: EN1:

.ASSIGN EQ2: EN2:

.ASSIGN EQ3: EN3:

.ASSIGN D23: TCP:

.ASSIGN D23: PAS:

.ASSIGN DK: TMP:

.ASSIGN TCP: DK:

.LOAD DK:

.SRUN/NAME:TCPIP VBGEXE.SAV

.RUN DELAY2

.ASSIGN TMP: DK:

.DEASSIGN TMP:

.

Работа с FTP:

.VRU TCP:FTP
Argv: -bh pdp-11.org.ru

FTP-11   V02.40  [15-Jun-2008]

These valid commands may be abbreviated:
?               ascii           bell            bget            binary
bput            bsend           bye             cd              close
debug           delete          dir             duplicate       get
hash            help            home            interactive     lcd
ldelete         ldir            lls             lprotect        lpwd
lrename         ls              ltype           lunprotect      mdelete
mdir            mget            mkdir           mls             mode
mput            msend           noninteractive  open            passive
prompt          protect         put             pwd             quit
quote           recv            remotehelp      rename          rm
rmdir           send            sendport        status          struct
system          type            unprotect       user            verbose
version         wild            
>   <filespec>  redirect (m)dir or (m)ls response to specified file

RT-11 filespec   = {dev:}{name}{.ext}{[xx]}
  where   {dev:} = 1 to 3 characters  (1st alpha)
          {name} = 1 to 6 characters  (*=all,?=wild,%=wild)
          {.ext} = 1 to 3 characters  (*=all,?=wild,%=wild)
          {[xx]} = file size allocation, -1 = all available
  note:     dev: => dev:*.*   /   * => *.*

Querying the Domain Name Server
Domain lookup successful
Trying to open TCP connection
220 pdp-11.org.ru FTP server ready.
Username: ftp
331 Guest login ok, send your email address as password.
Password: 
230 Guest login ok, access restrictions apply.
ftp> cd pub/OpenBSD/stable/5.8/amd64
250 CWD command successful.
ftp> bi
200 Type set to I.
ftp> ge pxeboot
227 Entering Passive Mode (85,118,227,58,223,162)
150 Opening BINARY mode data connection for 'pxeboot' (81092 bytes).
Trying to open TCP connection
226 Transfer complete.
Transferred 81092 bytes in 3.6 seconds (22.015 kbytes/sec)
ftp> quit
221 Goodbye.

Escaping from FTP

.

- - - Добавлено - - -

Как не нужно будет - просьба написать, а то шумит оно у меня очень