Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/punch.sav
There is 1 other file named punch.sav in the archive. Click here to see a list.
`&`8r0?x-qx?x/0/+/+1@+/~+/~+0+0+0+/~+1@+/p0aVt:YC P0
2A00x0~`0t+0|00:x,~+ + + + + + + + + + + + +0!0)@0@0@0@0@0@0@0@0@0@0@0@0@0@0~h0P


,. 	-+*@()?/$p0[aJMma; p0_aJMma; x0awx0ax1?O@1(O@1$O@1#- 0  6U~O@7{@@7q@@7o@@7r@@7z@@7|@@7y@@7w@@7u@@7s@@7p@@7p@@7v@@7r@@7y@@7x@@0@@7z  6X~,1U+1u6@7u+1t6@7y+1y 7s2@6Y+4n6@7z+2s6@7|+1x6@7r+4+2s@f7{@@ 6Y`+1V1@+1a1@+1f1@+1g0 00`=1/ 6@7{+1h0 0`-,~h`B,~@+1V6@ B7s7@ B7t 7s`B,~:x,~O@ B7t+1UO@7{+1V@@7q@@7r@@7z@@7|@@7z@@7y@h7u1@$Oh7u1@(Oh7y1@!Oh7q1@!Oh7r1@)Oh7z1@+Oh7|1@,Oh7z5H1V,~  2~+1C  6Z~6@0
2+1CO@7rO@7z+46@0+1u  6[~`+1{rr+1~+1yr+2ru(1+1rrr+2r +1~  6a~+1B  6d~+1B
IF EXT IS 'SAV' - RIM10/RIM10B,
IF EXT IS NON 'SAV' - ASCIIZED,
COMMANDS TERMINATE WITH <CR>
COMMAND		FUNCTION
-------		--------
/P		EXEC - PAPER TAPE COPY
*** 'SAV' EXT ***
FILE		PUNCH RIM10B
FILE/B		PUNCH RIM10B, PAUSE AFTER EACH 3/4" OF TAPE
FILE/C		READ & COMPARE RIM10B PAPER TAPE
FILE/R		PUNCH RIM10
FILE/V		READ & VERIFY RIM10 PAPER TAPE
FILE/X		CREATE DISK RDI FILE
*** NON 'SAV' EXT ***
FILE		PUNCH ASCIIZED TAPE
FILE/B		PUNCH ASCIIZED TAPE, PAUSE AFTER EACH 3/4"
FILE/C		READ AND COMPARE ASCIIZED TAPE
FILE/V		READ AND VERIFY "/B" ASCIIZED PUNCHED TAPE

DECSYSTEM10 DIAGNOSTIC PAPER TAPE PUNCH PROGRAM (DDQDD)
 7s @2Z7@0+2n 6g6@7z 6g @2W 6g6@7z 6h @2\
2T+4d
2W+4e+(@7|+4f,33,~INX2Uh2VaS+p2Y]lPKc p2[]lPaS~`2] 7s @2Z7@0+2k
2T+4d
2f+4i+(@7|+4j,~aS2hp2i]lPaSt82krr+2n,2q+2k@@2V@@2V  2Zj+4g,~  6h~n+2r,~ 7t @2Z @2\,2G! X @7},35+4^5.4 48? 6/34+4` 2V 6(,3(XN7} 2V 6(,3(ZN7v@@7v6@7z+4=6@7z+4=6@7q,42,3-,3s.2VZN7x]N7s"`7s7R7s+3$@@7q02 2".T7sQX7x.R7x.N7q N7x,3P<23
 7q,3P,3`6@7r+36@7{,497@7q+3,3e+3 7}aNl.@,3P@@,3P6@7r+4#7@7z,3-6@7{,497@0+3"$ 7| @(  6o~ 7rz  6s~ 7p6@7o& @6@7o. z  0Q~+1C,35+34.32N7}+4b+3/8.Z]/34+3'/68..,~6@7o+3/6@7r,~ :)@@,3V=z306@7{,49,~  	```O@7y,~>`2V+3:7@0+3<B+3:
b@+4b,~:7p2V:x,~,3E "@ $6n+3C @:=b3=  @ @2V 6u @2V,3F+3:1B@,~ B2V+3A 6u* 3O,~!6u* ,~z3O6@7r+46@7z+3V : @@).l@,3V=z3S,~7@7{+3[:7r6@7r+5,7@0+3]?`2Y+3\N2Y:7v,~d+3Z+4crr+3^r +3[+4c6@7o+3b6@7r,~ :@@,3V=z3c,~ 7v1`;b,~6@7o,5,3-@@7v  6v6@7r  6{~ 7p6@7o& @6@7o. z6@7o+3p  6~ 7xv,42,3-6@7o,4|,~"7vZ7}.XR4XT4 7 3z @7x p,3P*|3w,3`,3`,3`,~~`rX0r+r@+@@+@@=2^.pe36>+*|+!>@@x*~++ 7t @2Z @2i@@7u,2^+2u,4+4h7@7|+4
 7x*`4 @7x3N,~6@7u+46@7|  77@7|  7~O@7u 7xv v v  7~,~ 77@0+4>`2i+4F+4
f@+4k,~r+4rr,~+4
2h6@7o+5>aL@+4+@@7pO@7wL2H7+4:x,~7@0+4(6@7o+4&"&v7|@(xX77@7u~z+7~+1C7@7w+4:7p1h*+4@@7px,7~n+4/"7~@@7w+4@@7{s+76@7r5+7~dO@7{P+7"6@7rx]77@7{,7#~,~6@7r,~7@0,~6@7yM 7v< N7t@? 7t+3,3P+4\  7)+4m  7++4m  7.+4m  71+4m  72+4m  74+4m  76+4m  79+4m  7;+4m  7=+4m  7?+4m  7C+4m  7F+4m  7J+4m  7K+4m~+1BO@7o@@7w6@7z+1u6@7|+5)6@7r+5*,5,5"l+4^:7p0@+5S,5
6@7q,42,3-,4|,5,3`6@7{,497@7q+4x,3e+4x(.,3VQ45W,5,45Q,5:7w,7w,5,5,3`,~l+3:7p @1@+5,3V+5,3V,~,45R,5 7w,5,5,~,>@@5W 7M*45f 7M 6Fl+4a:7p1@+5@=65
2W+4e+(,@7|,~O@7qO@7r,5,5G,5A+4s4N3[<f5UN0N+3[ &F,4+4h<f5V0L+5/,53,5A+3[ 7N 7N
4N5=3N+54/65f.66 ./n@NO@7ud7O`5f`5u`6`0Q,~5L57,~4L4+@@7pO@7wL:x,~@@5f 7S* 6 7 @6 7T* 6 7N 7N &F,~ 7T @2g @2j 7t @2i7@0+5N
2f+4i+(,@7|rr,~,2q+5N   PART ;EOT PART   7U+4m  7V+4m  7Y+4m  7[+4mo6U
TYPE /H<CR> FOR HELP
FILE: g0H
???
PLACE TAPE TO BE COPIED IN READER
TYPE ANY CHAR WHEN READY.

PUNCH OUT OF TAPE

PAPER TAPE COPY COMPLETE.
aSINXeH
PAPER TAPE READER FLAG NOT SET
CORRECT & THEN TYPE ALTMODE.

PUNCHING COMPLETED, CHARS PUNCHED = , BLOCKS READ = I63H
3/4" OF TAPE PUNCHED/BYPASSED
BLOCKS DONE = 
3/4" OF TAPE READ/BYPASSED
BLOCKS DONE = , LAST POINTER = ~X3z
RIM10 VERIFY ERROR
POINTER       CORRECT       ERROR

RIM10B COMPARE ERROR
POINTER       CORRECT       ERROR
H
NO DIFFERENCES ENCOUNTERED.
COMPLETED.

END OF TAPE SECTION, PUT NEXT PART IN READER
TYPE 'ALTMODE' TO CONTINUE.
READING.

PUNCH NEXT SECTION - 
READ NEXT SECTION - PUNCHING.
BYPASSING SECTION.

DISK RDI FILE, POINTER = 
FILE OF ZERO LENGTH
FIRST WORD MUST BE POINTER
INITIAL POINTER ERROR
ILLEGAL EOF
POINTER ERROR
ERROR ON OUTPUT
INPUT NOT AVAILABLE
PTP NOT AVAILABLE
NO OUTPUT ROOM
INPUT FILE NOT FOUND
ERROR - PREMATURE PAPER TAPE EOF
PAPER TAPE READER NOT AVAILABLE
COMPARE INPUT FILE NOT FOUND
PTR ERROR
RIM105ERRORZx5XH5WH5fH5u}:4u w[B) KK|FG@~,RGP`WHh1iV
NO FILE ID
FILE ID LINE TOO LONG
FILE LINE TOO LONG
PTRLINE3TOOLONGc`867~67~W\B:/W\>XW\>5'W\7N+W\2g'Pr'I(W\)8*W\)7W\.,Pr%H(W[QgW[M	+W[@v*Pr#eA^;>1&A^;=1%A^;=1%@%20)@<kK0'@<k20(?	"70)?	 0(Kh`0O3TZ03
/d:0 /=+0\/=}0\/.bC0Jt0Z.6O0
.6K0FgI0+f0)0+f-s0?k0_+Z0`>=t0^KH0O)!:1?) ?0
(c>h0KW(bt	(]:00'%~0.q$0#dBX1&72J|1(71v	1)71v	1)7)?1(7%X1'G
H
Z7}Q7D7|kA11xQ00P{}X0PV{|y {q*P/$=}Z0P( 2P'fIUqQfI@o#G/0Lo#Mro"u0Ko11VcfN1Uo.po
3fc&LdoGrhoCjoB`nt,#nbA1aUmuFyUmtAe	Ul$&P?!@P? MBR0fN0;'C1f;9;9="0SZZYYYhe0XN?0	X9[MpWlUH7|W5*/P:}
zk0SP	}1gQNV7{-0XN0UMEOUMEOUMENUMENUMEMUMEMM6q@7{wb.42t"/0'KPg0KOB3Eoiuoitoitois0ois0oir0oir0oiq0Jy)Jy(oiq0Jv0B3H>qG@03e0V3d,~=aLb3FU=`e7l%3'7l%3(9C;3z8B\4U1h	3:7RM357Fc437Fc33
7Fc23$7Fc237Fc137Fc131b>2s7E2]4\7E2\4Z7E2\7z7E2[4S7E2[4O7E2Z4M7E2Z4L7E2Y4D1^4=505uY05uY0U5[*
0Z!XM0YzX30WUfY+=1$-#}3]-#83\4*93[4*93V';,>';3P43,~
b6h(nd
b6z(nx
)H5Q
)8i7x
)8]7x	qPb	q.0I	q-`PO}	pmx	pj3x	pj2|	pj,~O+h	pcg0	p`,`	p`,b	p^@|U	pYW 	pFI0I	pA\vN8v	p3@0G	p/0	p-F0H	p(
|Mf|	p%rz	p%Lz	p"<fMTd	p $bMM`	p t	p t	p ~M'~M$`	pp	pp3~]`Lhn3~\nLTl3~[lL@j3~[jL,h3~ZhLf3~ZfLd3~YdKpb	oXprKir3~Yb3r:0T?(0b?'1"30a[S+P3^`@PLhPfUHV%?UHV$UHV#UHV#UHV"UHV"UHV!UHV! @g2A@O- 0?gGU2o}~0vb-B[0RUZe	US}/G,0H
@b0Q2b0Q
9`0Q39[`0Q9#bM7w@7wvW0P3-uEP7wUtiF@tg@0tg@0tg?tg?tg>YC tg>aVt:tg=tg=UtbJUt\fUiP$$
B2W!rWf`1hrWf30JTrT/W2XP0HP/@TDvV.
P.<X
@ohP.O A=x0Ag@0AV0A`SnA`QlAI*/TAO0TAK0TAF+z0T;K<t;%C02;.03;Tr;sD029k
:8Uu(08RK[x8R:/~8R,<018R&`8Qi
z8Q[vT-Wc?P0,ARq0,ARp0,AR^0,AR]0,AR]0,AR\08+T)?KT)?GP
T)4LT)4LT)4L
T)4L
T)4L	T)4L	T)-O}PT)#(kT)#(jT)#(jT)#(i T)#(i@T)#fT)#
T)#T)#T)#
T)#
T)#	T)#	 T)"f!T). T)m/	T):T)8T(az(E'z3sT($FT($FT'P{a
PX
T',#T',#`;T&xuT&aR*T&ZqP
T&&}
P
IT%
?T%nfP+vOT%
Z
0VT#jsT#hXT#hF@T#h/T"dxyT"aJT"aJz"QO7vT"H0T";k+T";i@T";"T";""8z3-T"VT"
:HT"
y@/T"XAT"AT"&zDT!mY@@T!j[$@P!8{!T!6z$T!6wT!5}T!+~0"!)~T!)}|T!K+ T!I @T!H;T!H:T!FdT!FT!E?T!i}@T!gx@T !)/T G
T GT GT G
T G
T G	T G	T Dg/xP*A}
P}
1'^(*h)yZ%@0TY%x)GSw^:/Sw^XSw^5'Sw^N+Sw^g'P
KyI(Sw]y8*Sw]y7Sw]h.,P
KwH(Sw]!g
Kw0Sw]	+Sw]v*P
KueSd8c?bN
bN
	0"SbEwSbDtX@SbD7F@SbD0Jb56kSa|@Sa|<Sa/rf S` 
DS` K S`2S_u:S_u8S_jP}nfS_nP&)3 S_f ^q832Z^h'2GS^f8$ S^eim^`|r2n&&){t7vzF{nB2TS^4oS^#@S^$S^#|S^#D@S^KS^
(OS[m?@S[m?@S[kZSYHSYBJ XTz4|SXK[$SXxf SXxcxX2USW5fSW5_SW5^ SV~E-SV~ESVg"2SVg@SVf?SVf+: Crx0TE+z@E$X,2SP7u#u%1t#\'+`,l[,^Pi7 H*/}Hrj
7Clwy*/} Qp
0nP A/ Ph@TB7uHf5He.1UHFw5HCg7tH8H5f #7tH7sH+5HX58hH5W
hH5
	x{'zP	Wc	WA3C	WA3A}H3<SwSd*R`QAYA4m^W0	K{0^
xY54fY44eY44dY34cY34bY24aY24`Y14_	Kw+4l	Kw*4k	Kw*4j	Kw)4i	Kw)4h	Kw(4gY14^TVW0 }whH5R}p:X|}
rXt}
d_7_}
1?aG7}g#Nhje3*0XP&HaR\H6aH[x0e$019	`l:cUt^ge0^g9*/~PYNRylL1"Q{%9fPq}O.v1#O.K@1#Pf=Pf</40Qd@0QMR/Q0+T20)O7s)TT0M,x7rM**4)M10RP'}'~~0LYUn=KjS5AKikg2iKiNQ4KiNO2^KiNM4KiNA4Ki74#Ki72kKi7	4(Ki"B2f%j82hKi*53Ki%5=Ki%57EiTyKQ~1uTs1CKI
2KQ!vKL0P>sRKCFRK<JRK6fPTb9oI-igbHfM7r&qTP~RH_.hko7qHME4Cn4P+hG?B-dPS)Ot66%.
7q`wF3eUCv2\77pUA.4+2I7*7pUJ3`PN
4#0W.2A0GS(0.1kG0mRvt4(0UR&^BI30U;L:5);)84rW)4xW)4x:|I5:i@7o:Vy5*P)/RvePqRxKZ95,s~?
z@R:<f@,~'\7N+\2g'r'I(\)8*\)7\	&\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'w]!+{ 0+0