SET A,0
SET B,0
SET C,0
SET x,0xA000
:loop
IFE [0x9000+C],0
    SET PC, loop
IFE [0x9000+C],8
    SET PC, loeschen
SET B,[0x9000+C]
BOR B,X
SET [0x8000+A],B
SET [0x9000+C],0
ADD A,1
ADD C,1
AND C,15
SET PC,loop
:loeschen
SUB A,1
SET [0x8000+A],0
SET [0x9000+C],0
ADD C,1
AND C,15
SET PC,loop