Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50351/zap.shr
There are no other files named zap.shr in the archive.
, + ~ u `
+l B B@` 3B
;+ b +
& `
&6@ m @ 7 @@ .@
`` j +
0 7 +
+ 1D + 1D + 1D +
2 d
@@ K, 1 " (B & !d` & "[ 4D *H f n F &R ;Z ;` NP <
,~
&+ a` + B I$ 3ql 5u 9[>t ; 7@ + Z + 0R
& A+
Z.A.P. - THE ZOFTIG ALTERATION PROGRAM
ALL COMMANDS ARE ONE LETTER, FOLLOWED IMMEDIATELY BY
THE ARGUMENT(S).
ARGUMENTS IN <> ARE OPTIONAL. ALL NUMBERS ARE OCTAL.
COMMANDS:
Ffile<.ext><[p,pn]> - OPEN file.ext
Afile<.ext><[p,pn]> - AUTO OPEN
C - CLOSE FILE
E - CLOSE FILE IF OPEN AND EXIT
(SAME AS ^C)
Rn OR R+/-<N> - READ A BLOCK
W - WRITE CURRENT BLOCK
D<loc<,n>> - DISPLAY IN CURRENT MODE
Zloc - ZAP IN CURRENT MODE
S - SEARCH AND ZAP IN CURRENT OR CHARACTER MODE
Mk - SET MODE
Pn - SET WRITE PROTECT
I - TYPE CURRENT STATUS
Tk - SET TERMINAL TYPE
H - THIS MESSAGE
FOR MORE INFORMATION, TYPE "Hc", WHERE c IS SOME COMMAND.
d TJ F L B jt #H of n R ;` MZ
h W
&+
&+ Mk -SET CURRENT MODE
ALL DISPLAY AND ZAPPING IS DONE IN THE CURRENT MODE.
THE EXCEPTION IS K(CHARACTER ZAP - SEE THE K COMMAND).
THE THREE MODES ARE:
O - OCTAL
S - SIXBIT
A - ASCII
K - ASCII CHARACTER
I - INSTRUCTION
ASCII IS DISPLAYED AS 7-BIT BINARY BYTES, WITH THE CHARACTER
EQUIVALENTS TO THE SIDE. CONTROL CHARACTERS ARE DISPLAYED
AS "\". SIXBIT MODE DISPLAYS AND ENTERS AS CHARACTERS; OCTAL
AS NUMERALS. OCTAL IS DEFAULT.
, ;52 RF2F 9<d lF D d `` a@ + @
,I4LE3L >+ 9
C
&+ ^ f B R V e` E&p g0 Q @ Y?8 g#
&+ a` + 2[d l
&X+
Tk - SET TERMINAL STATUS
FOR OPERATION ON A HARDCOPY TELETYPE, TYPE "TH". DEFAULT
IS CRT ("TC").
, ;52,Rh2T 9d+Ah+ P iF j l d
&k+
Afile<.ext><[p,pn]> - AUTO OPEN file.ext
CLOSE CURRENT FILE, IF OPEN (UNLESS ZAPPED BLOCK STILL IN
CORE). OPEN FILE.EXT AND READ IN BLOCK 1. (THIS IS BASCALLY
THE SAME AS THE AUTO START PROCEDURE - SEE THE F COMMAND.)
l `` + $+
&+ Ffile<.ext><[p,pn]> - OPEN FILE FOR WORK
NO WORK CAN BE DONE UNTIL A FILE HAS BEEN SPECIFIED, EITHER WITH
THE F COMMAND, OR AT THE MONITOR LEVEL: R ZAP-file.ext.
IF A DIFFERENT P,PN FROM THE USER IS GIVEN, THE USER MUST
HAVE WRITE PRIVILEGES TO THAT UFD.
`` + /
:+ 2@@ = 3*" A, ;4T6 T > T @4231R + +0R +
&7a` +
&A
@, LR
@4L@
"B, L
&CS
?, P
&D``
&E`` + E
&G+
&IS
I, P
&J``
&K
&L
'dQa` + ``
&N`@
&O
&P
M, i
&Ra@ +
&T
P, i
&W+ W X Y Z \
&^+ a` + 2f`` +
d} J N B K+ b
b +
B S`
&n, P b ' ` a` + + ;
2
&pl + 5T "` . I+ Y
&p+ D<loc<,n>> DISPLAY IN CURRENT MODE
IF NO ARGUMENTS ARE GIVEN, DISPLAY THE ENTIRE BLOCK.
IF NO loc IS GIVEN, DISPLAY n WORDS STARTING AT LOC 0.
IF ONLY loc IS GIVEN, DISPLAY LOC.
OTHERWISE, DISPLAY n WORDS STARTING AT loc.
, @@ I." @4B J, ;7@ 42`` +
&
, P
"u d!<f
&`
a`
I, d 8 3$ J+
& S L V W a
&$+ Zloc - ZAP ONE WORD IN CURRENT MODE
THE VALUE OF loc IS DISPLAYED, AND THE USER TYPES IN THE
NEW VALUE UNDERNEATH. ONLY THOSE CHARACTERS RECOGNIZED IN THE
CURRENT MODE ARE VALID. THE FOLLOWING KEYS HAVE SPECIAL MEANING:
ESCAPE ZAP UP TO POINT OF ESCAPE
RUBOUT DELETE NEW VALUE AND RETAIN OLD ONE.
CTRL-H BACKSPACE ONE CHARACTER
CTRL-L FORWARD SPACE ONE CHARACTER
IN ASCII MODE, THE FIRST CHARACTER OF EACH BYTE MUST BE ZERO OR
ONE, AS MUST THE LAST BIT (BIT 35).
, `` +
I, d
& Il , BF IGD I
I`@ , d a` @ l , pd` @+ e
&@ + + 8
&va@ 9[
J, d
&^ N
, d
& l , BF GD
& a@ + \`@ + N P`@ + ^`` @+ w"
K$
d/
O.* (D( (F( @@ K+ ^
K@@ K$
d/* #` /
O N P@f `@ <
)D( )N( a@ + (D (N BD IGN I + _ P D I+ _
&+ S[/s] - SEARCH FOR VALUE AND ZAP
SM[/s] - SEARCH MULTIPLE BLOCKS
SC - CONTINUE SEARCH FROM LAST FOUND VALUE
SCM - CONTINUE MULTIPLE SEARCH
SEARCH IS CONDUCTED IN CURRENT MODE; THUS, CHANGING THE MODE
WILL DISCONTINUE THE SEARCH. WHEN THE SEARCH VALUE IS FOUND,
IT IS DISPLAYED, AND THE USER HAS A CHANCE TO CHANGE IT. RUBOUT
WILL RETAIN THE ORIGINAL VALUE AND RETURN THE USER TO COMMAND
LEVEL. IF THE VALUE IS FOUND TO LIE ACROSS A WORD BOUNDARY, BOTH
WORDS MAY BE ZAPPED.
SEARCH MULTIPLE WILL WRITE OUT ANY BLOCK THAT HAS BEEN ZAPPED
IN THE PROCESS OF CONTINUING THE SEARCH. A NEW BLOCK MAY BE
READ IN WITHOUT INVALIDATING THE MULTIPLE SEARCH.
S/F (OR SM/F) REQUESTS A FULLWORD SEARCH - THE ENTIRE WORD MUST
MATCH THE SEARCH STRING (RIGHT JUSTIFIED). EXCEPT IN ASCII MODE,
SEARCHING FOR ALL 36 BITS DOES NOT AUTOMATCIALLY INVOKE THE
FULLWORD SEARCH.
S/R (SM/R) REQUESTS AUTO REPLACEMENT ON A SUCCESSFUL SEARCH. EXCEPT
ON A FULLWORD SEARCH, THE SEARCH AND REPLACEMENT STRINGS MUST BE THE
SAME SIZE.
S/C (SM/C) WILL CONTINUE SEARCH AUTOMATICALLY AFTER ZAP IS COMPLETE
(FOR A PROTECTED FILE, AFTER DISPLAY). WHILE RUNNING, TYPING ^C (CTRL-C)
WILL STOP ACTION - EVENTUALLY. USE WITH CAUTION.
S/W (SM/W) REQUIRES THAT THE MATCH TO THE SEARCH STRING BE FOUND
ENTIRELY WITHIN ONE WORD.
, , ;4T $xR 4B, ; *zR
( 4L9
l* l + a@ + `` +
&x
'dQ
&zd @@ K, 4F `@ + (@ `F + !(F= (D8 h i@ )D , .
L O#` .d N Oa@ + *1L l + * * J O J O D M F N
&@ + 4
&|, 4F `F + 1(F=/(D8 `@ + 42F N+
d} J Nl a@ + 8 * j~a` @
@@b d"
d NZ N0( + ``@ + @($( )Cd. 3& O+ :7 a@ A N2B M+ :/( I`@ + I$2$ Om @8 < a@ @ + Id` @+ 8a` + KS
I
&, P
& S
, P`` @
&
&` + X
I, d
&@ K`@ + na` @+ U " $/ / O+ W " . O/ &d B K+ n
I, d e` @+ ^, p
& 8 S
, P
&
I, d
&@ + + 8`` + c
&d + `` + h I8 2f ?+ w B L7 + _0h + n&3& O+ nl` + <Pd}X( H N NZ N+ <l , p+ 4e` ,~ e` + t# I b K7 + _ b : I
** O ,~
&d + F G4@ F H
IH IH II IH I
&
+ , `` + K+ +
&+
C - CLOSE FILE.
E - CLOSE AND EXIT.
ONE OR THE OTHER MUST BE DONE BEFORE EXITING. IF A ZAPPED BLOCK
IS STILL IN CORE, THE ROUTINE WILL OFFER THE CHOICE OF CLOSING
WITHOUT WRITING IT BACK OR REREADING IT. THE USER CAN OF
COURSE WRITE IT OUT THROUGH THE W COMMAND.
a` + - " A `` + a` + ` ` l a` + )a` + &
&l @@ Q+ e@ + *@@ Q
&+
"
( 1L + 91L + 81L
7
&
L ,~ d
@n G ,G7 0 + B2P0 9
=1P O P G,~ P /0 40
)J .*
" =nM,~ . @
)J .*
" =nP,~ R` , P
"S
+ P . @
)J .*
" @
)J .*
" @
)J .*
"
"=nW@
)J .*
"
& ,
@@ H@ )N 1. . .0n ? . .N =lc
& G,~
& a`@ +d `@ + x . / O(L8 O@
`@ + r)Kd.
dH
" /d5nm,~ )J .*
" @
)J .*
" @
)J .*
"
"+ p@ ,> 7z N, ,^ aP az p7 , qaP aZ7 , t`z , ~,~ / a` +
@
2 a@ +
K$* J K+ a@ + @ a` + ZL A:
dF`@ l > K+d
1J
+ I1J +dy1J ?+ /a` + 1J +da@ 0* 7 + -/
dH4*-2jdK+ -+d0 & 2ndC+ /a` + $D G
" ``
"
, d 7 4F/
,~ 7@ 4F/`Z + +, + Nd` + % + `Z + 4B , 5+ Nd` + X&X + 3 3 9 B pJ .
dH1* * .
" "
dM(F( GdU=l0N
"dP=n+ %a` + 30j + - 0 p J 0 p .
dH
" (Fl& d <
0n + + %`Z + P1J + FJ .
dH
" =l L J, + N J
"="Hl d` + N`P l `P l dR@ , + 1J + _1J + b1J + [1J + jJ .
dH
" =llZ + e, 5+ ^d` + ZX X&`Z
" + NlZ + -`Z + Z+ Wd + N5B-lZ + -
" l$ l& + lZ + -, 5+ N1j + f, + N
"d` + N(J G G + NaZ + -, 5+ N0j + e
" d` + %n$ G + %0J + s
1J
I1J ?d
J 1* * .1J ? * .
" (F|GdU=n+ % { { ~8
3ldF+ `@ + 8 2ndC+ / , a@
&x@ p (GdM0!.dMp!
&x``
" + d` + ~8
2LdF+ l * j @
j * j (F *!8
j!+ 4B+ { P X0
+ 3a` + P X0 * j!
+ 95B-
mZ + mZ + (mZ + )`Z + -, ~*"+ n, _
d, S*~ aP + #X*l d, p+ MaP + &l R` l* p+ Md, pR` + M, q*"+ h, tX X&at + Nl$ l& + N
&#``
" + a`
&#``
&$
d` @, p,^ `` a@ + + 8@j `` + 8l 3B&+ >d 7N + >@
)L /, 4, 0l + (J G
5N:: x ,~ )J~.*
" @
)J .*
" ,~ ? H
H H
H H p ~ p ,> , _ .
x aP , q
x aP , t
x , ~<.^
"+ ],^ ,~ @
)J S (J , aP + k(JdP )J (J (L{dP S
7 2&4Rn(R RL
]2P + gZL
].2 @
L 4Ln, L
",~ )L . , P
&'@ ,~ *'4Jm, ?
"/. ,~ `l
" `l < S` 4L}l 0 @
)J `` 4J|d .*
" < =px,~
"(< ,~ *(4Jm
" , ?
" /. ,~ @l `` + l 3B&+ d 4B Z 5N
3N)+ 2B 9
, 40 R
,
)`P l* p: x ,~ [
, Q, N
*: x ,~ ``
" @
)L 7@ +
&x+
&#,~ Ge@ S:N@ GeJ
iR
> et2 S8 @ _W ` g&=
gRK`
O&=
@ gRN@
` S:Y@ edX9 [R @ k .I@` kN.J kN.K` Y>}=8@ K;$\@` k*-` UON0 I
@ I In @ I&` ` I6~i I6~k@ M'@ @ I6~i6 I6~kV M'F @ M3& ` k Ip MN @ S ` S2$ Y S @ IB ` M M%@ M%P @ M$ ` M& M&* M&+ @ M&(@` MN MN@ MNP @ MN ` MN MN* MN+ @ MN(@` M7 M7@ M7P @ M7 ` M7 M7* M7+ @ M7(@ ` M0 M5@ M5P @ M4 ` M6 M6* M6+ @ M6(@ ` [?4P [?4Z [?4[ @ [?4\` ` [?60 ! [?6: ! [?6; !@ [?6<`!` [?5` " [?5j " [?5k "@ [?5l`"` [?5P # [?5Z # [?5[ #@ [?5\`#` S7-@ $ S7-J $ S7-K $@ S7-H@$` [V` % [Ve % [VeP %@ [Vd %` SN` & SNj & SNk &@ SNh@&` I'0 ' I'5 ' I'5P '@ I'4 '` CN@ ( e? ( YN@ (@ U5p (` CND0 ) e?$0 ) YND0 )@ Kb * E3 * C>, *@ C>+@*` UK @ + U @ + q +@ [ +` aW
@, aW , a? ,@ a? ,` UO - UO - UN -@ UJ -` C . C% . C%P .@ C$ .` gV / gV / gVP /@ gV /` GH 0 GM@ 0 GLP 0@ GMI 0` GL 1 GLy 1 GM` 1@ GLp 1` Gh 2 Gm@ 2 GlP 2@ GmI 2` Gl 3 Gly 3 Gm` 3@ Glp 3` UVn 4 UVn 4 UVn 4@ UVn 4` UVn 5 UVn r5 UVn @5@ UVn `5` g.N 6 g.N 6 g.N 6@ g.N 6` g.N 7 g.N r7 g.N @7@ g.N `7` C>P 8 C>U@ 8 C>TP 8@ C>UI 8` C>T 9 C>Ty 9 C>U` 9@ C>Tp 9` C? : C? @ : C? P :@ C? I :` C? ; C? y ; C? ` ;@ C? p ;` g>P < g>U@ < g>TP <@ g>UI <` g>T = g>Ty = g>U` =@ g>Tp =` g? > g? @ > g? P >@ g? I >` g? ? g? y ? g? ` ?@ g? p ?` g' @ g'* @ g'+ @@ g'(@@` C: A C:% A C:%P A@ C:$ A` C:$8 B C:$84B C:$86B@ C:$81B` g%P C g%Z C g%[ C@ g%X@C` C:$; D C:$;4D C:$;6D@ C:$;1D` g$ E g$ E g$ E@ g$@E` q? F q? F q?P F@ q? F` S? G S? G S?P G@ S? G` C:$8@H C:$8TH C:$8VH@ C:$8QH` KG0 I KG5 I KG5P I@ KG4 I` g$8 J g$84J g$86J@ g$81J` _J K _J K _J K@ _J @K` g$; L g$;4L g$;6L@ g$;1L` _J P M _J Z M _J [ M@ _J X@M` _J N _J * N _J + N@ _J (@N` g%p O g%z O g%{ O@ g%x@O` Q2` P Q2e P Q2eP P@ Q2f0 P` QJ` Q Q3 Q QJeP Q@ QJf0 Q` Q2g R Q2g* R Q2g+ R@ Q2g,`R` QJg S QJg* S QJg+ S@ QJg,`S` Q2ep T Q2ez T Q2e{ T@ Q2e|`T` QJep U QJez U QJe{ U@ QJe|`U` Q2dP V Q2dZ V Q2d[ V@ Q2d\`V` QJdP W QJdZ W QJd[ W@ QJd\`W` QK X QK X QKP X@ QK0 X` Q3 Y Q3 Y Q3P Y@ Q30 Y` QK Z QK* Z QK+ Z@ QK,`Z` Q3 [ Q3* [ Q3+ [@ Q3,`[` QKp \ QKz \ QK{ \@ QK|`\` Q3p ] Q3z ] Q3{ ]@ Q3|`]` QKP ^ QKZ ^ QK[ ^@ QK\`^` Q3P _ Q3Z _ Q3[ _@ Q3\`_` iJp ` i2p ` iJtP `@ i2tP `` iJt a i2t a iJu` a@ i2u` a` ip b iNp b itP b@ iNtP b` it c iNt c iu` c@ iNu` c` iKP d i3P d iKTP d@ i3TP d` iKT e i3T e iKU` e@ i3U` e` iP f iOP f iTP f@ iOTP f` iT g iOT g iU` g@ iOU` g` iJ h i2 h iJ P h@ i2 P h` iJ i i2 i iJ ` i@ i2 ` i` i j iN j i P j@ iN P j` i k iN k i ` k@ iN ` k` iJx l i2x l iJ|P l@ i2|P l` iJ| m i2| m iJ}` m@ i2}` m` ix n iNx n i|P n@ iN|P n` i| o iN| o i}` o@ iN}` o` UK @ + a?H6+ UK I@+ Qf@ + Up +P U~` +( U +0 U +@ U +P U?0 +` S:
[
_W$:
" S:
Y
$ _W&=
& S:
( S:
v
* O%Ht
, g%Ht
.
e 87
0
G3)T
2 G3)W
4 g/Q
6
g/V
8
S>t[z
: Y&= I%@
g$I I%}: I4: $ I$} , O$: 4 I&+ < oN@ D G?P L KbN@ T kC$; \ I$P d Y>=@ l CC[Q t Y>=}: | g^NHt e<t
i&l\@ [O%2 O&
$ iK9: , iK)7 4 eVvJ6 < a*| D g2,\ L g& { T a-0 \ O%J7 d eVp l g&]x t el | O&93 O&H1
gCH g%h6 i7;y $ IN\: , gg = 4 !U>= < !gS]7 D "gg
L "I6N8 \ #I6= d #I6
l $g-0 t $eS&, | %Y> 0 %U>=
&Y> &o".) 'I5h6 $ 'GRe+q , (O>= 4 (QC L )Q&\@ T )o\P \ *G">
d *g&]7 l +_RF\y | +G"\q ,I6:=
,I-[w -U> 5 -CS$t $ .I,j7 , .MJ ]7 4 /I5KV < /a%@ D 0[$\G L 0[R
G T 1U ] \ 1a>\S@ d 2iJmkg l 2iJm| t 3e MG | 3k:ezg 4I' 3@
4I[= 5I[.,g 5Gb' , 6[RL 8KJf= T 8gv9' \ 9G3= d 9a&Mj' l :a' g t :I*g | ;a' G ;a'=
<SB lG <SB lg =SB l' $ =a<S@ , >gW ] 4
&*+
&,+
&.
&3d @@ I+
&5+
&8+
&:+
&<+
&>+
&@+
&C7
&Fd @ d +
&K+
&N+
Zb @0B +
&Q
'
o
&+ R T V X [ ^ ` b d f i k l o ~` / ??CAN'T OPEN TTY
&` ??ZAP RUNS ON REAL TERMINAL ONLY
ZAP!
TYPE H FOR HELP
H B< B%NOT YET IMPLEMENTED. PATIENCE, PLEASE.
?DDT NOT LOADED
&
+ WISE GUY!
?INVALID MODE
&+ %NOT A BINARY FILE
Pn - SET WRITE PROTECTION
IF SET TO ZERO (INITIAL CONDITION), FILE CAN BE ZAPPED.
IF SET TO 1, ZAP WILL NOT WORK, AND SEARCH WILL DISPLAY ONLY.
?FILE IS READ-ONLY
&&+ ?INVALID TYPE
&*+ ?FILE ALREADY OPEN
&-+ ??CAN'T OPEN DISK
&0 ` X >?NO FILE NAME
&4+
I - TYPE CURRENT STATUS
TYPE OUT THE NAME OF THE OPEN FILE, THE CURRENT BLOCK,ETC.
FOR EXAMPLE:
FILE: LENGTH: BLOCKS
WRITE-PROTECTED
NO BLOCK IN CORE
BLOCK IN CORE ZAPPED
DISPLAY/ZAP MODE: MULTIPLE FULLWORD SEARCH FOR " " CAN BE CONTINUED.
REPLACEMENT VALUE IS " "
OCTAL
SIXBIT
ASCII
INSTRUCTION
ASCII CHARACTER
Rn - READ BLOCK n
R+<n> - READ AHEAD n BLOCKS (DEFAULT IS ONE)
R-<n> - READ BACK n BLOCKS
YOU MUST SPECIFY THE BLOCK TO READ BEFORE DOING ANY WORK.
??I/O ERROR: STATUS = ?ZAPPED BLOCK STILL IN CORE. TYPE R TO REREAD
(SECOND PART)
SEARCH MODE IS ENTER SEARCH VALUE: ENTER REPLACEMENT: 0 N< N
BLOCK
LOC (FIRST PART) (SECOND PART)
%END OF BLOCK REACHED
I%%END OF FILE REACHED.
W - WRITE CURRENT BLOCK
SELF-EXPLANATORY.
L ?ZAPPED BLOCK STILL IN CORE.
TYPE C TO CLOSE WITHOUT WRITING OR R TO REREAD.
%SEARCH ABORTED
H G H G 0 x < 0 $ . ? DELETED
UNCHANGED
p $L
] . $ ` `?FILE NOT OPENED
?ILLEGAL SYNTAX
%MORE BLOCKS ALLOCATED THAN USED IN FILE
?BLOCK # OUT OF RANGE
?ILLEGAL CHARACTER
?NOT AN OCTAL NUMBER
?ILLEGAL COMMAND
%NO FILE OPEN
?NO BLOCK IN CORE
?NO SEARCH IN PROGRESS
?NULL REPLACEMENT ILLEGAL
?SEARCH AND REPLACEMENT VALUES NOT THE SAME SIZE
?FILE IS WRITE-PROTECTED
?LOCATION OUT OF RANGE
? (FILE I/O): FILE NOT FOUND NO UFD FOR P,PN PROTECTION FAILURE FILE BEING MODIFIED; TRY LATER SYSTEM ERROR P-ERAEF% SYSTEM ERROR P-ERISU% DEVICE OR RIB ERROR QUOTA EXCEEDED STRUCTURE WRITE-LOCKED SYSTEM ERROR S-ERNET% PARTIAL ALLOCATION BLOCK NOT FREE SYSTEM ERROR P-ERCSD% SEARCH LIST EMPTY