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

[Advertiser]

[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