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

[shattered]

Первое правило программирования для RT-11 -- забыть про ASCII имена файлов, потому что они передаются в кодировке RAD50 Для первичного просветления читать про макрос .CSISPC.

Для cowgol runtime я написал такой код (fcb.rt11 -- это parameter area для макросов, fcb.buffer -- буфер для чтения/записи блока)

sub FCBOpenIn(fcb: [FCB], filename: [uint8]): (errno: uint8) is
    var rtfcb := &fcb.rt11;
    var rtbuf := &fcb.buffer;
    var rad50 := rtbuf + 30;
    var defext: uint16[] := {0, 0, 0, 0};

    # parse ASCII filename into RAD50 rtbuf

    @ASm "mov sp, r5";
    @ASm ".csisp", rtbuf, ",", defext, ",", filename;
    @ASm "mov r5, sp";
    @ASm "bcc 1$";
    @ASm "movb #1,", carry;
    @ASm "1$:";

    if carry != 0 then
        errno := carry as uint8;
        return;
    end if

    @ASm ".looku", rtfcb, ", #0, ", rad50;
    @ASm "bcc 2$";
    @ASm "movb #1,", carry;
    @ASm "2$:";

    errno := carry as uint8;
    if errno == 0 then
        file_i_channels[0] := fcb;
    else
        file_i_channels[0] := 0 as [FCB];
    end if;
end sub;

[Advertiser]

[Manwe]

Моя цель - компактный код, ведь я пишу 256-байтные и 512-байтные демки. Макросы удобны для системного программирования, но не для моих целей. Мне нужно контролировать код. Например, в одной демке у меня такое:

LEN:	MOV #2048.,R3
	SUB #32.,LEN+2
	BEQ LEN+2	; end of data? exit

Когда счётчик доходит до нуля, происходит переход на него, то есть на образовавшуюся команду HALT - конец программы. Этот трюк позволяет не хранить отдельную команду HALT, что экономит 2 байта. И подобное во многих местах. Если бы инструкция MOV #2048.,R3 находилась внутри макроса, я не смог бы прыгнуть в его середину.

Имеется прекрасная библиотека с макросами SYSMAC.SML, там всё есть.

Библиотеку нашёл, а её исходника не нашёл. Мне бы посмотреть как устроены все эти макросы типа lookup и read.

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

Читаю AA-PD6LA-TC_RT-11_System_Macro_Library_Manual_Aug91.pdf

Во-первых, непонятно, в каком байте хранить код функции для EMT 375. Судя по табличке, в старшем. Но по логике, этот байт - первое, что должен считать обработчик EMT, а значит он должен быть младшим. По крайней мере, на БК0010 так сделано. Почему в документации не разделили это слово на 2 байта, чтобы исключить недопонимание?

Во-вторых, описан макрос .CDFN, но не написано куда он возвращает номер канала, чтобы потом использовать его при открытии файла.

В общем, нужны исходники этих макросов. Где их взять?

[Alex_K]

Библиотеку нашёл, а её исходника не нашёл. Мне бы посмотреть как устроены все эти макросы типа lookup и read.

В общем, нужны исходники этих макросов. Где их взять?

В SYSMAC.SML бинарный только заголовок, далее идёт чистый текст. Заголовок можно отрезать в любом бинарном редакторе.

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

Во-вторых, описан макрос .CDFN, но не написано куда он возвращает номер канала, чтобы потом использовать его при открытии файла.

А зачем вам .CDFN? Он изменяет количество доступных для задачи каналов ввода-вывода. При этом таблицу каналов надо хранить в теле задачи. Неужто вам стандартных 15 недостаточно. Если надо только считать из файла, то достаточно .LOOKUP, .READW и .CLOSE.

[Manwe]

А зачем вам .CDFN? Он изменяет количество доступных для задачи каналов ввода-вывода. При этом таблицу каналов надо хранить в теле задачи. Неужто вам стандартных 15 недостаточно. Если надо только считать из файла, то достаточно .LOOKUP, .READW и .CLOSE.

Использовать всегда канал номер 0? Из документации это не очень понятно, прямо не сказано.

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

В SYSMAC.SML бинарный только заголовок, далее идёт чистый текст. Заголовок можно отрезать в любом бинарном редакторе.

Спасибо, отрезал первые полтора килобайта, помогло.

[Alex_K]

Использовать всегда канал номер 0? Из документации это не очень понятно, прямо не сказано.

Да, при старте своей задачи вы получаете в распоряжение 15 каналов ввода-вывода, от 0 до 14(016). И можете их использовать по своему усмотрению.

[Manwe]

Да, при старте своей задачи вы получаете в распоряжение 15 каналов ввода-вывода, от 0 до 14(016). И можете их использовать по своему усмотрению.

Значит, такой код будет корректным?

        MOV #LOOKUPdata,R0
        EMT 375             ; open file
        MOV #READdata,R0
        EMT 375             ; read file
        RET

LOOKUPdata: .BYTE 0         ; channel number
            .BYTE 1         ; function number
            .WORD FileName  ; pointer to the text string
            .WORD 0         ; for magnetic tape
READdata:   .BYTE 0         ; channel number
            .BYTE 10        ; function number
            .WORD 0         ; block number to read
            .WORD Load      ; address to load a file
            .WORD 512./2    ; file size
            .WORD 1

FileName:   RAD50 "DK FILE00DAT"
Load:

[Alex_K]

Значит, такой код будет корректным?

Ну в принципе да. Не обрабатываются ошибки. Если есть ошибка, то после исполнения EMT 375 будет установлен бит C в PSW. Ну и в блоке для .READW последнее слово должно быть равно нулю, это .READW, а не .READ. И не RAD50, а .RAD50 (с точкой).

[Manwe]

Спасибо, получилось!
Можно даже убрать .WORD 0 ; for magnetic tape

[troosh]

И не RAD50, а .RAD50 (с точкой).

У них не macro-11, а свой ассемблер. Им можно.

[Manwe]

У них не macro-11, а свой ассемблер. Им можно.

У нас пока вообще нет поддержки Radix-50 в нём В будущем добавим, а пока написал конвертер для БК0010: ты ему строку, он тебе числа на экран.