addr>xy ( addr -- point )


Vocabulary
roms.space-invaders

Inputs
addran object


Outputs
pointan object


Definition
USING: arrays kernel math ;

IN: roms.space-invaders

: addr>xy ( addr -- point )
9216 - dup 31 bitand 8 * 255 swap - swap -5 shift
swap 2array ;