Trailing-Edge
-
PDP-10 Archives
-
walsh_goodStuff_1600
-
more-uns/dc.exe
There are no other files named dc.exe in the archive.
?p ~ ?h X 0 ?x "
<+ + z ` P 9 7 0 9 z 7 \" H " 3 B * : ' Q, 7, ;, 3z Q+ 3\" R + 3 Z\$ g [ "+ 9 [ B g,~ g+@ A4: >3: \+ ;\" \7 \" a + 2\" l ,~ ,~ + @+ @+ @+ @+ @+ @+ @+ @+ + + @+ @+ + @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ @+ + @+ @"`h + @+ @+ @+ @+ @+ @, #, ,:h , !, , $, , , , , , , , , , , L+ @, 1, , -,
+ @, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7+ @, &+ @, (+ @+ @, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7+ @+ @+ @+ @+ @7@ G+ !" p . g & J+ & 0F 1F + 0F +
!" p . g M+ @. n B g,: ,~ \" o Z\$ cN o "+ ,> g p B g, ,^ g,~ az+ \" p h , \" k ,~ \" q ,~ " 6@ G+ " & M+ @,~ N" & J+ @,~ ,Z Bh ,~ ,Z " Bh ,~ ,Z Bh ,~ ,Z *h Bh ,~ ,Z Bh ,~ "o,> "h ,> <, X,Z F@h ,^ ,^ ,~ , Z+ @ " b, g, },Z ,~ , Z+ @ " b, g+ 4,: ,~ \" t \" c + !" p .B g, Z+ @ " , g+ 4O + @@ G,~ O@ G,~ #`h ,~ h oSBo Dh ,~ ,> gX"A`!B g, ;,^ g,~ $h ,> <x [ , @h ,^ ,~ -$ I v+ 3S" \ , + , Z+ @ g0B + @B" , g, } $ AQ ( D (Q0A` g4B V1B + XB + S\" x , 7+ S," B +0@ P (,~ @f c, x*" f, y g1" + a1b -+ c0" 00b =+ d/" + c0" 0b + d1& B 9 \!" p .B g6@ c: x ,~ " 7D ,~ c2f + g2F ,~ c2f + g2F ,~ d2f + g2F ,~ d2f + g2F ,~ e2f + g2F ,~ e2f + g2F ,~ f2f + g2F ,~ f2f + g2F ,~ " + f ( D F @@ " Q" c*" " .& F (,~ =ABS
FOR MOST CALCULATIONS, IT IS ONLY NECESSARY TO ENTER THE NUMBERS AND
OPERATION TO BE PERFORMED IN REVERSE POLISH NOTATION, AND TYPE CARRIAGE
RETURN. THE ANSWER WILL BE DISPLAYED. STANDARD FUNCTIONS ARE AVAILABLE
BY TYPING THE NAME OF THE FUNCTION. STORE AND RECALL ARE AVAILABLE FOR
NAMED VARIABLES.
MOST OPERATIONS ARE DEFINED WITH RESPECT TO "THE STACK", WHICH IS A
LIST OF NUMBERS. WHEN YOU TYPE IN A NUMBER, IT GETS PUT ONTO THE STACK,
WHERE IT WILL BE FOUND BY AN OPERATOR. IF YOU ENTER ANOTHER NUMBER
BEFORE SPECIFYING AN OPERATION ON THE FIRST, THE SECOND GETS STACKED
"ABOVE" THE FIRST, BUT THE FIRST IS STILL IN EXISTENCE, AND WILL RETURN
TO BEING "ON TOP" OF THE STACK IF AND WHEN THE SECOND IS REMOVED.
FUNCTIONS OF GRAPHIC SYMBOLS:
+ ADD THE TOP TWO ITEMS ON THE STACK, WITH THE SUM REPLACING
THEM BOTH.
- SUBTRACT THE TOP ITEM ON THE STACK FROM THE NEXT TO TOP. THE
DIFFERENCE REPLACES THEM BOTH.
# CHANGE THE SIGN OF THE TOP ITEM ON THE STACK. THIS SHOULD BE
USED AFTER A NUMBER TO MAKE IT NEGATIVE, BECAUSE A MINUS SIGN
APPEARING BEFORE A NUMBER HAS A DIFFERENT MEANING.
* MULTIPLY THE TOP TWO ITEMS ON THE STACK TOGETHER, WITH THE
PRODUCT REPLACING BOTH.
/ DIVIDE THE TOP ITEM ON THE STACK INTO THE NEXT TO TOP ITEM,
WITH THE QUOTIENT REPLACING BOTH.
\ DIVIDE THE TOP ITEM ON THE STACK BY THE NEXT TO TOP ITEM,
WITH THE QUOTIENT REPLACING BOTH.
> POP THE TOP ITEM OFF THE STACK INTO THE VARIABLE WHOSE NAME
IMMEDIATELY FOLLOWS THE BRACKET. STORE, IN OTHER WORDS,
REMOVING THE TOP ITEM FROM THE STACK.
< PUSH ONTO THE STACK THE VARIABLE WHOSE NAME IMMEDIATELY
FOLLOWS THE BRACKET. RECALL, IN OTHER WORDS.
: DEFINE A FUNCTION WITH THE NAME WHICH FOLLOWS THE COLON. THE
FUNCTION IS A QUOTED STRING WHICH FOLLOWS THE NAME.
SPACE NO OPERATION, BUT USEFUL FOR SEPARATING NUMBERS ENTERED
ONE AFTER THE OTHER, OR FOR MAKING A SEQUENCE MORE READABLE.
, DUPLICATE THE TOP ITEM ON THE STACK, SO THAT TWO COPIES EXIST
ON THE STACK.
= DISPLAY THE TOP OF THE STACK. USEFUL IN THE MIDDLE OF LONG
OPERATION SEQUENCES OR IN FUNCTIONS.
? READ A NUMBER FROM THE TERMINAL, PUT IT ON TOP OF THE STACK.
USEFUL IN THE MIDDLE OF FUNCTIONS WHICH NEED INPUT VALUES.
THERE ARE A NUMBER OF FUNCTIONS PREDEFINED, INCLUDING THE STANDARD
FORTRAN SET, MODE CONTROL, AND "HELP" OUTPUT. TO GET A LIST OF THEM,
TYPE "FUNCTIONS". TO GET A LIST OF THE NAMED VARIABLES CURRENTLY
DEFINED, TYPE "VARIABLES". TO DISPLAY THE ENTIRE STACK, TOP TO BOTTOM,
TYPE "STACK".
HI... I'M YOUR FRIENDLY DESK CALCULATOR
TYPE "HELP" AND CARRIAGE RETURN FOR A TUTORIAL
| YOU'VE GOT QUITE A LOT OF STUFF ON THE STACK,
AND THERE'S NOT MUCH ROOM LEFT.
H g ? THE STACK HAS OVERFLOWED. I'M RESETTING IT.
? SOMEHOW, WE MANAGED TO TAKE SOMETHING OFF
THE STACK WHICH WASN'T THERE. I'M RESETTING THE STACK.
? I DON'T UNDERSTAND
? : cSTACK THE STACK IS EMPTY
? I NEVER HEARD OF ERROR IN FUNCTION ... L0cH cC~0 1 ,> #p 2` + 4@ + "` @ ,> <
, A,^ p + @ ,> <
, &,^ 7!p
,~
,~ +P H0
@ ,~ 0 9~j Y~j x ACOS OF+ARG8>D1.0!INMAGNITUDE CNM` 1 ,> #p 2b !+ "p p + !4@ @ ,> < ", A,^ p B ,> < ", &,^ ,~ 7ap "` ,~ +P H0"@ ,~ +9~j0 x ASINOFgARG > 1.0,INMAGNITUDE CR)@ / @( X@ L(B{4 MB ? B S "P" S B S @ ,~ B @ B S ""X+ I4B R+P H0
T#p + C ,~ attempt to take SQRT of negative arg Kc3@ p p + cKc3K , c
,~ Kc3J , c ,~ Kc3I , c ,~ Kc3H4B y5@ g5" y+D H0
fU ,~ ,> ,> # $ )D /$ @,> 4d pX $ (F) + p5F p5" o"` , + w# ,> < {, S,^ @ ,> < |, .,^ 5& w" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + Kc#K , @ ,~ Kc#J , @ ,~ Kc#I , @ ,~ Kc#H4B +5@ 5" +D H0
U ,~ D +!$ @ * B *5" #` + ', !" B ,~ + (BdB + 5B +,~ +7` *+ `d +D H0+D H0
U `d @ 6 *+ *`B "` + / ,id + !+D H0# *,> < -, S,^ @ ` * @ ,> < -, .,^ + U", *+ + ! ,~ x Kc 1 ,> p 3" J+ 43b I+ 6+D H0
3U ,~ +D H05 ,~ D J F K@@ K%" j" % H)/;` : XD D5f =aF + =.& @(|h& f K G H G K F D I@ J K,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> p 4@ c @ R,> < l, S,^ R,~ {e^b C2|p 1 ,> p 5` W4@ c+P H0l#p 3@ f+ e) r. !@ j! n@ j(|h" g g B k h h i k j i,~ +D H0
d j,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x RATTEMPTTO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> p + + }g&t@ 1 ,> 3p += + }G? 1 ,> Rp + }g&p 1 ,> p B #` 3b + D 3b + %" (D?d$ " @($ )B 6 6 S YVBG 9 G 9
G J GK/K U 9* 9) v* u 9LR { 9%9 7) 7( 7' 7& J 5u 5b E E }
f L K|`L 6 ~Z . c D b& K b% K b% J z J 0 I / I / H . H . G - G - F RMSQ v = ~Z|p.N X: G Y X pX2 +pX2 *pX1 *
~J 'G
~J
~I
~I S YVBSo&B WG . G . F . E . D . V WG } P U7 RMSQ TE /8 ! ~IzP|NR: G Y X
Rae CaZ PaZ MaY LaY Iaj A }pA B @ ? ? DA (DR & I; : I: 8 ] ; ] : DR|p&l x
%=
S YVBRMSQ TE vv z vv~0yP m uP\ N uPL I uPK D uPK ? uPJ : uPJ 5 uPI 0 uPI + uPH & uP8 ! uP7 uP7 uP6 uP6
g UYy
. UYx* <W -VTW3 Ze 0| gM+L U4^C7 P P P ) !ZZ ( 3r: P Wx $c y P P
P
P P P x P < <j`@ G@ ; 0 JYS%m 4 J+z !8Hlg }
Nu!
(THH 7(T#G eF 7(Of D (J" H(Iw IZx# Nw3 S
M
; ,H M Vx >]l @ D z
l9 $al( l') l'( `^ X`^ V`^ SfEF LR l: R 6n R n RPaN d@ MR/Q f+T2 f)G dL~S Z)Fz c)Fy a)Fy \ !" AKf AP i O[j] O[jR O[i% r%H ([Z [Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w' w]!+{ 0