words/cold.asm

Jump to Vocabulary

; ( -- ) System
; R( -- )
; main entry word. executes turnkey operation and executes quit
VE_COLD:
    .db $04, "cold", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_COLD
XT_COLD:
    .dw DO_COLON
PFA_COLD:
    .dw XT_SP0
    .dw XT_SP_STORE
    .dw XT_RP0
    .dw XT_RP_STORE
    ; set IO
    .dw XT_DOLITERAL
    .dw XT_TX0
    .dw XT_DOLITERAL
    .dw XT_EMIT
    .dw XT_DEFERSTORE

    .dw XT_DOLITERAL
    .dw XT_TX0Q
    .dw XT_DOLITERAL
    .dw XT_EMITQ
    .dw XT_DEFERSTORE

    .dw XT_DOLITERAL
    .dw XT_RX0
    .dw XT_DOLITERAL
    .dw XT_KEY
    .dw XT_DEFERSTORE

    .dw XT_DOLITERAL
    .dw XT_RX0Q
    .dw XT_DOLITERAL
    .dw XT_KEYQ
    .dw XT_DEFERSTORE

    .dw XT_DOLITERAL
    .dw XT_NOOP
    .dw XT_DOLITERAL
    .dw XT_SLASHKEY
    .dw XT_DEFERSTORE

    .dw XT_DOLITERAL
    .dw XT_NOOP
    .dw XT_DOLITERAL
    .dw XT_PAUSE
    .dw XT_DEFERSTORE

    .dw XT_ZERO
    .dw XT_STATE
    .dw XT_STORE

    .dw XT_BAUD0
    .dw XT_USART0

    .dw XT_INTON

    .dw XT_TURNKEY

    .dw XT_QUIT
    .dw XT_EXIT

Jump to Vocabulary