Важная информация

User Tag List

Страница 14 из 14 ПерваяПервая ... 1011121314
Показано с 131 по 136 из 136

Тема: BASIC ДВК

  1. #131
    Guru
    Регистрация
    02.03.2015
    Адрес
    г. Караганда, Казахстан
    Сообщений
    2,321
    Спасибо Благодарностей отдано 
    35
    Спасибо Благодарностей получено 
    225
    Поблагодарили
    177 сообщений
    Mentioned
    17 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Вообще-то я с этим Бейсиком ни разу не работал. Я в своё время (первая половина 80-х) довольно много работал с ПЛОСовским Бейсиком на Электронике-60М (ЦП М2). Когда же мне, уже в 90-е, в руки попал ДВК-1 с ПЗУхой 013, я запустил этот Бейсик и понял, что он ну очень похож на тот самый ПЛОСовский Бейсик от Э-60, в котором двоичным редактором перетерли часть сообщений, заменив их на русские в коде КОИ-7 Н2.

    Цитата Сообщение от piotr433 Посмотреть сообщение
    По вашей ссылке совсем другая программа.
    Я сравнивал эту программу с тем перфоленточным Бейсиком, который был в комплекте Э-60. Ну очень похоже. Сравнивал, правда, по памяти, оригинала у меня нет. Хотя в Сети где-то должна быть и копия этой перфоленты...
    Кто мешает тебе выдумать порох непромокаемый? (К.Прутков, мысль № 133)

  2. #132
    Guru
    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    6,996
    Спасибо Благодарностей отдано 
    285
    Спасибо Благодарностей получено 
    631
    Поблагодарили
    531 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Код:
    .BOO/FOR HX1:
    
    HX 2.2  XXDP  Cold boot..
    
    
    
    BOOTING UP XXDP-XM EXTENDED MONITOR
    
    
    XXDP-XM EXTENDED MONITOR - XXDP V2.5
    REVISION: F0
    BOOTED FROM HX1
    124KW OF MEMORY
    UNIBUS SYSTEM
    
    RESTART ADDRESS: 152000
    TYPE "H" FOR HELP !
    
    .R BASIC
    BASIC .BIN
    
    PDP-11 BASIC, VERSION 007A
    *O
    READY
    
    PRINT 10
     10
    
    R0=004106  R1=013545  R2=177560  R3=013540  R4=016142  R5=016106
    SP=157472  PC=000702  PS=000004
    >>>B HX1
    HX 2.2  XXDP  Cold boot..
    
    
    
    BOOTING UP XXDP-XM EXTENDED MONITOR
    
    
    XXDP-XM EXTENDED MONITOR - XXDP V2.5
    REVISION: F0
    BOOTED FROM HX1
    124KW OF MEMORY
    UNIBUS SYSTEM
    
    RESTART ADDRESS: 152000
    TYPE "H" FOR HELP !
    
    .R RBASIC
    RBASIC.BIN
    
    100/16i b|iCiK, BAPiAHT 001A
    *O
    gOTOB
    PRINT 10
     10

  3. #133
    Junior Аватар для piotr433
    Регистрация
    16.02.2011
    Адрес
    Szczecin, Польша
    Сообщений
    25
    Спасибо Благодарностей отдано 
    15
    Спасибо Благодарностей получено 
    24
    Поблагодарили
    9 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от AFZ Посмотреть сообщение
    Я сравнивал эту программу с тем перфоленточным Бейсиком, который был в комплекте Э-60. Ну очень похоже.
    Я в этом не сомневаюсь, но листинг от СуперМакса с ними ничуть не сходится.

    Пример - обработка команды FOR из листинга СуперМакса:

    Код:
    1391	MOV	R1,-(SP)
    1392	DEC	(SP)		;(LOC OF THE 'FOR')
    1393	MOVB	(R1)+,R2
    1394	BMI	ERRSX6
    1395	SWAB	R2
    1396	BISB	(R1)+,R2	;ADDRESS RUNNING VARIABLE IN SYMBOL TABLE
    1397	ADD	(R5),R2
    1398	CMPB	(R1)+,#.EQ	;CHECK "="
    1399	BNE	ERRSX6
    1400	MOV	R2,VARSAV(R5)	;(VAR OF THE FOR)
    1401	JSR	PC,EVAL		;EVALUATE START VARIABLE
    Для сравнения соответствующий код из ПЗУ 013:

    Код:
    007306: TRAP 126	;parse the variable name
    007310: CMP R2, #75	;equals sign
    007314: BNE 7552
    007316: CLR R0
    007314: MOV R4, -(SP)
    007322: TRAP 134	;beginning of the running state storage
    007324: TRAP 114	;search the running state storage
    007326: BNE 7336	;skip if variable found
    007330: MOV R4, R0
    007332: TRAP 146	;allocate space for the variable
    007334: BR 7342
    Обратите внимание на широкое использование TRAP-ов для вызова подпрограмм.

  4. #134
    Moderator
    Регистрация
    25.08.2012
    Адрес
    г. Красноярск
    Сообщений
    1,167
    Спасибо Благодарностей отдано 
    310
    Спасибо Благодарностей получено 
    341
    Поблагодарили
    243 сообщений
    Mentioned
    22 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    вот что ко мне пришло вчера

    Basic-11 V2 - Source File Assembling and Linking

    Lou Ernst 5/8/2007


    References: (available from Bitsavers.org)

    DEC-11-LIBTA Basic-RT V2 Installation Manual
    DEC-11-LIBUA Basic-11 Users Guide

    Files: DISK1.DSK (RT-11 logical disk image of the first floppy - Basic-11)
    DISK2.DSK (RT-11 logical disk image of the second floppy - Basic-11)
    DISK3.DSK (RT-11 logical disk image of the third floppy - MU Basic)
    BASIC.DSK (a single RT-11 logical disk image of files from the first and second disk that has been cleaned up - extraneous/redundant files removed. Use this disk image for best results for generating Basic-11)

    Background:

    Basic-11 V2 is a basic language package for RT-11. It can be customized to run in as little as 8kw of core (by way of overlays) and make use of EIS, FIS, or an FPU if available.

    The collection of files here was extracted from three RX02s that Tom Ponsford had in his collection. He purchased some binders with Basic-11 documentation in them with three RX02 floppies at a University of Arizona auction in 2005. Tom never read the disks, but correctly assumed that they would eventually be readable by someone with an RX02 or compatible drive.

    I read the disks on my 11/23+ and found what you now see. Two of the disks had the complete source code for Basic-11 V2 as .MAC files, the SUCNFG.BAS and related configuration files, and a series of .BAT files for patching assembled code with various fixes. The .MAC files are fully commented and can be amusing to simply read by themselves. The comments can give insights into the personalities of the programmers in the early/mid seventies when this code was written.

    The third disk contained assembled and linked .SAV files for Multi-User Basic (mubas.sav) and the version of MU Basic optimized to take advantage of the XM monitor (mubasx.sav). MU Basic ran on RT-11 systems sysgened for multi-terminal support. Each terminal would appear to the operator to be connected to its own dedicated machine running basic. Only some of the MU Basic source files are present, there is not enough here to run mucnfg.bas and assemble and link custom versions of MU Basic. Perhaps the rest will turn up eventually. The present author has not gone to the trouble to install the hardware and sysgen his system for multi-user support to verify that the MU Basic .sav files work. However, there is no reason not to believe that they do.

    The author extracted these files from his 11/23+ with Will Kranz' TU58.exe IBM-PC TU58 emulator. The PC running the emulator when connected properly looks like DD: to the pdp-11. The .dsk images can be manipulated on a PC with Will's rtxtra and rtdir utilities. There are various other ways to transport the files that work just as well.

    Most, if not all of the manuals required to get started with Basic-11 (and MU Basic) are on Bitsavers and should be reviewed.

    However, the dec manuals all appear to assume that the user who is building his own custom version of Basic already has assembled .OBJ files. In this archive there are the original source .MAC files, which need to be assembled before they can be linked as illustrated in the manual.

    In the paragraphs that follow, the instuctions to assemble and link custom versions of Basic-11 are detailed.


    Procedure:

    It is assumed that the user has a sizeable mass storage device, like an RK05 or RL01 or RDxx. If that is not the case (a system with no fixed disks and limited removable storage) the user is not out of luck. They will instead however, need to be more careful, planning to put only the needed files on the working disks.

    Transfer the logical disk image with the source files (basic.dsk is suggested) to your machine and mount the logical disk. Assign the logical disk to DK:. There is already a basic.sav on the logical disk. This is needed to run the sucnfg.bas configuration file. This basic, as stated in the installation guide has type 3 overlay and no math hardware support. The manual also mentions bas8k and basicd. A user can make his own basicd from selecting the right options in sucnfg. Bas8k is only needed if the user's machine only has 8k (overlay 5). The sucnfg basic program generates an indirect file that when run will link the necessary pre-assembled .OBJ files. Again though, the necessary .OBJ may not be present here, they need to be assembled from the .MAC files. Sucnfg.bas will chain to other small sucnfg#.bas files as it runs. Assumedly this was done for users with only 8kw. Sucnfg1.bas does most of the work populating the indirect file with most of the appropriate routines to be linked based on the question responses. One of the sucnfg2 through 6 files adds the remaining entries depending on the overlay structure requested. Sucnfg7 cleans up and finishes off the job.

    To determine what source files need to be assembled, run the sucnfg.bas as detailed in the Basic-11 Instalaltion Guide. The user will be prompted to answer questions about the his custom basic should be built, reminescent of a simplified rt-11 sysgen. Next, examine the indirect file that was generated - it contains the list of .OBJ files that need to be assembled.

    For each .OBJ to be assembled, there are three .MAC files required. These are BSMAC.MAC, BSASM.MAC, and the .MAC that has/almost has the name of the finished .OBJ required. The BSMAC.MAC contains some common routines used by every .OBJ the user will be creating. BSASM.MAC contains definitions that will be looked for by assembler directives in the third .MAC file mentioned above. The user should examine the BSASM.MAC and edit it so that it agrees with the choices made when sucnfg.bas was run (for example, double or single precision, subroutine support, resequencing, etc.) Various versions of BSASM.MAC that were present on the source floppies have been left here. They have filenames like BSASM*.mac, where * is some other letter.

    There is often not a .MAC file with exactly the name of the .OBJ file referenced in the indirect file generated by sucnfg.bas. Often the difference is a missing last letter. For example, the indirest file shows BSR0D while only BSRO.MAC is found. The present author has found that depending on the definition found in the BSASM.MAC, the BSR0 can complile with double or single precision support, hence the D or S at the end of the compiled BSR0D or BSR0S that came from BSR0.MAC.

    So, to create BSROD.OBJ, the user edits BSASM.MAC to enable the definition for double precision support then does:

    .R MACRO
    *BSR0D=BSMAC,BSASM,BSR0

    and gets BSROD.OBJ as output. Other files this is true for are BSSUB (BSSUB and BSSUBN for subroutine and no subroutine support) and slightly more complicated BSERML (long err msg) or BSERMS (short err msg), which are generated from BSERMD (double precision) and BSERMS.MAC (single precision).

    BSCLI is also tricky. If the user is not linking other outside routines that will need call support, then assemble this file to BSCLIN.OBJ. If they will, follow the instructions in the users guide in the chapter entitled "Using Assembly Language Routines with Basic."

    Some files are straightforward, as with SUDTCM. It assembles to SUDTCM.OBJ. In all cases, always assemble all three files. Again for example:

    .R MACRO
    *SUDTCM=BSMAC,BSASM,SUDTCM

    Some files do not have to be assembled, they already have been. These are BSOT0 and 1, D and S .EAE, .EIS, .FIS, .FPU. These routines contain the transindental function support using optional math hardware, if so selected for incorporation by sucnfg. The unassembled source files are not here.

    Once all the files have been assembled, then the indirect file generated by SUCNFG.BAS can be executed as illustrated in the installation guide.

    Notes about linking Basic-11 with assembly routines provided with hardware (drivers):

    If the user has assembly routines to link with Basic (as described in the installation manual and users guide) they may also need to link a library called BSCLLB if requested by the instructions that came with the hardware. The author has a National Instruments GPIB11V-2 interface card for which that is the case. BSCLLB.MAC or .OBJ was not found with this distribution, however a series of other files that appear to contain the routines that would otherwise have been in BSCLLB were found. The user should assemble BSMAC and BSASM with each of the following: BSCLAE, BSCLAL, BSCLBM, BSCLCH, BSCLCK, BSCLMS, BSCLPL, and BSCLRT. Then when answering the question in SUCNFG concerning user provided files to be linked, instead of entering BSCLLB, instead enter each of the individual files assembled above.

    Good Luck. If the reader gets stuck, he is welcome to send the present author an e-mail for help.
    брать тут
    https://mirrors.pdp-11.ru/search.php...1%20dec&page=1
    http://mirrors.pdp-11.ru/_pdp-11/_soft/Basic-11/
    Последний раз редактировалось SuperMax; 13.01.2022 в 05:59.
    Все о БК ДВК УКНЦ VAX Alpha

    Архив ПО для ретрокомпьютеров

    предоставляю бесплатный хостинг на PDP-11.RU для проектов о ретрокомпьютерах

  5. Эти 2 пользователя(ей) поблагодарили SuperMax за это полезное сообщение:

    anasana (14.01.2022), piotr433 (15.01.2022)

  6. #135
    Veteran
    Регистрация
    22.11.2009
    Адрес
    Москва
    Сообщений
    1,588
    Спасибо Благодарностей отдано 
    68
    Спасибо Благодарностей получено 
    157
    Поблагодарили
    103 сообщений
    Mentioned
    12 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    любопытно, что происходит на этом видео



    если учесть, что mame не умеет в двк....

  7. #136
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,564
    Спасибо Благодарностей отдано 
    1,225
    Спасибо Благодарностей получено 
    1,772
    Поблагодарили
    686 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от shattered Посмотреть сообщение
    любопытно, что происходит на этом видео
    А что происходит?

  8. #136
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

Страница 14 из 14 ПерваяПервая ... 1011121314

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. 128 basic
    от sevol в разделе Для начинающих
    Ответов: 31
    Последнее: 21.04.2020, 13:25
  2. laser basic
    от johnny в разделе Программирование
    Ответов: 32
    Последнее: 17.02.2014, 22:57
  3. Tiny Basic
    от Kakos_nonos в разделе Зарубежные компьютеры
    Ответов: 0
    Последнее: 25.04.2011, 16:51
  4. Дизассемблер BASIC-48
    от Prusak в разделе Пресса
    Ответов: 4
    Последнее: 22.06.2010, 22:52
  5. Программы на BASIC
    от form в разделе ДВК, УКНЦ
    Ответов: 14
    Последнее: 17.04.2010, 15:41

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •