PASCAL + MACRO11 (УКНЦ-ДВК).

[hobot]

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

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.

[Titus]

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

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

[hobot]

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

Я же так и написал выше:

Образ дискеты загружается только в эмуляторе ДВК - Patrona, но данные читаются везде конечно! )

Можно добавить на образ MZ.SYS и выполнить команду COPY/BOOT:MZ на нужном устройстве ) Тогда и загрузиться прямо
с него можно в любом эмуляторе УК-НЦ и на живой машинке при случае, но тогда и лишние(избыточные) (HD,EM).SYS лучше из образа удалить.

Спасибо!

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

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

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

[Titus]

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

Повис, потому что ты сперва выбрал КЦГД. После него везде повиснет.
Ты сперва выбери КСМ и 15ИЭ.

[hobot]

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

[свернуть]

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

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


------------
Я исходники прогоняю в эм.Patrona - чемпионская скорость ! )
Да и ДВК живую не достать, а тут ASCII-анимация понимаешь ) Самое ДВКашное )
15ИЭшное ))) (настроение хорошее, наверное из за погоды).

[hobot]

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



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

http://archive.pdp-11.org.ru/BIBLIOTEKA/dwkbooks/book3/

[Advertiser]

[Rybak27]

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

[Patron]

Нету контролера КМД, поэтому софт приходится грузить с аудио.

Если на плате распаян "Стык С2" - софт можно грузить через него.

[Rybak27]

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

[hobot]

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

Очень сильно сомневаюсь в такой возможности, если только учебный вариант от ИТО или FAST-PASCAL в режиме (текст и программа в памяти), что опять таки сильно сомнительно - ведь трансляторам Паскаля нужна ОС! ) Так что с лентой - наверное никак не выйдет. Это не спектрум и не БК !

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

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

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

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

Очень прошу не отходить слишком далеко от МАКРО-11 и Паскальства )))