\ 1802reset

needs 1802cycle
needs 1802regs
needs 1802exceptions

hex

: reset-cpu  ( -- )
    reset-exceptions
    ['] noop (cycle) !
    0 P !        \ R0 is initial prog ctr
    0 Q !        \ Q line reset
    -1 IE !      \ interrupts enabled
    0 X !        \ init X to R0
    0000 0 R !  \ prog ctr initially at 0
    reset-idle
    ;



