Annyi hogy A= -327xx és 32767 között lesz.
De szerintem van BASIC változó ami AA=xxx(a)   -327xx-32767 -> 0-65535 csinál.

Nem találtam de ha:
xxxx VALTOZO=USR(RD_RAM,RAM00)
xxxx IF VALTOZO<0 THEN VALTOZO=VALTOZO+65536
Már jó is.

Hello Bruce!

 I try to describe it english maybe you did not get from the translation.

My problem is i would like to use assembly code in IS-Basic by using the Call USR function.
 I would like to pass more then one 16 bit value, and maybe receive also more than one.
 
 I need an advice how to do it without too much calculation.
 The problem is, if I use poke to send a 16 bit value, i have to do a division with 256 and use the result to sent the hibyte, and take the remainder to send the lobyte. This division in is basic probably very expensive, because of the division.

 On the way back, from assembl to basic (by using more than one return variable), i have to multiply the hibyte with 256 and add to lobyte. I assume the multiplicatiom with 256 and adding is more expensive than put the high and lowbyte together.
 My idea was, that the assembly code takes the variable from the memory directly where the e.g LET a=23675 stores the value, instead of passing somewhere else. But later i read that is-basic stores only integer from 0-9999, and if we exceed it it will be converted to bcd format (where a 8bit memory stores 2 decimals.

 It would be handy, if CALL(USR) would take 2 possible or maybe more values: call usr(routine1,x,y)
 I could accept that it returns only 1 value, because in that case i would call it twice (with different routines), to get more results.
 Maybe you have an idea about this topic.
 

Kettőt biztosan. Harmadik már opcionális.

nem emlékszem pontosan de volt BASIC ban a CODE HEX$ kódban olyasmi

CODE P1=HEX$("...,C9")
CODE P2=HEX$("...,CD"& xxx(P1) &("...,C9")

Egy változó ami a P1 NNNN címet beilleszti a gépi kódba.

Sorry, only in English:

This has been discussed several times. For example this one.

One of the beauties and also a handicap of Machine Code on IS-Basic is that the resulting routine is relocatable: the start address depends on the extras you have installed on your Enterprise.

Zozo gave me long ago the clue to manage it: CALL USR(MC,MC)

I am not a real programmer, but I like to do little routines, almost by writing them on a note of paper....

This is how I would do what you want:

Send the start address of the routine as the second operand with the CALL USR(MC,MC) Basic command. Then place an immediate relative jump at the start of your code, leaving all the data bytes you need. Save HL value for later. Like on this example:

MC:
JR Start       ; A JR instruction has a length of 2 bytes: 18h+two's complement of the displacement.  
Value1: DEFB 0
Value2: DEFB 255
etc...
Start:
PUSH HL
etc...

You can know on every moment the address of Start, adding  JR displacement + MC( in HL), and also Value1 address=MC+2, Value2 address=MC+3, etc. Then you can do the same easily on Basic: Value1=peek(mc+2): Value2=peek(mc+3)

Közben elvégeztem egy gyors tesztet:
127 db futás 6 poke,
- WORD és ORD-dal - 13 sec
- Osztással és MOD-dal - 38 sec

Tehat a WORD/ORD 3-szor gyorsabb kódot ad.

Még egy lehetőség van, hogy a CALL USR() rutint többször egymás után hívom meg, hogy adatokat átadjak:

100 CODE MEMO("00,00,00,00,00,00")
110 CODE PASS_A=HEX$("...,WORD$(MEMO)... ,C9")   ! LD IX,MEMO ;  LD (IX+0),L ; LD (IX+1),H ; RET ;
120 CODE PASS_B=HEX$("...,WORD$(MEMO)... ,C9")  ! LD IX,MEMO ;  LD (IX+2),L ; LD (IX+3),H ; RET ;
130 CODE CALC_RES1=HEX$("...WORD$(MEMO)....,C9")  
140 CODE GET_RES2=HEX$("........,C9")  ! LD IX,MEMO ;  PUSH HL, POP IX (a változatosság kedvéért); LD L,(IX+2) ; LD H,(IX+3) ; RET ;
150 LET A=23456
160 LET B=1234
170 CALL USR(PASS_A,A)  ! A value goes into HL, then stored to MEMO
180 CALL USR(PASS_B,B)  ! B value goes into HL, then stored to MEMO
190 LET RESULT1=CALL USR(CALC_RES1)
200 LET RESULT2=CALL USR(MEMO)

Itt még  talán a 120 és 130 sorokat össze lehetne vonni, hogy amikor a CALC kódot hívom, akkor egyúttal átadok egy értéket, így nem kell kétszer hívni.
Lassan megoldódik a kérdésem.

Beépített interpreteres nyelvre van szükségem. Csak az IS-Basic adja magát.
Itt most a sebesség azért fontos mert sokféle megoldás van, és nem akarom a leglassabbat választani.

Beszállhatok egy 3. lehetőséggel ?

1000x
- WORD és ORD-dal - 55 sec
- Osztással és MOD-dal - 201 sec
- USR osztó - 46 sec

Hogy néz ki az USR osztó?