Цитата Сообщение от 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