Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/smmag.sav
There is 1 other file named smmag.sav in the archive. Click here to see a list.
p 'l` .fx -lX/x / h+ + + `
x + #&x + #%x
+ #(vp + #, @ 'b@@ @@ @@ 'T@@ -g `` O@ 6@ + p p p( &~@@ @@ &~*" 3B &~+ O@ , # 6@ , %E 'c6@ b 6@ + . , "., #/ 0 @ /~ $ @ /} $ @ /}@@ 't &* 'y &3@ + *7@ + & < ' , $+ *+ ' < ', $+ * < ', $+ * 6@ @ O@ &~ < (, "K 'c, p ', " , ! + < (@@ p 7@ N9 43@ N+ 39 1 \+ 7@ N+ E3@ N+ 79 4 \X@ %,+ %( ', " < . , ! + < . [ p 1@p + %(7@p + !YR p 5@ A7@ 'u+ A! ;2P@p \ '}O@ 't, $+ C+ 7@ 'w+ @@ 'w+ 8 ( @ . ( @ .@@ .+ ;, "j1@ ,~ @ , "j0@ + + !, #1+ P R h H f L X N p d g6m{@g6l`g6
gR-
[ v z { ~ 8 #k #j %( " M &R &S &TkH b 0 0 0 0 0 0 0 0 0 &~, "K '}, l+ p , p , ":Rp , p, "K,~ $ @@ )@ . , ":5B p,~ ,> , ":,^ ,~ 6@ 'U+ x ., ".+ ', " + @@ 'v, !Z+ !4 ', " < . , ! + }+ zO@ 'u+ 8@@ 'uO@ 'u@@ 't
' + @| ' , $ + !\ + ! < ?\ : x ,~ 4@ !1@ ?+ !+ #@@ '|@@ l, @ @n 2 , #
1@ + ! 1@ ?+ !"1@ + ! 1@ + ! 4@ !
5, !1@ + !/ 4 !"4@ !"(@H G /2 + !
N + ! (V )T + !
X T @l + ! O@ + !
O@ '|+ !
!<y@@p *| ! @@ ,~ '
, " + ! @@ '|7@ 4P ! 7@ * Pp RNp d 6@ l XTp Q Xp .< @@p 0< .O@ 'U1< /|,~ '
, " + '
, " + !1Q@ ' ', " , l+ !R@@ , "K, #@@ '} < . : \ '}@@ 7@p + !Y[p 4B !;3" + !R p `@ O@ , # a` , l, $+ !R '}Zp d , # a` (B}7@ ." B " Q p 02B '+ !16@ + !I6@ 0
+ !J+ !/6@ 0}!@ 0 . '( I` @ 0 + !b6@ + !Pp p &~ '}, # .< 6@p + !77@ '}+ !Y, "K 'c, p ', " , "7, "K+ !6 ', " + 6@ ,~ , # a@ ,~ ', " , H+ !b1@ ,O` 'x1@ + !a5 !] @ 'x,~ @ 'c6@ + !e6@ 'x+ !i @ 0
!~ @ 0, ! @@ + 07@ + !e @ 7` 'x+ !m 1D + !e @ 0
@@ 0!" '. ' @ *b !p '* ' @ @ @ ! Z @ " @
@
@ @ @ @ @ , " + !{ !|+ !| !~ @ 0+ !g` 6@ + + " " @ p( p& ',~ p( p& '6@ ?@ 'c+ + !c '+ "7@" ', " + @ 'Q B 'R[
(B{1B W+ "
5" " 'R+@
7 :
B 'R+ "
l" PB "XB " 'R+ " "+ p* l p( p& '+ "`b + "h" ~ hb ~ + "+ !~`b @+
+ "+ "6@ + O@ , # Q @ 0, !]6@ 'xO@ + !b,> ,> ,> Z & @ )" 1D + "+1D + ")1D $ 4 , ":=F "#9 "" , ": , ":+ "(,^ ,^ ,^ ,~ ; ".X@ ". l )@ A ?7@ ,~ , ":2B ' + "/+ "- $ Q )@ , ":=d "4,~ & QBx 6@ , "7[ x . + ":: '~ B 'A ? @ '~0@ + "A> '~ , "A: '~`B + ">+ "H1@ @@ '~1@ @@ '~6@ 'v+ "P6@ + "J7@ 'S- , "_1@ + "L1@ + "N ' '~,~
" + "H ' , " ,~ @@ 'S '+ "O ( <" "H - + "N ""CA ?(@ , "_=b "Q7` , "T+ "H,> ,> ,> '~,> ',> '~@@ 'v ' 4@ "Z, ":+ "X, "j0@ + "ZO@ 'v,^ '~,^ ',^ '~,^ ,^ ,~ 6@ 'b,~ ,> -
,^ ,~ 1@ + 1@ + "q1@ O@ 'S,^ ,~
LPT#OFF-LINE,#TYPE CR WHEN@READY -: @@ 'SO@ 'b6@ + "~, #"A~ ?1@ + "j1@ + "j1@ + 0@ + "s 3@ ' + + 1@ ?+ "}6@ '|+ "v1@ 1@
( 0@ + "l@@ '~
+ "l ' , " , #+ #S@ ,~ @t , "j1@ + #
0 0` + # (V )T + # + !7@ ,~
2 ,~ 6@ 'u+ !+ "jA7 ?1@ ?,~ 6@ '|+ #1@ + 6@ 't, ":06 0d 1@ + #H @@. '*b # ! Z @ - ,~ -
+ #"+ ##4@ #",~ 6@ + + @@
@@ ?:
:
+
l +@ -+ , #;7@ + &, #;7@ + #M ' , " , #]+ #25L #=@@ 'Y! Lu @ ( '! @ )X + @ *@X ) @ + %? @ ( ,~ O@ 'Y @ 'Y@@ , ,~ L (
(+ #1 ` %+ #1 @ (`@ + #F '# ` 6+ #E4 #E1` + #F, #I: (< '# @ ) '&* (,~ '&, " , H+ #L0@ ,: x ,~ '(, " , #+ #M1@ + #Y1@ + #Z1@ + #[1@ + #\, #T+ %x #X @ . *b #T f X@ &R @ X@ &,~ &K ')+ #S ')+ #S '*+ #S ')+ #S@
, "j1@ + #e0 0` -,~ 1` + #b1 ,~ `lp ,~ / (L G@ + #]4L !`lp + !(L + #e '*, " , #+ #M,~ O@ 'v+ 87@ 'Y+ O@ 't, # `` O@ 'v- < ',O@ 'w, $+ , % + , "K . 6@ 'v . , % + #|ahp + #} , p, #, % + #|R , p, % + #|<n #r, #+ #t, "K+ `h+ #| N '^, % + #| '^+ #tO@ 'a@@ '\ @ + $O@ '\+ $@@ '\@@ 'a@@ 'Q@@ 'W[ p 1@(O@ 'Q6@ + %-+ %Y,~ @@ . O@ 'T N '^ V '] X ']7@ 'a+ % @ ( '-* ( 'W: x ,~ 7@ 'a+ &n 'W,~ @ 'U! '-* (7 'U+ $6@ 'U+ $', $ + $ @ ( '-* ( : x ,~ @@ ,~ , % + $ + $0N + $"@@ * '^* ']* '], % + $%* ']* ']* '^<8'.: 4\ $ : x ,~ * '^* ']* '],~ , $(+ $+ $: 'TA. 5N $+, % ,~ H 'R<8'0+ !@@ 'W@@ 'X, $ , &p1\ + $c@@ 'X1\ + $31\ *+ '20\ -, &qO@ 'X, $ , &p1\ + $70\ ', &rO@ 'W '3@@ (*< ( 6 (@@ , $ , &p1\ + $91\ + $J1\ + $I6@ 'W+ $H0< 0| + $B/< (X l =< $@+ $90< 0| + $FA< (X =< $D+ $9(X A< G + $9(X A< + $G XX 9 $9 XX 6@ 'W+ $O 6 (@@ .X 0V (9 $M`X, &s6 '4(V G (8 '47@ 'X+ $V4X $, V 'V.`(=x $S V 'V, %+ $,7@ 'X (4X $b : (6@ 'y+ &\ h 7@ 'X+ $] h (\ G h (\ G h \X : .: 6@ 'X.: /8 6@ 'X/8 5x $Y+ $, + %!,> , $e,^ + $,, $ + &p1\ + $h7@ '\, s+ $e7@ '\, s,~ 6@ 'Q+ $,@@ , % , &p H '_ J '_ N '` L '` F 'a6 , &t . ? , /3. , &tZ
'_ , (, $|ZH 'V7J 'V, &u1J 0, &uZ
'_ , (, $| H 'V, % '_
'_ '`
'` 'a+ %/
8
( Z ] / 3. + ${/, .
( ,~ 6@ 'y+ &W7@ + % 3` 'b+ % 'b ` + &x 'V3` 'b+ % ` + &x J '^
'V0* 0* 0 @@( 3* 'V9
%
'^,~ O@ 'a,> , # `` O@ 'v- . ,^ , $ + , s+ %6@ 'v+ % %+ %>` (+ % 7@ 'Y+ % 7 'Y, ( ,~ (
(+ !6@ 'y+ &Y6@ < XH %,aH, &uO@ 0 @ 0X@ (7@ 't+ !6@ 'w,~ - '}6@ b 'b @ , ! @@ + @@ (@@ (
(, &v '5 @ (6@ 'Y+ %I '! @ ) '5 @ *@ '6 @ + @ 'W p @ (R p 4@ %8, %<+ $ + $! 8;, %<+ $ ! (, %<+ $ + $ @ (\ (+ ![ (1@(O@ 'Q,~ \ + !
|@ , &w@@ 'Y,~ \ ,~ \ ,~ \ ,~ 3` 'b,~ ` , &x @ 'b,~ '6 ` 6
EK, +@ 'W6` 'Y, (7a 'Y, (@@ 'Y+" , , %[+ %e :@ 'Y. , D '\/ 'S4$ %W4d %T, (=d %S '\., @ 'SO@ 'Y@@ (+ $ , (8d %W, (+ %T!` @ (@@ (+ %K@ < a`p ,~ 2@p + %d[ p [ 5@ %a1F(+ %b 8;2@ + %d1F(O@ 'Q+ !." 9 %\``6@ , 7 + $ & F 'Y6@ 'S, ( & , (=f %i @ 'SO@ 'Y, ( , &{ * " * . . . ." `dp + %n[ . Z 0@ , &{ " * , %[+ %w '7* -+ $a`+ %l+ $, #h0` + #M,> A @ '[,^ (@~A @ 'Z $ , #I $ D 'Z @ '[ '9* (, & + #M,~ 7@ + #1, #T @ 'Z A @ '[ A | @ 'Z+ % " rc &M 'Zrc &MrC &KaB + &. '[G 'ZG '[rc &QrC &M`B@ + &0h @hB @+ &1rC &PA" 0" 0b + &3@ rc &L+ ! ( ,> 2 , & , &| " * ,> (B{G" @ rc &R,^ A" (B rc &L"" rc &K, &44B &%5b & =r &&+ &$rC &LA" ." (B B ( " )XB (: ,^ ,~ @@ 'Y+ &$, & , &|"" rc &L "
rc &K, &++ aB , &z,~ , & , &| " rc &K, &++ @@ 'S,~ z &R < '>+ &U < '?+ &U < '@O@ 'y, $+ *+ &V@@ 0 'A* ?,~ @@ Z 'B 'B 'C+ 16 + $Y16 , &.6 + $Y 'C+ &cZ 1 + %1 , &.. + %,> , "K , ":,^ , p 'D, " ,^ > , "3 , ":, l @ 'Y7@ + *6@ 't+ + !N 'E, " , l,~ 'G+ &c 'G+ &c 'H+ &c 'H+ &c 'I+ &c 'I+ &c 'J+ &c 'J+ &c 'K+ &c 'K+ &c 'L+ &c 'L+ &c 'M+ &c 'M+ &c~ 'd ~@'tgV-gV\yx' gV; x'g6$M x@'l@| }MI'Kc ~ ]< 6a| }:
{gvNI9CRM{Y}| H 2 qcGo`|~ YgPKw2}i|.99>uN?|/ 1>uN?|-htC&tVJ7x + /~ >:GB<`~ }lAyJ. 4e'p }d|@B5|@gB,:0X.996|I x [u_ g - " |~n]7+y}| |.99S KK|_~ @ H "fDDT Y =y 4p X @ }.fDGHky 2 x *@ '" ) %? %B %C %Dt@( "Y a$p| }V 4p u u uIJNi
H;J 0| g7$ [R (: , $7 'R4` 'R s 'R 'RO@ 'X+ $3 @( ( (@ ) + ) ( , & &= &B &Gvx( ?:~@mMO`?+y&p SZ/p ?6}@eJ~/`?:~@R ?g6m{@x'?g6l`x'@g6
L@_B-` e
@ G?P E/ 1g/j6I'
RI5rIv9:x'cg6l`h( p(]lP Kc h( INX (x)~ *@x*@ +x+ ).
* SMMAG [DSQDE] - DECSYSTEM 2020 DIAGNOSTIC MAGTAPE MONITOR - VER 0.1 *
t(.
NORMAL START = 20000
RESTART/ABORT = 20001
PRINT TEST TITLE = 20002
RESTART CURR TEST = 20003
DEVICES: EXEC MODE;
0 = UBA 3, RH ADR 772440
1 = UBA 1, RH ADR 772440
2 = UBA 2, RH ADR 772440
3 = UBA 3, RH ADR 772440
ALL DEVICES THEN ASK FOR DRIVE & SLAVE ##
A TWO DIGIT NUMBER IS USED (FIRST DIGIT SPECIFIES
DRIVE # OF TM02, SECOND DIGIT SPECIFIES SLAVE # OF TRANSPORT)
DEVICES: USER MODE;
MAGTAPE = PHYSICAL NAME OF UNIT (EX. MTA0)
DISK = ONLY A CARRIAGE RETURN
COMMANDS;
STD=START DIAGNOSTIC
STM=REINITIALIZE START
STL=START LOADER
START=START DIAGNOSTIC
SFSTRT=SPECIAL FEATURE START
PFSTRT=POWER FAIL START
REE=REENTER
DDT=DDT
START1=SPECIAL START 1
START2=SPECIAL START 2
START3=SPECIAL START 3
START4=SPECIAL START 4
START5=SPECIAL START 5
SMMON=LOAD SMMON
SMMAG=LOAD SMMAG
SMAPT=LOAD SMAPT
R=RESELECT, X=XPN, I=INTERNAL, T=TTY, D=DEVICE,
S=SINGLE, F=DIR, L=LIST, G=GO
+