CAC 2015-11-24

mdump

tapeUtils/mdump.c

Reference for checksum:
   ../tapeUtils/dumpTape 12.3LDD_STANDARD_CF0019_1.tap |less

Test sequence:
  make
  ./mdump ../dps8/MIT ../dps8/Test.tap | less
  ./dumpTape ../dps8/Test.tap | less

Multics commands:

    read_tape_and_query Test
    ltc

    copy_dump_tape -trace a -input_volume Test -od

MST data layout:
    mstr.incl.pl1

Backup data layout:
    backup_preamble_header.incl.pl1

Backup code:
    ../system_library_tools/source/bound_dumper_.s.archive/backup_dump_recurse.pl1
    ../system_library_tools/source/bound_dumper_.s.archive/bk_output.pl1

backup_load
   GB64, pg 83

MST
    AG91, pg 559

checksum
    MPM Part 2, pg 323

recno/fileno from 12.5UNBUNDLED_CF0019_1.tap

label  0,0
dir  0,1
dir 1,1
seg 2,1
seg data 3,1
... 155,1
tapemark
... 0,2

hhmmm error:

library_dir_dir/system_library_tools/source/bound_dumper_.s.archive/copy_dump_tape.pl1
/* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
/*                                                                           */
/* CURRENT TIME: in form of ^Hd^99v.9MH (ie, HHMM.M).                        */
/*                                                                           */
/* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */

hhmmm:    proc returns (char(6) varying);

    dcl   1 time_form                   aligned,
            2 hhmm                      char(4) unal,
            2 ss                        pic "99" unal,
          result                        char(6) varying;

    dcl   time                          builtin;

          string(time_form) = substr(time(),1,length(string(time_form)));
          result = time_form.hhmm;
          result = result || ".";
          result = result || ltrim(char(divide(time_form.ss, 6, 1, 0)));
          return (result);

          end hhmmm;

crdrdr

MITascii/library_dir_dir/system_library_standard/source/bound_mtape_pfms_.s.archive/pfm_utils_.pl1

./submitText.sh MITascii/library_dir_dir/system_library_standard/source/bound_mtape_pfms_.s.archive/pfm_utils_.pl1 \\Clayton \\Sys\\Eng password /tmp/rdra/

ccd **

cpa pfm_utils_.pl1 >ldd>sss>s>bound_mtape_pfms_.s.archive::pfm_utils_.pl1

A837         *      used in determining position wi\000\000\000\000\000\000\000
\c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\c000\000\000\000\000\000  *
Changed by B to:
B802         *      used in determining position within each file is shown belo

Problem starts at byte 40960. Thats an interesting number.

  40916
ture),^M
   and to the desired position within that file */^M
^M
/* *      Each logical fil^M

  40916 310030406001
              t      u     r    
             502020221102   "e)." 
             202100000000   "\n  "
             000054006020   " an"
             504000003100  "d t"
             601000003100  "o t"
             500250200000  "he "
             504050203200  "des"
             500160015020  "ire"
             504000006004 "d p"
             601032005001  "osi"
             310050016010  "tio"
             602000003010  "n w"
             500131005002  "ith"

500160200000 310050025400 310000005010 500161005020 000020421400 202120211400 204200002042 402140205400 510050020000 610060105004 500151005400 610000005010 500161000000^M
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License