RetroBSD

LIST

MANDEL  BA    4A

10 X1=59\Y1=21
20 I1=-1.0\I2=1.0\R1=-2.0\R2=1.0
30 S1=(R2-R1)/X1\S2=(I2-I1)/Y1
40 FOR Y=0 TO Y1
50 I3=I1+S2*Y
60 FOR X=0 TO X1
70 R3=R1+S1*X\Z1=R3\Z2=I3
80 FOR N=0 TO 30
90 A=Z1*Z1\B=Z2*Z2
100 IF A+B>4.0 GOTO 130
110 Z2=2*Z1*Z2+I3\Z1=A-B+R3
120 NEXT N
130 PRINT CHR$(62-N);
140 NEXT X
150 PRINT
160 NEXT Y
170 END

READY
RUN

MANDEL  BA    4A

>>>>>>=====<<<<<<<<<<<<<<<;;;;;;:::96032:;;;;<<<<===========
>>>>>===<<<<<<<<<<<<<<<<;;;;;;;:::873*079::;;;;<<<<<========
>>>>===<<<<<<<<<<<<<<<;;;;;;;::9974    (.9::::;;<<<<<=======
>>>==<<<<<<<<<<<<<<<;;;;;;:98888764     5789999:;;<<<<<=====
>>==<<<<<<<<<<<<<;;;;::::996. &2           45335:;<<<<<<====
>>=<<<<<<<<<<<;;;::::::999752                 *79:;<<<<<<===
>=<<<<<<<<;;;:599999999886                    %78:;;<<<<<<==
><<<<;;;;;:::972456-567763                      +9;;<<<<<<<=
><;;;;;;::::9875&      .3                       *9;;;<<<<<<=
>;;;;;;::997564'        '                       8:;;;<<<<<<=
>::988897735/                                 &89:;;;<<<<<<=
>::988897735/                                 &89:;;;<<<<<<=
>;;;;;;::997564'        '                       8:;;;<<<<<<=
><;;;;;;::::9875&      .3                       *9;;;<<<<<<=
><<<<;;;;;:::972456-567763                      +9;;<<<<<<<=
>=<<<<<<<<;;;:599999999886                    %78:;;<<<<<<==
>>=<<<<<<<<<<<;;;::::::999752                 *79:;<<<<<<===
>>==<<<<<<<<<<<<<;;;;::::996. &2           45335:;<<<<<<====
>>>==<<<<<<<<<<<<<<<;;;;;;:98888764     5789999:;;<<<<<=====
>>>>===<<<<<<<<<<<<<<<;;;;;;;::9974    (.9::::;;<<<<<=======
>>>>>===<<<<<<<<<<<<<<<<;;;;;;;:::873*079::;;;;<<<<<========
>>>>>>=====<<<<<<<<<<<<<<<;;;;;;:::96032:;;;;<<<<===========

READY

.
.DATE 11/11/16
BAD DATE
.

.DATE 11-NOV-72
.DATE
SATURDAY NOVEMBER 11, 1972
.DATE 11-NOV-79
.DATE
SUNDAY NOVEMBER 11, 1979
.DATE 11-NOV-16
BAD DATE
.DATE 11-NOV-88
.DATE
FRIDAY NOVEMBER 11, 1988
.DATE 11-NOV-96
.DATE
MONDAY NOVEMBER 11, 1996
.DATE 11-NOV-99
.DATE
THURSDAY NOVEMBER 11, 1999
.DATE 11-NOV-01
BAD DATE
.

.CREATE TEST.FT

#?
#A
C       SIGH, THOSE WERE THE DAYS
        DIMENSION A(4,500)
        N = 500
..

#L
C       SIGH, THOSE WERE THE DAYS
        DIMENSION A(4,500)
        N = 500
        WRITE (4,400)
400     FORMAT (' START')
        X = 0.01
        J = 2
        DO 100 I = 1,N
        A(1,I) = X
        Y = SQRT(X)
        A(J,I) = Y
        Y = SIN(X)
        A(J+1,I) = Y
        Y = ALOG(X)
        A(J+2,I) = Y
        X = X + 0.01
100     CONTINUE

        WRITE (4,404)
404     FORMAT(' END')
        WRITE (4,440)
C                        1         2         3         4         5
C               123456789a123456789b123456789c123456789d123456789e12
440     FORMAT('  #   X         SQRT           SIN            N-LOG')

        DO 110 I = 1,17
        WRITE (4,444) I, A(1,I), A(2,I), A(3,I), A(4,I)
444     FORMAT(I3,F7.3,3X,3(F13.9,2X))
110     CONTINUE

        STOP
        END

#?
#E

.
.R F4
*
*TEST/G$
START
END
 #   X         SQRT           SIN            N-LOG
 1  0.010     0.100000023    0.009999170   -4.605169296
 2  0.020     0.141421377    0.019998097   -3.912022709
 3  0.030     0.173205137    0.029995018   -3.506557941
 4  0.040     0.199999988    0.039988934   -3.218876123
 5  0.050     0.223606824    0.049978864   -2.995732426
 6  0.060     0.244948923    0.059963786   -2.813410758
 7  0.070     0.264575123    0.069942712   -2.659260034
 8  0.080     0.282842695    0.079914629   -2.525728940
 9  0.090     0.299999952    0.089877808   -2.407945394
10  0.100     0.316227674    0.099832785   -2.302585244
11  0.110     0.331662416    0.109777808   -2.207275629
12  0.120     0.346410095    0.119711756   -2.120264172
13  0.130     0.360554993    0.129633784   -2.040220499
14  0.140     0.374165654    0.139542877   -1.966113448
15  0.150     0.387298226    0.149437963   -1.897120475
16  0.160     0.399999916    0.159317374   -1.832582354
17  0.170     0.412310421    0.169181585   -1.771957278

.

#L
C       SIGH, THOSE WERE THE DAYS
C       MODDED BY PITO 11/2016
C       WE LOOP THE TEST 50X
        DIMENSION A(4,500)
        L = 50
        N = 500
        WRITE (4,400)
400     FORMAT (' START')
        DO 200 M = 1,L
        X = 0.01
        J = 2
        DO 100 I = 1,N
        A(1,I) = X
        Y = SQRT(X)
        A(J,I) = Y
        Y = SIN(X)
        A(J+1,I) = Y
        Y = ALOG(X)
        A(J+2,I) = Y
        X = X + 0.01
100     CONTINUE
200     CONTINUE
        WRITE (4,404)
404     FORMAT(' END')
        WRITE (4,440)
C                        1         2         3         4         5
C               123456789a123456789b123456789c123456789d123456789e12
440     FORMAT('  #   X         SQRT           SIN            N-LOG')
        DO 110 I = 1,17
        WRITE (4,444) I, A(1,I), A(2,I), A(3,I), A(4,I)
444     FORMAT(I3,F7.3,3X,3(F13.9,2X))
110     CONTINUE
        STOP
        END

#?
#E

.
.R F4
*
*SHRUD1/G$
START
END
 #   X         SQRT           SIN            N-LOG
 1  0.010     0.100000023    0.009999170   -4.605169296
 2  0.020     0.141421377    0.019998097   -3.912022709
 3  0.030     0.173205137    0.029995018   -3.506557941
 4  0.040     0.199999988    0.039988934   -3.218876123
 5  0.050     0.223606824    0.049978864   -2.995732426
 6  0.060     0.244948923    0.059963786   -2.813410758
 7  0.070     0.264575123    0.069942712   -2.659260034
 8  0.080     0.282842695    0.079914629   -2.525728940
 9  0.090     0.299999952    0.089877808   -2.407945394
10  0.100     0.316227674    0.099832785   -2.302585244
11  0.110     0.331662416    0.109777808   -2.207275629
12  0.120     0.346410095    0.119711756   -2.120264172
13  0.130     0.360554993    0.129633784   -2.040220499
14  0.140     0.374165654    0.139542877   -1.966113448
15  0.150     0.387298226    0.149437963   -1.897120475
16  0.160     0.399999916    0.159317374   -1.832582354
17  0.170     0.412310421    0.169181585   -1.771957278

.

.DATE 10-NOV-86

.
.ASSIGN RKA0: A:
.
.DIR A:

 10-NOV-86

BOOT  .SV   5 05-JUL-85
DIRECT.SV   7 05-JUL-85
FOTP  .SV   8 05-JUL-85
CCL   .SV  18 23-MAY-79
PIP   .SV  11 05-JUL-85
LOADER.SV  12 05-JUL-85
FORT  .SV  25 05-JUL-85
LIB8  .RL  29 05-JUL-85
F4    .SV  20 27-APR-81
PASS2 .SV  20 19-APR-81
PASS2O.SV   5 17-APR-81
PASS3 .SV   8 19-APR-81
RALF  .SV  19 27-APR-81
LOAD  .SV  15 19-APR-81
XYPLOT.RL   9 01-DEC-83
LIBRA .SV  11 19-APR-81
FORLIB.RL 165 09-MAY-81
FRTS  .SV  26 28-AUG-80
NUMBER.RL   5 01-DEC-83
EDIT  .SV  10 23-JUL-80
PLOTLB.RL 195 28-AUG-80
PLOTR .FT   2 28-AUG-80
AXIS  .RL   6 01-DEC-83
PSCALE.RL   4 01-DEC-83
LINE  .RL   3 01-DEC-83
PLOTR .LD  25 28-AUG-80
PAL8  .SV  19 05-JUL-85
BUILD .SV  33 13-JAN-80
TDFRMT.SV   9 05-JUL-85
FORTRN.RL   3
FORTRN.LD  28 10-NOV-86
SHRUDD.FT   3
SHRUD1.FT   3
TEST1 .FT   1 10-NOV-86


2430 FREE BLOCKS


.

K12ENC.SV   6            JUGGLE.RA   3            VOCAB .RL   3
K12DEC.SV   5            RL2FMT.SV   8            USR   .RL   4
K12MIT.SV  33            LOAD  .BI   1            ATEXT .DA 144
K12DJG.SV  33            RXCOPY.SV   9            ADVENT.LD 145
K12DEB.SV   4            FLOP  .HN   3            LOAD  .LS   8
K12ENB.SV   4   

pito@ubu1604:~/pdp8$ sudo dd if=diag-games-kermit.rk05 of=/dev/sdf seek=0 count=6496
[sudo] password for pito:
6496+0 records in
6496+0 records out
3325952 bytes (3.3 MB, 3.2 MiB) copied, 1.03103 s, 3.2 MB/s
pito@ubu1604:~/pdp8$

.DIR

ABSLDR.SV   5             TD8EDT.BN   3             DIRXBD.SV  17
..
BASIC .AF   4             DJCLAA.SV  12             K12CLR.BN  42
BASIC .FF   4             DHCMAA.SV  10             K12ENC.BN   6
BASIC .UF   4             DILPAC.SV  24             K12DEC.BN   5
BACKUP.BI   1             DHLSAC.SV  17             K12ENC.SV   6
FLOP1 .BI   2             DHVTCD.SV  16             K12DEC.SV   5
FLOP2 .BI   2             DHDPAC.SV  19             K12MIT.SV  33
FLOP3 .BI   2             D5CG  .SV  17             K12DJG.SV  33
FLOPX8.BI   2             AUVAAA.SV  16             K12DEB.SV   4
CUSPAK.BI   2             AUVBAB.SV  16             K12ENB.SV   4
BOOK  .BI   1             AUVCAA.SV   6             K12MIT.BN  24
RK8E  .SY  50             AUVDAB.SV   9             K12DJG.BN  24
RX8E  .SY  50             AUVEAD.SV   8             K12DEB.BN   3
TC08  .SY  50             INSTR1.SV  14             K12ENB.BN   3
TD8E  .SY  50             INSTR2.SV  11             BASIC .BA  11
HELP  .HL 102             DHKAAB.SV  15             BASIC .SV   9
MRI08A.BN   2             DHKLDA.SV  15             BRTS  .SV  15
OPRATE.BN   2             DHTMAA.SV  17             F4    .SV  20
RANMRI.BN   2             DHTMBA.SV  17             FRTS  .SV  26
NOTFUN.BN   2             DHTMCA.SV  10             PASS2 .SV  20
EAEALL.BN   3             DHTMDA.SV  15             PASS2O.SV   5
EAEDP .BN   2             DHTMEA.SV  15             PASS3 .SV   8
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 K12MIT

PS/8 PS/12 OS/8 OS/12 OS/78 OS/278  Kermit-12  V10g   06 September 1990
[Cpu type is: PDP-8/a]

Insert local user message here!

Type HELP<CR> for help

Kermit-8/a>
Kermit-8/a>HELP

Supported commands are:

CONNECT (to remote system)
SEND DEV:FILNAM.EX
RECEIVE DEV: (filename and extension NOT allowed)
GET DEV:FILNAM.EX
FINISH (server)
EXIT (to operating system)
HELP (this message)

Escape character: Control-]

Kermit-8/a>CONNECT

(Connecting to host, type Control-] C to return to PDP-8/a)

C
C

.R PASCAL
*TESTS/G

P A S C A L - S   COMPILER V02                        HTL-MOEDLING, 78-11-12


    0  PROGRAM FACT (OUTPUT);
    0  VAR I:INTEGER;
    0      F:REAL;
    0  BEGIN
    0    F:=1.0;
    3    FOR I:=1 TO 10 DO BEGIN
    7      F:=F*I;
   13      WRITELN(F);
   16    END;
   17  END.


KOMPILATION EINWANDFREI!

  1.000000000E+000
  2.000000000E+000
  6.000000000E+000
  2.400000000E+001
  1.200000000E+002
  7.199999999E+002
  5.040000000E+003
  4.032000000E+004
  3.628800000E+005
  3.628800000E+006

.

.R PFOCAL


DO YOU WANT THE STANDARD FEATURES OF PS/8 FOCAL, 1971?  Y


PROCEED.

*L C LUNAR
*GO
CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY.
YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE
BETWEEN 8&200 LBS/SEC. YOU'VE 16000 LBS FUEL ESTIMATED.
FREE FALL IMPACT TIME-120 SECS. CAPSULE WEIGHT-32500 LBS.
FIRST RADAR CHECK COMING UP.


COMMENCE LANDING PROCEDURE.
TIME,SECS   ALTITUDE,MILES+FEET   VELOCITY,MPH   FUEL,LBS   FUEL RATE
        0         120       0         3600.00      16500.0      K=100
       10         110    1191         3436.60      15500.0      K=100
       20         100    4824         3266.87      14500.0      K=100
       30          92     436         3090.39      13500.0      K=300
NOT POSSIBLE...................................................K=30
       40          83    2843         3061.26      13200.0      K=20
       50          75     241         3053.48      13000.0      K=100
       60          66    4342         2866.01      12000.0      K=100
       70          59     690         2670.56      11000.0      K=100
       80          51    5248         2466.53      10000.0      K=100
       90          45    2304         2253.27       9000.0      K=100
      100          39    2560         2030.03       8000.0      K=100
      110          34     889         1795.99       7000.0      K=100
      120          29    2735         1550.21       6000.0      K=100
      130          25    2999         1291.62       5000.0      K=100
      140          22    1877         1018.99       4000.0      K=100
      150          19    4864          730.92       3000.0      K=100
      160          18    1640          425.79       2000.0      K=1
NOT POSSIBLE...................................................K=
      170          17     411          461.79       2000.0      K=100
      180          16    1270          137.69       1000.0      K=100
FUEL OUT AT    190.00 SECS.
ON THE MOON AT    437.38 SECS.
IMPACT VELOCITY OF    682.96M.P.H.
FUEL LEFT: -    0.00 LBS.
SORRY, BUT THERE WERE NO SURVIVORS-YOU BLEW IT!
INFACT YOU BLASTED A NEW LUNAR CRATER    189.71FT. DEEP.
CONTROL OUT
*

.TYPE TEST.AL
'BEGIN'
'INTEGER' I;
'REAL'    R;
  SKIP(1); TEXT(1,"FACTORIALS"); SKIP(1);
  R:=1.0;
  'FOR' I:=1 'STEP' 1 'UNTIL' 10 'DO'
  'BEGIN'
    R:=R*I;
    RWRITE(1,R,7,3); SKIP(1);
  'END'
'END'$$$

.R RALGOL
LOADER
INPUT FILENAME ?*TEST.AC$
ENDS 0255
FACTORIALS
 +1.000
 +2.000
 +6.000
+24.000
+120.000
+720.000
+5040.000
+40320.000
+362880.000
+3628800.000

^

.TYPE TEST.PA
/ TYPE CHARACTERS

FIELD  0
*0200
BEGIN,  CLA
        TAD CHAR
        TLS
        TSF
        JMP .-1
        ISZ CHAR
        ISZ COUNT
        JMP BEGIN
        JMP I CP7605
CHAR,   0040
COUNT,  7700
CP7605, 7605
$
.R MACREL
*TEST<TEST.PA/G
NO ERRORS
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_

.R SV2BN
*ABSLDR<ABSLDR
*$
.R DASM
*ABSLDR.TX<ABSLDR.BN
*$USER ERROR 6 AT 00317
.
.TYPE ABSLDR.TX
/DASM V 1.01 MRM 1/20/74

        *2000
ZZ2000, JMS I   ZZ2177
        JMS I   ZZ2177
        JMP     .+3
        JMP     ZZ2010
ZZ2004, JMS I   ZZ2176
        JMS I   ZZ0174
        AND     ZZ0005
        AND     .+7
ZZ2010, TAD     ZZ0107
        CDF     0000
        DCA I   ZZ0171
        CDF     0010
        TAD I   ZZ0106
        AND     ZZ0156
        SZA CLA
        JMS I   ZZ2177
ZZ2020, 7400
..
ZZ3765, DCA     ZZ3672
ZZ3766, 7645
ZZ3767, AND     ZZ0003
ZZ3770, 7377
ZZ3771, ISZ I   ZZ3760
ZZ3772, AND     ZZ0035
ZZ3773, DCA     ZZ3700
ZZ3774, DCA     ZZ3740
ZZ3775, ISZ     ZZ0104
ZZ3776, ISZ     ZZ0043
ZZ3777, ISZ     ZZ0160
        $END$

.

.TYPE TEST.P8
/ TYPE CHARACTERS

        RADIX   8
        ORG     0200
BEGIN,  CLA
        TAD     CHAR
        IOT     4,6
        IOS     4,1
        JMP     *-1
        INC     CHAR
        ISZ     COUNT
        JMP     BEGIN
        JMPI    CP7605
CHAR,   0040
COUNT,  7700
CP7605, 7605
.
.R PAGE8
*TEST<TEST.P8

NO HPSORT.7A
<PASS 1>
ERRORS:   0
<PASS 2>
ERRORS:   0

.R ABSLDR
*TEST/G
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
.

.TYPE TEST.LI
DEFINE(((LAST (LAMBDA(X)
          (COND ((NULL (CDR X)) (CAR X))
                (T (LAST (CDR X))))
))))
ICLOSE()
.R LISP

IOPEN(SYS TEST LI)

 NIL

 (LAST)

 NIL