new_1.z80

#define     progStart   $C000
.org        progStart
start:
        ld a, $31      ; Start value
        ld de, $8000
        ld bc, $C000
next:
        ld a,b
        srl a
        jr nc, skip
        xor $B8
skip:
        ld b,a
        ld (de),a
        inc de
        ld hl,bc
        sbc de
        jr nz, next