Ага, или так) Пробуй её натравить на послепаскальный .mac-файл, если конечно получится запустить.
Ага, или так) Пробуй её натравить на послепаскальный .mac-файл, если конечно получится запустить.
не издевайся над здравым смыслом пожалуйста ;-)Сообщение от Oleg N. Cher
под чем ему ещё идти, если он в комплект поставки входит??? ты переутомился, Олег, или перевозбудился )))
- - - Добавлено - - -
Код:IMP .SAV 28 03-Nov-2018 PASIMP.SAV 39 03-Nov-2018 HD7>IMP INPUT FILE? TRISTR.MAC OUTPUT FILE? TRIST1.MAC IMPROVEMENT 0 WORDS 0.0% HD7>IMP INPUT FILE? TRISTR.PAS OUTPUT FILE? TRIST1.PAS IMPROVEMENT 0 WORDS 0.0% HD7>PASIMP *TRIST1=TRISTR IMPROVEMENT 0 WORDS 0.0% HD7>PASIMP *TRIST1.MAC=TRISTR.MAC IMPROVEMENT 0 WORDS 0.0% HD7>DIR .(PAS,MAC) TRISTR.PAS 1 06-Apr-2021 TRISTR.MAC 2 06-Apr-2021 TRIST1.PAS 1 06-Apr-2021 TRIST1.MAC 2 06-Apr-2021 HD7>TY TRISTR.MAC .GLOBL $RESR6,$RESR5,$KORE,$SAV10,$VER .GLOBL $BEGIN,FILE,$TTY,$END .RADIX 10 $VER=59. $BEGIN: JSR %7,$B127 .GLOBL $B127 MOV #L0,-(6) MOV #13,-(6) CLR -(6) JSR %7,$B32 .GLOBL $B32 JSR %7,$B36 .GLOBL $B36 MOV #L1,-(6) MOV #10,-(6) CLR -(6) JSR %7,$B32 MOV #58,-(6) MOV #14,-(6) JSR %7,$B20 .GLOBL $B20 JSR %7,$B36 CLR -(6) MOV #20,-(6) JSR %7,$B20 MOV #L2,-(6) MOV #11,-(6) CLR -(6) JSR %7,$B32 JSR %7,$B36 JMP $END L0: .WORD 29454 .WORD 29300 .WORD 27503 .WORD 8289 .WORD 12559 .WORD 2313 .WORD 58 L1: .WORD 29454 .WORD 29300 .WORD 27503 .WORD 8289 .WORD 12815 .WORD 0 L2: .WORD 28686 .WORD 26994 .WORD 25975 .WORD 3956 .WORD 8481 .WORD 33 .END HD7>TY TRIST1.MAC .GLOBL $RESR6,$RESR5,$KORE,$SAV10,$VER .GLOBL $BEGIN,FILE,$TTY,$END .RADIX 10 $VER=59. $BEGIN: JSR %7,$B127 .GLOBL $B127 MOV #L0,-(6) MOV #13,-(6) CLR -(6) JSR %7,$B32 .GLOBL $B32 JSR %7,$B36 .GLOBL $B36 MOV #L1,-(6) MOV #10,-(6) CLR -(6) JSR %7,$B32 MOV #58,-(6) MOV #14,-(6) JSR %7,$B20 .GLOBL $B20 JSR %7,$B36 CLR -(6) MOV #20,-(6) JSR %7,$B20 MOV #L2,-(6) MOV #11,-(6) CLR -(6) JSR %7,$B32 JSR %7,$B36 JMP $END L0: .WORD 29454 .WORD 29300 .WORD 27503 .WORD 8289 .WORD 12559 .WORD 2313 .WORD 58 L1: .WORD 29454 .WORD 29300 .WORD 27503 .WORD 8289 .WORD 12815 .WORD 0 L2: .WORD 28686 .WORD 26994 .WORD 25975 .WORD 3956 .WORD 8481 .WORD 33 .END HD7>TY TRIST1.PAS PROGRAM TROSTROKI; BEGIN WRITELN('СТРОКА 1 :'); WRITELN('СТРОКА 2',':':14); WRITELN('':20,'ПРИВЕТ!!!'); END. HD7>TY TRISTR.PAS PROGRAM TROSTROKI; BEGIN WRITELN('СТРОКА 1 :'); WRITELN('СТРОКА 2',':':14); WRITELN('':20,'ПРИВЕТ!!!'); END. HD7>
Так. Ты ему какой-то слишком простой .mac суёшь. Не оптимизит. Выйгрышь 0%.
Учитывай, что не всяк чел является маньяком систем на PDP-11, так что мне простительно =] Сколько там всяких ваших разных RSX и проч.
- - - Добавлено - - -
Чем отличаются IMP от PASIMP? На первый взгляд, IMP для оптимизации ассемблерных прог, а PASIMP для паскальных.
- - - Добавлено - - -
nzeemin, апостроф тоже можно юзать, простым удвоением внутри строки.
это в тему Паскаля, я про эти программы узнал, только когда архивом начал заниматься, мне как-то всегда хватало транслятора и библиотеки к нему.
- - - Добавлено - - -
так и есть, смотри КНИГУ 3 ПО ДВК
Oleg N. Cher(06.04.2021)
У этого паскаля Write/WriteLn поддерживает много параметров? Самый простой вариант, не требующих ничего экзотического: Write('abc',chr(9), 'def');
Больше игр нет
Этот вариант приведён с самого начала, он генерирует другой код, нежели в .SAV файле
Oleg N. Cher(06.04.2021), svofski(06.04.2021)
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Ещё вопрос по Паскалю, извиняюсь заранее.
Почему не работает такой код, как сделать чтобы собиралось?
Идея в чём - передать адрес переменной в виде параметра.
Как решить другой спецификацией READCHAR я знаю прекрасно - можно возвращаемым значением отдать. Но по-другому мне не нужно, нужно именно так.
Сообщение об ошибке:Код:PROGRAM HELLO; VAR C:CHAR; PROCEDURE READCHAR(ADDR:^CHAR); BEGIN {тут будет ассемблерный код} END; BEGIN READCHAR(@C); END.
Код:4 PROCEDURE READCHAR(ADDR:^CHAR); ^ ^ ****** BAD TYPE SPECIFICATION
type charptr = ^char
....
procedure readchar(addr: charptr)
?
nzeemin(06.04.2021)
да, так собралось. спасибо!
Не уверен только насчёт этого
Добрался по компилятора OMSI Паскаля, но есть заковыка - это компилятор второй версии и для RSXИ судя по тому, что увидел в своих исходниках - похоже, во второй версии они слегка прошлись по синтаксису. Скажем, в модуля под первую версию используют ^, а во второй, в похожих местах - уже @
- - - Добавлено - - -
Но это пока мысли вслух. Смотрю.
- - - Добавлено - - -
О, нашёл в доке
type = identifier | enumerated_type | .... | ("^" | "@" identifier )
Получается, во второй версии взаимозаменяемы
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
