read-port3 ( cpu -- byte )

Vocabulary

roms.space-invaders

Inputs

cpu

an object

Outputs

byte

an object

Definition

USING: accessors kernel math ;

IN: roms.space-invaders

: read-port3 ( cpu -- byte )
    [ port4hi>> 8 shift ] keep [ port4lo>> bitor ] keep
    port2o>> shift -8 shift 255 bitand ;