С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Исходники вильнюсских бейсиков -85 и -87 имеются, поэтому теоретически возможно переделать их на любую графику ( хоть КГД, хоть КЦГД, хоть Pro350/Э-85 ) и файловые вызовы любой операционки, поддерживающей MACRO-11 - для загрузки/выгрузки программ.
---------- Post added at 13:49 ---------- Previous post was at 13:30 ----------
Код:; ispolnitelx: ; ; ################### ; # # ; # BASIC - VVU # ; # # ; ################### ; ; ВИЛЬНЮС,1987 ; ; BK0011 =1 BK0010 =2 DVK2B =3 ;DVK SU BK0010 KLASE DVK2 =4 VUMS =5 ;SILELIS DVK3 =6 UK =7 MDS =10 ;MDS RAFOS ;------------------------ MASINA =BK0011 ; .IF EQ,MASINA-XX ;------------------------ .IF GT,MASINA-DVK2B UKM=MASINA .IF EQ,MASINA-UK KLAS=UK MSX=MASINA .IFF KLAS=BK0010 MSX=0 .ENDC .IFF UKM=0 KLAS=BK0010 MSX=0 .ENDC ; .IF GT,MASINA-BK0010 .IF EQ,MASINA-DISK RAM=160000 .IFF .IF EQ,MASINA-NET RAM=150000 .IFF RAM=160000 .ENDC .ENDC ROM=0 .IFF .IF EQ,MASINA-BK0011 RAM=1 ROM=0 .IFF MVIDEO=40000 RAM=MVIDEO ROM=120000 .ENDC .ENDC ;------------------------ MEMTYP =RAM ; .IF EQ,MEMTYP-RAM (ROM) VM =1 ; .IF EQ,VM-1 (2) SNG =0 ; .IF DF,SNG ; HOOKS =0 ; .IF DF,HOOKS DISK =0 ; .IF EQ,MASINA-DISK NET =0 ; .IF EQ,MASINA-NET CASET =MASINA ; .IF EQ,MASINA-CASET MESSAG =0 ; .IF EQ,MESSAG STACK =2000 ; .IF EQ,STACK-1000 (2000) ;------------------------
Я так понимаю это для БК0010+ДВК класса, а про сам пакет подробнее при случае
расскажите. Тут такая вещь, мне за всё время (с даты регистрации на форуме, т.е.
фактически со дня когда я озвучил что начал архив собирать ТУТ) пребывания на ZX-форуме прислали несколько архивов - и это всё было 95% УКНЦ дискеты с многочисленными повторами. Для ДВК реально никто не прислал рар-архив с подписью , вот [hobot] пачка дискет тебе с программами для ДВК.
dk_spb, если удастся скопировать, делайте и образ для хламника (!!!) Плюс в архиве есть несколько ресурсов по ДВК, но они все так или иначе на форуме публиковались уже.
---------------- размечтался и добавил
Или даже перелопатить и сделать (увековечить) компилятор ВИЛЬНЮС-БЕЙСИКА с узнаваемым окном под MS Windows )))Сообщение от Patron
Последний раз редактировалось hobot; 23.03.2012 в 06:04.
SKcorp., Так дашь дискеты попробовать считать?
Вот такой шедевр (пока копаюсь собираю внештатные утилиты под RT-11)
В прилепленном архиве - древнейший отечественный DISASM.SAV c описанием + DECOD2 с описанием )Код:.MCALL .MODULE .MODULE CONSOL,RELEASE=V05,VERSION=02,COMMENT=<Change Boot-time Console> ; COPYRIGHT (c) 1984 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ALL RIGHTS RESERVED. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ; TRANSFERRED. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ; CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. .ENABL LC .NLIST BEX .ENABL GBL ;+ ; PROGRAM TO CHANGE CONSOLE TO ONE OTHER THAN BOOT CONSOLE ;- .MCALL .MTPS,.PRINT,.EXIT CSRAD =: 176500 ;*** NEW CONSOLE INPUT CSR *** VEC =: 300 ;*** NEW CONSOLE VECTOR *** SYSPTR =: 54 ;SYSCOM POINTER TO RMON TTKS =: 304 ;CONSOLE KEYBOARD CSR TTKB =: 306 ;CONSOLE KEYBOARD BUFFER TTPS =: 310 ;CONSOLE PRINTER CSR TTPB =: 312 ;CONSOLE PRINTER BUFFER SYSGEN =: 372 ;OFFSET TO SYSGEN WORD MTTY$ =: 20000 ;MULTI-TERMINAL BIT IN SYSGEN WORD OLDVEC =: 60 ;STANDARD CONSOLE VECTOR IENABL =: 100 ;INTERRUPT ENABLE PR7 =: 340 ;PRIORITY SEVEN PR0 =: 0 ;PRIORITY ZERO BMASK =: 360/<<15.*<VEC-<20*<VEC/20>>>/8.>+1> BITMAP =: 326+<VEC/20> CONSOL: MOV @#SYSPTR,R0 ;R0 => RMON BIT #MTTY$,SYSGEN(R0) ;MULTI-TERMINAL SYSTEM? BNE 2$ ;YES - CAN'T USE THIS TECHNIQUE! .MTPS #PR7 ;GO TO PRIORITY 7 !!! BISB #BMASK,BITMAP(R0) ;PROTECT NEW CONSOLE VECTORS ADD #TTKS,R0 ;R0 => CONSOLE REGISTER LIST IN RMON MOV #CSR,R1 ;R1 => NEW CSR/DATA REG LIST BIC #IENABL,@(R0) ;DISABLE OLD INPUT CSR INTERRUPTS MOV (R1)+,(R0)+ ;MOVE IN NEW CSR ADDR MOV (R1)+,(R0)+ ;MOVE IN NEW BUFFER ADDRESS BIC #IENABL,@(R0) ;DISABLE OLD OUTPUT CSR INTERRUPTS MOV (R1)+,(R0)+ ;MOVE IN NEW CSR ADDR MOV (R1)+,(R0)+ ;MOVE IN NEW BUFFER ADDR MOV #OLDVEC,R0 ;R0 = PRESENT CONSOLE VECTOR MOV @R1,R1 ;R1 = NEW VECTOR .REPT 4 MOV (R0)+,(R1)+ ;LOAD NEW CONSOLE VECTORS .ENDR .MTPS #PR0 ;BACK TO PRIORITY 0 .EXIT ;TERMINATE PROGRAM 2$: .PRINT #NOMT ;PRINT ERROR MESSAGE .EXIT ; AND LEAVE .NLIST BEX NOMT: .ASCIZ /?CONSOL-F-Multi-terminal system ... use SET TT CONSOL command/ .EVEN CSR: .WORD CSRAD ;CSR/DATA BUFFER/VECTOR LIST .WORD CSRAD+2 .WORD CSRAD+4 .WORD CSRAD+6 .WORD VEC .END CONSOL
hobot, не сильно обещаю, но все же на майские , ели запущу квант - попробую слить данные с 2 винтов от ДВК и не заню надо ли - есть дискета и плата РАМ диска для ДВК - тоже можно сделать образ
Среди прочего на retroDOTdyndns_homeDOTcom
имеется вот такой образ
По начинке - думаю это точно для ДВК.Код:Image : RT11M.DSK Format : DSK Size : 390 Kb Volume ID: RT11A Owner : File Blocks Date Bytes ---------- ------ ----------- ---------- SWAP .SYS 27 14-Sep-1990 13'824 SL .SYS 11 13-Sep-1989 5'632 FS .SYS 4 31-Dec-1988 2'048 HD .SYS 3 22-Sep-1995 1'536 RT11SJ.SYS 79 04-Mar-1994 40'448 TT .SYS 2 04-Mar-1994 1'024 FY .SYS 3 23-Apr-1994 1'536 DIR .SAV 19 17-Apr-1989 9'728 NYS .SAV 22 17-Apr-1989 11'264 RESORC.SAV 24 17-Apr-1989 12'288 SP21 .SAV 21 18-Dec-1987 10'752 SPEED .SAV 3 25-Jul-1989 1'536 DOS .SAV 2 08-Aug-1992 1'024 DAYS .SAV 4 04-Mar-1994 2'048 DUP .SAV 45 04-Mar-1994 23'040 PIP .SAV 30 04-Mar-1994 15'360 BINCOM.SAV 24 04-Mar-1994 12'288 UCL .SAV 2 04-Mar-1994 1'024 UCLSTD.SAV 15 04-Mar-1994 7'680 DESS .SAV 19 04-Mar-1994 9'728 MACRO .SAV 61 04-Mar-1994 31'232 LINK .SAV 49 04-Mar-1994 25'088 PASCAL.SAV 58 04-Mar-1994 29'696 VC .SAV 2 08-Dec-1999 1'024 XONIX .SAV 23 01-Dec-1994 11'776 TETRIS.SAV 28 07-Dec-1994 14'336 SHERIF.SAV 24 07-Dec-1994 12'288 UCL .DAT 9 04-Mar-1994 4'608 SYSMAC.SML 50 04-Mar-1994 25'600 PASCAL.OBJ 87 04-Mar-1994 44'544 README.LST 1 04-Aug-1992 512 STARTS.COM 1 23-Apr-1994 512 VC .MAC 1 08-Dec-1999 512 QUIT .SAV 1 22-Sep-1995 512 HD .MAC 6 23-Sep-1995 3'072 VC .OBJ 1 08-Dec-1999 512 < UNUSED > 5 2'560 ---------- ------ ----------- ---------- 36 Files, 761 Blocks 5 Free blocks
Допускаю что это 400кб дискета с системой
Но вот содержание ридми файла
и отсутсвие MX или MZ драйвера ??? Так что это,Код:Таймер - <F12>, Пульт - <F11>, Выход - <F11>,Q
образ для эмулятора? Какого? Какой драйвер тогда
для загрузки HD.SYS ? (там есть исходник HD.MAC)
Запустил с этого образа программу SPEED.SAV в
эмуляторе ДВК
И ещё одна программа оттуда же
Из IO.DOCКод:Image : io.dsk Format : DSK Size : 38 Kb Volume ID: RT11A Owner : File Blocks Date Bytes ---------- ------ ----------- ---------- IO .ABS 3P 28-Jan-1985 1'536 IO .DIR 1P 28-Jan-1985 512 IO .DOC 25P 28-Jan-1985 12'800 IO .MAC 39P 28-Jan-1985 19'968 ---------- ------ ----------- ---------- 4 Files, 68 Blocks 0 Free blocks
Оба архива прилеплены для всех желающих поизучать )))Код:3. STANDARD OUTPUT. The .WRIT(C, E, or W) request behaves in the normal RT-11 manner except that several .WRIT(C or E) requests to different ports will result in concurrent output to those ports. In PASCAL for example, use: rewrite(f, 'io3:'); {open port 3 (CSR=176530) for output} write(f, data); In MACRO for example, use the sequence: .FETCH loadaddr, devicename ; if handler not already LOADed. .LOOKUP emtarea, channo, devname .WRITC emtarea, channo, buffaddr, wordcnt, comproutine, blockno
И ещё куча всего интересного для ДВК!Код:****** МГУ, МЕХМАТ, ЛВМ. ПОСТАВКА-88 *******! ! ! ! ТЕКСТ ДЛЯ ПРЕДВАРИТЕЛЬНОГО ЧТЕНИЯ ! 4!README.1ST 63 ! ! РАСКЛАДКА ДЛЯ ДВК-2М ("ФРЯЗИНСКИЙ ТЕРМИНАЛ")! 12!MIM2M.DOC 63 РАСКЛАДКА ДЛЯ ДВК-3 (КЛАВИАТУРА УВИ-01) ! 11!MIM3.DOC 63 РАСКЛАДКА ДЛЯ ДВК-3М2 (ХОРОШАЯ КЛАВИАТУРА) ! 11!MIM3M2.DOC 63 РАСКЛАДКА ДЛЯ VT-52 ! 14!MIM52.DOC 63 ! ! МИКРОМИР-85 ДЛЯ КОДА RSCII ! 36!MIM.SAV МИКРОМИР-85 ДЛЯ КОДА КОИ-8 ! 37!MIMK8.SAV БЛОКОВЫЙ РЕДАКТОР ! 43!BLE.SAV ! ! Е-ПРАКТИКУМ ДЛЯ ДВК-2М ! 39!E86.SAV КРАТКАЯ ШПАРГАЛКА ! 6!E86.DOC АЛЬФА-ПРАКТИКУМ (ПОПРОБУЙТЕ ЗАПУСТИТЬ) ! 29!ALP.SAV ИГРА "СЛОВА" ( -"- ) ! 34!KLP.SAV PDP-ПРАКТИКУМ ! 43!EWM.SAV ! ! ОПИСАНИЕ ФРЯЗИНСКОГО ТЕРМИНАЛА (ДВК-2) ! 15!DFRQZ.TRM ОПИСАНИЕ ТЕРМИНАЛА ДВК-3 (УВИ-1) ! 17!DDWK3.TRM ОПИСАНИЕ ТЕРМИНАЛА ДВК3М2 (КЛАВ. ОТ ЭЛ.-85) ! 17!DDWK3M.TRM ОПИСАНИЕ ТЕРМИНАЛА VT52 ! 14!DVT52.TRM ! !
Это конечно немного "повтор", но в таком виде
материал собран впервые, два пакета на одной дискете,
правда что к чему относится определять нужно сверяясь
с прилагаемой на дискете документацией.
Я запускал только практикум
Скрытый текст
И поблочный редактор дискет BLE.SAV ещё порадовал )
Просто я его либо забыл напрочь, либо вообще никогда не видел )
Код:Image : dvksoft1.dsk Format : DSK Size : 800 Kb Volume ID: RT11A Owner : File Blocks Date Bytes ---------- ------ ----------- ---------- TSTMY8.SAV 16 27-Dec-1988 8'192 TSTMY4.SAV 16 22-Dec-1987 8'192 KNSO .TXT 5 2'560 MX .SYS 9 26-May-1988 4'608 MYFORM.SAV 5 14-Feb-1986 2'560 MY .SYS 3 31-Dec-1988 1'536 TESTMY.SAV 16 30-May-1986 8'192 BOOK1 .TXT 421 05-Jun-1987 215'552 BOOK2 .TXT 431 05-Jun-1987 220'672 README.MX 82 41'984 ARCHIV.TXT 11 19-Dec-1988 5'632 ARCHIV.SAV 7 19-Dec-1988 3'584 SATMON.SAV 2 1'024 SATMON.MAC 4 2'048 CHESS .SAV 25 02-Dec-1983 12'800 E86 .DOC 6 3'072 DVT52 .TRM 14 7'168 KLP .SAV 34 17'408 E86 .SAV 39 19'968 DDWK3 .TRM 17 8'704 DDWK3M.TRM 17 8'704 MIM2M .DOC 12 6'144 MIM3 .DOC 11 5'632 MIM3M2.DOC 11 5'632 PR .TXT 1 512 MICROS.DIR 3 1'536 MIMK8 .SAV 37 18'944 BLE .SAV 44 22'528 RTC .SAV 16 8'192 MIM .SAV 36 18'432 EWM .SAV 43 22'016 README.LST 4 2'048 2DSCI .SAV 65 33'280 SETUP .SCI 1 512 SIN .SCI 1 512 X .DAT 1 512 Y .DAT 1 512 TSIN .DAT 2 1'024 PRINT .SCI 3 1'536 PRTSLD.SAV 10 5'120 LGL .SLD 6 3'072 ALL .SLD 7 3'584 MIGEL .SLD 4 2'048 AN .SLD 7 3'584 README.TXT 8 4'096 2DSCI .SCI 1 512 < UNUSED > 71 36'352 ---------- ------ ----------- ---------- 46 Files, 1515 Blocks 71 Free blocks[свернуть]
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)