Отправлено Гудвин 16 мая 2006 г. 00:30 В ответ на: Совершенно не похож отправлено 0x20_4600 16 мая 2006 г. 00:23

SetDisplay: procedure;
  Declare i byte;
     
       Do case Mode;
           do;
          do i=0 to 7;
             Display(i)=Nab(i);
           end;
                   MA0= TCycle/60;
                   Display(3)=MA0 /10;
                   Display(4)=MA0 mod 10;
                   Display(5)=10;
                   MA0= TCycle mod 60;
                   Display(6)=MA0 / 10 ;
                   Display(7)=MA0 mod 10;
           end;
           do;
          do i=0 to 7;
             Display(i)=Prs(i);
           end;
                   Display(6)=TPrSb / 10 ;
                   Display(7)=TPrSb mod 10;
                   
           end;
           do;
          do i=0 to 7;
             Display(i)=Pos(i);
           end;
                   Display(6)=TPoSb / 10 ;
                   Display(7)=TPoSb mod 10;
           end;
       end;
end SetDisplay;






Составить ответ
 ||| 
Конференция
 ||| 
Архив



Ответы

У меня PL/M для 8080 был. Только лучшие воспоминания. Хотя исходников не сохранилось. Принтера не было, а про носители сами знаете. — Пиков   (16.05.2006 10:32 212.26.243.95, пустое)


Это как раз от PL/1. Другой вопрос - насколько он близок к Паскалю? — _Bill   (16.05.2006 00:37 85.116.120.59, пустое)

А я не разбирался в тонкостях :)   Есть "procedure" - значицца паскаль :)))   Тогда просто мне в руки попался единственный доступный компилер c языка высокого уровня  - на нем и лепил :)  А оно вон как оказывается... Фраза насчет использования знака =  навсторожила - где-то я уже пользовал  :) — Гудвин   (16.05.2006 00:44 82.198.6.23, пустое)

















Отправка ответа

Имя (обязательно): 

Пароль: 

E-mail: 

NoIX ключ : 
	

		
		Запомнить
	



Тема (обязательно):




Сообщение:




Ссылка на URL: 

Название ссылки: 



URL изображения: 










Перейти к списку ответов
 ||| 
Конференция
 ||| 
Архив
 ||| 
Главная страница
 ||| 
Содержание



E-mail: 
info@telesys.ru