CREATE kernel-rom       8192 ALLOT
kernel-rom hbase !      $E000 tbase !

$20 CONSTANT P_M8
$10 CONSTANT P_X8

\
\ Begin ROM image here
\

$E000 *!

:= _dup_        dex, dex, 1 dp,x, sta, rts,
:= _drop_       1 dp,x, lda, inx, inx, rts,
:= _swap_       0 dp, sta, 1 dp,x, lda, 2 dp, sta,
                0 dp, lda, 1 dp,x, sta, 2 dp, lda, rts,

: dup,          _dup_ jsr, ;
: drop,         _drop_ jsr, ;
: swap,         _swap_ jsr, ;
: li,           dup, #w, lda, ;
: nip,          inx, inx, ;

    .
    .
    .
    .
:= WARM_BOOT
    $0200 li, $BFFF li, ramtest jsr,
    .
    .
    .
    .

:= COLD_BOOT
    ( Enter native mode and set all 16-bit registers )
    sei, clc, xce,
    P_M8 P_X8 OR #b, rep,

    ( Set return and data stack pointers )
    $02FF #w, lda, tas, $01FF #w, ldx,

    ( Warp factor 9! )
    WARM_BOOT $, jmp,

$FFE4 *!

    NCOP_Handler *,w
    NBRK_Handler *,w
    NABORT_Handler *,w
    NNMI_Handler *,w
    0 *,w               ( unused; RESET )
    NIRQ_Handler *,w

$FFF4 *!

    ECOP_Handler *,w
    0 *,w               ( unused; BRK )
    EABORT_Handler *,w
    ENMI_Handler *,w
    COLD_BOOT *,w
    EIRQ_HANDLER *,w