CAC 2015-11-07

Tracking down page of appended zeros to bound_v2apl_.s.archive

$ cp mit/ldd/system_library_1/source/bound_library_3_.s.archive .
$ ../tapeUtils/purge bound_library_3_.s.archive
P5: bound_library_3_.s.archive
$ ls -l bound_library_3_.s.archive
-rw-rw-r-- 1 cac cac 2655 Nov  7 07:17 bound_library_3_.s.archive
$ od -c -v -Ad bound_library_3_.s.archive | tail -3
0002624   _   a   u   d   i   t   _   m   e   t   e   r   s   ,   g   e
0002640   t   _   m   e   t   e   r   s  \n  \n  \t   e   n   d  \n
0002655

ds -ch >ldd>sl1>s>bound_library_3_.s.archive
001224 164137155145 164145162163 012012011145 156144012000 t_meters...end..
001230 000000000000 000000000000 000000000000 000000000000 ................
======
001774 000000000000 000000000000 000000000000 000000000000 ................

status >ldd>sl1>s>bound_library_3_.s.archive
...
bit count:          23904
...

23904/36 = 664 words

23904/8 = 2988 bytes

1230(8) = 664(10)

The host file length is 2655 8-bit bytes. Conversion to 9-bit bytes would be 2655*9/8 = 2986.875 = 2988, the same as the Multics bit count.

Pack the file into packed72 format.

$ ../tapeUtils/pack8  bound_library_3_.s.archive p72_bound_library_3_.s.archive

Send it to SVE:

$ ./mySubmitSegment.sh p72_bound_library_3_.s.archive
Deckfile 7deck.W3lRlg
bit count 23904

Retrieve it from the card reader:

ccd p72_bound_library_3_.s.archive
1 card decks copied.

status p72_bound_library_3_.s.archive
...
bit count:          23904

ds -ch p72_bound_library_3_.s.archive

001224 164137155145 164145162163 012012011145 156144012000 t_meters...end..
001230 000000000000 000000000000 000000000000 000000000000 ................
======
001774 000000000000 000000000000 000000000000 000000000000 ................

ac t p72_bound_library_3_.s.archive

          >user_dir_dir>SysEng>Anthony>p72_bound_library_3_.s.archive

  updated              name

11/11/89  1146.2    access_audit_r1_.alm

It's all good.

Lets send bound_v2apl_.s.archive

$ cp mit/ldd/system_library_unbundled/source/bound_v2apl_.1.s.archive .
$ ../tapeUtils/purge bound_v2apl_.1.s.archive
P1: bound_v2apl_.1.s.archive

Interesting; P1 instead of P5. Is P1 trimming to many newlines?

$ grep P1 foo.log -w
P1: /tmp/MITstaging/library_dir_dir/system_library_languages/source/bound_pl1_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_languages/source/bound_pl1_.3.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_languages/source/bound_pl1_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_probe_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_pl1_.3.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_mrds_.4.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_mail_system_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_pl1_.4.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_dm_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_standard/source/bound_dm_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_v2apl_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_linus_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_cobol_back_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_v2apl_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_gcos_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_gcos_tss_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_cobol_front_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_fort_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_fort_.2.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_linus_.1.s.archive
P1: /tmp/MITstaging/library_dir_dir/system_library_unbundled/source/bound_lisp_intrprtr_.1.s.archive

Fix test 1 to leave one newline on...

$ cp mit/ldd/system_library_unbundled/source/bound_v2apl_.1.s.archive .
$ ../tapeUtils/purge bound_v2apl_.1.s.archive
P1: bound_v2apl_.1.s.archive
$ ../tapeUtils/pack8 bound_v2apl_.1.s.archive p72_bound_v2apl_.1.s.archive
$ ./mySubmitSegment.sh p72_bound_v2apl_.1.s.archive
Deckfile 7deck.SoT9Dg
bit count 5559120

archive: Format error in >user_dir_dir>SysEng>Anthony>p72_bound_v2apl_.1.s.archive

try leaving 2 nls on...

nope..

Okay; after the purge, the length is 0617675
the first character of the last component is at 0589568
So the last component is 28107 bytes.
28107 * 9 is 252963 bits. 

Multics 'ac tl' expects 252909; 54 bits too many... divided by 9 is 6. 6 chars too many???

That is the trailing */;\n\n\n

]$ ../tapeUtils/dumpFile p72_bound_v2apl_.1.s.archive|tail -4
00455454   057052040141   160154137154   "/* apl_l
00455456   157141144137   143157155155   "oad_comm
00455460   141156144137   040052057073   "and_ */;
00455462   012012012000   000000000000   "\012\012\012\000\000\000\000\000

Okay, there is an extra zero word on the end; who put that there?

Ah. pack8 is doing  72 at a time.

Fix pack8.

Yay!
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License