Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/assign.exe
There are 2 other files named assign.exe in the archive. Click here to see a list.
?p@
?xCOwKb)C}*dC`INXQF:{A)'[{BE@	M(#sX	y
p-3`9*>	`0I9{(9 O@(W"$ D(W $ D(X $ D(X-\6e4(Y-\1~4(X4(Y4(W4(W4K4(Y-\1~4(X4(Z4(W4(W4K4(Y $ D(Z-\3#4(W4(W4)4([4L4(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)  (\1dgO ([1fgOA4$j (WX@c "db +i(' MATRIX SIZE NOT WITHIN RANGE, TRY AGAIN'/)+J $22$(\gO &22&([gOG4$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-\*{4N4([4(\4(]4(^ (XX@ "b +(1H1) : Z(\ M2Dh)+"1:9+' (XX@$ "&b )4 +'(1X,16A5)  $ D(] : Z(\ h(]4D- (] ZM (] h(] F:(]3:([9)-\6+4([4(\ @(] (XX@2 "3b +5(' INDICES:')   (XX@6 "<b : Z(\(V M (V3:(]97 +@(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-	1DgO +.+ '1FgO *2$
.
+ 
+.
 7M1HgOGG4$)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+1DgO (2$.+ 
+.
 /M1FgOG4$* + 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 +  ,% +1DgO *2$
 ,%.
+ +. 'M1FgOG4$*` + ,% + 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*gO 22F2*gO 22H2)gO 
2	2J2)g
O
 
2	2L2(g
O
 2	2N2(gO 2
2P2'gOAA
A
AAA4$/3 22D2*gO 22F2*gO 22H2)gO 
2
2J2)g
O
 
22L2(g
O
 22N2(gO 22P2'gOAA
A
AAA4$/: 22D2*gO 22F2*gO 22H2)gO 
2
2J2)g
O
 
2
2L2(g
O
 2
2N2(gO 22P2'gOAA
A
AAA5$.
 $.26b0b7+.
4/<40-\542@$A2@&3FgO (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+/ 22d2gO 23&2gOA4$/+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 $.26b0b7+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+2D37gO 3,2F37gO 3,2H36gOAA5$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!5d5H/"+4zP,~@@@ @@0@x@@@`edX91,>9x,>Zp @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 .pX6p X6p 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+7OAp+7 #pQ"A` $1@+70`=d7! H: @6k@@6la|+7
[pd0@ +7[pd0@ +7+7_w6@7_w#`1 +7SpXp @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+86cp0b "b8$8< ({."XB`&$@6@.$.$
a|+7[pdp0B +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+9CH80CMQ 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*+