Operating instructions
Article Summary
A BASIC direct compiler that makes
minimal
use
of
P·code
is
being
developed for the
PET
and APPLE or any
6502
based computer
by
a private Cana-
dian group. It is anticipated
that
the
resulting object code will require more
storage than the source BASIC provided
to
the interpreter but less than
that
generated
by
other presently available
compilers.
The chief advantage
of
the new
compiler is that
its
resulting
code
should execute many times faster than
the speed obtained
by
using the
PET
or
APPLE's BASIC interpreter.
The new compiler in combination
with the present powerful
PET
and
AP-
PLE
BASIC interpreters should greatly
facilitate
the development
of
new
systems
that
take advantage
of
the
PET's and APPLE's
6502
microprocessor
and the PET's IEEE-488 Port com-
patabilities.
DO
300
I=1,N
IF CCRCI).EQ.O)
GOTO
300
IF (STRTSWCI).EQ.O)
GOTO
407
CR(I)=O
C
CHECK
IF
INFORMATION
COMING
IF
(STEP(I).GT.6)
GOTO
301
BFPTRCI)=BFPTRCI)-1
C
YES
INFOIRMATION
T=STEP(I)
DO
300
J=1.BFPTRCI)
INFOCI,T,J)=BUFFERCI,J)
300
CONTINUE
STOP
END
Figure
1:
Example
of
Fortran
Routine
Serious users who would
be
willing
to
help
benchmark
and
critically
evaluate the performance of
this
new
BASIC compiler are invited to contact
the
author,
Mr. Bruce
M.
Beach,
Horning's
Mills,
Ontario
LON
1JO,
Canada,
(519)925-6035,
or
Mr.
J.
Brian
Beswick, 1755 Rathburn Road, Unit
45,
Mississauga,
Ontario
L4W
2M8
(416)624-5225.
IF
FEHALE
GO
TO 'WHAN
ELSE
GO
TO
HAN.
Hot'IAN.
IF
lJEIGHT <MIN-FEf-1ALE-H'T
(J)
SUBTR.'l.CT
HEIGHT
FRON NIN-FENALE-I.JT
(J)
GIVING
LBS-U
(NU)
GO
TO
SKINNY.
IF
HEIGHT>
HAX-FENALE-\-lT
(J)
SUBTRACT
HAX-FE~!ALE-\vT
(J)
FIWN HEIGHT
GIVING
LBS-OV (NOV)
GO
TO
FAT.
GO
TO
NORl1AL.
VJAN.
IF
\-lEIGHT <
~aN-MALE-\'JT
(J)
Figure
2:
Example
of
Cobol
Routine