words/f_cpu.asm

Jump to Vocabulary

; ( -- f_cou ) System
; R( -- )
; put the cpu frequency on stack
VE_F_CPU:
    .db $05, "f_cpu"
    .dw VE_HEAD
    .set VE_HEAD = VE_F_CPU
XT_F_CPU:
    .dw DO_COLON
PFA_F_CPU:
    .dw XT_DOLITERAL
    .dw (cpu_frequency / 65536)
    .dw XT_DOLITERAL
    .dw (cpu_frequency % 65536)
    .dw XT_EXIT

Jump to Vocabulary