Index of /ukdwk_archive/dwkwebcomplekt/MU_BASIC11_V2
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
![[ICO]](/icons/blank.gif){kind=icon}
![[PARENTDIR]](/icons/bullet_arrow_up.png){kind=icon}
![[ ]](/icons/hdd_unmount.png){kind=icon}