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

User Tag List

Страница 5 из 35 ПерваяПервая 123456789 ... ПоследняяПоследняя
Показано с 41 по 50 из 342

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

  1. #41
    Guru
    Регистрация
    11.09.2009
    Адрес
    Москва
    Сообщений
    4,777
    Спасибо Благодарностей отдано 
    2
    Спасибо Благодарностей получено 
    122
    Поблагодарили
    61 сообщений
    Mentioned
    16 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    конфиг как default, только чтобы еще добавился второй терминальный порт 300/176500 который коннектится по IP.
    Ну, второй порт в default.cfg есть:
    Код:
    [TerminalPort2.ini]
    BaseIO_Address     = 0176510
    BaseVectorsAddress = 0310
    DL11W_TerminalPort_ComponentDisabled = 0
    DL11W_LineClock_ComponentDisabled    = 1
    DL11W_LineClock_Hz = 50
    DL11W_TerminalPort_BitsPerByte = 11
    DL11W_TerminalPort_BaudRate = 9600
    DL11W_TerminalPort_CPS_Limit = 0
    то же самое можно заметить и в отчёте шины о подготовке эмуляции:

    Код:
    bus: Подготовка эмуляции..
    -----------------------------------------------------------------------------
    Устройство         Имя                Компонент        Адреса         Векторы
    -----------------------------------------------------------------------------
    1801ВМ1            CPU                ВЕ-Регистры      0177700:3          
                                          ВЕ-Таймер        0177706:3          
    Плата МС1201       CpuBoard           Сетевой таймер                   0100:1
                                          ПЗУ-Бэйсик       Отключен        
                                          ПЗУ-Пульт        0160000:0          
                                          ПЗУ-Загрузчик    0173000:256        
                                          ОЗУ              0177600:32         
                                          SEL2             0177714:1          
                                          SEL1             0177716:1          
    Диск HD            HD                                  0177720:2          
    Плата DL11-W       TerminalPort       Порт терминала   0177560:4        060:2
                                          Таймер LTC       Отключен        
    Плата DL11-W       TerminalPort2      Порт терминала   0176510:4       0310:2
                                          Таймер LTC       Отключен        
    Диск MX            MX                                  0177130:2
    -----------------------------------------------------------------------------

    Если изменить настройки второго порта и добавить IP_Adapter, то получится как-то так: default2.cfg

    ...
    Вложения Вложения

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

    Lightbulb Y2K Pascal переместился в архив!

    Y2K Pascal переместился в архив! > http://archive.pdp-11.org.ru/ukdwk_a...K_PASCAL_form/

    + несколько учебников по ассемблеру закинул в PDP-библиотеку:

    > http://archive.pdp-11.org.ru/BIBLIOTEKA/assembler_SM4/

    > В. Лин - PDP-11 и VAX-11 Архитектура ЭВМ и программирование на языке ассемблера

    > Arthur Gill. Assembler PDP-11 - учебник.


    (* очень прошу не забывать чему эта тема посвящена!
    вот у меня Паскаль игнорирует AND и скотина продолжает его
    игнорировать даже после того как его [form] пропатчил )
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    игнорирует AND
    В чем это проявляется?
    Я не увидел проблемы:
    Код:
    .RU PASCAL TEST TEST
    
    Errors detected:  0    
    Free memory:  5213  words
    
    
    .MAC TEST            
    
    .LIN/LINK:PASCAL TEST
    
    .RU TEST
    TEST!
    AAA
    127 & 31 =      31
    
    .TY TEST.PAS
    PROGRAM TEST(INPUT, OUTPUT);
    VAR
            A       : BOOLEAN;
            I       : INTEGER;
    
    BEGIN
            WRITELN('TEST!');
    
            A:= FALSE;
            I:= 1;
    
            IF (I < 2) AND NOT A THEN WRITELN('AAA');
    
            WRITELN('127 & 31 = ', 127 AND 31)
    END.
    
    
    .
    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

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

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    В чем это проявляется?
    Я не увидел проблемы:
    Тут наверное беда в том как это выглядит уже в ассемблере?
    У меня вложенность такая
    По координатам А и Б можно положить предмет, только тогда,
    когда ((а<>x)and(б<>y))AND( и т.д. и т.п.
    Так вот - на выходе уже в исполняемом файле он вложенные
    обрабатывает как внешние, т.о. у меня по осям a и б две пустые линии...
    Бред да? Я игру делаю, не смейся ) На УК-НЦ, на паскале ) Паскалю в общем )
    Веселюсь )
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    У меня вложенность такая
    Так ты дай конкретный пример - так придется гадать.
    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. #46
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    А должен был-бы только одно пустое место оставлять по x,y (

    ---------- Post added at 16:50 ---------- Previous post was at 16:49 ----------

    http://zx.pk.ru/showpost.php?p=580999&postcount=44
    так это и есть пример ) И тебе исходник надо?
    Я могу скрин сделать?
    Архив программ для УК-НЦ, ДВК и БК.

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

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

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

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    А должен был-бы только одно пустое место оставлять по x,y (

    ---------- Post added at 16:50 ---------- Previous post was at 16:49 ----------

    http://zx.pk.ru/showpost.php?p=580999&postcount=44
    так это и есть пример ) И тебе исходник надо?
    Я могу скрин сделать?
    Код:
    ((а<>x)and(б<>y))AND( и т.д. и т.п.
    Это не пример - это нечто вроде "как в книге не скажу какой". Ты напиши конкретно условие и параметры
    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

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

    По умолчанию

    Где то вот так :
    Код:
    REPEAT
    			A:=ROUND(RND*19);
    			B:=ROUND(RND*19);
    		UNTIL
    		 ((A<>GAMER.SX)AND(B<>GAMER.SY))AND
    		((A>0)AND(B>0))AND(STAGE[A,B]<>CHR(PREG1));
    А получается (когда SAV запускаешь) как будто вот так :

    Код:
    REPEAT
    			A:=ROUND(RND*19);
    			B:=ROUND(RND*19);
    		UNTIL
    		 (A<>GAMER.SX)AND(B<>GAMER.SY)AND
    		((A>0)AND(B>0))AND(STAGE[A,B]<>CHR(PREG1));


    ---------- Post added at 17:12 ---------- Previous post was at 17:01 ----------

    Погоди вот картинка для наглядности сделал

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



    [свернуть]
    Последний раз редактировалось hobot; 01.03.2013 в 19:31.
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    По умолчанию

    Вообще-то это идентичные условия

    ---------- Post added at 20:16 ---------- Previous post was at 20:12 ----------

    Сделал на пробу с такой же вложенностью условия - работают отлично...
    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

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

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Вообще-то это идентичные условия
    Как же? А вот вложенный что >0 обе он не игнорит между прочим )
    Погляди на картинку - красные линии на поле то же должны звёздочками заполняться
    однако этого не происходит, звёздочек не должно быть только там где @ ( это как раз и есть GAMER.SX и GAMER.SY и там где стены [] )
    Архив программ для УК-НЦ, ДВК и БК.

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

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

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

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

Эту тему просматривают: 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

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

Ваши права

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