Index of /ukdwk_archive/dwkwebcomplekt/MU_BASIC11_V2

[ICO]NameSizeDescription
[PARENTDIR]Parent Directory -  
[   ]mubas20.dsk800K 



MU BASIC-11/RT-11

дистрибутив MU BASIC-11/RT-11 V2.00R.
Все ранее выложенные патчи наложены.
 В комплекте есть пресобранные MUBAS.SAV (SB/SJ/FB)
 и MUBASX.SAV (XB/XM/ZB/ZM) для любого набора
 инструкций. Два файла конфигурации
 1USER.CNF и 2USER.CNF настроены соответственно на
 1 и 2 терминала. 
Перед запуском нужно отредактировать эти файлы и поменять
 LD0 на имя диска с которого все запускается.
 Программа MULNK (запускается из под MU BASIC) 
используется для генерации нужного варианта MU BASIC, 
программа MUCNFG - для создания файлов конфигурации.



Отличия от документации на MU BASIC-11 V1.00



MU BASIC-11/RT-11 - ассемблерные подпрограммы.




Изменения BSCLI.MAC для добавления вызова GTIM в BASIC-11/MU BASIC-11.

Код:

FTBL:   .WORD   GTIMNM
...
AREA:   .BLKW   2
TIME:   .BLKW   2

GTIMNM: .ASCII  <4>/GTIM/
        .EVEN
        .WORD   GTIM

        .MCALL  .GTIM

GTIM:   MOV     -2(R5),R4               ;УКАЗАТЕЛЬ НА ДЕСКРИПТОРЫ АРГУМЕНТОВ
        CMP     #101002,(R5)+           ;ПРОВЕРЯЕМ ЧТО АРГУМЕНТОВ 2
        BNE     ARGERR                  ;ОШИБКА АРГУМЕНТОВ
        CALL    CHECK                   ;ПРОВЕРЯЕМ ТИПЫ АРГУМЕНТОВ
        .GTIM   #AREA,#TIME             ;ПОЛУЧАЕМ СИСТЕМНОЕ ВРЕМЯ
        MOV     TIME,@(R5)+             ;ВОЗВРАЩАЕМ СТАРШУЮ ЧАСТЬ
        MOV     TIME+2,@(R5)+           ;ВОЗВРАЩАЕМ МЛАДШУЮ ЧАСТЬ
        RETURN                          ;ВОЗВРАТ В BASIC

CHECK:  CALL    @PC                     ;ДВАЖДЫ ВЫПОЛНЯЕМ КОД НИЖЕ
        MOV     (R4)+,R0                ;ПОЛУЧАЕМ ТИП АРГУМЕНТА
        TSTB    R0                      ;ЭТО ПЕРЕМЕННАЯ?
        BMI     ARGERR                  ;НЕТ
        CMPB    #23,R0                  ;ТИП INTEGER?
        BNE     ARGERR                  ;НЕТ
        RETURN                          ;

ARGERR: JMP     $ARGER                  ;ВЫЗОВ ОШИБКИ ARGUMENT ERROR

Вызов из BASIC:

CALL GTIM(H%,L%)
CALL "GTIM"(H%,L%)
GTIM(H%,L%)

Где H% и L% - целые переменные
для получения старшей и младшей
части тиков соответственно.

Image  :   mubas20.dsk

Format :   DSK 
Size   :   800 Kb

Volume ID: MU BASIC-11
Owner    : FORM

File       Blocks    Date       Bytes
---------- ------ ----------- ----------
BSCLI .OBJ     1  08-Jan-1981        512
BSCLIN.OBJ     1  08-Jan-1981        512
BSCLLB.OBJ     5  08-Jan-1981      2'560
BSCLS .OBJ     6  08-Jan-1981      3'072
BSCLSN.OBJ     1  08-Jan-1981        512
BSCMP .OBJ     5  08-Jan-1981      2'560
BSERML.OBJ    11  08-Jan-1981      5'632
BSERMS.OBJ     7  08-Jan-1981      3'584
BSERR .OBJ     3  08-Jan-1981      1'536
BSE0  .OBJ    16  08-Jan-1981      8'192
BSE1  .OBJ     9  08-Jan-1981      4'608
BSFUNC.OBJ    14  08-Jan-1981      7'168
BSKEYS.OBJ     7  08-Jan-1981      3'584
BSOT0D.EAE    12  08-Jan-1981      6'144
BSOT0D.EIS    12  08-Jan-1981      6'144
BSOT0D.FIS    12  08-Jan-1981      6'144
BSOT0D.FPU     7  08-Jan-1981      3'584
BSOT0D.OBJ    12  08-Jan-1981      6'144
BSOT0S.EAE    10  08-Jan-1981      5'120
BSOT0S.EIS     9  08-Jan-1981      4'608
BSOT0S.FIS     7  08-Jan-1981      3'584
BSOT0S.FPU     7  08-Jan-1981      3'584
BSOT0S.OBJ     9  08-Jan-1981      4'608
BSOT1D.EAE     9  08-Jan-1981      4'608
BSOT1D.EIS     9  08-Jan-1981      4'608
BSOT1D.FIS     9  08-Jan-1981      4'608
BSOT1D.FPU     4  08-Jan-1981      2'048
BSOT1D.OBJ     9  08-Jan-1981      4'608
BSOT1S.EAE     6  08-Jan-1981      3'072
BSOT1S.EIS     6  08-Jan-1981      3'072
BSOT1S.FIS     6  08-Jan-1981      3'072
BSOT1S.FPU     3  08-Jan-1981      1'536
BSOT1S.OBJ     6  08-Jan-1981      3'072
BSPAT .OBJ     2  08-Jan-1981      1'024
BSPR0 .OBJ     3  08-Jan-1981      1'536
BSPR0N.OBJ     3  08-Jan-1981      1'536
BSPR1 .OBJ     7  08-Jan-1981      3'584
BSPR1N.OBJ     1  08-Jan-1981        512
BSPTRD.OBJ     9  08-Jan-1981      4'608
BSPTRS.OBJ     9  08-Jan-1981      4'608
BSRSQ .OBJ     2  08-Jan-1981      1'024
BSRSQN.OBJ     1  08-Jan-1981        512
BSR0D .OBJ     9  08-Jan-1981      4'608
BSR0S .OBJ     8  08-Jan-1981      4'096
BSR1D .OBJ     5  08-Jan-1981      2'560
BSR1S .OBJ     4  08-Jan-1981      2'048
BSSUB .OBJ     2  08-Jan-1981      1'024
BSSUBN.OBJ     1  08-Jan-1981        512
BSX0A .OBJ    11  08-Jan-1981      5'632
BSX0B .OBJ     8  08-Jan-1981      4'096
BSX1A .OBJ     9  08-Jan-1981      4'608
BSX1B .OBJ     8  08-Jan-1981      4'096
BSX2  .OBJ     8  08-Jan-1981      4'096
MUBEE .OBJ     1  08-Jan-1981        512
MUBSAX.OBJ     3  08-Jan-1981      1'536
MUBSSA.OBJ     3  08-Jan-1981      1'536
MUBSSC.OBJ     1  08-Jan-1981        512
MUBS1 .OBJ    21  08-Jan-1981     10'752
MUBS1X.OBJ    21  08-Jan-1981     10'752
MUBS2 .OBJ    12  28-Mar-2015      6'144
MUBS2E.OBJ    14  08-Jan-1981      7'168
MUBS2X.OBJ    13  28-Mar-2015      6'656
MUBS3 .OBJ     9  08-Jan-1981      4'608
MUBXE .OBJ     1  08-Jan-1981        512
MUBZ  .OBJ     1  08-Jan-1981        512
MUBZX .OBJ     1  30-Mar-2015        512
MUEID .OBJ     1  08-Jan-1981        512
MUE1ID.OBJ     1  08-Jan-1981        512
MUIMP .OBJ    18  30-Mar-2015      9'216
MUIMPX.OBJ    21  30-Mar-2015     10'752
MUOFID.OBJ     1  08-Jan-1981        512
MUOPT .OBJ     4  08-Jan-1981      2'048
MUO1ID.OBJ     1  08-Jan-1981        512
MUXID .OBJ     1  08-Jan-1981        512
BSASM .MAC     5  08-Jan-1981      2'560
BSASMX.MAC     6  08-Jan-1981      3'072
BSCLI .MAC     5  08-Jan-1981      2'560
BSMAC .MAC    11  08-Jan-1981      5'632
CTMU  .MAC    99  08-Jan-1981     50'688
MUBZX .MAC     1  28-Mar-2015        512
MUCVT .B       7  08-Jan-1981      3'584
MUCVT .D      12  08-Jan-1981      6'144
MUCVT1.B      11  08-Jan-1981      5'632
MUCVT2.B      11  08-Jan-1981      5'632
9CAT  .B       5  08-Jan-1981      2'560
EXIT  .B00     2  08-Jan-1981      1'024
INIT  .B00     3  08-Jan-1981      1'536
INITH .B00     5  08-Jan-1981      2'560
MUCNFG.B00     7  08-Jan-1981      3'584
MUCNFG.D00    15  08-Jan-1981      7'680
MUCNF1.B00     9  08-Jan-1981      4'608
MUCNF2.B00     8  08-Jan-1981      4'096
MULNK .B00     3  08-Jan-1981      1'536
MULNK .D00     7  08-Jan-1981      3'584
MULNK1.B00     8  08-Jan-1981      4'096
MULNK1.D00     1  08-Jan-1981        512
MULNK2.B00     5  08-Jan-1981      2'560
MULNK3.B00     4  08-Jan-1981      2'048
NOTICE.B00     1  08-Jan-1981        512
PASWRD.B00     1  08-Jan-1981        512
ZAP   .B00     3  08-Jan-1981      1'536
MUBAS .SAV    84  30-Mar-2015     43'008
MUBAS .MAP    42  30-Mar-2015     21'504
MUBASX.SAV    96  30-Mar-2015     49'152
MUBASX.MAP    42  30-Mar-2015     21'504
1USER .CNF     1  28-Mar-2015        512
2USER .CNF     1  30-Mar-2015        512
< UNUSED >   556                 284'672
---------- ------ ----------- ----------
 107 Files, 1030 Blocks
 556 Free blocks