Martin
unread,Mar 15, 2022, 2:40:12 PM3/15/22You do not have permission to delete messages in this group
Sign in to report message
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
Ported from the CB68 CBASIC Compiler Demo
$ ./cpmsim.sh
Read 32768 bytes from boot track
CP/M-68K(tm) Version 1.2 03/20/84
Copyright (c) 1984 Digital Research, Inc.
CP/M-68K BIOS Version 1.0
Simulated system of April 2014
TPA =16251 K
C>AUTOST.SUB
C>INIT.REL M
Do you really want to init disk M ?
C>a:
A>type mandel.for
PROGRAM MANDEL
REAL CA, CB, A, B, T
INTEGER X, Y, I, K
CHARACTER CH*1
CHARACTER*80 OUT
DO 300, Y=-12,12
DO 200, X=-39,39
CA=X*0.0458
CB=Y*0.08333
A=CA
B=CB
K=99
DO 100, I=0,15
IF (K .NE. 99) GOTO 100
T=A*A-B*B+CA
B=2.0*A*B+CB
A=T
IF ((A*A+B*B) .GT. 4.0) K=I
100 CONTINUE
IF (K .GT. 9) K=K+7
IF (K .GT. 99) OUT(X+40:X+40)=' '
IF (K .LT. 99) OUT(X+40:X+40)=CHAR(48+K)
200 CONTINUE
9000 FORMAT(1X,79A)
WRITE(*,9000) OUT
300 CONTINUE
END
A>b:f mandel
A>B:FORTRAN.REL MANDEL.FOR
MC68000 Fortran77 Compiler V2.1 01-Dec-83
(C) Copyright 1983 Silicon Valley Software, Inc.
MANDEL [16521650 bytes]
{16520150 bytes}
0 errors. 28 lines. File mandel.for
Smallest available space: 16521650 bytes.
A>B:CODE.REL MANDEL.I
MC68000 Code Generator V2.1 01-Dec-83
(C) Copyright 1983 Silicon Valley Software, Inc.
MANDEL - MANDEL Code size = 386
Total code size = 386
A>B:ULINKER.REL -L MANDEL.O MANDEL.OBJ B:FTNLIB.OBJ B:PASLIB.OBJ
MC68000 CPM Object Code Formatter V2.1 01-Dec-83
(C) Copyright 1983 Silicon Valley Software, Inc.
A>ERA MANDEL.OBJ
A>C:LO68 -S -O MANDEL.68K -T10100 B:S.O MANDEL.O B:OPTOFF.O B:CLIB
A>ERA MANDEL.O
A>mandel
000000011111111111111111122222233347E7AB322222111100000000000000000000000000000
000001111111111111111122222222333557BF75433222211111000000000000000000000000000
000111111111111111112222222233445C 643332222111110000000000000000000000000
011111111111111111222222233444556C 654433332211111100000000000000000000000
11111111111111112222233346 D978 BCF DF9 6556F4221111110000000000000000000000
111111111111122223333334469 D 6322111111000000000000000000000
1111111111222333333334457DB 85332111111100000000000000000000
11111122234B744444455556A 96532211111110000000000000000000
122222233347BAA7AB776679 A32211111110000000000000000000
2222233334567 9A A532221111111000000000000000000
222333346679 9432221111111000000000000000000
234445568 F B5432221111111000000000000000000
864332221111111000000000000000000
234445568 F B5432221111111000000000000000000
222333346679 9432221111111000000000000000000
2222233334567 9A A532221111111000000000000000000
122222233347BAA7AB776679 A32211111110000000000000000000
11111122234B744444455556A 96532211111110000000000000000000
1111111111222333333334457DB 85332111111100000000000000000000
111111111111122223333334469 D 6322111111000000000000000000000
11111111111111112222233346 D978 BCF DF9 6556F4221111110000000000000000000000
011111111111111111222222233444556C 654433332211111100000000000000000000000
000111111111111111112222222233445C 643332222111110000000000000000000000000
000001111111111111111122222222333557BF75433222211111000000000000000000000000000
000000011111111111111111122222233347E7AB322222111100000000000000000000000000000
A>c:bbye
CP/M-68K terminating normally