dec-byte ( byte cpu -- result )

Vocabulary

cpu.8080.emulator

Inputs

byte	an object
cpu	an object

Outputs

result

an object

Definition

USING: kernel math ;

IN: cpu.8080.emulator

: dec-byte ( byte cpu -- result )
    [ 1 2dup - ] dip [ update-flags-no-carry ] 2keep
    [ update-half-carry-flag ] 2keep drop 255 bitand ;