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

[Korchagin]

ПризнаЮсь - позорник я полный в делах двкшных. Впрочем, не стыдно не знать, стыдно не учиться. Что сейчас и делаю, помаленьку разгребая непонятные фичи неизвестного мне диалекта хорошо знакомого мне еще 25 лет назад ЯП. Посмотрит кто-то эту тему спустя время и не будет громко ругаться матом, а подсознательно поблагодарит за сбереженные нервы.

[Advertiser]

[hobot]

Посмотрит кто-то эту тему спустя время и не будет громко ругаться матом, а подсознательно поблагодарит за сбереженные нервы.

да стоит мои ранние посты-вопросы почитать, я же половину узнал только тут, а ту что знал основательно забыл за несколько 10-летий без УК-НЦ - паскаль классический просто модули CRT и DOS за вас никто не написал ) ФАСТ-ПАСКАЛЬ попробуйте - правда это не совсем то, но он ближе к Борланд варианту

[Korchagin]

Не настоль уж велики борландовские модули CRT и DOS, можно и написать. Правда, самого понятия unit в Паскале ДВК не обнаружено. Придется просто стыковать объектники псевдомодулей при линковке. Я просто к чему - немного упорства и все непонятные моменты станут понятными, пусть методом тыка.

[hobot]

немного упорства и

параллельно с этой темой по программированию на УК-НЦ море полезной инфы в теме которая так и называется

[hobot]

РАБОТА С ФАЙЛАМИ НА ПАСКАЛЕ.
======================

Вопрос возник такой, я не могу вспомнить никак тонкий момент :
1. некогда писалась какая-то программа, которая внешний файл пользователя использовала
2. имя файла вводилось с клавиатуры
3. затем RESET (открытие существующего файла для чтения) и
если файла нет - программа на паскале очень не красиво вылетает со стандартным сообщением об ошибке
(!!!)
И вот оно - вылет нельзя было допустить и мы как-то это момент побеждали - я не могу вспомнить!!!
Вроде бы выставлялся ключ перед открытием файла /*$I-*/ а дальше то как распознать ошибка ввода вывода или нет, IORESULT - паскаль ругается, там какая то булевская функция или что? нэ могу вспомнить
Кто помнит\знает, прошу помощи !!! ) В общем в идеале у нас там по коду получалось обработать
отсутствие файла без вылета и своим по ELSE сообщением - информировать пользователя об ошибке
???

[form]

IORESULT - паскаль ругается

IORESULT - вроде фича всяких TP/BP/FPK (ну может и еще чья).
В целом, стандартного способа не существует.
Если брать родной паскаль который в RT-11, то в нем выглядит так:

PROGRAM TEST;
CONST
        NAME = 'TEST';
        DEFEXT = 'TXT';
VAR
        F: TEXT;
        SIZE: INTEGER;
BEGIN
        RESET(F, NAME, DEFEXT, SIZE);
        IF SIZE < 0 THEN
                WRITELN('FILE NOT FOUND')
        ELSE
                WRITELN('FILE SIZE: ', SIZE, ' BLOCK(S)')
END.

Второй параметр RESET() - имя файла, третий - расширение файла по умолчанию (если не указано явно в первом параметре), третий = размер файла в блоках (если файла нет - будет -1).

.PASCAL TEST TEST

Errors detected:  0    
Free memory:  7842  words


.MAC TEST

.LIN/LINK:SY:PASCAL TEST

.RU TEST
FILE NOT FOUND

.CRE TEST.TXT/ALLO:5.

.RU TEST
FILE SIZE:       5 BLOCK(S)

.

PS. В приведенном примере для скорости сравнение < 0, но в идеале надо явно сравнивать с -1 поскольку подозреваю, что для файлов размером 32768. и больше блоков размер будет отрицательный

[hobot]

@form! спасибо, вот я про сайз в ресет забыл не учёл возможность,
хотя в Русском руководстве вроде бы с ним примеров куча целая!
Я тут к надвигающемуся 8 марта переделал исходник немного

HD7>TY SHONC.PAS
PROGRAM SHOWONC;
VAR
        SYM: CHAR;
        INF: FILE OF CHAR;
        CHFS: INTEGER;

BEGIN
        RESET(INF,'DK:TETKA1.TXT',,CHFS);
         IF CHFS>0 THEN
        WHILE NOT EOF(INF) DO
         BEGIN
          READ(INF,SYM);
           IF NOT EOLN(INF)
            THEN WRITE(SYM:1)
             ELSE WRITELN(SYM:1);
         END ELSE WRITELN('FILE NOT FOUND!');

        CLOSE(INF);
        WRITELN;
END.


HD7>RU SHONC
FILE NOT FOUND!


HD7>CREA TETKA1.TXT/ALL:8.

HD7>RU SHONC
____________________ЗЗЗ8ЗЗ88ЗЗЗ8888
 __________________З_ЖЖЗ8ЗЗЗЖЖЗЖЖЗЖЖЖ8З
 ________________ЗЖ8?88ЗЗЖЖЖЗ__Ж_ЖЖЖЖЖЖЗЖ
 ______________ЖЖ8?8ЗЗЗ?8ЗЖЖЖЖЖЖЖ_ЖЗЗЖЖЗ8Ж
 ______________Ж8?8ЗЗЗЗЖЖЖЖЗЗЖЖЖЖЗЖЖЗЗЖЖЗЗЖ
 _____________Ж88?ЗЗЗЗЗЗЖЖЖЗЗЗЗЖ_ЖЖЖЗ888З8З
 _____________Ж88?ЗЗЗЗЗЗ??ЗЖЖЗЖЗЖЖЖЖЖ88ЗЗ88
 _____________ЖЗЗ?8???З88ЗЖ?8ЗЗ8ЗЖЗЖЗЖ8З88З
 _____________ЖЗЖ??8З8ЗЗЖЖЗЖЖЖЗ888ЗЖЖЗ8З888
 _____________ЖЖЖЗ?ЗЗЗЖЗЗЗЗЗЗЗЗ88ЖЗЗЖЖ8ЗЗ88
 _____________ЗЖЖЗ?8З8?8ЗЗЗЗЗЗЗ88?ЗЗЖ8ЖЗЗЗ88Ж
 _____________ЗЗЖЖ8??8??З8ЖЗЗЗЗ8???ЗЗЖ8ЗЗ88888Ж
 ______________8ЗЖЖ8???8ЗЗЗЗ888??8?8ЗЗЗ888?8?88
 _______________Ж88ЖЖЗ??З88????8ЗЗ8?ЗЗ8З88888??
 ________________ЗЖЗ88ЗЗ???8888ЗЗЗ888З88ЗЗЗЗЗ???Ж
 _______________З_З8ЗЗ8З???888ЗЗЗ8888ЗЖЖЖЖЖЖЗЗЗ??8
 _________________З88ЗЖЗ?888ЗЗЗЗЗЗЗЗЗ8ЖЖЖЖЖЖЖЗЗЗ??
 ________________ЗЗ8ЗЗ8888ЗЗЗЗЗЗЗЗЗЗЗ8ЗЖЖЖЖЖЖЖЗЗЗЖ
 ______________ЖЗ88?888ЗЗЗЗЗЗЗЗЖЖЖЖЖЖЗЖЗЖЖЖЖЖЖЖЗЗЗ
 ______________8?888ЗЗЗЗ88ЗЗЗЗЖЖЖЖЖЖЖЖЗ8ЗЖЖЖЖЖЖЗЗЗЖ
 ____________Ж88ЗЗЗЖ888ЗЗЗЖЖЖЖЖЖЖЖЗЗЗЗЗ88ЗЖЖЖЖЖЗЗЗЗ
 ___________88ЗЗЖЖЖ88888ЗЗЖЖЖЖЖЖЗЗЗЗЗЗЗЗ8ЗЗЖЖЖЖЗЗЗЗ
 ________888ЗЗЖЖЖЗ88З8ЗЗЗЖЖЖЖЖЖЗЗЗЗЗЗЗЗЗ8?8ЗЖЖЖЖЗЗЗЗ
 ________З88ЗЖЖЖЖ88ЗЗЗЗЖЖЖЖЖЖЖЗЗЗЗЗЗЗЗЗЗ8??ЗЗЗЖЖЗЗЗЗ
 ________Ж88ЗЗЗЗ8888ЗЗЗЗЖЖЖЗЗЗ8ЖЖЖЖЗЗЗЗЗ8?8ЗЗЗЗЖЗЗЗЗЗ
 __________888888888З8ЗЗЗЗЗ?8ЖЖЖЖЖЖЗЗЗЗ8888ЖЗЗЗЗЗЗЗЗЗ
 _____________ЗЗ8ЗЗЗЗЗЗЖЖЖЖЖЖЖЖЖЖЖЗЗЗЗ88З88_ЖЗЗЗЗЗЗЗЗ
 _____________8ЗЗЗЗЗЗЗЖЖЖЖЖЖЖЖЖЖЗЗЗЗ8888З8_Ж_ЗЗЗЗЗЗЗЗ
 _____________8ЗЗЗЗЗЗЗЗЖЖЖЖЖЖЖЖЗЗЗЗ8Ж_Ж888____ЗЗЗЗЗЗЗ
 _____________ЗЗЗЗЗЗЗЗЗЗЖЖЖЖЖЗЗЗЗ88Ж___Ж_8Ж___ЗЗЗЗЗЗЗ
 ______________ЗЗЗЗЗЗЗЗЗЗЖЖЖЗЗЗ88З8______ЖЖ___ЖЗЗЗЗЗЗ
 ______________ЗЗЗЗЗЗЗЗЗЗЖЖЖЗЗЗЗЗЗ8__________ЖЗЖЖЖЗЗЗ
 ______________8ЗЗЗЗЗЗЗЗЗЖЖЖЖЗЗЗЗЗ8_________ЖЗЖЖЖЗЗЗЗ
 ______________8ЗЗЗЗЗЗЗЗЖЖЖЖЖЗЗЗЗЗЗ8_______ЗЗЖЖЗЗЗЗЗ
 ______________888ЗЗЗЗЗЗЖЖЖЖЖЗЗЗЗЗЗЗ8З____ЖЗЖЖЖЗЗЗЗ
 ______________88З8ЗЗЗЗЗЖЖЖЖЖЗЗЗЗЗЗЗЗ88__ЗЗЖЖЖЗЗЗЗ
 _____________Ж888?ЗЗЗЗЗЗЖЖЖЗЖЗ???8?8??8ЗЖЖЖЗЗЗЖ
 _____________8888ЗЗЗЗЗЗЗЗЗЖ?З??З??8З8ЗЗЖЖЗЗЗЗ
 ____________Ж8ЗЗ88ЗЗЗЗЗЗЗЗ??????8?ЗЗЗЖЖЗЗЗЗ
 ____________88ЗЗ8?8З8Ж88??ЖЖ??8З8ЗЗЖЖЖЖЗЗЗ8
 ___________Ж8ЗЗЗ?8?8ЖЖ??ЗЗЖЖ??ЖЗЖЖЗЖЖЖЗЗ888Ж
 __________8ЖЗ8ЗЗ?З8З8?8ЗЖ8?8З8ЖЖЖЗЗ8ЗЗЗЗ8888
 _________ЗЗЖЖ?_8?ЖЖЖЖЗЗЗЖ?8З???8З8?З??ЗЗ8888
 ________?8ЗЗЖ?Ж_?ЖЖЗ8?ЗЖЗ?Ж?ЖЖ?_?З?ЗЖ?_8?Ж88
 ________8Ж8ЗЗ888????8ЗЗЗ??8ЗЗЗЗЗЗ8З88З88888Ж
 ________8ЖЗЖЗЗ8З888ЖЖЗЗЗ8ЗЗЗЗЗЗ8ЗЖ8ЗЗЗЗЗЗЗ8
 _______З8ЗЖЖЖ8ЗЗ88ЖЗЗЖЖЖЗ8ЖЗ8ЗЗЗЗЗЗЗЗЗЗЗЗ8
 _______8ЗЖ8ЗЖ8ЗЗЗЖЗЖЖЖЖЖЖЖЖЖЗЗ8ЗЗЗЗЗЗЗЗ8
 _______8З888ЗЗ8ЖЗЗЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗЗЗЗЗЗ
 _______8З8888ЗЖЗЗЖЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗЗЗ8Ж
 _______З888З8ЖЗЗЖЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗЗ8
 _______88888ЖЗЖЖЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗЗ8
 _______888ЗЖЗЗЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗ8З
 _______8888ЗЗЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗЗЗ
 ______88З8ЗЗЖЖЖЖЖЖЖЖЖЗЗЗЗЗЗ8
 _____З888ЖЗЖЖЖЖЖЖЖЖЗЗЗЗЗЗ8З
 _____888ЗЗЗЖЖЖЖЖЖЖЗЗЗЗЗ88Ж
 ____З88ЗЗЗЖЖЖЖЖЖЖЗЗЗЗЗ8Ж
 ___З888ЗЗЖЖЖЖЖЖЗЗЗЗ888
 ___888ЗЗЖЖЖЖЖЖЗЗЗЗ88З
 __З888ЗЖЖЖЖЖЗЗЗЗ88З
 __888ЗЗЖЖЖЖЗЗЗЗЗ88
 __Ж88ЗЗЗЗЗЗЗЗЗЗЗЗ
 ___888ЗЗЗЗЗЗЗЗЗЗЗЗ
 _____88ЗЗЗЗЗЗЗЗЗЗЗ8
 ______88ЗЗЗЗЗЖЖЖЖЖЗ8З
 _______8ЗЗЗЗЗЗЖЖЖЖЖЖЗ8
 _______З8ЗЗЗЗЗЗЖЖЖЖЖЖЗЗ
 ________З8ЗЗЗЗЗЗЖЖЖЖЖЖЗЗ
 __________8ЖЗЗЗЗЗЖЖЖЖЖЗЗ
 ___________8ЗЗЗЗЗЗЖЖЖЖЖЗЗ
 ____________8ЗЗЗЗЗЗЖЖЖЖЗЗЖ
 _____________8ЗЗЗЗЗЗЖЖЖЗЗЗ
 ______________8ЗЗЗЗЗЗЗЖЖЗЗ
 _______________З8ЗЗЗЗЗЗЗЗЗЗ
 _________________8ЗЗЗЗЗЗЗЗЗ
 __________________8ЗЗЗЗЗЗЗЗЗ
 ___________________88ЗЗЗЗЗЗЗЗ
 ____________________8ЗЗЗЗЗЗЗ??Ж
 _____________________8ЗЗЗЗ8?????
 _____________________ЖЗЗЗЗ???????
 _____________________?8З????????ЗЗЖЖ
 _____________________8??????????ЖЗЗЖ
 _____________________8З??????????8???
 ____________________88ЗЗЗЖ??З?8?????
 ___________________88ЖЗЖЗЗ??????З??
 _________________8??ЗЗЖЖЗЗ8??З_?Ж?8
 _____________ЖЗЗЗЗЗ???????????_?З?
 ______________??8З???????З?8??_?8?
 ______________??8??????????____???


HD7>

@form, не по теме - можно ли перенести со СТАКАНА Гангстеров на ЖД с RSX для эмулятора ДВК?

[form]

можно ли перенести со СТАКАНА Гангстеров на ЖД с RSX для эмулятора ДВК?

Всмысле под RT-11 переделать?
В принципе можно

[hobot]

на ЖД с RSX для эмулятора ДВК?

но ты исходники так и не откопал, зачем под RT, там же есть образ готовый с RSX установленной для ВМ3 конфига )

- - - Добавлено - - -

образ похоже та сам и делал когда то там?

DEVICE TT001: NOT IN CONFIGURATION

  RSX-11M V4.8 BL70   28.K
>RED HD:=SY:
>RED HD:=LB:
>MOU HD:RSX11MBL70
>@HD:[1,2]STARTUP
>* Please enter time and date (DD-MMM-YYYY HH:MM) [S]:

[form]

но ты исходники так и не откопал, зачем под RT, там же есть образ готовый с RSX установленной для ВМ3 конфига )

Ну в RSX-то никто не мешает перенести прямо со стакана.
SYS$GAMES:GANG.TSK
выкачать, засунуть в образ для ДВК
TSK файл - чистфй image, преобразований не требуется.