;<Program title>

jmp start

;data

;code
start: nop
        LXI H,0A01H
        MOV B,M
        MVI A,FFH
LOOP:   INX H
        CMP M
        JC  NEXT
        JZ  NEXT
        MOV A,M

NEXT:   DCR B
        JNZ LOOP
        STA 0AFFH
        HLT