Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

?p@

?xCOwKb)C}*dC`INXQF:{A)'[{BE@
	M(#sX	y


p-3`9*>	`0
I9{(9 O@(W"$ D(W $
 D(X $
 D(X-\6e4(Y-\1~4(X4(Y4(W4(W4
K4(Y-\1~4(X4(Z4(W4(W4
K4(Y $
 D(Z-\3#4(W4(W4)4([4
L4(Z (WX@A "Bb +E(' ENTER HEADER'/)   (WX@F "HB )4 +J(16A5)     (WX@K "Lb +Q(' MAXIMUM SIZE OF MATRIX IS 100 BY 100')     (WX@S "Tb +X(' ENTER MATRIX SIZE: ROW,COLUMN--'$)    (XX@Z "\B([(\ +](2I)  (\1dg
O ([1fg
OA
4$j (WX@c "db +i(' MATRIX SIZE NOT WITHIN RANGE, TRY AGAIN'/)+J $22$(\g
O &22&([g
OG
4$b $2D([+x 
L D) :
 Z(\ 
M Dh)1:9r 
M2D(Z+
 (WX@w "xb +{(' ENTER THE MATRIX'/)    $2D([+ (WX@~ "b +
('+(AT MOST 20 NUMBERS PER LINE, SEPARATED BY COMMAS)'/)    +
 (WX@
 "
	b +
(' PLEASE WAIT, YOUR DATA IS BEING PROCESSED'/)    : Z(\ (XX@
 ")Q"B : Z(] $2$.(\
3:(\9
 (\ 3:([9
-\*{4
N4([4(\4(]4(^ (XX@
 "
b +
(1H1) : Z(\ 
M2Dh)+
"1:9
+
' (XX@
$ "
&b )4 +
'(1X,16A5)  $ D(] : Z(\ h(]4D
- (] Z
M (] h(] F
:(]3:([9
)-\6+4([4(\ @(] (XX@
2 "
3b +
5(' INDICES:')   (XX@
6 "
<b : Z(\(V 
M 
(V3:(]9
7 +
@(5(1X,A1,I3,',',I3,A1,4X))     (XX@
A "
Cb(] +
E(/' SUM=',G)    (WX@
F "
Gb +
H('-')+8-\9v+  +0(20F)     TTY  (    )    @@+ + D+ + D+ +3$++)L + D+ + D+ : Z+ .+  D+	 :
 Z+	 +	 &2$.+ +.
3d'M+)A &2$.+ +.
 'M D+	3:+9): : Z+	"+	 &2$ +.
 
+.
D/M3:+9)C +	D+ +3:+9)6 +2d++)b : Z+	 &2$ +.
 'N D+	 :
 Z+ +	 &2$+	. +.
3d'M+)Y &2$+	. +.
 'M D+	3:+9)Q : Z+"+	 &2$+	 .
 
+.
D/M3:+9)[ +	D+ +	3:+9)M : Z+ .+@@3:+9)c : Z+@@h-	3:+9)g : Z+ : Z+	 h-	1Dg
O +.+ '1Fg
O *2$
.
+ 

+.

 7M1HgOGG
4$)x +.+ Z + Dh-	3:+9)j +3:+9)i + D+
@@+
@@+ $ D+ : Z+@@h+A .+ 5D*:+
 +
 Z,WO@h+A>+
3:+9)~ +3D+
+*z : Z+	@@h+3:+9* + ,W D+:+ : Z+	 h+1Dg
O (2$.+ 
+.
 /M1Fg
OG
4$* + Dh+:+ + Z+s h-	4D*m:+
 +
 h-	 F,W h-	 + F+A3:+9* +
2$++* $ D+

 + D+

@@+3Z+	9h+5D*":+&.,X +.
$'M.D+	 :.Z+
3d'M+*2 &2$+.+ +.
 'M D+	3:+
9*'"+.+
.+
+	@+ : Z+ h+A5D*B $2d+

+*a : Z+ +	 &2$h+s +.
 
+.
D/M3:+

9*<+*a : Z+"+	 &2$h,% +.
 
+.
D/M6b+

0b7+
*H4*K4*`4*e4*m +  ,% +1Dg
O *2$
 ,%.
+ +. 'M1Fg
OG
4$*` + ,% + F+ +  ,% -	5D*Z + ,% D+	 $
 D+

+*`:+ + +  ,% F+s:+
 +
 
+*(,%+3-	+F,W*+3:++

"&
.
5f*m +3D+

+* $.+

 
.Z+ h+s.D+ +.-	+++F+A3:+9*i+* +	,+,D+,+	,+,F-	++.+ 4D*x/+	,D+
-|p 25D-? 2X@-> "-?b +-D(' INPUT? (TYPE HELP IF NEEDED)--',$)    $2D2+-H 2X@-G "-Hb +-L(' OUTPUT? (TYPE HELP IF NEEDED)--',$)   2X@-P "-R  /3X@4C  /3X@4CB 2'4 +-S(50A1)     22D2*g
O 22F2*g
O 22H2)gO 
2	2J2)g
O
 

2	2L2(g

O

 2	2N2(gO 2
2P2'gOAA

A
AAA
4$/3 22D2*g
O 22F2*g
O 22H2)gO 
2
2J2)g
O
 

22L2(g

O

 22N2(gO 22P2'gOAA

A
AAA
4$/: 22D2*g
O 22F2*g
O 22H2)gO 
2

2J2)g
O
 

2

2L2(g

O

 2
2N2(gO 22P2'gOAA

A
AAA
5$.

 $.26b
0b
7+
.
4/<40-\542@$A2@&3F
g
O (3H2!gOG4&.-\7j42E42%+.A 2 2%2D2'+." $ D2% 2 2%3D2'+.( 2 2%3D2'+.4 2 2%3D2'+.@+. $.2% D2" $.2% D2 : Z2& h2% Dh2'2z2=.,!: Z2& 2%. 2 F2'1:
9./ $.D2%+. $.2% D2# $.2% D2 : Z2& h2" Dh2'2z2=.8 $.2% D2 2% Z2& 2 Dh2'3:29.< $.D2%+. 2% D2#+. 2#4D.O  2@X@4B "-R $.2# D2 &.2# 
 Z2&  2'3:29.G   2@X@4B ".Nb2$2$ +.O(2O)  2%5D.X $.2" D2 &.2" 
 Z2& 22Dh2'+.W2z2=.S $ D2& 2& 2 F2'  2X@4B "-R $.2" D2 &.2" 
 Z2&  2'3:29.]  2"4D.g  2X@4B "-R : Z2& 2'1:9.d  2#4D.t  2@X@4B "-R $.2# D2 &.2# 
 Z2&  2'3:29.m   2@X@4B ".sb2! +.t(I)   22D2+/
 23D2+.x 2 D2+/
"$3D2+.{ 2 D2+/
 $A25D.~ 2 D2 $A2 &2F
+/
 2 D2-\6R4242 23D2+/ 23D2+/ 22d2g
O 23&2g
OA
4$/+2 2 D2 2 D2 $ D2! 2 D2&-\6R4
242-\6n424242' $3D2'+/ $
.D2+/ 2 D2E 2 D2F 22D2+/  $A25D/ 2 D2 $A2 &2F
+/ 2 D2 2 D2 $A2 &3F
+//-\6n424242'42$42$ 2'4D// 2X@/( "/)b +/,(' FILE DOES NOT EXIST'/)"$2D2+/.-\9v+-<-\5 424242"4

242$42$+2/$2D2!+/5-\542&/$2D2!+/9-\7j42E42ER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA.  IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X, 'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER  (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X, 'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X, 'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4)  IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///)     2X@0; "0=b2 2  +0z(' EXAMPLES:    DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/ 14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE:  THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1)  SAME COMMAND.  IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2)  FINISH COMMAND.  THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM.  THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED.  FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3)  A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)-\542 $.26b
0b
7+
0~4-<4-D 2X@1
 "1b +1}('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X, 11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER  (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/ 6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/ 6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X, 'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4)  IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'/// ' EXAMPLES:    LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///)    +0z+24 Z2 \2  2,!p,!p,!p
,!p
,!p,!p+-< 2 2\ 2/ 
,Ap
,Ap,Ap-|p     H    S    I    N    F    E    M    A    P    L    
.    :    [    /    DSK  TTY  CDR  LPT  DTA0 DTA9 OUTAAA.AAADSK  INPUTOUTPT.DAT [    ]    @@33@@31@@34 $( D34@@35 325D2K-\9v $2D32+2O 30X@2N "2Ob +2Q(' FORMAT'/)    $
3$32+2V 30X@2T "2Vb 323^ +2Z(' FORMAT: (',A1,'-TYPE ONLY)'/)    30X@2[ "2B : Z35 361:(92\ +2a(80A1)     $3D34+2o 3+2D37g
O 3,2F37g
O 3,2H36gOAA
5$2j+3( : Z35 .31 3- F3:3292k $ D34 $3d32+2r $$32 D34 : Z35 3-2Dh36+2w3:3492s $ D31+3( 3- 352D36+2v $ D36 34X@2~ 36.31  X@4B "3 : Z35 363:3492 +3(80A1)     : Z35 3-2Dh36+3:35 3.2Dh36+3>353:3493 $3d35+3+3( $.D36 $.363d32+3 $.32/36$$ D34 $2d34+3 30X@3 "2B : Z35 361:(93 +2z $2D33+3-\9v 30X@3 "3b +3!(' ERROR IN FORMAT, TRY AGAIN.'/)   $ D33+2G+3(4 Z3. \3/  3/,!p,!p, p
,!p
,!p,!p+2F 3. 3/\ 32/ 
,Ap
-|pM    A    S         (    )    I    F    A     \4E @4E<4M0<0|+1\+3n,>p3Zp3+p@h4@p4@
(4+@
044@x4@
4@
846@
(4$@P4/@P4/@h4@
3v@
 3v@
4@
4D84#[(/<0"`S<pX<0 p3@4N+3t*|3p-<4ZZ`3`+4#!  @w+3r<4N p7 p+4,>,>
,>
 &w p,4

,&
.<7@p+4	 p,4

"4Om4=.<Pp`4O w,&
,&5@3{.<Zpd4P:." Q,&!p,&>`
94.<
93|@@,^
,^
,^+4d@@&<0b.".")B}5@4 4E,x,^x 4E+3` 3`Q< \4A:3`  \4B<4Q p4=|4Q < \4A@@4B+4!@@4A Q< \4A<4Q p4=|4R+4!74S 4U \4A @44XQ< \4A 4U \4B+4![`x 4E,x+4;Z \4A@@4A@@4B<4N \4B+4!74C 4CX\3`@@4C@@4C+4#>x! Z @
&4VU`eB+4L@)@
G 
"+4H
&4Z+5c6$1,>9x.@

p.46$G 4:.

.44B.4ASEQIN@4RSEQOUT@4T
@44
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+4_	~+4jZ. \x <x*<x .->6;ez+4f!"	b+  "4g	b+Z. h+ggM?Th
&4l	b+4Z,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*5**,^,~*x,> <5*<5  
pZ@5@@5@@5 5G`|+4zPw,~ "p h a`~+4h  ``~+5$5G!5
d5H/"+4zP,~
@
@
@ 
@
@0
@x
@@
@`edX91,>9x,>Z
p @5\`5 <5,,^,~SMI 1,>9x,4s 5I B5+5*_MI 1,>9x,4s 5K B5+5*I5R1,>9x,4s 5L B5*\547ApX"5M B5/& pd"~l" B5*\54/& pd"~l"$ B5*\54/& pd"~l"

 B5*\54Sp*\54/&Xp B5@@5 5N B5*\54/& pd"~l" B5RF5 <5,+4qEV4i91,>9x+5BS,i@1,>9x+5B_,i@1,>9x+5BK>21,>9x+5BK>401,>9x+5B[<I71,>9x
&5N w @)@. 
"5B5C
&5T,~`
.

.4SEQIN^5HSEQOUT^5JRANDOM^5KSEQINOUT5
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>9xO@6+5YgR~@1,>9x@@6,>,>@6 w+5f"60B+5a!"A`X#p5@5^/#p!"X#p+5f\p+5fa.9'1,>9x,>,>O@6+5f,>
6+ _4`5n"`Q@,> <6,,^,> <6,
,^*b5k+5y,> <6,,^7@6+5t,> <6,
,^+5v,> <6,
,^Z5"5y,> <6,
,^,7@6,

,> <6 ,,^,,> <6#,,^,> <6&,
,^(@qd1@,,

1@#+60@*+5y,> <6(,,^+5y,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX6
p X6
p 6p 6p X6	X~6p 
xC6Md 1,>9x,63,~
[&r1,>9x,63,~
[&r1,>9x,63@,~
C6Md1,>9x,63`,~
,>e|Pw+662ap 
p*|65a|+6: ph" ab~+65,^,~!$hX$h@@h*% "6B BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>9xZ.@6kp2j8M+6c !pQ A` 6\\$}

4L6Z/,L8$6X.
8L F(,~H
?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&6\ <6b,

iSN,>9x@ApO
,7 OAp,~446j47KbN=1,>9xO@7 p4B6r,7:4@6r96v96uKbN=1,>9x@@7!$Lu 
	`@Ap``a`
+7a`+7 D6mA 
(`6{/"#B6l@@6m !pX@6i,> <6i,7,^7@7+7
OAp+7 #pQ"A` $1@+70`=d7! H: @6k@@6la|+7

[p
d
0@ +7[p
d
0@ +7+7_w6@7_w#`1 +7S
p
X
p
 @6l
6l+7@6j+7+7
&7+7   Ap ,~
 ERROR ON OPEN!
HH7H7G.t21,>9x@@Ap
! A`.!p @7 7 @7@@7@@7 & "7<1D+7(-73=b7#7<0D+71O "
 7 @77<-73=b7*7@7OAp
 !p<, 7, 7,~
<&7,71D+70   Ap
+7,1D+701$+7-1d+780$ 0d-+7- $D7+
73"7V,7c0@+7R p4B7TLad+7Q`b+7R $0d"+7T&$$&(&}Z.G7V.&$
.$ 7F+7G 
 ,~ A$&$(DG$1$((D(D

 
	`5@7T .2bM+7P L.&7D!$Lu+7S2"7W+7M &p,7[ 
	`,~
&7W <7Z,

.p M}ILLEGAL DEVICE NUMBER!
"7b,7c 'Q&A` 7b@
1x,~180.8X=`7^,~.H
  a|+7f0"0b/ ,~0B1B,~0B/ ,~aJMm1,>9x,91+8@,8[,9-+8Z"
6Ep
 "
 B` "b8 $
7cp $1B
 $
d8,8,8z+86cp
0b "b8$8< ({."XB`&$@6@
.$.$
a|+7[pd
p0B +8+8
_w#`1"+86cp 0d $QD`,8E+ ,98 ,~
&8+8
&8+8@b
 -p .Q,A` 
84P81P+8/0P=n8,~`

``
CANNOT INIT DISK!

FILE NOT FOUND!
HH
 .
 
8+8YC GaSa3 S;YC&<G<aS<a3&<E$;w|x8 P8 B`
1T!"L	b@XB`
O@87 9I 87@,98
+9A!,2,9"@!.
~,98`+9J""1T""QB85,98	f+ 1$98U+90 88@`8 9L*(85 9L	n@`N+9Q 6`
 9R1T 9S B`
 " B`\"

	b@ B`\"S	b!"Z(Brb9T	b

 B88	b
+  B`!"2	b`b`b+8u!"2	b `2B`+8u!$2	d!$Lu+8x 9T	b 9U 9U	d!$Lu B86 D87,~@@8: 9V*(8@ B8: D8; BX B` DXZ88(D}	d ` D8: DX "2D`b9Vd  "b9W,98@89+9W 8@ BX@@8A 9Z	b$+9
!"8BX"X*"X!"`Z $?d9Z`B
`+9l !"GBX"9V0B
+9,94+9 9I 8@@,98
+9!,2,9"B,98"X

8; 8;,98 +9 JX,98 +90
&9[ "
b9Va`+9+9a`+9,98 89+ +9 	x H9+	h	&(2 
P8 9a.88 &..0P`bp+9&d

@ 86,98+9+`L+9$ 86+90 (!*Lu@

,98
,~:x,~ " B9IO@88O@89g "?$9I+9@	d5D94 9I(D D88+90,> 
e`
p+9<7 89+9?l!89+9>7 88+9?l!88:+@>,^+90
&9a,~ "
&9c,~ "
&9i,~,9H
&9q
& ,9H	b (9q+9D
&9u,~@;`87+8I+9C
H80CMQ Cannot do MPB QUEUE on GALAXY system. (9M+9D`` `
P$` 
h 8:

XHXa`
,~!"
GB`+9@8A6$8;
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0NO FREE CHANNELS!

% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!

% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMRCNC Can't CONTINUE -- try REENTER
KbN@1,>9x,

,~9xY\9zQ<X\9z*+