.setcpu "65C02"

                        ACIA_DATA       = $7F00
                        ACIA_STATUS     = $7F01
                        ACIA_COMMAND    = $7F02
                        ACIA_CONTROL    = $7F03

                        .segment "VECTORS"

                        .word nmi
                        .word reset
                        .word irq

                        .code

reset:                  jmp main
nmi:                    rti
irq:                    rti

main:                   sei
                        cld
                        ldx #$FF
                        txs

                        lda #%00001011
                        sta ACIA_COMMAND
                        lda #%00011111
                        sta ACIA_CONTROL

                        lda #'T'
                        jsr acia_putc
                        lda #'E'
                        jsr acia_putc
                        lda #'S'
                        jsr acia_putc
                        lda #'T'
                        jsr acia_putc

:                       bra :-

acia_putc:              pha
:                       lda ACIA_STATUS
                        and #$10
                        beq :-
                        pla
                        sta ACIA_DATA
                        rts