read-port1 ( cpu -- byte )


Vocabulary
roms.space-invaders

Inputs
cpuan object


Outputs
bytean object


Definition
USING: accessors kernel math ;

IN: roms.space-invaders

: read-port1 ( cpu -- byte )
[ dup 254 bitand ] change-port1 drop ;