coin-up ( cpu -- )

Vocabulary

roms.space-invaders

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: roms.space-invaders

: coin-up ( cpu -- ) [ 255 1 - bitand ] change-port1 drop ;