read-port2 ( cpu -- byte )

Vocabulary

roms.space-invaders

Inputs

cpu

an object

Outputs

byte

an object

Definition

USING: accessors kernel math ;

IN: roms.space-invaders

: read-port2 ( cpu -- byte )
    [ port2i>> 143 bitand ] [ port1>> 112 bitand bitor ] bi ;