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
page revision: 1, last edited: 19 Aug 2015 03:29