/X execute machine, pass register val to mint var

[SteveJustin1963]

i dont think this is possible
for example i want to get z80 R value and use
as a pydosudo random number and pass it to a mint var

:R
  [
    #ED #5F  // LD A,R
    #32      // LD (nn),A
    /v /v    // Address of r variable (low byte, high byte)
  ] /X
  r
;

or more random

:I
  [
    #3E #A5     // LD A, #A5 (Initialize R with a non-zero value)
    #ED #4F     // LD R, A
  ] /X
;

:R
  [
    #ED #5F     // LD A, R (Get current R value)
    #CB #3F     // SRL A (Shift right logical)
    #57         // LD D, A (Store shifted value in D)
    #ED #5F     // LD A, R (Get R value again)
    #AA         // XOR D (XOR with shifted value)
    #ED #4F     // LD R, A (Store result back in R)
    #32         // LD (nn), A
    /v /v       // Address of r variable (low byte, high byte)
  ] /X
  r
;

I
:G
  R
  255 &        // Mask to ensure 8-bit value
;

[jhlagado]

probably better to support a random number generator in MINT
whether or not it is based on the R register in the Z80 can be decided later