;;; ----------------------------------------------------------------------

        PORT1 = $F3
        PORT1DDR = $F4
        PORT2 = $F0
        PORT2DDR = $F1
        PORT3DDR = $EF
        PORT3 = $EE

        .org 0
        .res $F000,$EA

RESET:  sei
        cld
        .byte $12               ; CLT
        ldx #$FF
        txs

        ldy #0
initloop:
        lda #255
        sta PORT1DDR
        sta PORT2DDR
        sta PORT3DDR

main:   lda #255
        sta PORT3
        sta PORT2
        sta PORT1

        ldx #0
@1:     ldy #0
@2:     nop
        nop
        dey
        bne @2
        dex
        bne @1

part:
        lda #0
        sta PORT3
        sta PORT2
        sta PORT1
        ldx #0
@1:     ldy #0
@2:     nop
        nop
        dey
        bne @2
        dex
        bne @1
        beq main

;;; ----------------------------------------------------------------------
        .align 256

INITCPUREG:
        .byte $E9, $00, $ED, $02, $EE, $00, $EF, $FF
        .byte $F0, $02, $F1, $63, $F5, $34, $F6, $18
        .byte $F7, $78, $00

;;; ----------------------------------------------------------------------
        .align 256
        .res $D00
        .res $FE                ; .org $FFFE

        .word RESET

;;; ----------------------------------------------------------------------