Вид для печати
S_V_B, посмотри в программу RESORC, я, помню, добывал ковыряния в таблицах системы именно из нее. А еще почитай документ RT–11 System Internals Manual, Order Number AA–PD6NA–TC. Если что, есть слегка вольный пересказ его на русском, от Косенко А. И., под названием "Внутренности RT-11", скачать можно здесь. Там довольно много разных переводов, в том числе, пара по RT-11 (отдельная папка).
Я как бы догадался, но не нашел где они описаны и в код ничего не добавили.. поэтому и спросил.Цитата:
Сообщение от Hunta
Всё не описанное явно в тексте ищется в макро-библиотеках. Одна из них - SY:SYSMAC.SML - может явно не указываться и тогда поиск в ней в последнюю очередьЦитата:
Сообщение от S_V_B
Выдает список файлов на устройстве DK: (пробовал через rt11.exe patron'a, не пробовал на реальном устройстве)
Взято (с моими сокращениями) из AA-PD6LA-TC_RT-11_System_Macro_Library_Manual_Aug91.pdf
Как я понял - главное IGTDIR, IGTENT глобальные адреса.
Попробовал на эмуляторе ukncbtl - вроде тоже работает. Абсолютно не понимаю как оно может потом работать в разных системах. Там что - call-ы системных функций по одинаковым адресам идут? Если например в фодосе начать пробовать - то-же что-ли сработает? (хотя например было скомпилировано не для него).
Код:.MCALL .PRINT, .EXIT, .FETCH
.GLOBL IGTDIR, IGTENT
.ENABL LSB
START: .FETCH #BUFFER, #DBLK
bcs FETERR
clr DBLK+2
mov #PGTDIR, R5
call IGTDIR
tst R0
bne GTDERR
90$: mov #PGTENT, R5
call IGTENT
tst R0
bmi 100$
.PRINT #FILNAM
br 90$
100$:
.EXIT
FETMSG: .ASCIZ /Fetch error/
.EVEN
FETERR: .PRINT #FETMSG
.EXIT
GTDMSG: .ASCIZ /IGtDir error/
.EVEN
GTDERR: .PRINT #GTDMSG
.EXIT
LIT64.: .WORD 64.
LIT0: .WORD 0
PGTENT: .WORD 5
.WORD WORK
.WORD ENTRY
.WORD -1
.WORD -1
.WORD FILNAM
PGTDIR: .WORD 7
.WORD LIT64.
.WORD WORK
.WORD LIT0
.WORD BUFFER
.WORD -1
.WORD DBLK
DBLK: .RAD50 "DK "
.RAD50 " "
.RAD50 " "
.RAD50 " "
.BLKW 5*4
WORK: .BLKW 64.
BUFFER: .BLKW 512.
ENTRY: .BLKW 7.
FILNAM: .ASCIZ "xxxxxx.xxx"
.EVEN
.END START
IGTDIR - джокерный поиск :)
Как раз сижу изучаю.. сроду не догадался что такая полезная вещь.
Я сразу в дебри полез.., а для файлера больше и не нужно.
Спасибо.
- - - Добавлено - - -
Скорее всего табличка с джампами (при загрузке обновляемая).Цитата:
Сообщение от BlaireCas
Эх.. раскопать бы описание всех "вкусностей" сразу, а-то репа пухнет от просеивания информации.
Цитата:
Сообщение от BlaireCas
Дети, блин.Цитата:
Сообщение от S_V_B
Всё сделано стандартными средствами - через системные EMT
Даже в четвёртой версии должно отработать.
И да - эти две функции (а так же многие) писались для программ на Фортран-е. Внезапно.
Цитата:
Сообщение от S_V_B
Цитата:
Сообщение от BlaireCas
Ну и какой тогда ЕМТ у IGTDIR???
А насчет таблички джампов лично наблюдал в мониторе.
От тебя Хунта одно риторическое бухтение.. сказал А говори и Б..., если хочешь кого-то унизить своим самомнением.. делай это аргументировано.. все польза какя будет.
Если ты такой умный должен бы первый сказать.. "Да тут все просто братцы.. нужно делать так...".. а-то залазишь в тему только чтобы пукнуть :)
- - - Добавлено - - -
Посмотрел в дебаггере IGTDIR-> Call 3562 нет там никаких ЕМТов..
Странно..3562 как так кто положил туда код?
- - - Добавлено - - -
BlaireCas, положи исходник в тему "Программирование УКНЦ", будет весьма полезно.
Я и говорю - дети.Цитата:
Сообщение от S_V_B
IGtDir.mac:
Lookup.macКод:MOV R0,R4 ; save previous SERR/HERR state
.LOOKUP R2,R3,IG.DEV(R1) ; LOOKUP the device/file
IGtDir.macКод:.LOOKUP SP ; Lookup specified job/file/device
BCC 10$ ; IF successful lookup, preserve value in R0
Код:.SBTTL Read Segment 1
140$: CALL 132$ ; Good LOOKUP - Reset error response
150$: MOV #IG.ID,IG.LFO(R1) ; Indicate file opened.
MOV #1,R3 ; Segment number = 1
CALL IG$SEG ; Read segment 1
Код:IG$RED: CMP IG.LCH(R1),#255 ; Channel legitimate?
BLOS 10$ ; If so, use our .READW
Код:; Infernal Read Routine
10$: .READW IG.EMT(R1),IG.LCH(R1),IG.BUF(R1),#512.,R3
BCC 30$
CALL IG$CLO ; Close channel
20$: MOV #E.RDSG,R0 ; Error reading dir segment
RETURN
А на засыпку (хотя дети уже засыпались) - в RT нет услуг работы с каталогом. И IGtDir - это работа с каталогом для пользовательской программы.Код:BIC #^C1777,R4 ; isolate offset bits
BIC #^C76000,R3 ; isolate segment number bits,
SWAB R3
ASR R3
ASR R3 ; now THAT's a segment number.
MOV R3,R2 ; save a copy
CMP R3,#1 ; is it the first one again?
BEQ 230$ ; don't bother reading it.
CALL IG$SEG ; Read the segment
BNE 160$ ; Branch on error
Всё давно описано и есть в документации. Я уж молчу про исходники.Цитата:
Сообщение от S_V_B
Но здешние обитатели настолько привыкли, что за них всё прочитают в доках, разжуют, положат в рот, ЗАСТАВЯТ проглотить и напишут - что от меня будет только
ИЦитата:
Сообщение от S_V_B
когда сам полезешь в доки и исходникиЦитата:
Сообщение от S_V_B
Кто-кто? Линкер, конечно. Взял его из библиотеки SYSLIB.OBJ и положил.Цитата:
Сообщение от S_V_B
Угу. Только их нет даже в SYSLIB'е от V05.04. В 05.07 они есть. И в SYSLIB'е от Фортрана-4 их тоже нет, но это понятно...Цитата:
Сообщение от Hunta
Но вас уже НОСОМ ДВАЖДЫ ткнули в документацию - и толку - НОЛЬ.
- - - Добавлено - - -
И что это меняет?Цитата:
Сообщение от AFZ