Questo è quello che propone copilot (browser Microsoft Edge)
.org $0801
.byte $0b, $08, $00, $00, $9e, $32, $30, $36, $31, $00, $00, $00
Start:
lda #$00
sta StringIndex
NextString:
lda StringArray, x
beq EndOfArray
jsr PrintString
inx
jmp NextString
EndOfArray:
rts
PrintString:
ldy #$00
PrintChar:
lda (StringArray), y
beq EndOfString
jsr $ffd2 ; CHROUT routine to print character
iny
jmp PrintChar
EndOfString:
rts
StringArray:
.byte "Stringa1", 0
.byte "Stringa2", 0
.byte "Stringa3", 0
.byte 0 ; Terminatore dell'array
StringIndex:
.byte 0
Io non l'ho provato :biggrin: