SE Basic IV 4.2 Cordelia

nch
Mensajes: 76
Registrado: 10 Ene 2018, 23:16

Re: SE Basic IV 4.2 Cordelia

Mensajepor nch » 13 Mar 2019, 18:29

Como ya he dicho anteriormente, no se mucho que digamos y menos comparado con los que andan por aquí, pero aún así me parece un proyecto muy recomendable.
Ojalá se anime mas gente a probarlo. :enelPC:

kgmcneil
Mensajes: 43
Registrado: 29 Ago 2016, 08:48

Re: SE Basic IV 4.2 Cordelia

Mensajepor kgmcneil » 17 Mar 2019, 12:58

Definitely looking forward to being able to install this on my ZXUno... :plasplas:

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 18 Mar 2019, 20:02

Phase 4 is complete.

  • Fixed a RETURN bug.
  • Spectrum emulator app.
  • Marked UnoDOS 3 entry points.
  • Optimized arithmetic module.
  • Renamed LN to LOG.
  • Added empty comments to remaining modules.
  • Keyboard buffer.
  • System variable and ORG cleanup.
  • Editor cleanup.
  • Empty comments to remaining frameworks.
  • Extended RUN to work as a file command.
  • Overhauled reports.
  • Three new command classes and shortened command parameter table.
  • Style cleanup.
  • Optimized command module.
  • Fixed ORG offsets.
  • Updated ZCL for 40-bit float / int support.
  • Fixed a tokenizer bug.

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 20 Mar 2019, 23:46

Phase 5 is complete.

Developer Preview 1 is released:

https://cheveron.github.io/sebasic4/

If you need any help getting started, please ask in this thread.

zxpope
Mensajes: 10
Registrado: 02 Ene 2018, 02:12

Re: SE Basic IV 4.2 Cordelia

Mensajepor zxpope » 31 Mar 2019, 16:38

hello andy
thanks for your fine Basic interpreter.

creating unstable systems (oscillators) in computers are an interesting thing.
I found an very simple example in rossetacode.org and
i spent some time this Sunday implementing it with SEBASIC.

pendulum.png
pendulum.png (14.25 KiB) Visto 332 veces


here you will find the code i have tested.
I am not sure how to do a copy/paste to the speccy, hi hi

Código: Seleccionar todo

100 rem pendulum from http://rossetacode.org
110 let l=0.5
120 let tetha=1
130 let speed=0
140 let g=9.81
150 let k=26
160 let i=0
170 let j=0
210   let x=l*k*sin(tetha)
220   let y=l*k*cos(tetha)
230   let accel=g*sin(tetha)/l/k
240   let speed=speed+accel/k
250   let tetha=tetha+speed
300 let x=16-x
302 let y=8-y
340 print at j,i;" "
350 print at y,x;"*"
350 print at 8,16;"+"
370 let i=x
380 let j=y
400 goto 200


for the sake of completeness,
i spent some time tunning the knobs with matlab-octave.
i attach some plots to show the inners of the algorithm

Código: Seleccionar todo

l=0.5
tetha=1
sspeed=0
g=9.81
k=26
for n=[1:k*6]
   x=l*k*sin(tetha);
   y=l*k*cos(tetha);
   accel=g*sin(tetha)/l/k;
   sspeed=sspeed+accel/k;
   tetha=tetha+sspeed;
end


pendulum1.png

pendulum2.png


thanks for your basic, i enjoyed it a lot.
zxpope

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 05 Abr 2019, 12:45

zxpope escribió:hello andy Andrew
thanks for your fine Basic interpreter.


You're welcome. I'm curious as to which version you are using though as the latest build does not support PRINT AT. Instead, you use LOCATE. Also LET is optional (you can leave it out) and you can substitute a single quote (') for REM. As I haven't had any bug reports in since the previous release I'll be doing a new release soon with complete character map support (it's a very minor code change). What this means is that you can access a Chloe VM running on ZEsarUX from the terminal using the --vo curses option. You should also be able to use it from a remote terminal session.

Someone should let the RosettaCode.org folks know that it's Sinclair BASIC rather than ZX Spectrum BASIC (most examples should work unmodified on a SAM Coupe, and some simple ones will work on a ZX81, and those that only use integers may even work on the ZX80).

Here's what the code should look like for the current version of SE Basic 4.2:

Código: Seleccionar todo

100 ' pendulum from http://rossetacode.org
110 l=0.5
120 tetha=1
130 speed=0
140 g=9.81
150 k=26
160 i=0
170 j=0
210 x=l*k*sin(tetha)
220 y=l*k*cos(tetha)
230 accel=g*sin(tetha)/l/k
240 speed=speed+accel/k
250 tetha=tetha+speed
300 x=16-x
302 y=8-y
340 locate j,i:print " "
350 locate y,x:print "*"
350 locate 8,16:print "+"
370 i=x
380 j=y
400 goto 200

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 09 Abr 2019, 00:05

Experimental app support is done. You can launch an app with RUN "nameofyourprogram".

The first app is a Spectrum emulator. For some reason the font gets corrupted with ZEsarUX but not with RVM so I am looking for people with real Unos to test.

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 30 Abr 2019, 00:08

Now running on my own development hardware.

Imagen

Avatar de Usuario
brunosilva
Mensajes: 298
Registrado: 18 Jun 2016, 19:54

Re: SE Basic IV 4.2 Cordelia

Mensajepor brunosilva » 30 Abr 2019, 01:03

nice!!!!!! :)

Avatar de Usuario
aowen
Mensajes: 93
Registrado: 07 Oct 2015, 13:32

Re: SE Basic IV 4.2 Cordelia

Mensajepor aowen » 30 Abr 2019, 11:43

Now I need to port the Uno dot commands to Chloe apps.


Volver a “Firmware”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado