* = $6000  
wsync =$d40a
vcount =$d40b
colbk = $d01a
colpf2=$d018

inicio
    lda #'H 
    jsr $f2b0 
    lda #'O 
    jsr $f2b0 
    lda #'L 
    jsr $f2b0 
    lda #'A 
    jsr $f2b0 

loop
    lda vcount
    sta wsync
    sta colbk
    sta colpf2
    jmp loop 

    *=$2e0 
    .word inicio