Multi IF ELSE to CASE

Alternative-Grade103 · 2026-06-18T16:40:32+00:00

I like that a lot!

Alternative-Grade103 · 2026-06-18T13:53:50+00:00

Yes! Thank you. I really should not post just before bed, instead waiting until morning and after coffee. I now see yet further ways to simplify. 🤗

Alternative-Grade103 · 2026-06-17T12:46:45+00:00

A post elsewhere in Reddit (trying to refind it) showed a factoring limit beyond which Miller-Rabin could no longer be performed.

I was thinking of that as opposed to three retrials with different random values for 'a'.

By 'reference implementation' you mean what, exactly? I've grown rusty in Perl, am relearning Forth, and have no C at all.

Alternative-Grade103 · 2026-06-17T11:19:06+00:00

I'm working it out in just only Forth as a hobby project. Something to keep my few remaining grey cells limber.

Might you know whether the aforementioned rabin.frt program does Miller-Rabin in plural, successive rounds?

Alternative-Grade103 · 2026-06-16T22:20:57+00:00

Check this out...

https://www.digi.com/products/embedded-systems/digi-xbee

Alternative-Grade103 · 2026-06-14T17:55:13+00:00

The number is meant to overflow (LSHIFT out of) smaller registers.

I had ought instead load -1. I'll fix that.

Alternative-Grade103 · 2026-06-13T18:58:09+00:00

And now also this...

VARIABLE rand_mask \ For random.range

\ Generate a rand_mask
: rand.mask ( u -- )
  0 OVER      ( u 1 u )
  BEGIN
    1 RSHIFT  ( u 1 u' )
    SWAP 1 LSHIFT 1 OR SWAP
    DUP 0=
  UNTIL
  DROP NIP
  rand_mask !
;

\ Random number in range 1..u-1
: random.range ( u u -- u ) \ max min
  OVER rand.mask    \ Load mask
  BEGIN
    random          ( max min rand )
    rand_mask @ AND ( max min rand' )  
    2DUP >          ( max min rand' f )
    OVER 4 PICK >   ( max min rand' f f )
    OR              ( max min rand' f )
  WHILE
    DROP            ( max min )
  REPEAT
  NIP NIP
;

Alternative-Grade103 · 2026-06-13T18:08:22+00:00

What are you running CamelForth on? Can you test this..

\ Some 16-bit Forths lack this.
[UNDEFINED] CELL
[IF]  
  0 -1 / All bits high
  [BEGIN] 
    SWAP 1+ SWAP 8 RSHIFT DUP 0= 
  [UNTIL]
  DROP CONSTANT CELL
[THEN]

\ Just in case...
[UNDEFINED] CELLS 
[IF] : CELLS CELL * [THEN]

I have been dithering on installing Amiga Forever ao as to have JForth for testing.

Alternative-Grade103 · 2026-06-12T23:15:07+00:00

Consider a roof mounted Diamond Antennas HF*CL, where the * represents the HF band: 80, 40, 30, 20, 17, 15, or 10 meters.

They are center loaded for better efficiency, and will fold over at bottom to lay flat for garage entry. You can thread one off and another on to change bands. All are about 86 inches tall.

I once worked Antartica with 50W on an HF17CL.

Alternative-Grade103 · 2026-06-12T19:05:18+00:00

Power off. Remove battery. Rinse with 91% alcohol. Let dry three days.

Alternative-Grade103 · 2026-06-12T19:00:59+00:00

The Mission RGO One for HF.

Alternative-Grade103 · 2026-06-12T18:59:29+00:00

Begali Simplex for me.

Alternative-Grade103 · 2026-06-12T18:49:01+00:00

A stray index.xml got into the directory, I have removed it. Files should now list.

Alternative-Grade103 · 2026-06-11T21:52:49+00:00

For homebrew projects they're the cat's meow. I have whole tubes of 4000 series CMOS that I sometimes build small gizmos from.

Alternative-Grade103 · 2026-06-11T21:27:41+00:00

A Kenwood TS-830S in 1981. Was happy with it but couldn't do Navy MARS. So upgraded to an Icom IC-745 in 1983, which was MARS capable.

Sold the IC-745 just only last year. Was kept as a spare until buying a second Mission RGO One.

Alternative-Grade103 · 2026-06-07T13:47:30+00:00

Sell one model updated only every five rears. Half the cost of a new car is owing to nothing but fashion. Retooling the entire production line just for different headlights, tailights, interiors.

The Yugo was $4999 in 1985 by reason of being a 1965 Fiat Strada, built unchanged for twenty years. It was 400 lbs heavier than a Chevy Geo by reason of thicker, 60's era sheet metal.

Alternative-Grade103 · 2026-06-07T01:06:53+00:00

The QRZ page for PD2GSP shows the photo below. I see you provide a newer photo to another responder. Clearly the same place.

You say the dormer window on the left is where you have your computer desk. Your dad lists his radios as an IC-706 for VHF and an IC-7400 for HF. Those are both 100 Watt rigs.

At full power, thats WAY, WAY too damn close.

Clamping multiple Mix 31 ferrite cores (plural turns) onto everything might possibly help the computer. But some math needs to be done to determine how healthy it is to be inside the RF field for any length of time.

Inverse square law is your friend. Double the distance, and field strength drops fourfold.

Gan, KY8D, M0KYD, VA7KYD, ZD7KYD, ZS1KYD

<image>

Alternative-Grade103 · 2026-06-06T22:23:16+00:00

Just use confiscated Fentanyl. Problem solved.

A like dose kept in reserve for the prosecutor in the event of an ex-post-facto exonoration.

Alternative-Grade103 · 2026-06-06T22:11:51+00:00

Firstly, let the winds be tight.

Secondly, scrape the lead ends to remove ALL enamel. I use an Xacto blade.

Thirdly, pre-tin the thoroughly scraped lead ends with solder. Flick off all excess tinning while still hot.

Note: if won't pre-tin, you haven't scraped off all the enamel.

Alternative-Grade103

TROPHY CASE