On Mon, 20 Apr 2020 12:22:23 -0700 (PDT), Steve Tockey
<
steve...@gmail.com> wrote:
>Robert,
>Can you give me a pointer to where I can find the Algol stuff? Compiler, documentation (such as it might be), possible sample code? it's not difficult to set up a new tape image around those kinds of resources.
>
You can get the source files here:
http://
http://www.dbit.com/pub/pdp8/nickel/langs/algol/ascii/
And a (quite adequate!) manual here:
http://ccgi.theadamsons.force9.co.uk/pdp8software/docs/ROGAlgol_Algol60_Compiler.pdf
The instructions are a bit mixed up because the original system was
papertape only later extended to OS/8.
There are some references on the www to Roger Abbott's original DECUS
paper.
Compiling and Running RogAlgol under OS/8:
1. Assemble (PAL) the *.pa files, you can ignore the rather cryptic
*.al ones.
2. Make the Compiler image:
Load (ABSLDR)
INTRUN.BN,
ALGCOM.BN,
COMOS8.BN
Save as
ALGCOM.SV
3. Make the runtime image:
Load (ABSLDR)
FPP.BN,
ALGRUN.BN,
RUNOS8.BN
Save as
RALGOL.SV
RTFM for some pointers on the EAE/FPP options
eg to run the following program,
TRIAL.AL:
'BEGIN'
'INTEGER' I;
SKIP(1);
TEXT(1,"TEST OF ROGALGOL SYSTEM, LIST OF SQUARES AND ROOTS");
SKIP(1);SKIP(1);
'FOR' I:=1 'STEP' 1 'UNTIL' 20 'DO' 'BEGIN'
TEXT(1,"THE SQUARE OF ");
WRITE(1,I);
TEXT(1, " IS ");
WRITE(1,I*I);
TEXT (1," AND THE ROOT IS ");
RWRITE(1,SQRT(I));
SKIP(1);
'END';
SKIP(1);
TEXT(1,"DONE");
'END'
$
(NOTE THE TRAILING '$' - essential!)
.R ALGCOM
ROGALGOL MK40
OUT<IN*TRIAL<TRIAL
SIZE 91
.R RALGOL
ROGALGOLOADER
INPUT FILENAME ?*
TRIAL.AC
ENDS 0335
^ (^P typed here)
TEST OF ROGALGOL SYSTEM, LIST OF SQUARES AND ROOTS
THE SQUARE OF 1 IS 1 AND THE ROOT IS +0.100000E+001
THE SQUARE OF 2 IS 4 AND THE ROOT IS +0.141421E+001
THE SQUARE OF 3 IS 9 AND THE ROOT IS +0.173205E+001
THE SQUARE OF 4 IS 16 AND THE ROOT IS +0.200000E+001
THE SQUARE OF 5 IS 25 AND THE ROOT IS +0.223607E+001
THE SQUARE OF 6 IS 36 AND THE ROOT IS +0.244949E+001
THE SQUARE OF 7 IS 49 AND THE ROOT IS +0.264575E+001
THE SQUARE OF 8 IS 64 AND THE ROOT IS +0.282843E+001
THE SQUARE OF 9 IS 81 AND THE ROOT IS +0.300000E+001
THE SQUARE OF 10 IS 100 AND THE ROOT IS +0.316228E+001
THE SQUARE OF 11 IS 121 AND THE ROOT IS +0.331662E+001
THE SQUARE OF 12 IS 144 AND THE ROOT IS +0.346410E+001
THE SQUARE OF 13 IS 169 AND THE ROOT IS +0.360555E+001
THE SQUARE OF 14 IS 196 AND THE ROOT IS +0.374166E+001
THE SQUARE OF 15 IS 225 AND THE ROOT IS +0.387298E+001
THE SQUARE OF 16 IS 256 AND THE ROOT IS +0.400000E+001
THE SQUARE OF 17 IS 289 AND THE ROOT IS +0.412310E+001
THE SQUARE OF 18 IS 324 AND THE ROOT IS +0.424264E+001
THE SQUARE OF 19 IS 361 AND THE ROOT IS +0.435890E+001
THE SQUARE OF 20 IS 400 AND THE ROOT IS +0.447214E+001
DONE
^ (^C typed here)
.
HTH
Bob