home.social

#sharpmz80k — Public Fediverse posts

Live and recent posts from across the Fediverse tagged #sharpmz80k, aggregated by home.social.

  1. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  2. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  3. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  4. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  5. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  6. Pleasingly the #PicoMZ80K also works with the #RC2014 pico based VGA terminal with the addition of an external micro sd card reader and speaker. As I've used the ground on the expansion header for the sd card, I've borrowed a ground from the unused tx/rx pins for the speaker :)

    Will be in my repo later once I've tidied the code up ...

    #RetroComputing #SharpMZ80K

  7. Pleasingly the #PicoMZ80K also works with the #RC2014 pico based VGA terminal with the addition of an external micro sd card reader and speaker. As I've used the ground on the expansion header for the sd card, I've borrowed a ground from the unused tx/rx pins for the speaker :)

    Will be in my repo later once I've tidied the code up ...

    #RetroComputing #SharpMZ80K

  8. Pleasingly the #PicoMZ80K also works with the #RC2014 pico based VGA terminal with the addition of an external micro sd card reader and speaker. As I've used the ground on the expansion header for the sd card, I've borrowed a ground from the unused tx/rx pins for the speaker :)

    Will be in my repo later once I've tidied the code up ...

    #RetroComputing #SharpMZ80K

  9. Pleasingly the #PicoMZ80K also works with the #RC2014 pico based VGA terminal with the addition of an external micro sd card reader and speaker. As I've used the ground on the expansion header for the sd card, I've borrowed a ground from the unused tx/rx pins for the speaker :)

    Will be in my repo later once I've tidied the code up ...

    #RetroComputing #SharpMZ80K

  10. Pleasingly the #PicoMZ80K also works with the #RC2014 pico based VGA terminal with the addition of an external micro sd card reader and speaker. As I've used the ground on the expansion header for the sd card, I've borrowed a ground from the unused tx/rx pins for the speaker :)

    Will be in my repo later once I've tidied the code up ...

    #RetroComputing #SharpMZ80K

  11. Taking a break away from the Pico MZ-80K emulator over December seems to have done wonders for my debugging brain. I think I've finally managed to properly sort the keyboard handling so that the F9 kludge is no longer necessary! Testing so far is encouraging ...

    #RetroComputing #SharpMZ80K #PicoMZ80K

  12. Taking a break away from the Pico MZ-80K emulator over December seems to have done wonders for my debugging brain. I think I've finally managed to properly sort the keyboard handling so that the F9 kludge is no longer necessary! Testing so far is encouraging ...

    #RetroComputing #SharpMZ80K #PicoMZ80K

  13. Taking a break away from the Pico MZ-80K emulator over December seems to have done wonders for my debugging brain. I think I've finally managed to properly sort the keyboard handling so that the F9 kludge is no longer necessary! Testing so far is encouraging ...

    #RetroComputing #SharpMZ80K #PicoMZ80K

  14. Taking a break away from the Pico MZ-80K emulator over December seems to have done wonders for my debugging brain. I think I've finally managed to properly sort the keyboard handling so that the F9 kludge is no longer necessary! Testing so far is encouraging ...

    #RetroComputing #SharpMZ80K #PicoMZ80K

  15. Taking a break away from the Pico MZ-80K emulator over December seems to have done wonders for my debugging brain. I think I've finally managed to properly sort the keyboard handling so that the F9 kludge is no longer necessary! Testing so far is encouraging ...

    #RetroComputing #SharpMZ80K #PicoMZ80K

  16. @rc2014 Gave up with the active buzzer as I realised it was always going to produce a fixed tone. The expansion header was very useful for hooking up a passive one. All working ... I only need to update the repo and documentation now ...

    #RetroComputing #SharpMZ80K #RC2014

  17. @rc2014 Gave up with the active buzzer as I realised it was always going to produce a fixed tone. The expansion header was very useful for hooking up a passive one. All working ... I only need to update the repo and documentation now ...

    #RetroComputing #SharpMZ80K #RC2014

  18. @rc2014 Gave up with the active buzzer as I realised it was always going to produce a fixed tone. The expansion header was very useful for hooking up a passive one. All working ... I only need to update the repo and documentation now ...

    #RetroComputing #SharpMZ80K #RC2014

  19. @rc2014 Gave up with the active buzzer as I realised it was always going to produce a fixed tone. The expansion header was very useful for hooking up a passive one. All working ... I only need to update the repo and documentation now ...

    #RetroComputing #SharpMZ80K #RC2014

  20. @rc2014 Gave up with the active buzzer as I realised it was always going to produce a fixed tone. The expansion header was very useful for hooking up a passive one. All working ... I only need to update the repo and documentation now ...

    #RetroComputing #SharpMZ80K #RC2014

  21. @rc2014 It works! Thanks again for the hint.

    Now *all* I need to do is tidy the code up (and break it at least twice more) so I can put it back into my repo. I also need to make the sound work properly over i2c ... It's just a monotone beep at the moment.

    #RC2014 #SharpMZ80K #RetroComputing

  22. @rc2014 It works! Thanks again for the hint.

    Now *all* I need to do is tidy the code up (and break it at least twice more) so I can put it back into my repo. I also need to make the sound work properly over i2c ... It's just a monotone beep at the moment.

    #RC2014 #SharpMZ80K #RetroComputing

  23. @rc2014 It works! Thanks again for the hint.

    Now *all* I need to do is tidy the code up (and break it at least twice more) so I can put it back into my repo. I also need to make the sound work properly over i2c ... It's just a monotone beep at the moment.

    #RC2014 #SharpMZ80K #RetroComputing

  24. @rc2014 It works! Thanks again for the hint.

    Now *all* I need to do is tidy the code up (and break it at least twice more) so I can put it back into my repo. I also need to make the sound work properly over i2c ... It's just a monotone beep at the moment.

    #RC2014 #SharpMZ80K #RetroComputing

  25. @rc2014 It works! Thanks again for the hint.

    Now *all* I need to do is tidy the code up (and break it at least twice more) so I can put it back into my repo. I also need to make the sound work properly over i2c ... It's just a monotone beep at the moment.

    #RC2014 #SharpMZ80K #RetroComputing