У меня один из терминалов имеет рубильник РУС/ЛАТ на самом ящике.
Вид для печати
Дистрибутив TSX-Plus V6.01, пропатченый на предмет y2k. К сожалению оригинал дистриба найти не удалось, а в этом изрядно покопались шаловливые ручки (как обычно, сильно испоганив все).
По возможности попытался восстановить исходный вид. Файл TSGEN.MAC оставил в том виде в каком он был - поделенным на три файла (TSG1.MAC, TSG2.MAC и TSGEN.MAC) - так в принципе проще, но вот за каким @#$ понадобилось все табы менять на пробелы - не знаю...
В целом все нормально собирается и работает. Запускать проще всего под RT-11 V5.04G с y2k патчами (под 5.07 будут проблемы).
Добавил файл BLDTSX.COM который сам все компилит, собирает и копирует собранное на SY:.
В остальном генерация идет как написано в доке. В системе в которой я собирал не хватило памяти для таблицы символов LINK, пришлось поправить TSXLNK.COM (в том варианте, что он мне достался так и было):
заменить наКод:R LINK
и запускать сборку под XM.Код:R VBGEXE
SY:LINK
У меня отлично все поднялось как на 11/83 так и в эмуляторе (требуется понижение скорости - иначе будет думать что таймер не работает). Ниже результат вывода SH ALL на живом PDP-11/83 с двумя залогиненными усерами на физических терминалах и одним по TELNET с использованием TCP/IP for TSX-Plus, с открытой кучкой виртуальных линий.
Особо понравились окна - при переключении линий полностью восстанавливается экран как он был до ухода с линии. В советское время я из TSX видел только древний RAFOS/TS где такого не было еще.
Код:.SH ALL
Active Handler Handler Handler
Device I/O Status V. base P. base size CSR Vector
------ ------ ------ ------- ------- ------- ------ ------
TT 0 000004
LD 0 102446
CL 0 006057 046740 000000 354
DU 0 102450 076514 000000 944 172150 154
NL 0 000025 120000 075715 58
EQ 15 007061 120000 075625 3566 174440 120
Assignments:
SY --> DU2:
DK --> DU2:
TCP --> LD7:
Device Job Job name
------ --- ------------
CL0 5 TCP/IP stack
Uptime: 00:03:02
System use: Run=12%, I/O-wait=87%, Swap-wait=0%, Idle=0%
I/O Activity: User I/O=99%, Swapping I/O=0%
Job Line Pri State Size Connect CPU time Program Job name
--- ------ --- ------- ----- --------- -------- ------- ------------
1 1(0) 40 TI 37Kb 00:04:00 00:00:02 KMON ROOT
2 2(0) 50 TI 62Kb 00:02:00 00:00:05 SYSMON ROOT
3 3(0) 50 TI 37Kb 00:03:00 00:00:01 KMON GUEST
5 Det. 50 SL 62Kb 00:03:00 00:00:03 RTELNT TCP/IP stack
6 Det. 50 SL-Swap 30Kb 00:04:00 00:00:00 WINPRT Window print
7 Det. 50 SL-Lock 62Kb 00:04:00 00:00:07 TCPIP TCP/IP stack
8 3(1) 40 TI 62Kb 00:03:00 00:00:00 DIR GUEST
9 3(2) 40 TI 38Kb 00:03:00 00:00:00 KED GUEST
10 3(3) 40 TI 62Kb 00:03:00 00:00:00 PIP GUEST
11 3(4) 40 TI 62Kb 00:03:00 00:00:00 MACRO GUEST
12 3(5) 40 TI 62Kb 00:03:00 00:00:00 LINK GUEST
13* 1(1) 50 HI 37Kb 00:02:00 00:00:02 KMON ROOT
Line Type Vector CSR Terminal Speed Active Line Name
---- ----- ---------- ------ -------- -------- ------ ------------
1* Oper. DL 060 177560 VT100 N/A 8N Yes TT0
2 Local DL 300 176500 VT100 N/A 8N Yes TT1
3 Local DL 310 176510 VT100 N/A 8N Yes TT2
4 Local DL 330 176530 VT100 N/A 8N No TT4
30 CL DL 320 176520 unknown N/A 8N CL0 CL unit 0
Unit Line Job Options
---- ---- ---- ----------------------------
CL0 30 5 [FORM,TAB,LC,LFOUT,LFIN,CR,CTRL,DTR]
CL1 none none
Total installed memory = 2048Kb
Size of unmapped TSX and handlers = 33Kb
Size of mapped TSX system regions = 67Kb
Total size of TSX and mapped data = 109Kb
Size of mapped device handlers = 4Kb
Size of sharable run-time systems = 0Kb
Size of data cache buffer area = 0Kb
Space available for user jobs = 1931Kb
Swappable job context area = 6Kb
Current job memory limit = 56Kb
Maximum job memory limit = 64Kb
There are no spooled devices
Logical subset disks:
LD7 --> DU2:TSXTCP.DSK[2600]
Mounted devices:
Device Associated jobs
---------- ------------------------------
DU2: 1 2 3 5 6 7 8 9 10 11 12 13
DU2:TSXTCP 1 2 3 5 7 8 9 10 11 12 13
Shared run-time systems:
Region Size Type Job Use Shared AGE
------ ------ ------ --- --- ------ ---
EI $ 31.6 Global 7 0 Yes No
WIN01A 3.8 Global 1 1 No No
SCKT00 8.0 Global 7 2 Yes No
SCKT01 8.0 Global 7 1 Yes No
WIN03A 3.8 Global 3 1 No No
WIN08A 3.8 Global 8 1 No No
WIN09A 3.8 Global 9 1 No No
WIN10A 3.8 Global 10 1 No No
WIN11A 3.8 Global 11 1 No No
WIN12A 3.8 Global 12 1 No No
WIN02A 3.8 Global 2 1 No No
WIN13A 3.8 Global 13 1 No No
Authorized privileges: ALLOCATE,BYPASS,DEBUG,DETACH,GETCXT,MEMMAP,
MESSAGE,NFSREAD,NFSWRITE,OPER,PSWAPM,REALTIME,
RLOCK,SEND,SETNAME,SETPRV,SPFUN,SYSGBL,
SYSPRV,TERMINAL,WORLD,GROUP,SAME,SUBPROCESS,
UP1,UP2,UP3,UP4
Current privileges: ALLOCATE,BYPASS,DEBUG,DETACH,GETCXT,MEMMAP,
MESSAGE,NFSREAD,NFSWRITE,OPER,PSWAPM,REALTIME,
RLOCK,SEND,SETNAME,SETPRV,SPFUN,SYSGBL,
SYSPRV,TERMINAL,WORLD,GROUP,SAME,SUBPROCESS,
UP1,UP2,UP3,UP4
SL status: ON,NOKED,NOTTY,SUBSTITUTE
.
В BLDTSX.COM лишняя строчка компиляции - надо удалить. Лень файл перезаливать :)
---------- Post added at 07:26 ---------- Previous post was at 07:24 ----------
Даешь ВМ3 в эмуляторе! Под TSX компилить-собирать одно удовольствие - и памяти дофига и параллельно можно что-то делать :)
У меня part2 архив просто пустой, это что значит - там невидимая инфа для восстановления )
логично выглядящий исполняемый файл )Код:MAC/OB:TSGEN TSG1+TSGEN+TSG2
@TSXLNK
COP (TSX,TSKMON,TSXMOD,SYSMON).SAV SY:
Проглядел так-же второй TSXLNK - но он сложный я эти такие не знаю...
В смысле, о какой строчке речь? )
Или SAV уже на SY будут?
Там продолжение первого архива небольшое и его видно. RAR автоматом его подцепляет. В идеале надо зачиститб конец образа нулями - тогда в один влезет.
Ну как бы там одна строчка компиляции - там где MAC. Собственно убрать можно из BLDTSX.COM.
Вот только придется тебе таки E11 осваивать, чтобы запустить ;)
Да? Вроде дублирует команду из первого com-файла?Код:SET TT NOQUIET
MAC/OBJ:TSGEN TSG1+TSGEN+TSG2
R LINK
TSX[250],TSX/A,TSX[60]=TSGEN,TSX1/Q/P:300.//
TSTTY/O:1
TSTTY2/O:1
TSEM2/O:1
TSEM3/O:1
TSEM4/O:1
TSTIOX/O:1
TSSWAP/O:1
TSPLAS/O:1
TSUSR/O:1
TSSPOL/O:1
TSLOCK/O:1
TSMSG/O:1
TSRTX/O:1
TSCASH/O:1
TSMIO/O:1
TSSLE/O:1
TSWIN/O:1
TSCLO/O:1
TSDBUG/O:1
TSDUMP/O:1
TSEXC2/O:1//
TSXEND:120000
TSKMON[120]=TSX2,TSX.STB/Y:40000/P:700/C
TSKM2A/O:1/C
TSKM2B/O:1/C
TSKST1/O:1/C
TSKST2/O:1/C
TSKSHO/O:1
$OTABL
SYSMON=TSX.STB,SYSMON
TSXMOD=TSXMOD,TSX.STB/Y:40000/C
TSXMOA/O:1/C
TSXMOB/O:1/C
TSXMOT/O:1
$OTABL
^C
Понял ) Е11 доберусь куда деваться то? )
Так это для форума на две части бил? Там ограничение, а я в папку в ДВК раздел залью одним архивом - в нём поправленный dsk образ будет и всё )
---------- Post added at 07:27 ---------- Previous post was at 07:26 ----------
С описанием.