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

User Tag List

Страница 2 из 35 ПерваяПервая 123456 ... ПоследняяПоследняя
Показано с 11 по 20 из 342

Тема: PASCAL + MACRO11 (УКНЦ-ДВК).

  1. #11
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Question MicroPower Pascal от DEC версия 1.0



    Пока у меня только документация (в pdf) - она в свободном доступе давно лежит, а вот сам Паскаль где бы найти? Может у кого то есть ? Или кто-то может поделится ссылкой где копать? Спасибо !




    Этот документ в формате pdf даже в сжатом виде слишком объёмный
    к этому сообщению его прилепить нельзя, к тому же повторюсь в сети
    он есть сравнительно давно уже.

    *в сообщении о fast-pascal добавил архив с полной документацией.
    Последний раз редактировалось hobot; 24.12.2012 в 10:38.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  2. #12
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Post Уточнение по Учебному Паскалю

    http://zx.pk.ru/showpost.php?p=558130&postcount=7 из этого поста,
    сравнил (случайно) версию которую Patron давно давно выкладывал (и которая в архиве давно давно лежит), так вот там более продвинутый 1.3
    Учебный Паскаль, кому интересно можно брать тут
    >http://archive.pdp-11.org.ru/ukdwk_archive/dwkwebcomplekt/Algol_C_F77_Pascal_Lisp/PASCAL.DSK<
    >http://hobot.pdp-11.ru/ukdwk_archive/dwkwebcomplekt/Algol_C_F77_Pascal_Lisp/PASCAL.DSK<

    1.3 версия если сравнить шапочки вышла на 2 месяца позже, на образе
    по ссылке все необходимые файлы.

    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  3. #13
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Smile РАСШИРЕНИЕ СТАНДАРТНЫХ ВОЗМОЖНОСТЕЙ ПАСКАЛЯ

    Ну да так и есть.
    Расширяем набор процедур и функций стандартного паскаля.
    На прилагаемой дискете нового в принципе ничего (на форуме уже
    выкладывалось), но что бы данную тему освежить - самое то.

    Подробности...

    Скрытый текст


    Содержимое диска:
    Код:
    Image  :   power_pascal.dsk
    
    Format :   DSK 
    Size   :   800 Kb
    
    Volume ID: PASCAL
    Owner    : ZX-FORUM
    
    File       Blocks    Date       Bytes
    ---------- ------ ----------- ----------
    PASCAL.SAV    52P 22-Apr-1987     26'624
    PASCAL.OBJ    83P 22-Apr-1987     42'496
    MACRO .SAV    63P 21-Dec-1980     32'256
    LINK  .SAV    59P 31-Oct-1998     30'208
    SYSLIB.OBJ    47P 19-Dec-1988     24'064
    SYSMAC.SML    92P 31-Oct-1998     47'104
    POWER .TTL     2P 02-Feb-1994      1'024
    POWER .OBJ     6P 30-Jan-1994      3'072
    POWER .PAS     9P 07-Feb-1994      4'608
    POWER .SAV    13P 03-Dec-1993      6'656
    BOX   .MAC    11P 24-Jan-1993      5'632
    BOX   .OBJ     1P 31-Dec-1999        512
    SHBOX .PAS     1  21-Feb-1981        512
    SHBOX .SAV     4P 31-Dec-1999      2'048
    < UNUSED >  1143                 585'216
    ---------- ------ ----------- ----------
     14 Files, 443 Blocks
     1143 Free blocks
    Библиотека POWER.OBJ содержит в себе:
    Код:
    Файл POWER.TTL
    (* TEXT MODE *)
    PROCEDURE INV(N:BOOLEAN);EXTERNAL;
    PROCEDURE UNDERLINE(N:BOOLEAN);EXTERNAL;
    PROCEDURE MODE(N:INTEGER);EXTERNAL;
    PROCEDURE DKL(N:BOOLEAN);EXTERNAL;
    PROCEDURE AT(X,Y:INTEGER);EXTERNAL;
    PROCEDURE COLOR(A,B,C:INTEGER);EXTERNAL;
    
    PROCEDURE SCREEN(N:BOOLEAN);EXTERNAL;
    
    (* GRAPHICS MODE *)
    PROCEDURE PLOT(X,Y,C:INTEGER);EXTERNAL;
    PROCEDURE LINE(X,Y,XX,YY,C:INTEGER);EXTERNAL;
    PROCEDURE DRAW(X,Y,C:INTEGER);EXTERNAL;
    PROCEDURE CURSOR(A,B:INTEGER);EXTERNAL;
    PROCEDURE PAINT(X,Y,C,CC:INTEGER);EXTERNAL;
    PROCEDURE BOX(X,Y,XX,YY,C,T:INTEGER);EXTERNAL;
    FUNCTION POINT(X,Y:INTEGER):INTEGER;EXTERNAL;
    
    (* ALL AREA *)
    PROCEDURE DISPLAY(N:INTEGER);EXTERNAL;
    PROCEDURE PRINTER(N:INTEGER);EXTERNAL;
    FUNCTION READKEY:CHAR;EXTERNAL;
    FUNCTION KEYPRESSED:BOOLEAN;EXTERNAL;
    PROCEDURE IK(N:BOOLEAN);EXTERNAL;
    PROCEDURE ID(N:BOOLEAN);EXTERNAL;
    PROCEDURE IP(N:BOOLEAN);EXTERNAL;
    FUNCTION GD:INTEGER;EXTERNAL;
    FUNCTION GIK:BOOLEAN;EXTERNAL;
    FUNCTION GID:BOOLEAN;EXTERNAL;
    FUNCTION GIP:BOOLEAN;EXTERNAL;
    Программа POWER.SAV демонстрирует работу этих подпрограмм









    Прямоугольники закрашенные УК-НЦ рисует очень шустро.


    А вот закрашивание большой площади медленное (короче говоря как в Бейсике).






    Ну после жёлтого - понятно будет ещё и белый. Долго. Медленно.
    Бейсик сразу вспоминается как не крути. )


    Режимы экрана 10Х24 - ужасный режим нигде не видел
    что бы использовался (или вроде была 1-а игра?)


    Игра про банки с вареньем? ) 20х24.


    40х24 - ИМХО:самый удобный режим для игр, которые ещё
    предстоит написать для замечательного комп. УК-НЦ. )


    80х24.




    Можно ещё добавить, что некоторые подпрограммы
    это ESC-последовательности в одну строчку )
    А некоторые конечно более сложные и не все могут
    сами написать такое (по крайней мере сразу).

    Процедура BOX в исходнике BOX.MAC и в
    объектном модуле BOX.OBJ = псевдографические окна.
    Меня она исключительно радует ) Кто автор (?) не знаю.
    Но написал что бы просто показать окошки вот такую программу
    с её использованием SHBOX.PAS :
    Код:
    PROGRAM SHOWBOX;
    /* uses BOX.OBJ */
    PROCEDURE BOX(A,B,C,D : INTEGER); EXTERNAL;
    
    BEGIN
    
    	WRITE(CHR(27),'H',CHR(27),'J');
    	WRITELN(CHR(14),'rISUEM PSEWDOGRAFI^ESKIE OKNA',CHR(15));
    	BOX(12,6,68,18);
    	BOX(10,4,70,20);
    	WRITELN(CHR(7));
    	
    END.

    [свернуть]


    Попутно, хотелось бы спросить, возможно есть счастливые
    обладатели OMSI PASCAL for RT-11 версии отличной от 1.1G ?
    Вложения Вложения
    Последний раз редактировалось hobot; 11.03.2014 в 19:33.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  4. #14
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Попутно, хотелось бы спросить, возможно есть счастливые обладатели OMSI PASCAL for RT-11 версии отличной от 1.1G ?
    На bitsavers 2.1 вроде валялся.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  5. #15
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Наконец-то сделал нормальный паскаль вместо уродливого который "для ДВК". За основу был взят вот этот как самый неиспорченный и, видимо, самый новый из паскалей этого вида.

    Пасскаль приведен в порядок:
    • поддерживаются даты после 1999 года (в листинге)
    • показывает в листинге время, а не температуру воды в мыльнице
    • вместо "SM-4" вернул на место "PDP-11"


    В аттачах старый вариант, патч и новый вариант.

    Было:
    Код:
    .DA
    28-Feb-2013
    
    .TI
    13:20:30
    
    .RU PASCAL.OLD TEST ,TT:
     
    TEST                 Pascal       SM-4      28-   -81 11:07      V1-895 Page 1  
                                   MINICOMPUTERS                                    
    
    Line  STMT Level Nest   Sourse Statement
    
       1                     PROGRAM TEST(INPUT, OUTPUT);
       2                     BEGIN
       3     1     1     1          WRITELN('HELLO WORLD!')
       4                     END.
    
    Errors detected:  0    
    Free memory:  5249  words
    
    Errors detected:  0    
    Free memory:  5249  words
    Стало:
    Код:
    .RU PASCAL TEST ,TT:
     
    TEST                 Pascal       PDP-11    28-FEB-2013 13:20    V1-895 Page 1  
                                   MINICOMPUTERS                                    
    
    Line  STMT Level Nest   Sourse Statement
    
       1                     PROGRAM TEST(INPUT, OUTPUT);
       2                     BEGIN
       3     1     1     1          WRITELN('HELLO WORLD!')
       4                     END.
    
    Errors detected:  0    
    Free memory:  5249  words
    
    Errors detected:  0    
    Free memory:  5249  words
    Вложения Вложения
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  6. #16
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Где-то еще остались косяки - под mapped мониторами работает только в VBGEXE. Без этого или виснет намертво или если выставить VIRT$ - прога падает по MMU fault. В TSX работает. Наводит на мысль, что прога криво считает область памяти которую она может использовать и если не вписывается, наползает на USR.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

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

  8. #17
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    вместо "SM-4" вернул на место "PDP-11"
    Ух ты! Я как раз отлаживаю свой исходничек ! Ура!
    Один вопрос, а почему за основу взят не OMSI? А его можно пропатчить на предмет даты? В результате моих экспериментов, я с ним сейчас работаю, поскольку исполняемый файл самый "лёгкий" по объёму получается (в моём случае 2-блока, что
    не так уж и мало).
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  9. #18
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Ух ты! Я как раз отлаживаю свой исходничек ! Ура!
    Один вопрос, а почему за основу взят не OMSI? А его можно пропатчить на предмет даты? В результате моих экспериментов, я с ним сейчас работаю, поскольку исполняемый файл самый "лёгкий" по объёму получается (в моём случае 2-блока, что
    не так уж и мало).
    Я его плохо знаю и как минимум не могу в нем собрать даже "Hello World"
    Хотя в RSXовском помню собирал как-то.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  10. #19
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Я его плохо знаю и как минимум не могу в нем собрать даже "Hello World"
    Хотя в RSXовском помню собирал как-то.
    В чём ты видишь разницу, если за основу Паскаля СМ-4 ДВКашного брался OMSI )

    Шпора для form'a )

    Код:
    PROGRAM HELLOFORM;
    
    BEGIN
              WRITELN;
              WRITELN(CHR(14),'pRIWET, ',CHR(15),'[form]');
    END.
    У меня тут реальный глюк.
    Проверка в программе игнорирует вложенный в скобки AND, похоже, что
    в процессе (на этапе ассемблера) теряется его смысл по соотношению с соседними AND - хотя его вложенность определена двойными скобками!
    Пока не победил (
    И ещё вопрос, попутный, помнится ты говорил, что ветвление CASE может не сработать? Можно подробней?
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  11. #20
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    В чём ты видишь разницу, если за основу Паскаля СМ-4 ДВКашного брался OMSI )
    В том, что когда я попробовал скомпилить OMSI 2.1, он сказал, что не знает что такое writeln
    Дальше я и копаться не стал.
    Тот, что я выложел а это один и тот же что и ДВКшный только новее и на OMSI не похож даже форматом листинга, прекрасно компилит.
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

Страница 2 из 35 ПерваяПервая 123456 ... ПоследняяПоследняя

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

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

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

Похожие темы

  1. "Исходники" Turbo Pascal нужны кому ?
    от esl в разделе Программирование
    Ответов: 2
    Последнее: 19.10.2018, 11:33
  2. Продам МС5310 блок дисководов к УКНЦ+КМД УКНЦ
    от Mad Killer/PG в разделе Барахолка (архив)
    Ответов: 7
    Последнее: 19.03.2012, 11:27
  3. в розыске дисковая версия Pascal.
    от goblinish в разделе Программирование
    Ответов: 18
    Последнее: 16.08.2011, 16:30
  4. Pascal
    от Andrew771 в разделе Программирование
    Ответов: 22
    Последнее: 24.05.2011, 21:20
  5. Скопировать/вставить из/в HiSoft Pascal в эмуляторе
    от kit в разделе Программирование
    Ответов: 1
    Последнее: 05.02.2010, 15:35

Метки этой темы

Ваши права

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