RSX-11, ОСРВ, ОСРВМ

[form]

Надоело по одной макрокоманде (по 5-6 модулей) добывать из RSXовской макробиблиотеки для упрощения написания прог/драйверов в RTEM. Перетащил всю библиотеку в RT-11

Теперь можно творить что угодно в RTEM (прога в которой ни одной директивы RT-11 ):

.TY KAKA.MAC
        .TITLE  KAKA
        .MCALL  ABRT$S,DIR$,GTSK$S,QIOW$,QIOSY$

        QIOSY$                          ;ОПРЕДЕЛЯЕМ ФУНКЦИИ QIO

QIOW:   QIOW$   IO.WVB,1,1,,,,<BUFF,,40>;QIOW DPB ДЛЯ ТЕРМИНАЛА
TKBF:   .BLKW   16.                     ;БУФЕР GTSK
BUFF:   .BLKB   256.                    ;РАБОЧИЙ БУФЕР

START:  MOV     #TKBF,R2                ;R2=БУФЕР GTSK
        GTSK$S  R2                      ;ПОЛУЧАЕМ ПАРАМЕТРЫ ЗАДАЧИ
        MOV     #FMTS,R1                ;R1=СТРОКА ФОРМАТА
        MOV     #BUFF,R0                ;R0=РАБОЧИЙ БУФЕР
        CALL    $EDMSG                  ;ФОРМАТИРУЕМ ВЫВОД
        SUB     #BUFF,R0                ;R0=ДЛИНА
        MOV     R0,QIOW+Q.IOPL+2        ;СОХРАНЯЕМ В QIOW DPB
        DIR$    #QIOW                   ;ПЕЧАТАЕМ
        ABRT$S  #TKBF                   ;А МЫ ЕГО ПО МОРДЕ ЧАЙНИКОМ! ;)
        BR      .                       ;...

FMTS:   .ASCII  /TASK NAME:      %R%R%N/
        .ASCII  /PARTITION NAME: %R%R%N/
        .ASCII  /RESERVED:       %P,%P%N/
        .ASCII  /PRIORITY:       %M%N/
        .ASCII  /UIC:            %P%N/
        .ASCII  /LUNS:           %M%N/
        .ASCII  /CPU MODEL:      %M%N/
        .BYTE   0

        .END    START


.MAC RSXMAC/LIB+KAKA/OB

.LIN/LINK:RSXLIB KAKA

.RU KAKA

TASK NAME:      RTET51
PARTITION NAME: GEN   
RESERVED:       000000,000000
PRIORITY:       50
UIC:            000527
LUNS:           19
CPU MODEL:      94


?RTE-U-Aborted via directive, CLI, or user

>

[Advertiser]

[hobot]

прога в которой ни одной директивы RT-11

offtop

[свернуть]