.ba $C000 ldx #'A' L1 txa ; copy X into A sta $0400,X inx cpx #'Z' ; complet alphabet? bne L1 ; no, -> repeat cycle rts .en