CAC 2015-08-18

tape drive

ls

Segments = 13, Lengths = 133.

r w    1  foo.ta
r     31  dia_man.map355
re    10  gcos_run_activity_
r w   56  gcos_run_activity_.list
r      7  gcos_run_activity_.pl1
r w    1  hello.c
r w   21  JONESFORTH.S
r w    1  Anthony.probe
r w    1  hello.list
r w    1  Anthony.breaks
re     1  hello
r w    1  hello.pascal
r w    1  Anthony.value

r 16:49 0.178 6

dl foo.ta

delete: >user_dir_dir>SysEng>Anthony>foo.ta is protected by safety switch. Do y
\cou want to delete it?     y
r 16:49 0.263 6

ta a foo JONESFORTH.S
tape_archive:  Creating >user_dir_dir>SysEng>Anthony>foo.ta.
r 16:49 0.121 27

ta go foo

Enter volume name of new first volume:    foo
Mounting volume "foo" with a write ring
Mounted blank volume "foo" on device tapa_01
r 16:50 3.349 175
$ od -c foo.tap |less
0000000   P  \0  \0  \0   V   O   L   1   F   O   O                    
0000020                                                                
0000040                                       P   Y   K   M   U   L   T
0000060   0   0   1                                                    
0000100                                                                
0000120               3   P  \0  \0  \0   P  \0  \0  \0   U   V   L   1
0000140   P   Y   K       9   3   2   3   0               S   E   R   E
0000160   N   I   T   Y       V   A   L   L   E   Y       E   N   G   I
0000200   N   E   E   R   I   N   G                       A   N   T   H
0000220   O   N   Y   .   S   Y   S   E   N   G   .   A                
0000240                                                   P  \0  \0  \0
0000260   P  \0  \0  \0   H   D   R   1   !   !   D   U   M   M   Y    
0000300   F   I   L   E       I   D   !   !   *   *   *   *   *   *   0
0000320   0   0   1   0   0   0   1   0   0   0   1   0   0       0   0
0000340   0   0   0       0   0   0   0   0       0   0   0   0   0   0
0000360   M   U   L   T   I   C   S       A   N   S   I   2            
0000400                   P  \0  \0  \0  \0  \0  \0  \0   P  \0  \0  \0
0000420   H   D   R   1   A   T   T   R   I   B   U   T   E   F   I   L
0000440   E   0   0   0   1   F   O   O               0   0   0   1   0
0000460   0   0   1   0   0   0   1   0   0       9   3   2   3   0    
0000500   9   9   3   6   5       0   0   0   0   0   0   M   U   L   T
0000520   I   C   S       A   N   S   I   2                            
0000540   P  \0  \0  \0   P  \0  \0  \0   H   D   R   2   S   0   8   1
0000560   9   2   0   0   0   0   0                                    
0000600                                                                
0000620                               1   3       0   0                
0000640                                                                
0000660                                   P  \0  \0  \0  \0  \0  \0  \0
0000700   D 001  \0  \0 030  \f 006   C 201 250  \0  \0  \0 002  \0  \0
0000720  \0  \b 302  \0 002 021 031   S 022 372   . 275   1   M   3   _
0000740 251   @  \0  \0 250  \0  \0  \0  \0   S 022 371   Z   ? 321   h
0000760 027 353  \0 250   Z 361 230  \0  \0     202   &   % 355   !   p
0001000  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0 037
0001020 340  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0001040  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
*
$ ../tapeUtils/dumpTape foo.tap|less
...
tapemark
blksiz 9216
0010:0000   061070061071   062057052011   "18192/*\011
0010:0002   101040163157   155145164151   "A someti
0010:0004   155145163040   155151156151   "mes mini
0010:0006   155141154040   106117122124   "mal FORT
0010:0010   110040143157   155160151154   "H compil
0010:0012   145162040141   156144040164   "er and t
0010:0014   165164157162   151141154040   "utorial 
0010:0016   146157162040   114151156165   "for Linu
0010:0020   170040057040   151063070066   "x / i386
0010:0022   040163171163   164145155163   " systems
0010:0024   056040055052   055040141163   ". -*- as
0010:0026   155040055052   055012011102   "m -*-\012\011B
0010:0030   171040122151   143150141162   "y Richar
0010:0032   144040127056   115056040112   "d W.M. J
0010:0034   157156145163   040074162151   "ones <ri
0010:0036   143150100141   156156145170   "ch@annex
0010:0040   151141056157   162147076040   "ia.org> 
0010:0042   150164164160   072057057141   "http://a
0010:0044   156156145170   151141056157   "nnexia.o
0010:0046   162147057146   157162164150   "rg/forth
0010:0050   012011124150   151163040151   "\012\011This i
0010:0052   163040120125   102114111103   "s PUBLIC
0010:0054   040104117115   101111116040   " DOMAIN 
0010:0056   050163145145   040160165142   "(see pub
0010:0060   154151143040   144157155141   "lic doma
0010:0062   151156040162   145154145141   "in relea
0010:0064   163145040163   164141164145   "se state
0010:0066   155145156164   040142145154   "ment bel
0010:0070   157167051056   012011044111   "ow).\012\011$I
0010:0072   144072040152   157156145163   "d: jones
0010:0074   146157162164   150056123054   "forth.S,
0010:0076   166040061056   064067040062   "v 1.47 2
0010:0100   060060071055   060071055061   "009-09-1
0010:0102   061040060070   072063063072   "1 08:33:
....
cwd bar
r 16:53 0.074 4

ls

Segments = 4, Lengths = 68.

r w    1  foo.ta
re    24  bound_mtape_pfms_
          ansi_tape_io_
          ibm_tape_io_
          gcos_tape_io_
          multics_tape_io_
          raw_tape_io_
          pfm_utils_
rew   26  bound_mtape_pfms_.archive
rew   17  ansi_tape_io_.pl1

r 16:53 0.100 0

dl foo.ta

delete: >udd>SysEng>Anthony>bar>foo.ta is protected by safety switch. Do you wa
\cnt to delete it?     y
r 16:53 0.166 0

ta load_table foo
tape_archive:  Creating >udd>SysEng>Anthony>bar>foo.ta.

tape_archive: Enter volume name of first volume:    foo
Mounting volume "foo" with no write ring
Mounted ANSI volume "FOO" (recorded at 800 BPI), on device tapa_01
mtape_: End of information reached. Attempting to read ANSI volume label record
\c from volume FOO.
tape_archive: End of information reached. Attaching the tape input switch.
r 16:55 1.218 20

new_proc

r 16:56 0.668 19

cwd bar
r 16:56 0.096 7

initiate bound_mtape_pfms_ ansi_tape_io_
r 16:57 0.032 2

dl foo.ta

delete: >user_dir_dir>SysEng>Anthony>bar>foo.ta is protected by safety switch. 
\cDo you want to delete it?     y
r 16:57 0.261 1

ta load_table foo
tape_archive:  Creating >user_dir_dir>SysEng>Anthony>bar>foo.ta.

tape_archive: Enter volume name of first volume:    foo
Mounting volume "foo" with no write ring
Mounted ANSI volume "FOO" (recorded at 800 BPI), on device tapa_01
Error:  Linkage error by ansi_tape_io_$pfm_init|5426 (line 832)
(>user_dir_dir>SysEng>Anthony>bar>bound_mtape_pfms_)
referencing syserr|syserr
Segment not found.
r 16:57 1.935 62 level 2

qedx
r ansi_tape_io_.pl1
/CHECK_VOL_LABELS:/
CHECK_VOL_LABELS: proc (ridx);
.,.+6p
CHECK_VOL_LABELS: proc (ridx);

dcl  ridx fixed bin;
dcl  syserr entry options (variable);
call syserr (0, "CHECK_VOL_LABELS entry");

          call mtape_$order (mtdp, "rew", 0, null, code);   /* Rewind to load p
\coint */
q

Meh. bound_mtape_pfms_ executes in ring 1.

BAR mode

Added code for APPEND_BAR mode; surprisingly, it still boots.

It still doesn't do bar mode:

tss!^M

DBG(1526703740)> CPU TRACE: 00334:000032 4 000022001000 (MME 000022) 000022 001(0) 0 0 0 00^M
DBG(1526703740)> CPU FAULT: Fault 2(02), sub 0(00), dfc N, 'Master Mode Entry (mme)'^M
DBG(1526703740)> CPU FAULT: 00334:000032 4 000022001000 (MME 000022) 000022 001(0) 0 0 0 00^M

DBG(1526703742)> CPU TRACE: 000032 000504657220 (SCU 000504,N*) 000504 657(0) 0 1 1 00^M

DBG(1526703743)> CPU TRACE: 000032 000404710220 (TRA 000404,N*) 000404 710(0) 0 1 1 00^M

DBG(1526703745)> CPU TRACE: 00034:000300 bound_interceptors:fim+0300^M
DBG(1526703745)> CPU TRACE:     000300                         347  signal_entry:^M
DBG(1526703745)> CPU TRACE:     000300  0a   001246 2542 20    348    spri      sig_prs,*                     save prs^M
DBG(1526703745)> CPU TRACE: 00034:000300 0 001246254220 (SPRI 001246,N*) 001246 254(0) 0 1 1 00^M
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License