.ba $C000 ldx #'A' L1 txa sta $0400,X inx cpx #'Z' bne L1 rts .en