this way makes ext method 18 words less

Code:
array var word[2]
array_asbyte var byte ext
@array_asbyte=_array
inx var byte
i    var byte
ADRESLO VAR BYTE
ADRESHi VAR BYTE


i=0
for  inx=0 to 3
'array[inx]=(adreshi<<8)| adreslo
array_asbyte[i]=ADRESLO
i=1+1
array_asbyte[i]=ADRESHi
i=1+1


next


stop