; Hola Mundo usando firmware Amstrad CPC
    org $4000          ; Dirección de carga del programa

    ld hl, mensaje     ; HL apunta al mensaje
bucle:
    ld a, (hl)         ; Carga siguiente carácter
    or a               ; ¿Es cero (fin de cadena)?
    jr z, fin          ; Si sí, termina
    call $BB5A         ; Llama a CHPUT (imprime carácter)
    inc hl             ; Siguiente carácter
    jr bucle           ; Repite
fin:
    ret

mensaje:
    db "HOLA MUNDO CPC!",0