write-word ( value addr cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

value	an object
addr	an object
cpu	an object

Outputs

None

Definition

USING: kernel math ;

IN: cpu.8080.emulator

: write-word ( value addr cpu -- )
    [ >word< ] 2dip [ write-byte ] 2keep [ 1 + ] dip write-byte
    ;