fire-up ( cpu -- )


Vocabulary
space-invaders

Definition
USING: accessors kernel math ;

IN: space-invaders

: fire-up ( cpu -- ) [ port1>> 255 16 - bitand ] keep port1<< ;