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

User Tag List

Страница 8 из 35 ПерваяПервая ... 456789101112 ... ПоследняяПоследняя
Показано с 71 по 80 из 342

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

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

    Red face ascman.pas

    Сегодня же - Международный день анимации ! )

    ASCMAN.PAS(SAV) - на прилепленном образе,
    что-бы запустить и посмотреть в динамике -
    наваял от настроения, четыре кадра-примитив.


    Но всё по теме - написано на ПАСКАЛЕ! )
    Код:
    PROGRAM ASCMAN;
    /* ARCHIVE.PDP-11.ORG.RU */
    
    PROCEDURE GOTOXY(XX,YY: INTEGER);
    BEGIN
    	WRITE(CHR(27),'Y',CHR(32+YY),CHR(32+XX));
    END;
    
    PROCEDURE WAIT(T: INTEGER);
    VAR WT: INTEGER;
    BEGIN
    IF T>0 THEN FOR WT:=T DOWNTO 0 DO;
    END;
    
    PROCEDURE PROMOTKA(S: INTEGER);
    VAR P: INTEGER;
    BEGIN
    IF S>0 THEN FOR P:=1 TO S DO WRITELN;
    END;
    
    PROCEDURE POS1(X,Y: INTEGER);
    BEGIN
    IF (X>=0)AND(Y>=0) THEN BEGIN
    GOTOXY(X,Y);WRITE('    ## ');
    GOTOXY(X,Y+1);WRITE('   #  # ');
    GOTOXY(X,Y+2);WRITE('   #  # ');
    GOTOXY(X,Y+3);WRITE('    ##  ');
    GOTOXY(X,Y+4);WRITE(' ######## ');
    GOTOXY(X,Y+5);WRITE(' # #  # # ');
    GOTOXY(X,Y+6);WRITE(' # #  # #   ');
    GOTOXY(X,Y+7);WRITE('   #  #   ');
    GOTOXY(X,Y+8);WRITE('    ##    ');
    GOTOXY(X,Y+9);WRITE('  ##  ##  ');
    GOTOXY(X,Y+10);WRITE('  #    #  ');
    GOTOXY(X,Y+11);WRITE(' ##    ## ');
    			END;
    END;
    
    PROCEDURE POS2(X,Y: INTEGER);
    BEGIN
    IF (X>=0)AND(Y>=0) THEN BEGIN
    GOTOXY(X,Y);WRITE('    ## ');
    GOTOXY(X,Y+1);WRITE('   #  # ');
    GOTOXY(X,Y+2);WRITE('   #  # ');
    GOTOXY(X,Y+3);WRITE('    ##  ');
    GOTOXY(X,Y+4);WRITE(' ######## ');
    GOTOXY(X,Y+5);WRITE('#  #  #  # '); 
    GOTOXY(X,Y+6);WRITE('## #  #  ## ');
    GOTOXY(X,Y+7);WRITE('   #  # ');
    GOTOXY(X,Y+8);WRITE('    ## ');
    GOTOXY(X,Y+9);WRITE('  ##  ## ');  
    GOTOXY(X,Y+10);WRITE('  #    # ');
    GOTOXY(X,Y+11);WRITE('  ##   ## ');
    			END;
    END;
    
    PROCEDURE POS3(X,Y: INTEGER);
    BEGIN
    IF (X>=0)AND(Y>=0) THEN BEGIN
    GOTOXY(X,Y);WRITE('    ## ');
    GOTOXY(X,Y+1);WRITE('   #  # ');
    GOTOXY(X,Y+2);WRITE('   #  # ');
    GOTOXY(X,Y+3);WRITE('    ##  ');
    GOTOXY(X,Y+4);WRITE(' ######## ');
    GOTOXY(X,Y+5);WRITE(' # #  #  # '); 
    GOTOXY(X,Y+6);WRITE('## #  # ## ');
    GOTOXY(X,Y+7);WRITE('   #  # ');
    GOTOXY(X,Y+8);WRITE('    ## ');
    GOTOXY(X,Y+9);WRITE('  ##  ## ');
    GOTOXY(X,Y+10);WRITE('  #    # ');
    GOTOXY(X,Y+11);WRITE(' ##   ## ');
    			END;
    END;
    
    BEGIN
    	PROMOTKA(24);
    	REPEAT
    		POS1(20,10);
    		WAIT(3000);
    		POS2(20,10);
    		WAIT(3000);
    		POS1(20,10);
    		WAIT(3000);
    		POS3(20,10);
    		WAIT(3000);
    	UNTIL 	0>0;
    END.
    SHKEYS.PAS(SAV) - и до кучи там же, ещё одна программка на ПАСКАЛЕ
    - выводит 10-ые номера и соотв. им символы.

    ПАСКАЛЬ опять же )
    Код:
    PROGRAM SHOWKEYS;
    VAR
    	INKEY ORIGIN 177560B:			INTEGER;
    	KEY ORIGIN 177562B:			INTEGER;
    	I:	INTEGER;
    
    /* SHKEYS v0.1a */
    
    FUNCTION KEYPRESS: BOOLEAN;
    BEGIN
    	KEYPRESS:=FALSE;
    	INKEY:=0;
    	IF(INKEY AND 128)<>0 THEN KEYPRESS:=TRUE;
    END;
    
    BEGIN
    	I:=0;WRITELN;
    	WRITELN('[ Номер \ Символ ]');
    	FOR I:=32 TO 127 DO WRITE('[ I=',I:2,' \ ',CHR(I),' ]');
    REPEAT
    	WRITELN;
    	WRITELN('[',CHR(14),' tEST KLAWIATURY ',CHR(15),']');
    	
    REPEAT
    UNTIL	KEYPRESS;
    
    	WRITELN('[ 177562=',KEY:3,'. \ SYM=',CHR(KEY):3,' ]');
    	IF KEY=3 THEN
    		BEGIN	
    			WRITELN(CHR(15),'[ SHKEYS v0.1a ]'); 
    			/*$C	EMT	^O350 */
    		END;
    UNTIL   0>0;
    END.
    (! Важно) Образ дискеты загружается только в эмуляторе ДВК - Patrona, но данные читаются везде конечно! )
    На дискете присутствуют PASY2K.(SAV,OBJ) - пропатченный и поправленный form'ом и PASDWK.(SAV,OBJ) - OMSI Pascal.

    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	ASCMAN.png 
Просмотров:	216 
Размер:	1.6 Кб 
ID:	43871   Нажмите на изображение для увеличения. 

Название:	SHKEYS.jpg 
Просмотров:	136 
Размер:	21.6 Кб 
ID:	43872  
    Вложения Вложения
    • Тип файла: rar ASCMAN.rar (291.0 Кб, Просмотров: 189)
    Архив программ для УК-НЦ, ДВК и БК.

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

  2. #72
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,550
    Спасибо Благодарностей отдано 
    1,213
    Спасибо Благодарностей получено 
    1,748
    Поблагодарили
    680 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Образ дискеты загружается только в эмуляторе ДВК - Patrona, но данные читаются везде конечно! )
    На дискете присутствуют PASY2K.(SAV,OBJ) - пропатченный и поправленный form'ом и PASDWK.(SAV,OBJ) - OMSI Pascal.

    Вообще-то этот диск можно подцепить вторым к любому эмулю УКНЦ, и запустить RUN MZ1:ASCMAN и посмотреть)
    Я посмотрел на своем в режимах КЦГД, УКНЦ, КСМ, 15ИЭ )

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

    По умолчанию

    Цитата Сообщение от Titus Посмотреть сообщение
    Вообще-то этот диск можно подцепить вторым к любому эмулю УКНЦ, и запустить RUN MZ1:ASCMAN и посмотреть)
    Я посмотрел на своем в режимах КЦГД, УКНЦ, КСМ, 15ИЭ )
    Я же так и написал выше:
    Образ дискеты загружается только в эмуляторе ДВК - Patrona, но данные читаются везде конечно! )
    Можно добавить на образ MZ.SYS и выполнить команду COPY/BOOT:MZ на нужном устройстве ) Тогда и загрузиться прямо
    с него можно в любом эмуляторе УК-НЦ и на живой машинке при случае, но тогда и лишние(избыточные) (HD,EM).SYS лучше из образа удалить.

    Спасибо!

    ========================================

    В режиме КЦГД - работает, а КСМ+КГД и 15ИЭ повис? (

    ========================================
    Последний раз редактировалось hobot; 28.10.2013 в 14:22.
    Архив программ для УК-НЦ, ДВК и БК.

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

  4. #74
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,550
    Спасибо Благодарностей отдано 
    1,213
    Спасибо Благодарностей получено 
    1,748
    Поблагодарили
    680 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    В режиме КЦГД - работает, а КСМ+КГД и 15ИЭ повис? (
    Повис, потому что ты сперва выбрал КЦГД. После него везде повиснет.
    Ты сперва выбери КСМ и 15ИЭ.

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

    По умолчанию

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

    [свернуть]


    Шикарно ! ) Будем считать День Аниматора - зачёт ! )

    исходники тут > http://zx.pk.ru/showpost.php?p=639059&postcount=71


    ------------
    Я исходники прогоняю в эм.Patrona - чемпионская скорость ! )
    Да и ДВК живую не достать, а тут ASCII-анимация понимаешь ) Самое ДВКашное )
    15ИЭшное ))) (настроение хорошее, наверное из за погоды).
    Последний раз редактировалось hobot; 28.10.2013 в 15:20.
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    По умолчанию

    http://zx.pk.ru/showpost.php?p=642300&postcount=73



    Я не стал архив с исходным вариант 3-го тома менять,
    просто добавил ещё одну папку с вариантом из поста по ссылке выше

    http://archive.pdp-11.org.ru/BIBLIOTEKA/dwkbooks/book3/
    Последний раз редактировалось hobot; 08.11.2013 в 12:16.
    Архив программ для УК-НЦ, ДВК и БК.

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

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

  8. #77
    Junior
    Регистрация
    13.06.2012
    Адрес
    п. Вперед, Челябинская обл.
    Сообщений
    17
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Здравствуйте! Подскажите, а есть Паскаль, который можно загрузить с ленты?
    Нету контролера КМД, поэтому софт приходится грузить с аудио.

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

    По умолчанию

    Цитата Сообщение от Rybak27 Посмотреть сообщение
    Нету контролера КМД, поэтому софт приходится грузить с аудио.
    Если на плате распаян "Стык С2" - софт можно грузить через него.

  10. #79
    Junior
    Регистрация
    13.06.2012
    Адрес
    п. Вперед, Челябинская обл.
    Сообщений
    17
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Patron, подскажите, а как через него грузить?

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

    По умолчанию

    Цитата Сообщение от Rybak27 Посмотреть сообщение
    Здравствуйте! Подскажите, а есть Паскаль, который можно загрузить с ленты?
    Нету контролера КМД, поэтому софт приходится грузить с аудио.
    Очень сильно сомневаюсь в такой возможности, если только учебный вариант от ИТО или FAST-PASCAL в режиме (текст и программа в памяти), что опять таки сильно сомнительно - ведь трансляторам Паскаля нужна ОС! ) Так что с лентой - наверное никак не выйдет. Это не спектрум и не БК !

    Цитата Сообщение от Rybak27 Посмотреть сообщение
    Patron, подскажите, а как через него грузить?
    Почитайте подробнее о HX протоколе, требуется доработка УК-НЦ, в качестве сервера используется эмулятор ДВК Patrona, вам становиться доступен практически весь софт и полноценная работа по шнурку к ПиСи.
    (есть исключения - те программы которые идут только с дискет!).

    http://youtu.be/wexswhkpUf8 <- видео с примером загрузки.
    http://zx.pk.ru/showthread.php?t=20683

    и в свежей теме "Вопросы по УК-НЦ?" это совсем недавно обсуждалось.

    Очень прошу не отходить слишком далеко от МАКРО-11 и Паскальства )))
    Последний раз редактировалось hobot; 18.12.2013 в 18:05.
    Архив программ для УК-НЦ, ДВК и БК.

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

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

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

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

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

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

Ваши права

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