Quantum computer [REX], [Uranium PACKS], init Z1-Z10 zones

// Telegram: @DosX_Plus

(%0)<"!~_device_type":!<#23205f5f3078
$\:=INIT "REX-MODULE"
_~()*@_X_ENTRY{_REQ:11000011000010000011000111100010000011001011010110000011000111011110000011001011100010000011100111001110000011011111000111101011100011000011000001101101100001100000110001110111010000011011111001111000001101001100111100000110010110111010000011100111000011000001101011101010100000110011110000100000110000110000100000111001110011100000110001110111100000110111110011100000110010110010}&!_W_HWID_!!
#?OK => NEXT
#!OK => DBG:GET_EXC
PROGRAM
 QUANT_:main: $*!~|INIT|SRC %% %[-_~!] %%
 ||_REQ:1000000111010110001|:<| _$_X_ENTRY | ENTRY_POINT &&&
                           |_REQ:1000000111111011101010101010110111100101011101|:>.IO|[:~#]
SCHEME .PROGRAM
 #1.GET <<< REX.*
 #2.RETURN >>> $PORT%0~"@- %*"
INSTRUCTION .SCHEME
 #1.CALL BT _=> $..:"_REQ"
REX__DATA
  ~1A:REG, 180b:ASMD _IN[0], 000b:REX $9C $1J $1A $2L $9S $1K ~$0*
  BEGIN
    0 [1:]/SHORT:!.A\BYTE-_1 << .[BIT]=0x^_*
    0 [2:]/SHORT:.B\BYTE-_1 ,
    0 [3:]/SHORT:.C\BYTE-_1 ,
                   |BYTE-_2 ,
                   |BYTE-_3 >> .QUBIT
    FRAMES BEGIN
      _XC_HASH [00001] 01 71 73 82 91 94 00 74 21 97 42:L:
      _XSW_CMD [00002] 01 02 84 26 18 00 32 81 25 28 43:>>L;
    FRAMES BEGIN END
  BEGIN END
  IO_FORMAT BEGIN
    #!0000000 == 0!0000001 == 0!0000011 == 0!0000111 == 0
    #!0001111 == 1!0011111 == 1!0111111 == 1!1111111 == 1
  IO_FORMAT BEGIN END
 #2.$<SHELL&&& SEND REQ.[QUBIT>:3] PORT [1] [2] [^3] [4] [5]
SHIFT .REX__DATA {_XC_HASH<PORT.1 _XSW_CMD<PORT.2}
 &a&g>>l!proc
ENTRY_POINT[THREAD=main INTRUCTION .QUBIT]
  *|SHELL|IN $WORKER<.GET^VAL[THREAD]~main:
  ** %0|<[0X:$"Z"] => $~main*|_$.0X:$"*+{Z}"[1:A, 2:A, 3:A, 4:A, 5:A, 6:A, 7:A, 8:A, 9:A, 10:A"!="]
  ** %a|^g FLAGS [$*] _!REX__DATA .CR[IO] NEW $[1:[3] 2:[3] 3:.A .B .C] | COL "PORT" "0X_C_***" "_W_HWID_":0?!=1
    .REX:$[1]
END :: !proc