processor 6502

    org $a000

    WORD .coldstart
    WORD .warmstart
    BYTE #$41, #$30, #$c3, #$c2, #$cd

.coldstart:
    cld
    sei
    ;jmp .coldstart
    jsr $fd8d
    jsr $fd52
    jsr $fdf9
    jsr $e518
    lda $0288
    sta $0294
    jsr $e45b
    jsr $e3a4
    jsr $e404
    cli

.warmstart:
    lda #$02
    ldx #$00
clear_color_ram:
    sta $9400,x
    sta $9500,x
    sta $9600,x
    sta $9700,x
    dex
    bne clear_color_ram

    ldx #$00
print:
    lda message,x
    beq .end
    sec
    sbc #$40
    sta 7724,x
    sta 7746,x
    sta 7768,x
    sta 7790,x
    inx
    jmp print

.end:


restart:
    ldx #$00
loop:
    stx 7680
    dex
    bne loop
    jmp restart


message:
    BYTE "CIAO DEVELER BY GIOMBA",#$0

. = $bfff
    BYTE #$ff