Сообщение от
eugeneak
заголовок в начале (01,00) и контрольная сумма ?
Да, именно так.
Сообщение от
eugeneak
Образец бы такого файла найти....
Сейчас попробую создать. Сам никогда не делал
- - - Добавлено - - -
Выложил образ RK05 диска.
Код:
>DCL DIR DK:[1,1]/A
DK:[1,1]TEST.FTN;2
Size: 1./1. Created: 12-DEC-2016 04:00
Owner: [001,127] Revised: 12-DEC-2016 04:00
File ID: (7,1,0) Expires: <none_specified>
File protection: System:RWED, Owner:RWED, Group:RWED, World:R
File organization: Sequential
File attributes: Allocation=1, Extend=0
Record format: Variable length, no maximum defined
Record attributes: Carriage return
DK:[1,1]TEST.TXF;1
Size: 1./1. Created: 12-DEC-2016 04:00
Owner: [001,127] Revised: 12-DEC-2016 04:00
File ID: (10,1,0) Expires: <none_specified>
File protection: System:RWED, Owner:RWED, Group:RWED, World:R
File organization: Sequential
File attributes: Allocation=1, Extend=0
Record format: Variable length, no maximum defined
Record attributes: Fortran carriage control
>FOR ,TI:=DK:[1,1]TEST
FORTRAN IV V02.8 MON 12-DEC-;6 04:01:20 PAGE 001
,TI:=DK:[1,1]TEST
0001 PROGRAM TEST
0002 OPEN(UNIT=1, NAME='TEST.TXF', CARRIAGECONTROL='FORTRAN',
+ TYPE='NEW', ERR=100)
0003 WRITE(1, 10)
0004 10 FORMAT(' LINE 1')
0005 WRITE(1, 20)
0006 20 FORMAT('0LINE 2')
0007 WRITE(1, 30)
0008 30 FORMAT('1LINE 2')
0009 WRITE(1, 40)
0010 40 FORMAT('+LINE 2')
0011 CLOSE(UNIT=1)
0012 99 CALL EXIT
0013 100 TYPE 110
0014 110 FORMAT(' SHIT HAPPENS')
0015 GOTO 99
0016 END
TEST
>DMP TI:=TEST.TXF/BL
Dump of DU1:[FORM]TEST.TXF;1 - File ID 1407,21,0
Virtual block 0,000001 - Size 512. bytes
000000 000007 046040 047111 020105 000061 000007 046060 047111
000020 020105 000062 000007 046061 047111 020105 000062 000007
000040 046053 047111 020105 000062 000000 000000 000000 000000
000060 000000 000000 000000 000000 000000 000000 000000 000000
000100 000000 000000 000000 000000 000000 000000 000000 000000
000120 000000 000000 000000 000000 000000 000000 000000 000000
000140 000000 000000 000000 000000 000000 000000 000000 000000
000160 000000 000000 000000 000000 000000 000000 000000 000000
000200 000000 000000 000000 000000 000000 000000 000000 000000
000220 000000 000000 000000 000000 000000 000000 000000 000000
000240 000000 000000 000000 000000 000000 000000 000000 000000
000260 000000 000000 000000 000000 000000 000000 000000 000000
000300 000000 000000 000000 000000 000000 000000 000000 000000
000320 000000 000000 000000 000000 000000 000000 000000 000000
000340 000000 000000 000000 000000 000000 000000 000000 000000
000360 000000 000000 000000 000000 000000 000000 000000 000000
000400 000000 000000 000000 000000 000000 000000 000000 000000
000420 000000 000000 000000 000000 000000 000000 000000 000000
000440 000000 000000 000000 000000 000000 000000 000000 000000
000460 000000 000000 000000 000000 000000 000000 000000 000000
000500 000000 000000 000000 000000 000000 000000 000000 000000
000520 000000 000000 000000 000000 000000 000000 000000 000000
000540 000000 000000 000000 000000 000000 000000 000000 000000
000560 000000 000000 000000 000000 000000 000000 000000 000000
000600 000000 000000 000000 000000 000000 000000 000000 000000
000620 000000 000000 000000 000000 000000 000000 000000 000000
000640 000000 000000 000000 000000 000000 000000 000000 000000
000660 000000 000000 000000 000000 000000 000000 000000 000000
000700 000000 000000 000000 000000 000000 000000 000000 000000
000720 000000 000000 000000 000000 000000 000000 000000 000000
000740 000000 000000 000000 000000 000000 000000 000000 000000
000760 000000 000000 000000 000000 000000 000000 000000 000000
*** EOF ***
>DMP TI:=TEST.TXF/BL/AS
Dump of DU1:[FORM]TEST.TXF;1 - File ID 1407,21,0
Virtual block 0,000001 - Size 512. bytes
000000 ^G ^@ L I N E 1 ^@ ^G ^@ 0 L I N
000020 E 2 ^@ ^G ^@ 1 L I N E 2 ^@ ^G ^@
000040 + L I N E 2 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000060 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000100 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000120 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000140 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000160 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000200 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000220 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000240 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000260 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000300 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000320 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000340 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000360 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000400 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000420 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000440 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000460 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000500 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000520 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000540 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000560 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000600 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000620 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000640 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000660 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000700 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000720 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000740 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
000760 ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@ ^@
*** EOF ***
>
- - - Добавлено - - -
По виду - обычный текст, просто атрибут говорит, что первый символ в строке - формат ("+" - не переносить строку при печати, "0" или " " - переносить строку перед печатью, "1" - выдавать <FF> итд...
Примечательно, что GNU "fortran" клал кое-что на символ фортрановского (!) форматирования