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

Цитата:

---

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

Вот source kit 5.7...

---

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

Цитата:

---

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

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

---

На этом 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 - и сообщить время в ту тему. МАС-файл уже подправлен. По бейсику помогли (а в той теме и новые сообщения появились)... Может ещё кто-нибудь железом может помочь?

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

Нужно ли для лучшей переносимости писать вместо неё вызов .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
...

---

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

Цитата:

---

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

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

---

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

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

Цитата:

---

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

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

---

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

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

Цитата:

---

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

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

---

18Mhz вроде.

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

И ftp также?

---

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

Цитата:

---

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

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

---

А зачем? :)

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Цитата:

---

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

называется именно 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: можно портить если что.

Цитата:

---

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

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

---

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

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

Готово.

Цитата:

---

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

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

---

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

Код:

---

@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

.

---

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

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