bit3or ( lhs rhs -- 0|1 )

Vocabulary

cpu.8080.emulator

Inputs

lhs	an object
rhs	an object

Outputs

0|1

an object

Definition

USING: kernel math ;

IN: cpu.8080.emulator

: bit3or ( lhs rhs -- 0|1 ) [ 8 bitand -3 shift ] bi@ bitor ;