RetroBSD

 ¯ ?Óã?ìÔ¹ Õ²ÐÖâÏØ¢ÈúÐÐe?¢¦¦¦ÏĦ¤?§»ªº¢¢¦ÚéÐÛ°ÊîÑÐäÐÛ°ÆîÑâо

£ÂÁGÌÉÎÅ® ÊÏ ÁÂÏÒÔÅc

®
®ÄÉ?



DIRECT.SV   7            FRTS  .SV  26            BASIC .WS  11
PIP   .SV  11            PASS2 .SV  20            SET   .SV  20
FOTP  .SV   8            PASS2O.SV   5            RTFLOP.SV  15
HEADER.SV  14            PASS3 .SV   8            WPFLOP.SV  14

DIRECT.SV   7            FRTS  .SV  26            BASIC .WS  11
PIP   .SV  11            PASS2 .SV  20            SET   .SV  20
FOTP  .SV   8            PASS2O.SV   5            RTFLOP.SV  15
HEADER.SV  14            PASS3 .SV   8            WPFLOP.SV  14
BITMAP.SV   5            RALF  .SV  19            RESORC.SV  14
FUTIL .SV  27            LOAD  .SV  16            DECX8 .SV  43
....
K12ENC.SV   6            USR   .RA  46            RSPEAK.RL   2
K12DEC.SV   5            JUGGLE.RA   3            SEED  .RL   2
K12MIT.SV  33            RL2FMT.SV   8            SPEAK .RL   4
K12DJG.SV  33            LOAD  .BI   1            VOCAB .RL   3
K12DEB.SV   4            RXCOPY.SV   9            USR   .RL   4
K12ENB.SV   4            FLOP  .HN   3            ATEXT .DA 144
BRTS  .SV  15            LCSYS .BI   3            ADVENT.LD 145
F4    .SV  20            UCSYS .BI   3            LOAD  .LS   8

 162 Files in 2648 Blocks -  544 Free blocks

®Ò ÈÅÌÐ
ª


OS/8 MONITOR COMMANDS

CMD     PROG    EXPL

ASSIGN  KBM     ASSIGNS LOGICAL NAME
BACKSP  CAMP    BACKSPACES DEV
BASIC   BASIC   ENTERS BASIC SYSTEM
BOOT    BOOT    BOOTSTRAPS TO DEV
CCL     CCL     DISABLES CCL
COMPARE SRCCOM  COMPARES FILES
COMPILE PAL8    COMPILES PROG
        F4/FORT
        BASIC
        RALF
        SABR
COPY    FOTP    COPIES FILES
CREATE  EDIT    OPENS FILE FOR EDITING
...
-D      OUTPUT TO DUMP:
-N      OUTPUT TO NULL:
-LS     PRODUCE LISTING
-NB     NO BINARY YET
-MP     PRODUCE MAP
-EXT    SET DEFAULT EXTENSION

FEATURES:
/X      PASS SWITCH OPTION X TO PROGRAM
(XYZ)   PASS SWITCH OPTIONS TO PROGRAM
[N]     MAX OUTPUT SIZE
=NNN    PASS OCTAL NUMBER TO PROGRAM
#NNN    TAKE INTERNAL OCTAL FORM OF FILENAME
 @FILE  REPLACE IN CMD LINE BY FILE'S CONTENTS
$       COMPLEMENT DEFAULT ALTMODE SWITCH



®
®ÄÉ?



DIRECT.SV   7            FRTS  .SV  26            BASIC .WS  11
PIP   .SV  11            PASS2 .SV  20            SET   .SV  20
FOTP  .SV   8            PASS2O.SV   5            RTFLOP.SV  15
HEADER.SV  14            PASS3 .SV   8            WPFLOP.SV  14
...

.R FRTS
*ADVENT.LD
*$
WELCOME TO ADVENTURE!!  WOULD YOU LIKE INSTRUCTIONS?

®
®
®Ò ÆÒÔÓ
ªÁÄÖÅÎÔ®ÌÄ
ª¤
Welcome to Adventure!!  Would you like instructions?

¾ îï
You are standing at the end of a road before a small brick building.
Around you is a forest.  A small stream flows out of the building and
down a gully.

¾ åîôåò
You are inside a building, a well house for a large spring.

There are some keys on the ground here.

There is a shiny brass lamp nearby.

There is food here.

There is a bottle of water here.

¾ åîôåò
You're at end of road again.

¾ ÞÃ

®Ò ÂÁÓÉÍ
NEW OR OLD--OLD
FILE NAME--BASIC.BA

READY
LIST

BASIC   BA    7A

1 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
2 PRINT PNT(0);PNT(0);PNT(0);PNT(29);PNT(0);
3 PRINT PNT(0);PNT(0);PNT(0);PNT(31);PNT(0);PNT(0);PNT(0);PNT(0);
4 DIM A$(26),D$(10)
10 PRINT "HELLO, MY NAME IS PETEY P. EIGHT."
20 PRINT\PRINT PNT(0);PNT(0);PNT(0);"WHAT'S YOUR NAME  ";\INPUT A$\PRINT
35 PRINT " HI THERE ";\GOSUB 500
36 PRINT ".  ARE YOU ENJOYING YOURSELF HERE"
40 PRINT"IN THIS WONDERFUL PLACE";
45 INPUT B$\PRINT
50 IF B$="YES" THEN 70
55 IF B$="NO" THEN 80
60 PRINT " ";\GOSUB 500
61 PRINT ", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'."
..
375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T"
380 PRINT "PAY THEIR BILLS?"
385 PRINT\PRINT\PRINT "NOW LET ME TALK TO SOMEONE ELSE."
390 PRINT "NICE MEETING YOU ";\GOSUB 500
391 PRINT ". HAVE A NICE DAY!!"
400 FOR I=1 TO 3000
405 NEXT I
410 GO TO 2
500 PRINT A$;
510 RETURN
999 END
READY
RUN

BASIC   BA    7A

®Ò ÂÁÓÉÍ
NEW OR OLD--old
FILE NAME--SPACWR.BA

READY
RUN

SPACWR  BA    7A


®
®Ò ÂÁÓÉÍ
NEW OR OLD--OLD
FILE NAME--SPACWR.BA

READY
LIST

SPACWR  BA    7A

100     REM *** PROGRAM SIMULATES TV PROGRAM STARTREK
110     REM *** WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING
180     PRINT "                  * * *  STAR TREK  * * *"\PRINT
181 PRINT\PRINT
200 PRINT "        FOR INSTRUCTIONS USE OS-8 HELP COMMAND FOR 'SPACWR'  "
205 RANDOMIZE
235 DIM Z$(72),R$(72),Q$(72),S$(48),A$(3),O1$(24),D$(72)
236 DIM E$(20)
240 Q$="                                                  "
245 Q$=Q$&"                      "
250 Z$=Q$\R$=Q$\S$=SEG$(Q$,1,48)
260 DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8)
290 T=INT(RND(1)*20+20)*100\T0=T
300 T9=30\D0=0\E=3000\P=10\S9=200\S=0\H8=0\E0=3000\P0=10
360 DEF FND(D)=SQR((K(I,1)-S1)**2+(K(I,2)-S2)**2)
370 Q1=INT(RND(1)*8+1)
380 Q2=INT(RND(1)*8+1)
390 S1=INT(RND(1)*8+1)
400 S2=INT(RND(1)*8+1)
420 C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1
430 C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0
440 C(1,2)=1\C(2,2)=1\C(6,1)=1\C(7,1)=1\C(8,1)=1\C(8,2)=1\C(9,2)=1
460 D$="WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL"
470 D$=D$&"PHOTON TUBESDAMAGE CNTRL"
480 E$="SHIELD CNTRLCOMPUTER"
490 K9=0\B9=0
491 REM *** SETS UP WHAT EXISTS IN GALAXY
500 FOR I=1TO8
510 FOR J=1TO8
..
5680 REM ***STRING COMPARISON IN QUADRANT ARRAY***
5690 S8=Z1*24+Z2*3-26\Z3=0\IF S8>72 THEN 5750
5720 IF SEG$(Q$,S8,S8+2)<>A$ THEN 5810
5730 Z3=1\GOTO 5810
5750 IF S8>144 THEN 5790
5760 IF SEG$(R$,S8-72,S8-70)<>A$ THEN 5810
5770 Z3=1\GOTO 5810
5790 IF SEG$(S$,S8-144,S8-142)<>A$ THEN 5810
5800 Z3=1
5810 RETURN
5820 END
READY

®
®Ò ÂÁÓÉÉ
NEW OR OLD--NEW
FILE NAME--MYBAS1.BA

READY
10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
60 END
SAVE

READY
LIST

MYBAS1  BA    7A

10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
60 END
READY
RUN

MYBAS1  BA    7A


®
®ÄÉ?



DIRECT.SV   7            PASS2 .SV  20            WPFLOP.SV  14
PIP   .SV  11            PASS2O.SV   5            RESORC.SV  14
..
K12DEB.SV   4            FLOP  .HN   3            LOAD  .LS   8
K12ENB.SV   4            LCSYS .BI   3            MYBAS2.BA   1
BRTS  .SV  15            UCSYS .BI   3            MYBAS1.BA   1   << IT HAS BEEN SAVED HERE !!!
F4    .SV  20            SET   .SV  20            BASIC .WS   1
FRTS  .SV  26            RTFLOP.SV  15

 164 Files in 2640 Blocks -  552 Free blocks

®Ò ÂÁÓÉÍ
NEW OR OLD--OLD
FILE NAME--MYBAS1.BA

READY
LIST

MYBAS1  BA    7A

10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
60 END
READY

K12DEB.SV   4            FLOP  .HN   3            LOAD  .LS   8
K12ENB.SV   4            LCSYS .BI   3            MYBAS2.BA   1
BRTS  .SV  15            UCSYS .BI   3            MYBAS1.BA   1      <<< YES, STILL HERE!!
F4    .SV  20            SET   .SV  20            BASIC .WS   1
FRTS  .SV  26            RTFLOP.SV  15

 164 Files in 2640 Blocks -  552 Free blocks 

®Ò ÂÁÓÉÉÃ
ÂÁÓÉÉîÓÖ ÎÏ?ÆÏÕÎc
®
®Ò ÂÁÓÉÍ
NEW OR OLD--OLD
FILE NAME--MYBAS1.BA

READY
LIST

MYBAS1  BA    7A

10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
60 END
READY

.
.
.DIR



DIRECT.SV   7            PASS2 .SV  20            WPFLOP.SV  14
PIP   .SV  11            PASS2O.SV   5            RESORC.SV  14
FOTP  .SV   8            PASS3 .SV   8            DECX8 .SV  43
HEADER.SV  14            RALF  .SV  19            BUILD .SV  37
BITMAP.SV   5            LOAD  .SV  16            KL8E  .PA  53
FUTIL .SV  27            MOVE  .RA   4            RKUTIL.SV  15
SVDUMP.SV   4            PUT   .RA   3            RXREAD.SV   7
REMEM .SV   5            RSPEAK.RA   3            SPACWR.BA  39
..
K12DJG.SV  33            RXCOPY.SV   9            ADVENT.LD 145
K12DEB.SV   4            FLOP  .HN   3            LOAD  .LS   8
K12ENB.SV   4            LCSYS .BI   3            MYBAS2.BA   1
BRTS  .SV  15            UCSYS .BI   3            MYBAS1.BA   1
F4    .SV  20            SET   .SV  20            BASIC .WS   1
FRTS  .SV  26            RTFLOP.SV  15

 164 Files in 2640 Blocks -  552 Free blocks

.R BASIC
NEW OR OLD--OLD
FILE NAME--MYBAS1.BA

READY
LIST

MYBAS1  BA    7A

10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
60 END
READY
RUN

.R FRTS
*ADVENT.LD
*$
Welcome to Adventure!!  Would you like instructions?

> yes
Somewhere nearby is Colossal Cave, where others have found fortunes
in treasure and gold,though it is rumored that some who enter are never
seen again. Magic is said to work in the cave.  I will be your eyes
and hands.  Direct me with commands of 1 or 2 words.  I should warn
you that I look at only the first four letters of each word,so you'll
have to enter "northeast" as "ne" to distinguish it from "north".
(Should you get stuck, type "help" for some general hints.  For
information on how to end your adventure, etc., type "INFO".)
      - - -
This program was originally developed by Willie Crowther. Most of
the features of the current program were added by Don Woods.
This version, for the PDP-8, was done by Dick Murphy. it is
based on a version for RT-11 done by Bob Supnik.

You are standing at the end of a road before a small brick building.
Around you is a forest.  A small stream flows out of the building and
down a gully.

> enter
You are inside a building, a well house for a large spring.

There are some keys on the ground here.

There is a shiny brass lamp nearby.

There is food here.

There is a bottle of water here.

> take keys
Taken.

> take food
Taken.

> drink water
The bottle of water is now empty.

>

.R BASIC
NEW OR OLD--old
FILE NAME--MYBAS2.BA

READY
LIST

MYBAS2  BA    7A

10 PRINT "HELLO WORLD"
20 END
READY
RUN

MYBAS2  BA    7A

.R CHESS

CHEKMO-II
W. YOUR MOVE? PW
W. E2-E4
B. YOUR MOVE? BD

BR BN BB BQ BK BB BN BR
BP BP BP BP BP BP BP BP
-- ** -- ** -- ** -- **
** -- ** -- ** -- ** --
-- ** -- ** WP ** -- **
** -- ** -- ** -- ** --
WP WP WP WP -- WP WP WP
WR WN WB WQ WK WB WN WR

B. YOUR MOVE? C7-C6
W. D2-D4
B. YOUR MOVE? BD

BR BN BB BQ BK BB BN BR
BP BP ** BP BP BP BP BP
-- ** BP ** -- ** -- **
** -- ** -- ** -- ** --
-- ** -- WP WP ** -- **
** -- ** -- ** -- ** --
WP WP WP ** -- WP WP WP
WR WN WB WQ WK WB WN WR

B. YOUR MOVE?

.DIR

DIRECT.SV   7            PASS2 .SV  20            WPFLOP.SV  14
PIP   .SV  11            PASS2O.SV   5            RESORC.SV  14
FOTP  .SV   8            PASS3 .SV   8            DECX8 .SV  43
HEADER.SV  14            RALF  .SV  19            BUILD .SV  37
BITMAP.SV   5            LOAD  .SV  16            KL8E  .PA  53
FUTIL .SV  27            MOVE  .RA   4            RKUTIL.SV  15
..
K12ENB.SV   4            LCSYS .BI   3            MYBAS .BA   1
BRTS  .SV  15            UCSYS .BI   3            MYBAS2.BA   1
F4    .SV  20            SET   .SV  20            MYBAS1.BA   1
FRTS  .SV  26            RTFLOP.SV  15            BASIC .WS   1

 165 Files in 2641 Blocks -  551 Free blocks

.

                -- stateINIT17:
                --  Send 8 clock cycles
                --

                when stateINIT17 =>
                    timeout <= timeout - 1;
                    if bytecnt = 0 then
                        spiOP   <= spiTR;
                        spiTXD  <= x"ff";
                        bytecnt <= 1;
                    elsif spiDONE = '1' then
                        bytecnt <= 0;
--                      spiOP   <= spiFAST;
                        state   <= stateIDLE;
                    end if;

.DIR RKA0:

DIRECT.SV   7            PASS2 .SV  20            WPFLOP.SV  14
PIP   .SV  11            PASS2O.SV   5            RESORC.SV  14
FOTP  .SV   8            PASS3 .SV   8            DECX8 .SV  43
HEADER.SV  14            RALF  .SV  19            BUILD .SV  37
..
K12ENB.SV   4            LCSYS .BI   3            MYBAS .BA   1
BRTS  .SV  15            UCSYS .BI   3            MYBAS2.BA   1
F4    .SV  20            SET   .SV  20            MYBAS1.BA   1
FRTS  .SV  26            RTFLOP.SV  15            BASIC .WS   1

 165 Files in 2641 Blocks -  551 Free blocks

.DIR RKB0:

BABYEL.MU  11            WAR2  .BA   9            RKB   .RA  82
MUSIC5.MU   4            WEKDAY.BA  10            INITAD.FT  65
SCALE .MU   1            SIGNS .BA  19            TD8EA .BN   2
MUSIC2.MU  14            SNOOPY.BA  10            TD8EB .BN   2
MUSIC3.MU  14            HELLO .BA  11            TD8EC .BN   2
..
ROULET.BA  17            ADVENT.TX 200            DX    .SV 129
TICTAC.BA   7            ADVENT.SV 129            DIRECT.TS   6
WAR   .BA   7

 115 Files in 3002 Blocks -  190 Free blocks

.DIR RKA1:

ABSLDR.SV   6            RLPACK.BI   4            AIRXAE.DG  21
CCL   .SV  31            FLOP1 .BI   4            AIRXBF.DG  18
DIRECT.SV   7            FLOP2 .BI   4            AJEXCC.DG  12
..
ADRSTT.BX   4            RK8SES.BX   3            RKSALN.DG   2
DGPACK.BI   5            AHKLAB.DG  33            ALIGN .DG   3
CUSPAK.BI   3            AILABE.DG  16            CCBTCH.TM   1

 192 Files in 3168 Blocks -   24 Free blocks

.DIR RKB1:

ABSLDR.SV   6            RL2SY .BH   2            DHLAAB.DG  13
CCL   .SV  31            RL20  .BH   2            DHTAAC.DG  17
DIRECT.SV   7            RL21  .BH   2            DHTABC.DG  13
..
RLSY  .BH   2            DHKGAB.DG  14            RKSREL.DG   9
RL0   .BH   2            DHKLBB.DG  13            RKSLES.DG  16
RL1   .BH   2            DHKLCD.DG   8            RKCOPY.DG   5
RLC   .BH   2

 157 Files in 2762 Blocks -  430 Free blocks

.DIR RKA2:

ABSLDR.SV   5            TC01DT.BN   4            DHCRAA.SV  10
CCL   .SV  18            TD8EDT.BN   3            DIRXBD.SV  17
DIRECT.SV   7            TA8ECS.BN   4            DHRKDC.SV   9
PIP   .SV  11            TM8EMT.BN   4            DHKMCB.SV  12
..
RF08DS.BN   3            DHTMFB.SV  11            PASS3 .SV   8
DF32DS.BN   3            D5DB  .SV   4            RALF  .SV  19
RK8EDS.BN   3            DIRFAA.SV  11            LOAD  .SV  16
RK8DS .BN   3            D5FA  .SV   5            T     .FT   1

 195 Files in 2807 Blocks -  385 Free blocks

.DIR RKB2:

BABYEL.MU  11            CALNDR.BA   5            KING  .BA  23
MUSIC5.MU   4            CHECKR.BA  12            MONPLY.B1   6
SCALE .MU   1            CRAPS .BA   8            YAHTZE.IN   7
..
BLKJAC.BA  22            MONPLY.BA  22            ADVENT.DA 145
BLKJAK.BA   7            HOCKEY.BA  16            ADVENT.SV 129
BUNNY .BA   7            FOTBAL.BA  21

  74 Files in 2813 Blocks -  379 Free blocks

.DIR RKA3:
RKA3 Does not exist

.DIR RKB3:
RKB3 Does not exist

.

dd if=advent.rk05            of=/dev/sdXX seek=0     count=6496
dd if=diagpack2.rk05         of=/dev/sdXX seek=8192  count=6496
dd if=diag-games-kermit.rk05 of=/dev/sdXX seek=16384 count=6496
dd if=multos8.rk05           of=/dev/sdXX seek=24576 count=6496

.COPY RKB1:<RKA0:MYBAS1.BA
Files copied:
MYBAS1.BA

.DIR RKB1:

ABSLDR.SV   6            RL2SY .BH   2            DHTAAC.DG  17
..
RL1   .BH   2            DHKLCD.DG   8            MYBAS1.BA   1      <<< HERE IT IS!!
RLC   .BH   2            DHLAAB.DG  13

 158 Files in 2763 Blocks -  429 Free blocks

.

.RUN RKA2:BASIC
NEW OR OLD--OLD
FILE NAME--RKB1:MYBAS1.BA

READY
LIST

MYBAS1  BA    4A

10 LET A=12345
20 LET B=0.2222
30 LET C=3.141592
40 LET R=A*B/C
50 PRINT R
9999 END

READY
RUN

MYBAS1  BA    4A

 873.143

FIELD SERVICE PDP-8 DIAGNOSTIC SYSTEM    . . .  VERSION 8.03

OS/8  V3D               DECX8   REV. D

RESTART ADDRESS =07600

TYPE <CTRL> C TO ABORT THIS PRINTOUT


TYPE:
        .R PROGNAME             -       TO RUN A SYSTEM PROGRAM
        .R PROGNAME.DG          -       TO RUN A DIAGNOSTIC PROGRAM
        .HELP FILENAME          -       TO TYPE A HELP FILE ON THE TERMINAL
        .HELP FILENAME - L      -       TO LIST A HELP FILE ON THE LINE PRINTER
        .SU BOOK                -       TO PRINT A COPY OF THE DIAG. HELP FILES


"FILENAME" / "PROGNAME"  = THE FILE OR PROGRAM TO LIST OR RUN

.DIR



ABSLDR.SV   5             TD8EDT.BN   3             DIRXBD.SV  17
CCL   .SV  18             TA8ECS.BN   4             DHRKDC.SV   9
DIRECT.SV   7             TM8EMT.BN   4             DHKMCB.SV  12
PIP   .SV  11             TC58MT.BN   4             DIRXAC.SV  20
FOTP  .SV   8             TC12LT.BN   3             DHRKCH.SV  12
..
FLOPPY.BN   3             DHTMFB.SV  11             RALF  .SV  19
RF08DS.BN   3             D5DB  .SV   4             LOAD  .SV  16
DF32DS.BN   3             DIRFAA.SV  11             T     .FT   1
RK8EDS.BN   3             D5FA  .SV   5             MY1   .BA   1
RK8DS .BN   3             DHCRAA.SV  10             BASIC .WS   1
TC01DT.BN   4

 405 FREE BLOCKS


.
.R BASIC
NEW OR OLD--OLD
FILE NAME--MY1.BA

READY
LIST

MY1     BA    4A

10 A=3
20 B=-2.333E8
30 C=A*B
40 PRINT C
50 END

READY
RUN

MY1     BA    4A

-.699900E+009

READY
35 D=-33.45E-12
37 R=A*B/(C*D)
40 PRINT R
LIST

MY1     BA    4A

10 A=3
20 B=-2.333E8
30 C=A*B
35 D=-33.45E-12
37 R=A*B/(C*D)
40 PRINT R
50 END

READY
SAVE

READY
RUN

MY1     BA    4A

-.298954E+011

READY

LIST

MY2     BA    4A

10 LET A=1.223E200
20 LET B=-3.222E-200
30 LET C=99.33E333
40 R=A*B/C
50 PRINT R
60 END

READY
SAVE

READY
RUN

MY2     BA    4A

-.396699E-334

READY

READY
RUN

SPACWR  BA    4A

                  * * *  STAR TREK  * * *



        FOR INSTRUCTIONS USE OS-8 HELP COMMAND FOR 'SPACWR'


YOU MUST DESTROY 17 KLINGONS IN 30 STARDATES WITH 4 STARBASES

------------------------

                                        STARDATE         3700
                  <*>                   CONDITION        GREEN
                                        QUADRANT         3 , 7
                                        SECTOR           3 , 7
                                        TOTAL ENERGY     3000
       *                                PHOTON TORPEDOES 10
                                        SHIELDS          0
------------------------

COMMAND:?

dd if=diag-games-kermit.rk05  of=/dev/sdXX seek=0        count=6496
dd if=diagpack2.rk05          of=/dev/sdXX seek=8192     count=6496
dd if=advent.rk05             of=/dev/sdXX seek=16384    count=6496
dd if=multos8.rk05            of=/dev/sdXX seek=24576    count=6496

Configurable PDP-8 CPU (PDP-8/A/I/L/S/E..)
MS8C 32K-word memory
KC8E Front Panel
KE8 Extended Arithmetic Element
KM8E Extended Memory
KM8E Time Sharing
DK8EA/DK8EC/DK8EP Real Time Clock
KL8E Asynchronous Serial Interface (x2)
LS8E Printer Interface
PR8E Paper Tape Reader
KL8E Disk Controller with 4 RK05 Disks Attached

architecture rtl of eMS8C is

    signal ramWr   : std_logic;
    signal xaddr   : xaddr_t;
    signal ramData : data_t;
    signal cpuData : data_t;

    type RAM_t is array (0 to 32767) of data_t;
    signal RAM : RAM_t := (
        --Boot Loaders
        o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", -- 00000
        o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", -- 00010
        o"0000", o"0000", o"0000", o"6007", o"6744", o"1032", o"6746", o"6743", -- 00020
        o"1032", o"5031", o"0000", o"0000", o"0000", o"0000", o"0000", o"0000", -- 00030

pito@ubu1604:~$ cd pdp8
pito@ubu1604:~/pdp8$ ls
advent.rk05  diag-games-kermit.rk05  diagpack2.rk05  multos8.rk05
pito@ubu1604:~/pdp8$ pdp8

PDP-8 simulator V3.8-1
sim> set cpu 32K
sim> set cpu idle
sim> attach rk0 diag-games-kermit.rk05
sim> attach rk1 advent.rk05
sim> boot rk0



FIELD SERVICE PDP-8 DIAGNOSTIC SYSTEM    . . .  VERSION 8.03

OS/8  V3D      DECX8   REV. D

RESTART ADDRESS =07600

TYPE <CTRL> C TO ABORT THIS PRINTOUT


TYPE:
   .R PROGNAME      -   TO RUN A SYSTEM PROGRAM
   .R PROGNAME.DG      -   TO RUN A DIAGNOSTIC PROGRAM
   .HELP FILENAME      -   TO TYPE A HELP FILE ON THE TERMINAL
   .HELP FILENAME - L   -   TO LIST A HELP FILE ON THE LINE PRINTER
   .SU BOOK      -   TO PRINT A COPY OF THE DIAG. HELP FILES


"FILENAME" / "PROGNAME"  = THE FILE OR PROGRAM TO LIST OR RUN

.

LIST

BEN1    BA    4A

10 LET A=0
15 PRINT "START"
20 FOR I=1 TO 100000
30 A=A+1
40 NEXT I
45 PRINT A
50 END

READY
RUN

BEN1    BA    4A

START
 100000

READY

LIST

BEN1    BA    4A

10 LET R=0.707
15 PRINT "START"
20 FOR I=1 TO 100000
30 LET A=SIN(R)
40 NEXT I
45 PRINT A
50 END

READY
RUN

BEN1    BA    4A

START
 0.649556

READY

LIST

SHUDD   BA    4A

5  REM SHUDDER
10 N = 500
20 DIM A(4,500)
40 PRINT "START"
50 X = 0.01
60 J = 2
70 FOR I = 1 TO N
80 A(1,I) = X
90 Y = SQR(X)
100 A(J,I) = Y
110 Y = SIN(X)
120 A(J+1,I) = Y
130 Y = LOG(X)
140 A(J+2,I) = Y
150 X = X + 0.01
160 NEXT I
180 PRINT "END"
190 PRINT
195 PRINT " #";TAB(7);"X";TAB(22);"SQRT";TAB(37);"SIN";TAB(52);"N-LOG"
200 FOR I = 1 TO 17
210 PRINT I;TAB(5);A(1,I);TAB(20);A(2,I);TAB(35);A(3,I);TAB(50);A(4,I)
215 NEXT I
220 STOP
225 REM UNSHUDDER-1
230 END

READY
RUN

SHUDD   BA    4A

START
END

 #    X              SQRT           SIN            N-LOG
 1   0.0099999      0.099999       0.00999982    -4.60517
 2   0.02           0.141421       0.0199986     -3.91202
 3   0.03           0.173205       0.0299955     -3.50656
 4   0.04           0.2            0.0399893     -3.21888
 5   0.05           0.223607       0.0499791     -2.99573
 6   0.06           0.244949       0.0599639     -2.81341
 7   0.07           0.264575       0.0699427     -2.65926
 8   0.0799999      0.282843       0.0799146     -2.52573
 9   0.0899999      0.3            0.0898784     -2.40795
 10  0.0999999      0.316228       0.0998332     -2.30258
 11  0.11           0.331662       0.109778      -2.20727
 12  0.12           0.34641        0.119712      -2.12026
 13  0.13           0.360555       0.129634      -2.04022
 14  0.14           0.374166       0.139543      -1.96611
 15  0.15           0.387298       0.149438      -1.89712
 16  0.16           0.4            0.159318      -1.83258
 17  0.17           0.41231        0.169182      -1.77196

READY

20 DIM A(4,500)  of floating points - 3 Words per FP number in PDP8

5  REM SHUDDER
10 N=1500
20 DIM A(4,1500)